(12/05/2017, 09:58)ozanakkaya yazdı: 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.
Teşekkür ederim hocam. istediğim gibi
iyi forumlar.