açılan kutu

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?

Sanırım listede yoksa eklemesini de isteyeceksin. İsterseniz aşağıdaki konuyu bir inceleyiniz.

Saygılar...

https://accesstr.net/konu-veri-acilan-ku...7%C4%B1lan