tratamento de erro


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: tratamento de erro

Korn

SAO PAULO
SP - BRASIL

Postada em 11/03/2005 18:55 hs

Opa pessoal to tentano ta ligado , meu registro ten dois campos Codigo Proprietario e Codigo do Imovel , o Codigo do Proprietario Naun pode se repetir , e fiz um tratamento de erro que quando o usuario por deslexo colocar o mesmo codigo do Proprietario mais de uma vez aparecesse uma mensagem box , mas ai , o tipo de tratameto de erro , parece num dar , naun gostaria que o codigo do proprietario se repetisse , ja que naun ´é autonumeracao ,

Jesus Cristo é O Senhor!!!

Mateus

AMADORA
PT - PORTUGAL

Postada em 11/03/2005 19:30 hs

Acho que o que precisa é algo do género:

Public Function ConfirmarRegisto(ByVal strIdentificativo As String, ByVal strCodigo As Long) As Boolean

Set rstMovimentos = New ADODB.Recordset

strSql = "SELECT id_movimento, Codigo FROM tMovimentos"

strSql = strSql & " WHERE tMOVIMENTOS.id_movimento ='" & strIdentificativo & "'"

strSql = strSql & " and tMOVIMENTOS.Codigo = " & strCodigo & ""

rstMovimentos.CursorLocation = adUseClient

rstMovimentos.Open strSql, dbDados, adOpenKeyset, adLockReadOnly, adCmdText

If Not rstMovimentos.EOF Then

ConfirmarRegisto = True

Else

ConfirmarRegisto = False

End If

rstMovimentos.Close

Set rstMovimentos = Nothing

End Function

Logo você gera a mensagem de acordo com a resposta recebida.

João Mateus

Se precisar de ajuda extra, visite:

http://joaomateus.planetaclix.pt

Korn

SAO PAULO
SP - BRASIL

Postada em 11/03/2005 21:01 hs

assim o:

Public Function ConfirmarRegisto(ByVal strIdentificativo As String, ByVal strCodigo As Long) As Boolean

Set rsApartamentos = New ADODB.Recordset

strSQL = "SELECT Codigo, CodigoImo FROM Tbl_Apartamentos"

strSQL = strSQL & " WHERE Tbl_Apartamentos.Codigo ='" & strIdentificativo & "'"
strSQL = strSQL & " and Tbl_Apartamentos.Codigo = " & strCodigo & ""
rsApartamentos.CursorLocation = adUseClient
rsApartamentos.Open strSQL, Bdimobiliaria, adOpenKeyset, adLockReadOnly, adCmdText
If Not rsApartamentos.EOF Then

ConfirmarRegisto = True

Else

ConfirmarRegisto = False

End If

rsApartamentos.Close

Set rsApartamentos = Nothing

End Function

Jesus Cristo é O Senhor!!!

Korn

SAO PAULO
SP - BRASIL

Postada em 12/03/2005 14:41 hs

Naun funcionou

Jesus Cristo é O Senhor!!!

Korn

SAO PAULO
SP - BRASIL

Postada em 14/03/2005 11:12 hs

alou

Jesus Cristo é O Senhor!!!

Korn

SAO PAULO
SP - BRASIL

ENUNCIADA !

Postada em 18/03/2005 16:22 hs

alguem

Jesus Cristo é O Senhor!!!

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR