Merhaba,
ACIKLAMA metin kutusunun güncelleştirme sonrasında olayına aşağıdaki kodu yazınız.

Dim SID As String

Dim stLinkCriteria As String



'If IsNull(Me.ACIKLAMA) Then

'MsgBox "Boş geçilemez!"

'Cancel = True

'Me.Liste18.Requery

'Else





Dim VeriVarmi As Integer



VeriVarmi = Nz(DCount("Kimlik", "ARAC_TANIMLARI", "[PLAKA]='" & Me.ACIKLAMA & "'"), 0)



If VeriVarmi <> 0 Then



    ACIKLAMA = Dlookup ("[PLAKA]", "ARAC_TANIMLARI", "[PLAKA]=" & "'" & Me.ACIKLAMA & "'")

    CİNSİ = Dlookup ("[CINSI]", "ARAC_TANIMLARI", "[PLAKA]=" & "'" & Me.ACIKLAMA & "'")

    MARKASI = Dlookup ("[MARKASI]", "ARAC_TANIMLARI", "[PLAKA]=" & "'" & Me.ACIKLAMA & "'")

    MODELİ = Dlookup ("[MODELİ]", "ARAC_TANIMLARI", "[PLAKA]=" & "'" & Me.ACIKLAMA & "'")

    SERİNO = Dlookup ("[SERİNO]", "ARAC_TANIMLARI", "[PLAKA]=" & "'" & Me.ACIKLAMA & "'")

    Me.Liste18.Requery

    Me.ACIKLAMA.Enabled = False

    Me.DURUMU.Enabled = True

    Me.İLGİLİKİŞİ.Enabled = True

    Me.TELEFON.Enabled = True

    Me.GRUBU.Enabled = True

    Me.ŞUBE.Enabled = True

    Me.MAILKIME.Enabled = True

    Me.MAILBILGI.Enabled = True

    Me.MAILGIZLI.Enabled = True

    Me.MAILKONU.Enabled = True

    Me.BASLANGICTARİHİ.Enabled = True

    Me.BİTİSTARİHİ.Enabled = True

    Me.HATIRLATMATARİHİ.Enabled = True

    Me.SAATİ.Enabled = True

    Me.Onay44.Enabled = False



Else



    MsgBox ("Bu Plakaya Tanımlama Yapılmamış.")

    

End If





'End If

Daha önce eklenen ve hatalı yazılan kodlara dokunulmamıştır.