21/11/2022, 18:08
aydin5353
Değerli accesstr ailesi. herkesi selamlıyorum. Güzel bir sorum var. Eğer bunu da başarırsam tam istediğim gibi kayıt ekran formu oluşturmuş olacağım.
yenievrakkayitformu diye bir formum var. Verimi giriyorum. Kaydımı yapıyorum. Tam istediğim gibi hatasız çalışmaktadır.
Örnekle; Veriyi girip "KAYDET" butonuna bastığım zamanda sorun yok. Kaydet butonuna basıp kaydı oluşturduktan sonra text boxlarım boşalıyor. burada da bir sorun yok.
Farklı bir evrak kaydetmek üzere Yeniden aynı işlemi yapmaya çalıştığımda "KAYDET" butonuna koyduğum Vba kodları çalışmıyor. Çalışması için Formun kapanıp tekrar açılması gerekiyor.
"Aldığım hata Özetle 2. bir kayıt yaparken kodların bir kısmının çalışmaması" Örnek üzerinde denenip görmeden anlaması biraz zor gibi. Ben anlatamamış da olabilirim.
Çalışmayan kodlara gelince de örneğimi yazayım.
If IsNull(sayi9) Then
MsgBox ("LÜTFEN EVRAKIN SAYISINI GİRİNİZ")
Me.sayi9.SetFocus
Exit Sub
Else
End If
İkinci kayıtta bunun denetimini yapması gerekirken yapmıyor.
yenievrakkayitformu diye bir formum var. Verimi giriyorum. Kaydımı yapıyorum. Tam istediğim gibi hatasız çalışmaktadır.
Örnekle; Veriyi girip "KAYDET" butonuna bastığım zamanda sorun yok. Kaydet butonuna basıp kaydı oluşturduktan sonra text boxlarım boşalıyor. burada da bir sorun yok.
Farklı bir evrak kaydetmek üzere Yeniden aynı işlemi yapmaya çalıştığımda "KAYDET" butonuna koyduğum Vba kodları çalışmıyor. Çalışması için Formun kapanıp tekrar açılması gerekiyor.
"Aldığım hata Özetle 2. bir kayıt yaparken kodların bir kısmının çalışmaması" Örnek üzerinde denenip görmeden anlaması biraz zor gibi. Ben anlatamamış da olabilirim.
Çalışmayan kodlara gelince de örneğimi yazayım.
If IsNull(sayi9) Then
MsgBox ("LÜTFEN EVRAKIN SAYISINI GİRİNİZ")
Me.sayi9.SetFocus
Exit Sub
Else
End If
İkinci kayıtta bunun denetimini yapması gerekirken yapmıyor.