AccessTr.neT

alpeki99 hocama aynen katılıyorum... Ah örnek dosyasızlık aahhhh...

hocam örnek dosyayı çıkartmaya çalışıyım örnek dolu ve karışık biraz ayıklayabilirsem ekleyim hocam

---

hocam örnek ekte açılan formda renkli olan 3 yer var sorun bunlarda

hocam örneği ekledim

Saat de datetime sanırım ordan arıza çıkıyor
stLinkCriteria3 = "[Saat]=" & "#" & SD3 & "#" yaparsak olur sanırım.

BULDUM

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

'Ayrıntı.BackColor = 16764057
'FormÜstbilgisi.BackColor = 255
'FormAltbilgisi.BackColor = 255

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

TAMAM ANCAK TABLODA BULUNAN tARİH VE sAAT ALANLARINI mETİN OLARAK AYARLAYACAKSIN YANİ TARİH?SAAT YAPMIYACAKSIN

sn celoy hocam öyle yaparsam bu seferde raporda tarih aralığı verdiğimde verdiğim tarih aralığını çıkarmıyor

---

sn umut bey öylede olmadı

---

hocam aşağıdaki raporda tarih aralığı verdidirğim kodum tabloda metin yaparsam bunda nasıl bi değişiklik yaparsam istediğim tarih aralığını alırım

>=[forms]![Rapor]![İlk Hareket Tarihi] And <=[forms]![Rapor]![Son Har Tarihi]