MODIFIED SOURCE CODE FOR DATAGRID.FRM

DATAGRID.FRM contained 4 resource strings and 0 non-user interface strings.

Option Explicit
'>>>>>>>>>>>>>>>>>>>>>>>>
'ResMe Converted To A Property: Const MSG8 = "Delete Current Row?"
'>>>>>>>>>>>>>>>>>>>>>>>>

Public mrsFormRecordset As ADODB.Recordset

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
  If KeyCode = vbKeyF1 And Shift = 0 Then
    DisplayTopic 2016191
  End If
End Sub

Private Sub Form_Load()
    'ResMe autogenerated line of code to call the initialization routine that was automatically generated.
    Call frmDataGrid_Auto_Init
  On Error GoTo LoadErr
  
  datDataCtl.Caption = Caption
  
  'mrsFormRecordset is a public module level variable
  'that must get set prior to 'Show'ing this form
  Set datDataCtl.Recordset = mrsFormRecordset
  
  Me.Width = 5865
  Me.Height = 5070
  
  Exit Sub

LoadErr:
  'WAS: MsgBox "Error:" & Err & " " & Error$
  MsgBox LoadResString(S209_Error) & Err & LoadResString(S0_) & Error$

  Unload Me

End Sub

Private Sub Form_Resize()
  On Error Resume Next
  If Me.WindowState <> vbMinimized Then
    grdDataGrid.Height = Me.ScaleHeight - (datDataCtl.Height + 135)
  End If
End Sub

Private Sub grdDataGrid_BeforeDelete(Cancel As Integer)
  If MsgBox(MSG8, vbYesNo + vbQuestion) <> vbYes Then
    Cancel = True
  End If
End Sub



'*********************************************************************************
'**          This Section Of Code Was Automatically Generated By ResMe          **
'**                                                                             **
'** String assignments to Constants have been converted to read-only properties **
'*********************************************************************************


'This was: Const MSG8 = "Delete Current Row?"
Property Get MSG8 As String
    'WAS: MSG8 = "Delete Current Row?"
    MSG8 = LoadResString(S161_Delete_Current_Row)

End Property


Private Sub frmDataGrid_Auto_Init()
'This routine initializes all User Interface control properties on frmDataGrid.
'This section of code was automatically generated by the ResMe String Extraction Utility.
    'WAS: Me.Caption = "Data Grid"
    Me.Caption = LoadResString(S132_Data_Grid)

End Sub