Ajudinha

[Pati]

pessoal, to seguindo um tutorial,

mas tá dando um erro que eu não to entendendo olha só:

With cnnComando

.ActiveConnection = cnnBiblio

.CommandType = adCmdText

If vInclusao Then

.CommandText = "INSERT INTO Usuarios (CodUsuario, NomeUsuario, Endereco, Cidade, Estado, Cep, Telefone) VALUES (" & txtCodUsuario.Text & ",'" & txtNomeUsuario.Text & "','" & txtEndereco.Text & "','" & txtCidade.Text & "','" & txtEstado.Text & "','" & txtCep.Text & "','" & txtTelefone.Text & "')"

Else

.CommandText = "UPDATE Usuarios SET CodUsuario =" & txtCodUsuario.Text & " ,NomeUsuario ='" & txtNomeUsuario.Text & "' ,Endereco ='" & txtEndereco.Text & "' ,Cidade ='" & txtCidade.Text & "' ,Estado ='" & txtEstado.Text & "' ,Cep ='" & txtCep.Text & "' ,Telefone ='" & txtTelefone.Text & "' WHERE CodUsuario =" & txtCodUsuario.Text & ";"

End If

.Execute

End With

MsgBox "Gravação concluída com sucesso.", vbApplicationModal + vbInformation + vbOKOnly, "Gravação OK"

LimparTela

Saida:

Screen.MousePointer = vbDefault

Set cnnComando = Nothing

Exit Sub

errGravacao:

With Err

If .Number <> 0 Then

MsgBox "Houve um erro durante a gravação dos dados na tabela.", vbApplicationModal + vbExclamation + vbOKOnly, "Erro"

.Number = 0

GoTo Saida

End If

End With

ele tá inserindo ou alterando, e aparece o box com a mensagem de sucesso e depois da erro! mas depois que ele fez tudo tá erro! como é isso??

bem, fico aguardando um help!

falowwww

[PiGmEu]

bom.. pelo q eu vi por cima..

tenta colocar assim no comeco do seu codigo

On error GOTO errGravacao

[Pati]

já tem no código, é que eu não postei ele todo!

o erro tá nessa função

LimparTela

vou postar ele todo

Private Sub LimparDados()

txtNomeUsuario.Text = Empty

txtEndereco.Text = Empty

txtCidade.Text = Empty

txtEstado.Text = Empty

txtCep.Text = Empty

txtTelefone.Text = Empty

End Sub

Private Sub LimparTela()

LimparDados

Toolbar1.Buttons(3).Enabled = False

txtCodUsuario.Text = Empty

txtCodUsuario.SetFocus

End Sub

quando ele grava dá o erro, e zera os campos mas o primeiro campo que é txtCodUsuario.Text fica travado!!!!

[Guest incógnita]

nossa esse fórum é tão movimentado!!

[PiGmEu]

Pati..

deixa eu ver se eu entendi =(

Tipo.. quando você manda ele apagar tudo da tela.. você ta falando q ele da erro porque o txtCodUsuario ta travado..

então o erro seria no txtCodUsuario.SetFocus certo?

antes do txtCodUsuario.SetFocus, coloca um txtCodUsuario.Enable = True

e ve se corrige o seu erro..

PS.. se não for isso eu não to entendendo ainda! foi malz!

Abracos!