saat metinin güncelleştirmdenönce ki kısmında bulunan kodu komple kopyaladım ve kendi projemde herşeyi aynı olan saat metnini aynı yerine kopyaladım eksik bişeymi yapıyorum acaba
tamam tşk ler çözdüm
emeğini ilginisini esirgemeyen hocalarıma çok çok tşk
aşağıdaki kodları seninki ile değiştir çünkü & SD4 & " GİRİLMİŞ" _
şeklinde kod fazlalığı var bunu sil yani
If DCount("*", "Tablo1", "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*" _
& vbCr & vbCr & " DEVAM ETMEK İSTİYORMUSUNUZ...", vbYesNo + vbQuestion, "..***..DİKKAT..***..")
If C = vbNo Then Undo: Exit Sub
burayı değiştir...
Ben Puletin'in örneği üzerinde değişiklik yaptım. Onun dışındakileri incelemedim. Hata veren şeklini gönderirseniz ona da bakarız.
Kolay gelsin.
hocam sn puletin hocamın örneğinden bahsetmiştim sorunu çözdüm tşk ellerinize emeğinize sağlık ilgilenen zamanını ayıran hocalarıma
Rica ederim. Ama burasu bir bilgi paylaşım sitesi, sorunu çözünce açıklama yazmanızı beklerdik. Sorun neden kaynaklanmış diye....
mehmet demiral hocam
ellerine sağlık
örneğinizi kendi vt ma uyarlamaya çalıştım.
hata veriyor
ilgilenirseniz sevinirim.