[Resolvido]onde está o erro ? me ajudem recordset!

' executar gravar itens do subform
gSQL = "SELECT ID_OC,AND_TEXTO,AND_TEMPO,AND_STATUS,DHCAD,USERLOG"
gSQL = gSQL & " FROM TSER_OCAND_TEMP"

Set gDB = CurrentDb
Set gRST = gDB.OpenRecordset(gSQL, dbOpenDynaset, dbSeeChanges)
gRST.MoveFirst
Do While Not gRST.EOF
gSQL = "INSERT INTO TSER_OCAND"
gSQL = gSQL & " ID_OC = '" & Me.ID & "',"
gSQL = gSQL & " AND_TEXTO = '" & gRST!AND_TEXTO & "',"
gSQL = gSQL & " AND_STATUS = '" & gRST!AND_STATUS & "',"
gSQL = gSQL & " AND_TEMPO = '" & gRST!AND_TEMPO & "',"
gSQL = gSQL & " DHCAD = '" & gRST!DHCAD & "',"
gSQL = gSQL & " USERLOG = '" & gRST!USERLOG & "'"
gDB.Execute gSQL, dbSeeChanges
gRST.MoveNext
Loop
gRST.Close
Set gRST = Nothing
MsgBox "inserção: Rows insert affeted, " & gDB.RecordsAffected

Fala ae mizael...blza?

Manda um exemplo pra testar esse erro.

Ops...editando meu post:

A sintaxe de INSERT está errada..vou arrumar e te mandar


VAleu

[]'s

FIM

Segue a rotina:

Código:



On Error GoTo trata_erro

  ' executar gravar itens do subform
  gSQL = "SELECT ID_OC,AND_TEXTO,AND_TEMPO,AND_STATUS,DHCAD,USERLOG"
  gSQL = gSQL & " FROM TSER_OCAND_TEMP"

  Set gDB = CurrentDb

  Set gRST = gDB.OpenRecordset(gSQL, dbOpenDynaset, dbSeeChanges)

  gRST.MoveFirst

  Do While Not gRST.EOF
      gSQL = "INSERT INTO TSER_OCAND"
      gSQL = gSQL & " ("
      gSQL = gSQL & " ID_OC,
      gSQL = gSQL & " AND_TEXTO,
      gSQL = gSQL & " AND_STATUS,
      gSQL = gSQL & " AND_TEMPO,
      gSQL = gSQL & " DHCAD,
      gSQL = gSQL & " USERLOG
      gSQL = gSQL & " )"
      gSQL = gSQL & " VALUES"
      gSQL = gSQL & " ("
      gSQL = gSQL & " '" & Me.ID & "',"
      gSQL = gSQL & " '" & gRST!AND_TEXTO & "',"
      gSQL = gSQL & " '" & gRST!AND_STATUS & "',"
      gSQL = gSQL & " '" & gRST!AND_TEMPO & "',"
      gSQL = gSQL & " '" & gRST!DHCAD & "',"
      gSQL = gSQL & " '" & gRST!USERLOG & "'"           
      gSQL = gSQL & " )"

      gDB.Execute gSQL, dbSeeChanges

      gRST.MoveNext
  Loop

  gRST.Close
  Set gRST = Nothing

  MsgBox "inserção: Rows insert affeted, " & gDB.RecordsAffected
 
  Exit Sub

trata_erro:
   
  MsgBox "Erro gerado: " & Err.Number & " - " & Err.Description & "", vbCritical, "Erro"
  Exit Sub



OBS: Não se esqueça de sempre utilizar o tratamento de erro.

É isso

Espero ter ajudado


[]'s

FIM

Como não há tratamento dos valores a serem inseridos, existe também a alternativa de fazer a inserção de todos os registros de uma só vez (sem recordset)

Código:

On Error GoTo trata_erro

    Dim gDB As DAO.Database
    Dim gSQL As String

    Set gDB = CurrentDb

    'inserir na tabela e nos seguintes campos
    gSQL = gSQL & "INSERT INTO TSER_OCAND ( ID_OC, AND_TEXTO, AND_STATUS, AND_TEMPO, DHCAD, USERLOG ) "

    'os valores da consulta abaixo
    gSQL = gSQL & "SELECT ID_OC, AND_TEXTO, AND_STATUS, AND_TEMPO, DHCAD, USERLOG FROM TSER_OCAND_TEMP;"

    Call gDB.Execute(gSQL)

    MsgBox "inserção: Rows insert affeted, " & gDB.RecordsAffected
    
sair:
    Set gDB = Nothing
    Exit Sub

trata_erro:
   MsgBox "Erro gerado: " & Err.Number & " - " & Err.Description & "", vbCritical, "Erro"
   Resume sair

Obrigado resolvido, agradeço a todos que ajudaram belos exemplos!