- Katılım
- 1 Mart 2005
- Mesajlar
- 22,254
- Excel Vers. ve Dili
-
Win7 Home Basic TR 64 Bit
Ofis-2010-TR 32 Bit
Merhaba aşğıdaki kodu kaydet butonununu click olayına yazdım.
Ama buton açılan kutu 12 boş olduğu zaman hata mesajı vermiyor.
Dosya ektedir
Ama buton açılan kutu 12 boş olduğu zaman hata mesajı vermiyor.
Dosya ektedir
Kod:
Private Sub Kaydet_Click()
On Error GoTo Err_Kaydet_Click
[B][COLOR="Blue"]If Açılan_Kutu12 = Empty Then
MsgBox "Bölüm boş olamaz." & vbLf & "Bölüm alanına Yeni kayıt girmek için Bir bölüm yazınız..!!", vbCritical, "UYARI"
Exit Sub
End If[/COLOR][/B]
DoCmd.GoToRecord , , acNewRec
Exit_Kaydet_Click:
Exit Sub
Err_Kaydet_Click:
MsgBox Err.Description
Resume Exit_Kaydet_Click
End Sub
Ekli dosyalar
-
49.3 KB Görüntüleme: 7