Click and Double Click

[shijuantony2002]

when i use this code for click on option button, the button lost focus. Am not allowed to click, what should be the problem. I had the same code working for other function.

Private Sub Base_Curr_Click()
strdq = Chr$(34)
If Me.Base_Curr = -1 And IsNull(Me.Conv_Curr__if_other_than_base) Then
Me.Base_Curr = DLookup("[Base Currency]", "[Fund Information]", "[Fund No] = " & strdq & Me.Fund_Number & strdq)
Me.Conv_Curr__if_other_than_base.Locked = True
Else
Me.Conv_Curr__if_other_than_base.Locked = False
End If
End Sub


Instead when i use double click for the same code, there were focus but the output were given as -1 and not the detail which i was looking for.

Private Sub Base_Curr_DblClick(Cancel As Integer)
If Me.Base_Curr = -1 And IsNull(Me.Conv_Curr__if_other_than_base) Then
Me.Base_Curr = DLookup("[Base Currency]", "[Fund Information]", "[Fund No] = " & Me.Fund_Number)
Me.Conv_Curr__if_other_than_base.Locked = True
Else
Me.Conv_Curr__if_other_than_base.Locked = False
End If
End Sub


I had also tried enabling the option by using this code in the form but still not working. Am clueless. pls help

Private Sub Form_Current()

Me.Base_Curr.Locked = False
Me.Conv_Curr__if_other_than_base.Locked = False
[FONT=&quot]End Sub[/FONT]

 

[shijuantony2002]

ignore the query guyzz.... i got it worked with some changes myself.