Function to set values 1

[NiceArms]

Hi all,

I created a function that was to re-set the values in a text box i.e. textbox1 = 1 and when the function is run the textbox is to return to 0

Call the function:
Reset_Values ("txtScore") 'txtscore is the name of the textbox

The function:
Private Function Reset_Values(Field1 As String) As Integer
Reset_Values = Field1.Value = 0
End Function

The error i get is:
"Compile error: Invalid Qualifier"

Can anyone see where I am going wrong?

/Nice

 

[PWise]

Try
Private Function Reset_Values()
Field1= 0
End Function

 

[MajP]

Not sure what this function is supposed to return, does not make sense to me. Looks like a sub routine not a function. Looks like you want to pass in a control name and set that control's value to 0.

call Reset_Values("txtScore")

Private sub Reset_Values(cntrlName As String)
me.controls(cntrlName) = 0
End Function

 

[NiceArms]

call Reset_Values("txtScore")

Private sub Reset_Values(cntrlName As String)
me.controls(cntrlName) = 0
End Function "

This worked a treat.

Apologies for not being clear, however I am a little new to this.

/Nice