(10/05/2017, 12:35)biberli33 yazdı: Sayın Barcins, tablolarınız ilişkili değildi ilişkilendirdim ancak bilgi tutarlılığına zorlayamadım. Tablolarınızda bence gereksiz alanlar vardı onları kaldırdım.

İstediğinizi yapmak için HATIRLATMALAR giriş formundaki PLAKA alanında aşağıdaki kodları kullanabilirsiniz;

If Me.ACIKLAMA = ARAC_TANIMLARI.PLAKA Then (Eğer tabloda bulunan plaka ise)
Kısıtlı ve açık olacak kısımları buraya belirtirsiniz.
Me.liste18.Requery
Else ( Plaka tabloda yoksa)
Kısıtlı ve açık olacak kısımları belirtin.
Me.liste18.Requery
End If

Ayrıca liste18 satır kaynağını SELECT tabloadı.alanadı (listede görüntülenecek tüm alanlar arada , ile yazılacak) FROM tabloadı WHERE ARAC_TANIMLARI.PLAKA = [Formlar]![HATIRLATMALAR giriş]![ACIKLAMA]; şeklinde değiştirmeniz gerekir. 
Umarım faydam olmuştur.

merhaba sayın biberli33 malesef sadece formülü denedim hata veriyor formül

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.

(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.