AccessTr.neT

Tam Versiyon: Alanlardan biri boş olursa kayıt yapmasın
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
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.
Sayfalar: 1 2