Private Sub SaveRecord()
Call PreSaveRecord
Call sb_CheckDiff ' + by grbdv
Stop ' add by grbdv
' Assign Data array values to current record in mainBase
RangeData.Value = Data
End Sub
Private Sub sb_CheckDiff() ' + by grbdv
Dim i%
For i = LBound(Data, 2) To UBound(Data, 2)
If Data(1, i) <> DataSave(1, i) Then
Debug.Print "Step " & i & vbLf & Data(1, i) & vbLf & DataSave(1, i) & vbLf
'Stop
End If
Next
End Sub
Private Sub PreSaveRecord()
' Copy values from Personal controls to DataSave array
' Мати
DataSave(1, 1) = TextBox_mam_FIO.Value ' * by grbdv All Data( -- > DataSave(
DataSave(1, 2) = TextBox_mam_Rojd.Value
...
End Sub
|
