مشکل این کد چیه؟

[hani bageri]

Private Sub ControlsTagload(pRecordset As ADODB.Recordset)
Dim octrl As Control
If pRecordset.EOF Or pRecordset.BOF Then
For Each octrl In Me.Controls
If TypeOf octrl Is TextBox Then
octrl.Tag = ""
ElseIf TypeOf octrl Is CheckBox Then
octrl.Tag = vbUnchecked
End If
Next
Else
For Each octrl In Me.Controls
If TypeOf octrl Is TextBox Then
octrl.Tag = field2str(pRecordset(octrl.DataField).Value)
ElseIf TypeOf octrl Is CheckBox Then
octrl.Tag = field2chekbox(pRecordset(octrl.DataField).Value)
End If
Next
End If
End Sub


رویfield2str این ارورو میده:
sub or function not defined
کجا باید اینو تعریف کنم؟

[Mbt925]

رویfield2str این ارورو میده:
sub or function not defined
کجا باید اینو تعریف کنم؟

اصلا فکر نکنم نیازی به این تابع باشه.

شما این تابع و تابع بعدیشو بردارین ، ببینین درست میشه.
field2checkbox , field2str
یعنی بجای field2str(pRecordset(octrl.DataField).Value) قرار بده pRecordset(octrl.DataField).Value

البته بستگی داره که این توابع چه کاری انجام میدن ، من فقط از اسمش حدس زدم ...