Açılan Kutunun Koşullu Açılması Hk.

06/08/2009, 13:06

SADIK54

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.
06/08/2009, 14:22

SADIK54

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
06/08/2009, 14:53

mehmetdemiral

Sayın Sadık
İstediğiniz dosya ekte..
Kolay gelsin.
06/08/2009, 15:44

SADIK54

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
06/08/2009, 16:27

mehmetdemiral

Windows genelinde bütün açılan kutular F4 ile açılabiliyor. Ben de o alana F4 tuşu gönderiyorum işte)