+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Giriş Yaparken Tabloda Tanımlı İse Kaydetsin (/konu-giris-yaparken-tabloda-tanimli-ise-kaydetsin.html)
Sayfalar:
1
2
Cvp: Giriş Yaparken Tabloda Tanımlı İse Kaydetsin - barcins - 12/05/2017
(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
Cvp: Giriş Yaparken Tabloda Tanımlı İse Kaydetsin - ozanakkaya - 12/05/2017
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 IfDaha önce eklenen ve hatalı yazılan kodlara dokunulmamıştır.
Cvp: Giriş Yaparken Tabloda Tanımlı İse Kaydetsin - barcins - 12/05/2017
(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.