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
#2
