AccessTr.neT

istediğiniz gibi güncelledim hocam

Dosyayı açtık ama ne yapmak istediğinizi anlayamadım.

Form2 yi açtım.

1.adım Veri alındı
2.adım 01,01,2012 ve 05,01,2012 SONUÇ a bastım
3.adım Ara Tablo Temizle ye bastım

Yapılacak olan nedir ?

2. adımda çetiğiniz tarih 01,01,2012 ve 05,01,2012 tarih ve aralağındaki diğer tarihleri DU tablosundan kontrol edicek ve var ise hata vericek ve işlemi durdurucak daha önce bu tarih aralığını çektiniz gibi mesela

Bitiş tarihinin Güncelleme sonrasına aşağıdaki kodu yapıştırın.

Private Sub ST_AfterUpdate()

Dim B1, B2 As String

Dim Sql As String

Dim db As Database

Dim rs As DAO.Recordset

Set db = CurrentDb()



B1 = Mid(BT, 1, 2) & Mid(BT, 4, 2) & Mid(BT, 9, 2)

B2 = Mid(ST, 1, 2) & Mid(ST, 4, 2) & Mid(ST, 9, 2)



SQL = "SELECT * FROM DU"

Set rs = db.OpenRecordset(SQL)

If rs.EOF = True Then GoTo 400



rs.MoveFirst

Do Until rs.EOF

If rs!TARİH < B1 Then GoTo 300

If rs!TARİH > B2 Then GoTo 300

MsgBox ("Daha önce aktarılmış tarih var.... Kimlik = " & rs!Kimlik)

GoTo 400

300

rs.MoveNext

Loop

400

End Sub

Hocam eline sağlık istediğim olmuş ancak sorunlar var
1.Hatayı verdiği zaman tamam bastığımızda işlem duruyor ancak tekrar sonuc butonuna bastığımda hata vermeden devam ediyor.
2.Hata verdi tamam basıtım tarihi değiştirdim ve girdiğim tarihte aslında tabloda var ama yine beni uyarmadan işleme devam ediyor

Ben kaydetme öncesi bilgi olup olmadığına baktırdım ve gerekli mesajı vermesini sağladım. Uygulamaya yön vermedim.

Diğer sorularınız için yeni konu açınız...