+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: açılan kutu (/konu-acilan-kutu--14398.html)
Cvp: açılan kutu - Kur@l - 12/04/2012
aşağıdaki kodu deneyin.
Private Sub Komut4_Click()
docmd.close acform, "kapanacak formun adı"
' diğr komutlar buraya
End SubCvp: açılan kutu - ferhatozge - 12/04/2012
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
Cvp: açılan kutu - ferhatozge - 12/04/2012
bu şekilde denedim hata veriyor...
Cvp: açılan kutu - benremix - 12/04/2012
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 SubCvp: açılan kutu - ferhatozge - 12/04/2012
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?
Cvp: açılan kutu - benremix - 12/04/2012
Sanırım listede yoksa eklemesini de isteyeceksin. İsterseniz aşağıdaki konuyu bir inceleyiniz.
Saygılar...
https://accesstr.net/konu-veri-acilan-kutuda-yoksa-eklensin.html&highlight=Veri+A%C3%A7%C4%B1lan