aşağıdaki kodu deneyin.
Private Sub Komut4_Click()
docmd.close acform, "kapanacak formun adı"
' diğr komutlar buraya
End Sub
Private Sub Komut4_Click()
DoCmd.Close acForm, "Form1"
If [Açılan Kutu0] <> "" Then
DoCmd.OpenQuery "Sorgu1"
Else
MsgBox "STOK NO GİRMEDİNİZ"
End If
End Sub
bu şekilde hata veriyor
bu şekilde denedim hata veriyor...
Aşağıdaki gibi düzenleyiniz.
Saygılar...
Private Sub Komut4_Click()
If [Açılan Kutu0] <> "" Then
DoCmd.OpenQuery "Sorgu1"
DoCmd.Close acForm, "Form1"
Else
MsgBox "STOK NO GİRMEDİNİZ"
End If
End Sub
abi teşekkür ederim. denedim oldu.
Abi örnek olarak söylüyorum stok numara yazdım,
sorgula ya tıkladığımda eğer girdiğim stok tabloda olmasa bile boş sorgu ekranı geliyor. ben "stok bulunamadı" gibi. mesaj vermesini istiyorum. yardımcı olabilirmisin?