NOVO ERRO EM INSTRUCAO SQL UPDATE
Desta vez é na instrução update
ERRO 3075
ERRO SINTAXE(operador faltando) na expressão de consulta [ô]codcli = 3125 and orcamento =[ô].
Private Sub Cmd_salvar_Click()
On Error GoTo Trataerro
Dim dbs As Database
Set dbs = OpenDatabase(caminho)
dbs.Execute [Ô]UPDATE tblorcam [Ô] & [Ô]SET obs = [Ô] & Txt_obs.Text & [Ô] WHERE codcli = [Ô] & txtfinanc.Text & [Ô] and orcamento =[Ô] & cbo_orc.Text & [Ô];[Ô]
dbs.Close
Trataerro:
If Err.Number <> 0 Then
MsgBox [Ô]Ocorrência número: [Ô] & Err.Number & vbNewLine & Err.Description
End If
End Sub
****
ALIÃS, PESSOAL, Hà ALGUM PROGRAMA QUE AUXILIE NA ELABORAÇÃO DE INSTRUÇÕES SQL?
ERRO 3075
ERRO SINTAXE(operador faltando) na expressão de consulta [ô]codcli = 3125 and orcamento =[ô].
Private Sub Cmd_salvar_Click()
On Error GoTo Trataerro
Dim dbs As Database
Set dbs = OpenDatabase(caminho)
dbs.Execute [Ô]UPDATE tblorcam [Ô] & [Ô]SET obs = [Ô] & Txt_obs.Text & [Ô] WHERE codcli = [Ô] & txtfinanc.Text & [Ô] and orcamento =[Ô] & cbo_orc.Text & [Ô];[Ô]
dbs.Close
Trataerro:
If Err.Number <> 0 Then
MsgBox [Ô]Ocorrência número: [Ô] & Err.Number & vbNewLine & Err.Description
End If
End Sub
****
ALIÃS, PESSOAL, Hà ALGUM PROGRAMA QUE AUXILIE NA ELABORAÇÃO DE INSTRUÇÕES SQL?
amigao e assim , para vc faze ro update o codigo tem que ficar entre aspas assim o..
dbs.Execute [Ô]UPDATE tblorcam [Ô] & [Ô]SET obs = [ô][Ô] & Txt_obs.Text & [Ô][ô] WHERE codcli =[ô] [Ô] & txtfinanc.Text & [Ô][ô] and orcamento =[ô][Ô] & cbo_orc.Text & [Ô][ô][Ô]
tenta assim e me fala vlw
dbs.Execute [Ô]UPDATE tblorcam [Ô] & [Ô]SET obs = [ô][Ô] & Txt_obs.Text & [Ô][ô] WHERE codcli =[ô] [Ô] & txtfinanc.Text & [Ô][ô] and orcamento =[ô][Ô] & cbo_orc.Text & [Ô][ô][Ô]
tenta assim e me fala vlw
bs.Execute [Ô]UPDATE tblorcam SET obs = [ô][Ô] & Txt_obs.Text & [ô][Ô] WHERE codcli = [Ô] & txtfinanc.Text & [Ô]
Webs
Nada. com a sua alteração gerou o erro
erro 3464 - tipo de dados incompatÃvel na expressão de critério
Nada. com a sua alteração gerou o erro
erro 3464 - tipo de dados incompatÃvel na expressão de critério
O CodCli e o orcamento são campos numéricos, portanto não se coloca a aspa simples:
dbs.Execute [Ô]UPDATE tblorcam SET obs = [ô][Ô] & Txt_obs.Text & [Ô][ô] WHERE codcli = [Ô] & txtfinanc.Text & [Ô] and orcamento =[Ô] & cbo_orc.Text
Tópico encerrado , respostas não são mais permitidas