View Single Post
  #3 (permalink)  
Old November 8th, 2004, 10:44 PM
Rudner Rudner is offline
Authorized User
Join Date: Nov 2004
Location: Caloocan, Philippines, Philippines.
Posts: 15
Thanks: 0
Thanked 0 Times in 0 Posts

Thank wscheiman,

Yoy gave me the idea. I solved my problem but I'm not sure if this is the right solution. Please advise me..

Private Sub Combo1_Click()
    If IsNull(Combo1.Text) Then 'This is your code
      Exit Sub
    End If

    rsCategory.MoveFirst 'This is my code, please check
    Do Until rsCategory.EOF
        If UCase(Combo1.Text) = UCase(rsCategory.Fields("CATEGORYNAME").Value) Then
           Text6.Text = rsCategory.Fields("CATEGORYID").Value
        End If
End Sub

Thank you..


Reply With Quote