با سلام
من دارم یه برنلمه واسه یه ویدئو کلوپ مینویسم .این برنامه از چند تا فرم داره.زمانی که یکی از این فرم ها رو انتخاب میکنم تا به قسمت مورد نظر برم این خطا اتفاق میافته و فرم مورد نظر اصلان نمایش داده نمیشه.توی حالت debug
رو یه خط از برنامه که مربوط به یه module که نوشتم Higlight میکنه البته هر کاری کردم نفهمیدم چرا خطا میگیره
کد های مربوط به اون فرم رو میذارم
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 = Field2CheckBox(pRecordset(oCtrl.DataField).Value)
End If
Next
End If
End Sub
ماژول مورد نظر
Public Function Field2Str(vntField As Variant) As String
If IsNull(vntField) Then
Field2Str = ""
Else
Field2Str = CStr(vntField)
End If
End Function
Public Function Field2CheckBox(vntField As Variant) As Integer
If IsNull(vntField) Then
Field2CheckBox = vbUnchecked
Else
Field2CheckBox = IIf(vntField, vbChecked, vbUnchecked)
End If
End Function
امیدوارم که توضیحات کامل باشه
