Giriş Yaparken Tabloda Tanımlı İse Kaydetsin

1 2
12/05/2017, 09:14

barcins

(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
12/05/2017, 09:58

ozanakkaya

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, 10:14

barcins

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