Invalid Row Value

السلام عليكم...

أعتقد من الصعب التأكد مما يجري في هذا الكود لأنه يحتوي على متغيرات و مكونات لا نعرف محتواها.

سيكون من الأسهل إصلاح المشكلة إذا قمت بإرفاق المشروع و قاعدة البيانات مع مشاركة قادمة.

و السلام.

هذا نسخ لمل الكود الخاص بالشاشة المطلوبة

Dim sTemp, YSr As ADODB.Recordset

Private Sub Combo1_Change()

Text1.Text = Get_Name((Combo1.Text), 1)

End Sub

Public Function Get_Name(Code As String, MoDe As Integer) As String

If Len(Code) > 0 Then

Select Case MoDe

Case 1

SQL = "SELECT KIndNo From BL_LAND_KIND_PER Where Kindtype= '" & Code & "' "

'

End Select

Set TmpRec = New ADODB.Recordset

TmpRec.Open SQL, Cnn, adOpenDynamic, adLockBatchOptimistic

If TmpRec.RecordCount = 0 Then

Get_Name = ""

Else

Get_Name = TmpRec.Fields(0)

End If

TmpRec.Close

Set TmpRec = Nothing

End If

End Function

Private Sub Combo1_LostFocus()

Text1.Text = Get_Name((Combo1.Text), 1)

End Sub

Private Sub Form_Activate()

Dim q As String

Set Rst = New ADODB.Recordset

If Rst.State <> 0 Then Rst.Close

q = "select KindType from BL_LAND_KIND_PER order by KindNo"

Rst.Open q, Cnn, adOpenStatic, adLockReadOnly

If Rst.RecordCount > 0 Then

Do Until Rst.EOF

Combo1.AddItem (Rst("KindType"))

' Combo1.ListIndex = Rst.Fields.

' Combo1.ItemData (FldRec(1))

Rst.MoveNext

Loop

End If

End Sub

Private Sub Form_Load()

'Center Me

Combo1.Enabled = False

Combo2.Enabled = False

End Sub

Private Sub OkCmd_Click()

Dim SqY As String

Dim i As Long

Set YSr = New ADODB.Recordset

If YSr.State <> 0 Then Rst.Close

SqY = "select * from BL_LAND_Form "

YSr.Open SqY, Cnn, adOpenDynamic, adLockOptimistic

'For i = 1 To frmBL_LAND_FORM1.datPrimaryRS.Recordset.RecordCount - 1 'm_rows - 1

For i = 1 To YSr.RecordCount - 1

With frmBL_LAND_FORM1.MSHFlexGrid1

.Row = i: .Col = 1

If frmBL_LAND_FORM1.MSHFlexGrid1.CellPicture = frmBL_LAND_FORM1.picChecked Then

If Option1.Value = True Then

frmBL_LAND_FORM1.MSHFlexGrid1.TextMatrix(i, 6) = Text1.Text

YSr.AbsolutePosition = frmBL_LAND_FORM1.MSHFlexGrid1.Row

YSr.Fields("kindno").Value = frmBL_LAND_FORM1.MSHFlexGrid1.TextMatrix(i, 6)

YSr.Update

Else

frmBL_LAND_FORM1.MSHFlexGrid1.TextMatrix(i, 14) = Combo2.ListIndex

YSr.AbsolutePosition = frmBL_LAND_FORM1.MSHFlexGrid1.Row

YSr.Fields("checked").Value = frmBL_LAND_FORM1.MSHFlexGrid1.TextMatrix(i, 14)

YSr.Update

End If

End If

End With

' Set frmBL_LAND_FORM1.MSHFlexGrid1.CellPicture = frmBL_LAND_FORM1.picUnchecked

Next

Unload Me

End Sub

Private Sub Option1_Click()

If Option1.Value = True Then

Option2.Value = False

Combo1.Enabled = True

Combo1.ListIndex = 0

Combo2.Enabled = False

End If

End Sub

Private Sub Option2_Click()

If Option2.Value = True Then

Option1.Value = False

Combo1.Enabled = False

Combo2.Enabled = True

End If

End Sub

أخي ارفع مثال ... فهكذا لن نستطيع التعرف على المشكلة .. ولكنني اظن ان المشكلة هي انك تضع قيمة في حقل غير مناسب

تحياتي