ComboBox3 de item olarak 1,2,3,4,5,6,7,8,9,10,11,12 ekli
Benim istediğim form açılışında (yani loadına) nasıl bir kod yazmalıyımki
Bulunduğumuz ay "Ocak" İse "12" , "Şubat" ise "1", "Mart" ise "2" vs..vs..vs.. seçli gelsin
Yani bulunduğumuz ayın bir alt rakamını seçecek.
Teşekkürler
|
[code]Public Sub SelectComboBoxItemByText(cmb As ComboBox, Value As String)
On Error GoTo ErrHandler_
Dim i As Integer
For i = 0 To cmb.ListCount - 1
If cmb.Column(1, i) = Value Then
cmb.SetFocus
cmb.Selected(i) = True
cmb.Text = Value
Exit For
End If
Next i
End Sub
ExitProc_:
DoCmd.Hourglass False
Exit Sub
ErrHandler_:
DoCmd.Hourglass False
Call LogError(Err, "basTools", "SelectComboBoxI
|