istediğiniz gibi güncelledim hocam
girilen tarih tabloda var ise hata vermesi
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 ?
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 ?
Please return your positive or negative ...
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
Please return your positive or negative ...
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
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...
Diğer sorularınız için yeni konu açınız...
Please return your positive or negative ...
Konuyu Okuyanlar: 1 Ziyaretçi