Prikazi cijelu temu 08.04.2013 11:53
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Lokacija:Osijek


Predmet:Upis u dvije tablice istovremeno
Trebao bih isti podatak pomoću koda upisati u dvije tablice istovremeno. U primjeru je to polje V_Broj koje se treba popuniti u tblVerifikacija i nakon toga za isti OrderID u tblProdaja.
U primjeru sam stavio da je to string "456666", međutim u pravom slučaju to je promjenjivi string.
Ovaj moj kod mi javlja grešku Too Few parametars. Expected 1

PreuzmiIzvorni kôd (vbnet):
  1. Private Sub C_VERIFICIRAJ_Click()
  2. On Error GoTo Err_C_VERIFICIRAJ_Click
  3. Dim rec As Integer, I As Integer
  4. Dim db As DAO.Database
  5. Dim rs As DAO.Recordset
  6. Dim rs2 As DAO.Recordset
  7. Dim MySQL As String
  8. Set db = CurrentDb
  9. Set rs = db.OpenRecordset("Q_Verifikacija")
  10. rec = rs.RecordCount
  11. If rec > 0 Then
  12. rs.MoveFirst
  13. Do While Not rs.EOF
  14.         rs.Edit
  15.         rs!V_Broj = "456666"
  16.         rs.Update
  17.     MySQL = "SELECT * FROM tblProdaja WHERE OrderID = rs!ID_RAC"
  18.        Set rs2 = db.OpenRecordset(MySQL)
  19.         rs2.Edit
  20.         rs2!V_Broj = rs!V_Broj
  21.         rs2.Update
  22.         rs.MoveNext
  23. Loop
  24. End If
  25. Me.Requery
  26. rs.Close
  27. Set rs = Nothing
  28. Set db = Nothing
  29. If DCount("*", "Q_Verifikacija") = 0 Then
  30.     MsgBox "Svi ra uni su uspjeÅ¡no verificirani", vbInformation
  31.     GoTo Exit_C_VERIFICIRAJ_Click:
  32. End If
  33. Exit_C_VERIFICIRAJ_Click:
  34. Exit Sub
  35. Err_C_VERIFICIRAJ_Click:
  36. MsgBox Err.Description
  37. Resume Exit_C_VERIFICIRAJ_Click
  38. End Sub


Prilozi:
PrimjerMP.rar
Preuzimanja:38
Velicina datoteke:52.88 KB

Pozdrav