Gönderdiğim örnekte verdiğim alanlardan biri boş olursa kayıt yapmadan boş olan textbox a odaklanmasını istiyorum. Bir türlü başaramadım. Yardımlarınız için teşekkürler.
Tablonuzdaki alanların "Gerekli" özelliğini "Evet" olarak değiştirin.
Bu seferde hata uyarısı veriyor.
Kayıt butonunuzun tıklanma olayına
If Len(Me.adı & "a") = 1 Then
MsgBox ("adı alanı boş bırakılamaz")
Me.adı.SetFocus
End If
If Len(Me.tckimlik & "a") = 1 Then
MsgBox ("kimlik alanı boş bırakılamaz")
Me.tckimlik.SetFocus
End If
Exit Sub
On Error GoTo Err_Komut8_Click
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.GoToRecord , , acNewRec
Exit_Komut8_Click:
Exit Sub
Err_Komut8_Click:
MsgBox Err.Description
Resume Exit_Komut8_Click
yazın
Ekteki örneği incelermisiniz.
Lütfen olumlu yada olumsuz geri dönüş yapınız.
Yardımlarınız için teşekkür ederim.