Estou com problemas de sintaxe na seguinte expressão:
Private Sub GvRegTabelas02()
DoCmd.SetWarnings False
CurrentDb.Execute "INSERT INTO Reg00-01-00PacientesAnam([CPF], [NomeCurto])VALUES('" & Me.CPF & "', '" & Me.NomeCurto & "')"
CurrentDb.Execute "INSERT INTO Reg00-02-00PacientesExF?s([CPF], [NomeCurto])VALUES('" & Me.CPF & "', '" & Me.NomeCurto & "')"
CurrentDb.Execute "INSERT INTO Reg00-03-00PacientesEvol([CPF], [NomeCurto])VALUES('" & Me.CPF & "', '" & Me.NomeCurto & "')"
CurrentDb.Execute "INSERT INTO Reg00-04-00PacientesDiagFF([CPF], [NomeCurto])VALUES('" & Me.CPF & "', '" & Me.NomeCurto & "')"
CurrentDb.Execute "INSERT INTO Reg01-00-00Condutas([CPF], [NomeCurto])VALUES('" & Me.CPF & "', '" & Me.NomeCurto & "')"
CurrentDb.Execute "INSERT INTO Reg02-00-00Agenda([CPF], [NomeCurto])VALUES('" & Me.CPF & "', '" & Me.NomeCurto & "')"
DoCmd.SetWarnings True
End Sub
Alguém tem idéia de qual erro está ocorrendo?
Desde já agradeço,
Private Sub GvRegTabelas02()
DoCmd.SetWarnings False
CurrentDb.Execute "INSERT INTO Reg00-01-00PacientesAnam([CPF], [NomeCurto])VALUES('" & Me.CPF & "', '" & Me.NomeCurto & "')"
CurrentDb.Execute "INSERT INTO Reg00-02-00PacientesExF?s([CPF], [NomeCurto])VALUES('" & Me.CPF & "', '" & Me.NomeCurto & "')"
CurrentDb.Execute "INSERT INTO Reg00-03-00PacientesEvol([CPF], [NomeCurto])VALUES('" & Me.CPF & "', '" & Me.NomeCurto & "')"
CurrentDb.Execute "INSERT INTO Reg00-04-00PacientesDiagFF([CPF], [NomeCurto])VALUES('" & Me.CPF & "', '" & Me.NomeCurto & "')"
CurrentDb.Execute "INSERT INTO Reg01-00-00Condutas([CPF], [NomeCurto])VALUES('" & Me.CPF & "', '" & Me.NomeCurto & "')"
CurrentDb.Execute "INSERT INTO Reg02-00-00Agenda([CPF], [NomeCurto])VALUES('" & Me.CPF & "', '" & Me.NomeCurto & "')"
DoCmd.SetWarnings True
End Sub
Alguém tem idéia de qual erro está ocorrendo?
Desde já agradeço,