Skip to main content

AccessTr.neT


#silindi Hatası

life_exciting
life_exciting
2
2257

#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
Çözüldü #2
Arkadaşlar Sorunu Çözdüm.Sorun Tablolarımı Mysql Sunucu Üzerinde Tutuyorum ve Access İle Bağlantısını Mysql ODBC le Sağlıyorum.Tablolarda El İle Oluşturduğum Veriler Vardı ve Bunlara da ID Tanımlamadığım İçin ODBC Bu Verilerin Doğruluğunu Sağlayamıyordu ve Buyüzden Bu Şekilde Bir Hata Veriyordu.İyi Çalışmalar
Cevapla
#3
Aynı sorun bende de var, nasıl çözdüğünüzü tam idrak edemedim.

bir tarih alanından, bir altta geçerken alttaki tarih üsttekinin durumuna göre, silme sorgusu devreye giriyor ve ana tablodan silip, bitenler tablosuna atıyor..Silme işleminde ise, FORMDA TÜM ALANLARDA #SİLİNDİ yazıları çıkıyor !

Açıklayabilecek sayın üyemiz olursa, istifade edebiliriz.
"Oyun bitince  şah ve piyon aynı kutuya atılır "
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da