Skip to main content

AccessTr.neT


#silindi Hatası

life_exciting
life_exciting
2
2258

#silindi Hatası

Çözüldü #1
Arkadaşlar Merhabalar
Aşağıdaki Kodları Bir Butonun Tıklanma Olayında Kullanıyorum.Ancak Butona Tıkladığımda Ekteki Gibi Tüm Kutularda Silindi Şeklinde Hata Alıyorum.Kontrol Edebilirseniz Sevinirim.İyi Çalışmalar
Private Sub s3_Click()
On Error Resume Next
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("select * from tbl_Fatura_Serileri where faturaserino = '" & Me.Metin22 & "'")

If rs.Fields("EnBuyukNo") - 10 < rs.Fields("SonNo") Then
MsgBox "Faturanız 10 Adetten Az Kaldı.Lütfen Faturanızı Kontrol Ediniz.", vbCritical, "Bitiyor.."
End If

If rs.Fields("EnKucukNo") > rs.Fields("SonNo") Or rs.Fields("EnBuyukNo") < rs.Fields("SonNo") Then
MsgBox "Faturanız Bitti.Fatura Tanımlama İşleminiz Yapılana Kadar Fatura Kesemezsiniz.Fatura Tanımlama İşlemi İçin Bilgi İşlemi Arayınız.", vbCritical, "Fatura Bitti.."
rs.Close

Exit Sub
End If

If IsNull(cikismerkezi) Then
MsgBox "Lütfen Gönderilecek Kargo'nun Çıkış Merkezini Belirtiniz.Aksi Halde Satış İşleminiz Durdurulacaktır.", vbOKOnly + vbCritical, "Eksik Bilgi": Me.cikismerkezi.SetFocus

Exit Sub
End If

If IsNull(varismerkezi) Then
MsgBox "Lütfen Gönderilecek Kargo'nun Varış Merkezini Belirtiniz.Aksi Halde Satış İşleminiz Durdurulacaktır.", vbOKOnly + vbCritical, "Eksik Bilgi": Me.varismerkezi.SetFocus

Exit Sub
End If

If IsNull(gonderenadi) Then
MsgBox "Lütfen Gönderen Müşteri Bilgilerini Giriniz.Aksi Halde Satış İşleminiz Durdurulacaktır.", vbOKOnly + vbCritical, "Eksik Kayıt": Me.gonderenadi.SetFocus

Exit Sub
End If

If IsNull(alicisoyadi) Then
MsgBox "Lütfen Alıcı Müşteri Bilgilerini Giriniz.Aksi Halde Satış İşleminiz Durdurulacaktır.", vbOKOnly + vbCritical, "Eksik Kayıt": Me.alicisoyadi.SetFocus

Exit Sub
End If

If IsNull(kargoadeti) Then
MsgBox "Lütfen Gönderilecek Kargo Adetini Belirtiniz.Aksi Halde Satış İşleminiz Durdurulacaktır.", vbOKOnly + vbCritical, "Eksik Kayıt": Me.kargoadeti.SetFocus

Else

rs.Edit
Me.faturasirano = IIf(IsNull(rs.Fields("SonNo")), 1, rs.Fields("SonNo") + 1)
Me.faturaserino = Me.Metin22
rs.Fields("SonNo") = IIf(IsNull(rs.Fields("SonNo")), 1, rs.Fields("SonNo") + 1)
rs.Update
rs.Close

'Yazıcı İşlemlerini Buradan Gerçekleştiriyorum

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.OpenReport "FaturaSorgu", acViewNormal
DoCmd.GoToRecord , , acNewRec

End If
End Sub
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
#silindi Hatası - Yazar: life_exciting - 23/02/2011, 16:27
Cvp: #silindi Hatası - Yazar: life_exciting - 23/02/2011, 17:07
Cvp: #silindi Hatası - Yazar: yorum70 - 02/06/2014, 22:40
Task