AccessTr.Net Forumlarında Uyulması Gereken Genel Kurallar
6-) Sorununuz ile ilgili konu açtıysanız lütfen aynı soru ile ilgili tekrar konu açmayınız. Ayrıca, açtığınız konudaki sorun çözümlenmişse aynı konuya konu başlığındaki soru ile ilgisi olmayan farklı soru yazmayınız, başka bir üyenin soru içerikli konusuna soru yazmayınız. Sorunuz için yeni konu açınız.
[Uyarı Puanı: +2]
butonun kodunu aşağıdaki ile değiştir.
Kod:
Private Sub Komut29_Click()
On Error GoTo Err_Komut29_Click
If IsNull(Metin16) Or IsNull(Metin18) Then
MsgBox ("Adı ve Soyadı Alanları Boş Bırakılamaz vesaire vesaire")
Exit Sub
End If
DoCmd.GoToRecord , , acNewRec
Me.Metin26 = user
Me.Metin20 = sicilno
Me.Metin16.SetFocus
Exit_Komut29_Click:
Exit Sub
Err_Komut29_Click:
MsgBox Err.Description
Resume Exit_Komut29_Click
End Sub