When user click on quantity it moves on the next row
i want if user click on save using save button all the
Mshflexgrddata should go on Mr table .
Some code i have written in Save_click
On Error GoTo cancel
Set rs1 = New Recordset
rs1.Open "SELECT * FROM MR", con, adOpenDynamic, adLockOptimistic
rs1.AddNew
rs1.Fields(1) = Combo1.Text
rs1.Fields(2) = Text1.Text
rs1.Fields(3) = Text2.Text
rs1.Fields(4) = Text3.Text
rs1.Fields(5) = Text4.Text
rs1.Fields(6) = DTPicker2.Value
rs1.Fields(7) = CStr(Text6.Text)
rs1.Fields(8) = Text7.Text
rs1.Fields(9) = DTPicker1.Value
rs1.Fields(10) = Text13.Text
rs1.Fields(11) = FlexGridEditor.Value
rs1.Fields(12) = Grd.TextMatrix(Grd.Row, Grd.Col)
rs1.Fields(13) = Grd.TextMatrix(Grd.Row, Grd.Col)
' rs1.Fields(14) = Grd.TextMatrix(Grd.Row, Grd.Col)
' Do Until rs1.EOF
' R = R + 1
' For C = 11 To 14 Step 1
' If Not IsNull(rs.Fields(C)) Then
' Grd.TextMatrix(R, C) = rs.Fields(C).Value
' End If
' Next
' rs.MoveNext
' Loop
' End If
rs1.Update
MsgBox ("Commit")
rs1.Close
done:
Exit Sub
cancel:
MsgBox Err.Description
Resume done
End Sub
Kindly help it is so urgent.