Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

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

osman06
osman06
Access Cevaplanmış Soruları
36
13220

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

Çözüldü #31
osman06
Aktif Üye
osman06
Bul
Aktif Üye
Adı Soyadı:
Konum: Ankara
Ofis Versiyonu: Ofis 2003
Son Oturumu: 26/04/2024,19:24
Yorumları: 249
Konuları: 48
Kayıt Tarihi: 22/11/2008
Teşekkür Puanı: 0
alpeki hocam kod aşağıdaki gibi oluyor en verdiğiniz kodu koyduğumda

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 & "'"

[color=#FF4500]If DCount("*", "HATIRLATMALAR", "AdiSoyadi='" & Me.AdiSoyadi & "' and Tarih =#" & Me.Tarih & "# and Saat=#" & SD3 & "# > 0")[/color]
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
Cevapla
Çözüldü #32
Seruz
Uzman
Seruz
www Bul
Uzman
Adı Soyadı: Se.... UZ....
Yaşı: 52
Konum: Tekirdağ
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 21/04/2024,01:09
Yorumları: 1.570
Konuları: 7
Kayıt Tarihi: 30/10/2008
Teşekkür Puanı: 825
Mesleğiniz: BT Şefi
Gördüğüm kadarıyla verilen kodları doğru aktaramamışsınız,
bir de bunları kopyalayıp deneyin.
Bende doğru şekilde çalışıyor.

Kod:
Private Sub Saat_BeforeUpdate(Cancel As Integer)
Dim SD1, SD2, SD3, c As String
Dim Kriter, Kriter1, Kriter2, Kriter3 As String

    SD1 = Me.AdiSoyadi.Value
    SD2 = Me.Tarih.Value
    SD3 = Me.Saat.Value
    
    Kriter1 = "[AdiSoyadi]=" & "'" & SD1 & "'"
    Kriter2 = "[Tarih]=" & "#" & SD2 & "#"
    Kriter3 = "[Saat]=" & "#" & SD3 & "#"
    Kriter = Kriter1 & " And " & Kriter2 & " And " & Kriter3
    
    If DCount("*", "HATIRLATMALAR", Kriter) > 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 Me.Undo: Exit Sub
        Cevap = MsgBox("Emin misiniz", vbYesNo, "KONTROL")
        If Cevap = vbNo Then
            MsgBox "Kayıt Yapılmadı", vbOKOnly, "KAYIT YAPILMADI"
            Me.Undo
        Else
            MsgBox "KAYIT YAPILDI", vbOKOnly, "KAYIT TAMAM"
        End If
    End If

End Sub
Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs
Cevapla
Çözüldü #33
tdsharun
&gt;&gt;&gt; O Şimdi Sivil&lt;&lt;&lt;
tdsharun
Bul
Aktif Üye
Adı Soyadı:
Yaşı: 42
Konum: Kütahya
Ofis Versiyonu: Ofis 2003
Son Oturumu: 31/12/2011,02:16
Yorumları: 778
Konuları: 27
Kayıt Tarihi: 06/11/2008
Teşekkür Puanı: 231
Hocam, bence Sayın osman06'nın sorunu bunların yanı sıra tarih ayracı... Tarih ayracı olarak nokta kullandığı için bu tarz bir sorunla karşılaşıyor muhtemelen. Slaç kullanması gerekiyor oysa ki... Aynı hatayı defalarca ben de yaşadım bunu yapmaya çalışırken. Bi sürü kod yazdım ettim. Sürekli hata aldım. Değiştirmeden de yapabilir miyim diye... Ama nafile...

Bölge ve dil seçeneklerinden tarih bölümündeki tarih ayırıcısını slaç yaptığımda sorun kalmadı.

Sayın osman06, size de aynısını tavsiye ediyorum. Resim de ekledim...

Kolay gelsin...
NZ Fonksiyonunun (İşlevinin) Ayrıntılı Anlatımı İçin Tıklayın...
DSum ve Sum Fonksiyonunun (İşlevinin) Ayrıntılı Anlatımı İçin Tıklayın...
DLookup Fonksiyonunun (İşlevinin) Ayrıntılı Anlatımı İçin Tıklayın...
Cevapla
Çözüldü #34
Seruz
Uzman
Seruz
www Bul
Uzman
Adı Soyadı: Se.... UZ....
Yaşı: 52
Konum: Tekirdağ
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 21/04/2024,01:09
Yorumları: 1.570
Konuları: 7
Kayıt Tarihi: 30/10/2008
Teşekkür Puanı: 825
Mesleğiniz: BT Şefi
Doğrudur, bir deneyip bilgi versin bakalım.

Ama kod da da sorunlar vardı, daha sade ve anlaşılır oldu şimdi.

Mesela,
Kod:
Dim stLinkCriteria1, stLinkCriteria2, stLinkCriteria3 As String
stLinkCriteria1 = "[AdiSoyadi]=" & "'" & SD1 & "'"
stLinkCriteria2 = "[Tarih]=" & "#" & SD2 & "#"
stLinkCriteria3 = "[Saat]=" & "'" & SD3 & "'"
yazılmış ama hiç bir yerde kullanılmıyordu.
Kod:
[color=#FF4500]If DCount("*", "HATIRLATMALAR", "AdiSoyadi='" & Me.AdiSoyadi & "' and Tarih =#" & Me.Tarih & "# and Saat=#" & SD3 & "# > 0")[/color]
Kodun başında ve sonunda color tagleri kalmış, bunları çıkarmamış sanırım koddan.
Çıkarmış olsa bile
Kod:
SD3 & "# > 0")
ifadesi yanlış, ">0" ifade parantezin ve tırnağın içinde kalmış.
Kod:
SD3 & "#") > 0
şeklinde olmalıydı.
Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs
Cevapla
Çözüldü #35
alpeki99
Düşünmek en zor iştir...
alpeki99
www Bul
Uzman
Adı Soyadı: Ol....
Yaşı: 43
Konum: Bursa
Ofis Versiyonu: Ofis 2010 32 Bit
Son Oturumu: 26/10/2023,01:33
Yorumları: 6.137
Konuları: 162
Kayıt Tarihi: 29/10/2008
Teşekkür Puanı: 1.291
Mesleğiniz: Yazılım Geliştirici
Seruz hocam haddime değil ama gözünüzden kaçmış olabilir düşüncesi ile söylüyorum.

SD3 & "# > 0") ifadesindeki > 0 parantez içinde kalması gerekmez mi? Sonuçta o parantez Dcount'a ait parantezin kapatılması. > 0 ifadesi de kriterde yer aldığına göre parantez içinde olması gerekmez mi?
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ü #36
Seruz
Uzman
Seruz
www Bul
Uzman
Adı Soyadı: Se.... UZ....
Yaşı: 52
Konum: Tekirdağ
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 21/04/2024,01:09
Yorumları: 1.570
Konuları: 7
Kayıt Tarihi: 30/10/2008
Teşekkür Puanı: 825
Mesleğiniz: BT Şefi
Estağfurullah sn. Alpeki99,
insanlık hali gözümden kaçmış olabilir ama
tekrar kontrol ettim ve benim söylediğim şekilde doğru olduğunu düşünüyorum.

Kod:
If Dcount(...) > 0
şeklinde olmalı,
sizin dediğiniz ">0" kriteri parantezin içinde kalırsa
Kod:
If Dcount(...)
olarak kalıyor ki bu doğru olmaz.
Çünkü Dcount() fonksiyonundan dönen değerin sıfırdan büyük olup olmadığına bakmaya çalışıyoruz.

VBA'de If kontrolüne Breakpoint koyup Immediate penceresinde "?" ile kriter kısmına bakarsanız daha iyi görebilirsiniz.
Benimkinde, Kriter = "[AdiSoyadi]='HASAN HÜSEYİN' And [Tarih]=#01/01/2009# And [Saat]=#18:00:00#"
Sizinkinde, Kriter = "[AdiSoyadi]='HASAN HÜSEYİN' And [Tarih]=#01/01/2009# And [Saat]=#18:00:00# > 0"
Yani parantez içinde kaldığında, saat eşitliğinin sıfırdan büyük olup olmadığını kontrol etmiş gibi oluyor.

Benim yazdığım kodda bu daha doğru olarak görünüyor.
Kod:
If DCount("*", "HATIRLATMALAR", Kriter) > 0 Then
Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task