Kod:
Dim a, b, c, d As String
If IsNull([GOREV_TARIHI]) Or IsNull([GOREV_SAATI]) Or IsNull([KIM_KOD_NO]) Or IsNull([KIM_ILE_KOD_NO]) Or IsNull([NE_KONUSTU]) Or IsNull([TELSİZ_NOBETCISI]) Then
MsgBox ("LÜTFEN EKSİK BİLGİLERİ GİRİNİZ......")
Else
DoCmd.RunCommand acCmdSaveRecord
DoCmd.RunCommand acCmdRefresh
Me.Form.Requery
a = ""
b = ""
c = ""
d = ""
a = Me.Açılan_Kutu19
b = Me.Açılan_Kutu32
c = Me.Açılan_Kutu34
d = Me.Açılan_Kutu36
DoCmd.GoToRecord , , acNewRec
Me.Açılan_Kutu19 = a
Me.Açılan_Kutu32 = b
Me.Açılan_Kutu34 = c
Me.Açılan_Kutu36 = d
Me.Liste54.Requery
End If