Önce tblİPTALMADDELERİ kontrol ediliyor ve varsa sorularak yazılıyor.
Sonra tblMENNEDENLERİ kontrol ediliyor ve varsa sorularak yazılıyor.
Kod:
Private Sub Maddesi_AfterUpdate()
TL = DLookup("[Miktarı]", "tblMADDELER", "[Maddesi]='" & Me.Maddesi & "'")
Puani = DLookup("[Puanı]", "tblMADDELER", "[Maddesi]='" & Me.Maddesi & "'")
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Dim SD, C As String
Dim stringCliteria As String
SD = Me.Maddesi.Value
stringCliteria = "[Maddesi]=" & "'" & SD & "'"
If DCount("*", "tblİPTALMADDELERİ", "Maddesi='" & Me.Maddesi & "'") > 0 Then
C = MsgBox("DİKKKAT *" & SD & " * ADINDA *" & vbCr & " DEVAM ", vbYesNo + _
vbQuestion, "DİKKAT")
If C = vbYes Then
DoCmd.RunSQL _
"insert into tblBELGEİPTAL SELECT * from tblVERİLER where (tblVERİLER.Ceza_ID=Forms![frmCEZALAR]![frmCEZAGİR].form.[Ceza_ID])"
MsgBox "İPTAL KAYDI YAPILDI"
End If
End If
If DCount("*", "tblMENNEDENLERİ", "Maddesi='" & Me.Maddesi & "'") > 0 Then
C = MsgBox("DİKKKAT *" & SD & " * ADINDA *" & vbCr & " DEVAM ", vbYesNo + _
vbQuestion, "DİKKAT")
If C = vbYes Then
DoCmd.RunSQL _
"insert into tblARACMEN SELECT * from tblVERİLER where (tblVERİLER.Ceza_ID=Forms![frmCEZALAR]![frmCEZAGİR].form.[Ceza_ID])"
MsgBox "KAYIT YAPILDI"
End If
End If
End Sub
aşağıdaki şekilde yapın.
Kod:
Private Sub Maddesi_AfterUpdate()
TL = DLookup("[Miktarı]", "tblMADDELER", "[Maddesi]='" & Me.Maddesi & "'")
Puani = DLookup("[Puanı]", "tblMADDELER", "[Maddesi]='" & Me.Maddesi & "'")
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Dim SD, C As String
Dim stringCliteria As String
SD = Me.Maddesi.Value
stringCliteria = "[Maddesi]=" & "'" & SD & "'"
If DCount("*", "tblİPTALMADDELERİ", "Maddesi='" & Me.Maddesi & "'") > 0 Then
C = MsgBox("DİKKKAT *" & SD & " * ADINDA *" & vbCr & " DEVAM ", vbYesNo + _
vbQuestion, "DİKKAT")
If C = vbYes Then
DoCmd.RunSQL _
"insert into tblBELGEİPTAL SELECT * from tblVERİLER where (tblVERİLER.Ceza_ID=Forms![frmCEZALAR]![frmCEZAGİR].form.[Ceza_ID])"
MsgBox "İPTAL KAYDI YAPILDI"
End If
Else
If DCount("*", "tblMENNEDENLERİ", "Maddesi='" & Me.Maddesi & "'") > 0 Then
C = MsgBox("DİKKKAT *" & SD & " * ADINDA *" & vbCr & " DEVAM ", vbYesNo + _
vbQuestion, "DİKKAT")
If C = vbYes Then
DoCmd.RunSQL _
"insert into tblARACMEN SELECT * from tblVERİLER where (tblVERİLER.Ceza_ID=Forms![frmCEZALAR]![frmCEZAGİR].form.[Ceza_ID])"
MsgBox "KAYIT YAPILDI"
End If
End If
End If
End Sub