BANCO DE DADOS
Tenho um BD de nome Clientes. Gostaria de saber como faço ao digitar em um TextBox nome de um determinado cliente e se ele ja existir no BD me retorna uma mensagem(Cliente já Cadastrado). Desd ja agradeço.
Irenko
Irenko
private function ClienteRepetido(cliente as string ) as boolean
dim RsTemp as dao.recordset
set rsTemp =db.openRecordset("select clientes.Nome From Clientes Where Clientes.Nome = '" & cliente & "'")
clienteRepetido = not RsTemp.eof
end function
sub txtCliente_LostFocus()
if ClienteRepetido(txtcliente) then msgbox "O cliente ja esta cadastrado"
end sub
dim RsTemp as dao.recordset
set rsTemp =db.openRecordset("select clientes.Nome From Clientes Where Clientes.Nome = '" & cliente & "'")
clienteRepetido = not RsTemp.eof
end function
sub txtCliente_LostFocus()
if ClienteRepetido(txtcliente) then msgbox "O cliente ja esta cadastrado"
end sub
Tópico encerrado , respostas não são mais permitidas