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