Calpi
|
PRESIDENTE PRUDENTE
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 13/01/2009 23:31 hs
Uso vb6 e access. tenho um cadastro de clientes e quando for cadastrar e o mesmo já estiver cadastrado dar uma mensagem. Até ai tudo bem. Só que fica um campo em branco com codigo 0. Não estou conseguindo eliminar esse problema. Coloquei o codigo no lostfocus do nome e do CPF. Deve ser facil mas não estou conseguindo resolver. Obrigado. Fuiii!!!!!!!! |
|
|
|
|
|
|
|
Postada em 13/01/2009 23:53 hs
|
|
|
|
LCRamos
|
GOIANIA
GO - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 14/01/2009 14:21 hs
Teste antes de cadastrar, se existir aborte, e poste o código. vlu// |
|
|
|
Calpi
|
PRESIDENTE PRUDENTE
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 14/01/2009 22:59 hs
Private Sub MSKCPF_LostFocus()
If rsclientes.RecordCount <> 0 Then
rsclientes.MoveMin
Do Until rsclientes.EOF
If MSKCPF.Text = rsclientes("CPF") Then
MsgBox " O cliente já está cadastrado!", vbInformation, "Aviso"
LimpaControles
HabilitaBotoes (1)
MostraRegistro
Exit Sub
End If
rsclientes.MoveNext
Loop
End If
End Sub
|
|
|
|
LCRamos
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 15/01/2009 06:48 hs
Faça de outra forma, usando o Seek, ou em uma consulta. Seek rscliente.Index = "campopesquisado" rsclientes.Seek"=", MSKCPF.Text If rscliente.NoMatch Then ' Não achou Else ' Encontrou o registro End If Consulta "Select * From cliente Where campopesquisado = '" & MSKCPF.Text & "'" Agora com voce. vlu// |
|
|
|
|
|
Postada em 17/01/2009 01:44 hs
cara, eu usouma function pra ver isso, eu faço assim: Function ProcuraCliente(strBusca As String, rsCampo As String)
sSQL = "SELECT * FROM clientes WHERE " & rsCampo & " = '" & strBusca & "'"
AbreBanco
rsCliente.Open sSQL, DB, adOpenDynamic, adLockReadOnly
If Not rsCliente.EOF Then ' encontrou cliente
Else
'não encontrou cliente
End If rsCliente.Close
Set rsCliente = Nothing
FechaBanco
End Function
================================================================
O Aprendizado é Direito de Todos. O Saber é Privilégio de Poucos. Começando a estudar VB.NET. Realmente é incrível!!!!
|
|
|
|
