10/03/2009, 14:10
alpeki99
Alıntı:If DCount("*", "HATIRLATMALAR", "AdiSoyadi='" & Me.AdiSoyadi & "' and Tarih=#"&01.01.2009& "# and Saat='" & Me.Saat & "'") > 0 Then
Kod eklerken lütfen editorden Code taglarının içine alınız.
run-time error 3464 ifade türü uyuşmazlığı hk
10/03/2009, 14:10
alpeki99
10/03/2009, 14:13
osman06
kodun tamamı burda
hocam kusura bakmayın bu yazı ne demek onu anlamadım (Kod eklerken lütfen editorden Code taglarının içine alınız. )
[bilgi]Yazıyı yazdığınız bu yerin üstünde kelimeleri kalın yapan, renk veren vs. Word benzeri yer editor oluyor. Alttaki[/bilgi] [bilgi]sırada en sağdaki butonun solundaki # işaretine tıklayıp Vba kodunuzu yapıştırın. Daha sonra tekrar # butonuna [/bilgi][bilgi]basarak kodları kapatın. Böylelikle daha temiz bir görüntü elde edebiliriz. Ayrıca eklenen kodların bu [/bilgi][bilgi]şekilde eklenmesi forum kuralları arasında yer almaktadır
Kod:
Private Sub Saat_BeforeUpdate(Cancel As Integer)
Dim SD1, SD2, SD3, c As String
Dim stLinkCriteria1, stLinkCriteria2, stLinkCriteria3 As String
SD1 = Me.AdiSoyadi.Value
SD2 = Me.Tarih.Value
SD3 = Me.Saat.Value
stLinkCriteria1 = "[AdiSoyadi]=" & "'" & SD1 & "'"
stLinkCriteria2 = "[Tarih]=" & "'" & SD2 & "'"
stLinkCriteria3 = "[Saat]=" & "'" & SD3 & "'"
If DCount("*", "HATIRLATMALAR", "AdiSoyadi='" & Me.AdiSoyadi & "' and Tarih='" & Me.Tarih & "' and Saat='" & Me.Saat & "'") > 0 Then
c = MsgBox("DİKKAT!...LİSTENİZDE...*" _
& SD1 & " *adında ki kayıt * " _
& SD2 & " * Tarihinde*" _
& SD3 & " * Saatinde*" _
& SD4 & " GİRİLMİŞ" _
& vbCr & vbCr & " DEVAM ETMEK İSTİYORMUSUNUZ...", vbYesNo + vbQuestion, "..***..DİKKAT..***..")
If c = vbNo Then Undo: Exit Sub
If c = vbYes Then
cevap = MsgBox("Emin misiniz", vbYesNo, "KONTROL")
If cevap <> 6 Then
MsgBox "Kayıt Yapılmadı", vbOKOnly, "KAYIT YAPILMADI"
Undo
ElseIf vbNo Then
MsgBox "KAYIT YAPILDI", vbOKOnly, "KAYIT TAMAM"
End If
End If
End If
End Subhocam kusura bakmayın bu yazı ne demek onu anlamadım (Kod eklerken lütfen editorden Code taglarının içine alınız. )
[bilgi]Yazıyı yazdığınız bu yerin üstünde kelimeleri kalın yapan, renk veren vs. Word benzeri yer editor oluyor. Alttaki[/bilgi] [bilgi]sırada en sağdaki butonun solundaki # işaretine tıklayıp Vba kodunuzu yapıştırın. Daha sonra tekrar # butonuna [/bilgi][bilgi]basarak kodları kapatın. Böylelikle daha temiz bir görüntü elde edebiliriz. Ayrıca eklenen kodların bu [/bilgi][bilgi]şekilde eklenmesi forum kuralları arasında yer almaktadır
10/03/2009, 14:17
Nurullah_Serdar
hocam buna benzer bir sorunu bende daha önce yaşadım. Access ingilizce tabanlı bir program olduğu için bizim 01.01.2000 gibi bir tarih kalıbını kodlarda (sql lerde ) kabul etmiyor. 01/01/2000 olunca hatayı vermiyor. bunu halletmek içinse burada bir üstadın yol göstermesiyle denetim masasındaki tarih saat ayarlarından tarih ayracını / olarak değiştirdim ve yaşadığım sorun bitti. bu sorun saat alanından da kaynaklanıyor olabilir. ama tarih için / ayracının kullanılması gerektiğini gördüm bu tür sorgularda. ancak saat için hangisi kullanılıyor bilmiyorum.
10/03/2009, 14:22
osman06
olabilir zaten sadece saat yazdığımda hatayı veriyor adı soyadı ve tarihi yazdığımda sorun yok yani hatayı vermiyor ama bulamadım neden
10/03/2009, 14:24
C*e*l*o*y*c*e
bende baktımda kodlarda fazlalık olarak SD4 diye fazlalık gördüm birde bunları silip
şeklinde deneyin
Kod:
Private Sub Saat_BeforeUpdate(Cancel As Integer)
Dim SD1, SD2, SD3, c As String
Dim stLinkCriteria1, stLinkCriteria2, stLinkCriteria3 As String
SD1 = Me.AdiSoyadi.Value
SD2 = Me.Tarih.Value
SD3 = Me.Saat.Value
stLinkCriteria1 = "[AdiSoyadi]=" & "'" & SD1 & "'"
stLinkCriteria2 = "[Tarih]=" & "'" & SD2 & "'"
stLinkCriteria3 = "[Saat]=" & "'" & SD3 & "'"
If DCount("*", "HATIRLATMALAR", "AdiSoyadi='" & Me.AdiSoyadi & "' and Tarih='" & Me.Tarih & "' and Saat='" & Me.Saat & "'") > 0 Then
c = MsgBox("DİKKAT!...LİSTENİZDE...*" _
& SD1 & " *adında ki kayıt * " _
& SD2 & " * Tarihinde*" _
& SD3 & " * Saatinde GİRİLMİŞ *" _
& vbCr & vbCr & " DEVAM ETMEK İSTİYORMUSUNUZ...", vbYesNo + vbQuestion, "..***..DİKKAT..***..")
If c = vbNo Then Undo: Exit Sub
If c = vbYes Then
cevap = MsgBox("Emin misiniz", vbYesNo, "KONTROL")
If cevap <> 6 Then
MsgBox "Kayıt Yapılmadı", vbOKOnly, "KAYIT YAPILMADI"
Undo
ElseIf vbNo Then
MsgBox "KAYIT YAPILDI", vbOKOnly, "KAYIT TAMAM"
End If
End If
End If
End Subşeklinde deneyin
10/03/2009, 14:25
Nurullah_Serdar
tablondaki saat alanının biçimi ile formundaki saat alanının biçimi aynımı.. birde onu kontrol et