برجاء المساعد فى ها الكود للعمل على mysql بيعطينى رساله خطا انه ميقدرش يتعامل مع جدولين فى نفس الوقت الكودين تم اقتباسهم من برامج الاعضاء
وقمت باستخدامهم فى برنامجى يعملوا بامتياز مع اكسسس وسكيوال
Sub updateitem(invoiceno1 As String, typ As Integer)
On Error GoTo Err
Dim st1 As String, n5 As Double
Dim rs9 As New ADODB.Recordset, rs10 As ADODB.Recordset
rs9.Open "select i.item_no,i.item_qty,s.qty,s.price,i.item_Lprice,i.Stock_Control,i.item,s.item from item_stock i,sales_detail s where i.item_no=s.item_no and s.invoice_no='" & invoiceno1 & "'", cn, adOpenDynamic, adLockOptimistic
If typ = 0 Then
st1 = section("sales", "stock_no", "invoice_no", invoiceno1, cn)
Else
st1 = section("stock", "stock_no", "stock_name", cbostockno.Text, cn)
End If
Do While Not rs9.EOF
Set rs10 = New ADODB.Recordset
rs10.Open "select * from stock_detail where stock_no='" & st1 & "' and item_no='" & rs9(0) & "'", cn, adOpenDynamic, adLockOptimistic
If rs10.EOF Then rs10.AddNew: rs10(1) = rs9(0): rs10(0) = st1: rs10(2) = 0
If typ = 0 And rs9(5) = True Then
rs10(2) = rs10(2) - rs9(2)
rs9(1) = rs9(1) - rs9(2)
ElseIf typ = 1 And rs9(5) = True Then
rs10(2) = rs10(2) + rs9(2)
rs9(1) = rs9(1) + rs9(2)
End If
n5 = maxno("item_stock where item_no='" & rs9(0) & "'", "item_Lprice", 0) - 1
'If CDbl(rs9(3)) > CDbl(n5) Then rs9(4) = rs9(3)
rs10.Update: rs10.Requery
rs9.MoveNext
Loop
If Not rs9.EOF Then rs9.Update: rs9.Requery
Exit Sub
Err:
Err.Clear
End Sub
والكود التانى
Function section(tablename As String, section1 As String, section2 As String, secrep As String, c As ADODB.Connection) As String
On Error Resume Next
Dim Ritem As New ADODB.Recordset
Ritem.Open "select " & section1 & " from " & tablename & " where " & section2 & "='" & secrep & "'", c, adOpenDynamic, adLockReadOnly
If Not Ritem.EOF Then
section = Ritem(0)
Else
section = ""
End If
End Function