Amigos estou fazendo um cadastro simples aqui de clientes, eu fiz de material com a mesma lógica, código, e deu tudo certo, estou um tempo tentando achar a solução, e não está gravando no meu banco de dados Access, conforme fiz um teste com BreakPoint, os valores estão chegando no código fonte, segue abaixo meu código, alguém tem alguma sugestão. Estou dias e não acho meu erro, por favor me ajudem.
Private Sub btnSave_Click(Index As Integer)
ConectarBd
'minha conexão ao banco de dados, conexão q está no módulo, e funciona na outra 'tela com cadastro de material
On Error Resume Next
'verificar se algum campo está vazio
If txtCod.Text = Empty Then
MsgBox "O campo Registro não foi preenchido.", vbCritical, "Erro"
vErro = True
txtCod.SetFocus
Exit Sub
End If
If txtNme.Text = Empty Then
MsgBox "O campo Nome não foi preenchido.", vbCritical, "Erro"
vErro = True
txtNme.SetFocus
Exit Sub
End If
If txtDatNasc.Text = Empty Then
MsgBox "O campo Data do Nascimento não foi preenchido.", vbCritical, "Erro"
vErro = True
txtDatNasc.SetFocus
Exit Sub
End If
If txtRG.Text = Empty Then
MsgBox "O campo RG não foi preenchido.", vbCritical, "Erro"
vErro = True
txtRG.SetFocus
Exit Sub
End If
If txtCPF.Text = Empty Then
MsgBox "O campo CPF não foi preenchido.", vbCritical, "Erro"
vErro = True
txtCPF.SetFocus
Exit Sub
End If
If txtProf.Text = Empty Then
MsgBox "O campo Profissão não foi preenchido.", vbCritical, "Erro"
vErro = True
txtProf.SetFocus
Exit Sub
End If
If txtSal.Text = Empty Then
MsgBox "O campo Salário não foi preenchido.", vbCritical, "Erro"
vErro = True
txtSal.SetFocus
Exit Sub
End If
If txtEnd.Text = Empty Then
MsgBox "O campo Endereço não foi preenchido.", vbCritical, "Erro"
vErro = True
txtEnd.SetFocus
Exit Sub
End If
If txtNum.Text = Empty Then
MsgBox "O campo Número não foi preenchido.", vbCritical, "Erro"
vErro = True
txtNum.SetFocus
Exit Sub
End If
If txtCep.Text = Empty Then
MsgBox "O campo Cep não foi preenchido.", vbCritical, "Erro"
vErro = True
txtCep.SetFocus
Exit Sub
End If
If txtBair.Text = Empty Then
MsgBox "O campo Bairro não foi preenchido.", vbCritical, "Erro"
vErro = True
txtBair.SetFocus
Exit Sub
End If
If cmbCid.ListIndex = -1 Then
MsgBox "O campo Cidade não foi preenchido.", vbCritical, "Erro"
vErro = True
cmbCid.SetFocus
Exit Sub
End If
If cmbUF.ListIndex = -1 Then
MsgBox "O campo Estado não foi preenchido.", vbCritical, "Erro"
vErro = True
cmbUF.SetFocus
Exit Sub
End If
If txtEmail.Text = Empty Then
MsgBox "O campo E-mail não foi preenchido.", vbCritical, "Erro"
vErro = True
txtEmail.SetFocus
Exit Sub
End If
If txtTelRes.Text = Empty Then
MsgBox "O campo Telefone Residencial não foi preenchido.", vbCritical, "Erro"
vErro = True
txtTelRes.SetFocus
Exit Sub
End If
If txtTelCel.Text = Empty Then
MsgBox "O campo Telefone Celular não foi preenchido.", vbCritical, "Erro"
vErro = True
txtTelCel.SetFocus
Exit Sub
End If
If txtNmeRef.Text = Empty Then
MsgBox "O campo Telefone Celular não foi preenchido.", vConfMs, "Erro"
vErro = True
txtNmeRef.SetFocus
Exit Sub
End If
If txtTelRef.Text = Empty Then
MsgBox "O campo Telefone Celular não foi preenchido.", vConfMs, "Erro"
vErro = True
txtTelRef.SetFocus
Exit Sub
End If
'Inserção dos dados
Cnn.Execute "INSERT INTO Funcionarios(Cod_Clien, Nome, Data_Nasc, RG, CPF, Prof, Salario, Ender, Num, Cep, Bair, Cid, UF, Email, Tel_Res, Tel_Cel, Nome_Ref, Tel_Ref) VALUES ('" & txtCod & "', '" & txtNme & "', '" & txtDatNasc & "', '" & txtRG & "', '" & txtCPF & "', '" & txtProf & "', '" & txtSal & "', '" & txtEnd & "', '" & txtNum & "', '" & txtCep & "', '" & txtBair & "', '" & cmbCid & "', '" & cmbUF & "', '" & txtEmail & "', '" & txtTelRes & "', '" & txtTelCel & "', '" & txtNmeRef & "', '" & txtTelRef & "')"
End Sub
