Skip to main content

AccessTr.neT


run-time error 3464 ifade türü uyuşmazlığı hk

run-time error 3464 ifade türü uyuşmazlığı hk

Çözüldü #7
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.
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Cevapla
Çözüldü #8
kodun tamamı burda

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 Sub

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 Img-grin [/bilgi]
Son Düzenleme: 10/03/2009, 14:16, Düzenleyen: osman06.
Cevapla
Çözüldü #9
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.
İyiki Varsın Access Img-grin
Cevapla
Çözüldü #10
olabilir zaten sadece saat yazdığımda hatayı veriyor adı soyadı ve tarihi yazdığımda sorun yok yani hatayı vermiyor ama bulamadım neden
Cevapla
Çözüldü #11
bende baktımda kodlarda fazlalık olarak SD4 diye fazlalık gördüm birde bunları silip


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
Cevapla
Çözüldü #12
tablondaki saat alanının biçimi ile formundaki saat alanının biçimi aynımı.. birde onu kontrol et
İyiki Varsın Access Img-grin
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da