Private Sub cmdAdd_Click()
If cmdAdd.Caption = "&Dodaj" Then
cmdAdd.Caption = "&Ponisti"
rsRecordSet.AddNew
cmdSave.Enabled = True
txtDatum.Locked = False
txt1.Locked = False
txt2.Locked = False
txt3.Locked = False
txtDatum.SetFocus
ElseIf cmdAdd.Caption = "&Ponisti" Then
cmdAdd.Caption = "&Dodaj"
cmdSave.Enabled = False
txtDatum.Locked = True
txt1.Locked = True
txt2.Locked = True
txt3.Locked = True
End If
End Sub
Private Sub cmdSave_Click()
rsRecordSet.Update
txtDatum.Locked = True
txt1.Locked = True
txt2.Locked = True
txt3.Locked = True
rsRecordSet.Close
rsRecordSet.Open
lblEOF = rsRecordSet.EOF
lblBOF = rsRecordSet.BOF
End Sub