Amigos estou criando um botão Efetuar Alteraçãoes, q altera o conteúdo antigo (textbox), e novo conteúdo digitado (textbox), depois da alteração é efetuado atualização no ListView em outro form, acontece q já fiz em 2 forms e deu certo, mas nesse não está dando certo, estou alguns dias tentando, o erro q dá é o seguinte:

e qdo Debugo ele vai direto para o trecho q está em Negrito no meu código. Qual seria o problema meus amigos, vcs poderiam me ajudar. Obrigado

 

Private Sub btnEfetAlt_Click()
    
    'On Error GoTo ErrHandler

    ConectarBd
    Dim SQL As String
    Dim virgula As String
        
    If MsgBox("Confirma alteração?", vbYesNo + vbQuestion, "Exemplo") = vbYes Then
         
            If txtNovReg.Text <> "" Or txtNovNme.Text <> "" Or txtNovCPF.Text <> "" Or txtNovRG.Text <> "" Then
           
                SQL = "Update Funcionarios Set "
               
                virgula = ""
                         
                If txtNovNme.Text <> "" Then
                    SQL = SQL & virgula & " Nome = '" & txtNovNme.Text & "' "
                    virgula = ","
                End If
               
                If txtNovCPF.Text <> "" Then
                    SQL = SQL & virgula & " CPF = " & txtNovCPF.Text
                    virgula = ","
                End If
               
                If txtNovRG.Text <> "" Then
                    SQL = SQL & virgula & " RG = " & txtNovRG.Text
                    virgula = ","
                End If
               
                SQL = SQL & " Where Registro = " & txtRegAnt.Text
                           
                Cnn.Execute SQL
              
            End If
           
    End If
   
    Exit Sub
ErrHandler:
    MsgBox Err.Number & "-" & Err.Description, vbCritical, "Exemplo"
   
End Sub

Amigos eu achei o erro só não entendi o pq, tive q mudar o tipos de dados da minha chave primário da tabela Funcionários, Registro estava como tipos de dados Texto, eu mudei para Número e funcionou???

 

Pq isso??? Não entendi..

 

Cleyton, Se registro era texto, voce deveria estar passando seus valores entre apostrofos, assim:
SQL = SQL & " Where Registro = '" & txtRegAnt.Text & "'"

 

Entendeu???

Eu fiz e deu certo, obrigado amigo.

 

Vlw