AccessTr.neT
run-time error 3464 ifade türü uyuşmazlığı hk - Baskı Önizleme

+- 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ığı: run-time error 3464 ifade türü uyuşmazlığı hk (/konu-run-time-error-3464-ifade-turu-uyusmazligi-hk.html)

Sayfalar: 1 2 3 4 5 6 7

Cvp: run-time error 3464 ifade türü uyuşmazlığı hk - alpeki99 - 10/03/2009

(10/03/2009, 14:10)alpeki99 yazdı: If DCount("*", "HATIRLATMALAR", "AdiSoyadi='" & Me.AdiSoyadi & "' and Tarih=#"&01.01.2009& "# and Saat='" & Me.Saat & "'") > 0 Then


burada yazdığım şekilde düzelttiniz mi?

Cvp: run-time error 3464 ifade türü uyuşmazlığı hk - osman06 - 10/03/2009

evet aynı celoy hocam öylede olmadı
hocam düzelttim ama satır komple kırmızı oldu

Cvp: run-time error 3464 ifade türü uyuşmazlığı hk - tdsharun - 10/03/2009

stLinkCriteria2 bölümünü şu şekilde değiştirip dener misiniz?

Kod:
stLinkCriteria2 = "[Tarih]=" & "#" & SD2 & "#"


Cvp: run-time error 3464 ifade türü uyuşmazlığı hk - osman06 - 10/03/2009

hocam bu şekilde de olmadı

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


Cvp: run-time error 3464 ifade türü uyuşmazlığı hk - alpeki99 - 10/03/2009

Muhterem dediğimiz gibi düzeltmemişsin ki Img-grin ya benim dediğim gibi düzelt ya da tdsharun hocamın dediği gibi düzelt her ikiside aynı şey ama ikisini aynı anda yapma sadece birisini.

Ahhhh örnek dosyasızlık ahh

Cvp: run-time error 3464 ifade türü uyuşmazlığı hk - osman06 - 10/03/2009

hocam yukardaki yazdığınız kodu aynen sarı olan yere kopyaladım ama satır komple kırmızı oldu