Kod:
Private Sub Command0_Click()
On Error GoTo HATA
DoCmd.RunSQL "UPDATE " & txtTUR & " SET " & txtTUR & ".durum2 = " & IIf(IsNull(ak12), "Null ", "ak12 ") & _
"WHERE (((" & txtTUR & ".ttarihi) Between [ilktarih] And [sontarih]) " & _
"and ( " & txtTUR & ".TUR = txtTUR) " & _
"and ((" & txtTUR & IIf(IsNull(ak11), ".durum2) Is Null));", _
".durum2= ak11)))")
MsgBox "Degistirildi..... ", vbInformation, ":)"
CIKIS: Exit Sub
HATA:
MsgBox "HATALI ISLEM YAPTINIZ.....", vbCritical, ":("
Resume CIKIS
End Sub