Arkadaşlar Bir combobox hücrem var ben buradan seçim yapmadan Yeni Tip Ekle Butonuna bastığımda "Lütfen Eklemek İstediğiniz Araç Markasını Seçiniz." Diye ileti veriyor buraya kadar tamam İleti üzerinde "tamam" butonuna bastığımda Liste50 Combobox hücresinin otomatik açılmasını istiyorum. bu hususta yardımlarınızı bekliyorum.
Açılan Kutunun Koşullu Açılması Hk.
arkadaşlar kodum bu şekilde yani buraya Combobox kutusunu açması için nasıl bir kod eklemeliyim
Private Sub Komut45_Click()
If IsNull(Liste50) Then
MsgBox "Lütfen Eklemek İstediğini Araç Tipinin Markasını Seçiniz."
Liste50.SetFocus
DoCmd.CancelEvent
Exit Sub
Else
If Liste50 <> "" Then
DoCmd.OpenForm "3tıpsecenek"
Else
End If
End If
End Sub
Private Sub Komut45_Click()
If IsNull(Liste50) Then
MsgBox "Lütfen Eklemek İstediğini Araç Tipinin Markasını Seçiniz."
Liste50.SetFocus
DoCmd.CancelEvent
Exit Sub
Else
If Liste50 <> "" Then
DoCmd.OpenForm "3tıpsecenek"
Else
End If
End If
End Sub
Sayın Sadık
İstediğiniz dosya ekte..
Kolay gelsin.
İstediğiniz dosya ekte..
Kolay gelsin.
İnadına, ille de Accesstr.net...
sn.mehmetdemiral bey yardımlarınız için çok teşekkür ederim. tam istediğim gibi olmuş
mehmet bey bu koda F4 yazmanızın bağlantısını anlayamadım. niye F4 yazdınız.
SendKeys "{F4}", False
mehmet bey bu koda F4 yazmanızın bağlantısını anlayamadım. niye F4 yazdınız.
SendKeys "{F4}", False
Son Düzenleme: 06/08/2009, 15:59, Düzenleyen: SADIK54.
Windows genelinde bütün açılan kutular F4 ile açılabiliyor. Ben de o alana F4 tuşu gönderiyorum işte)
İnadına, ille de Accesstr.net...
Konuyu Okuyanlar: 1 Ziyaretçi