este e o meu codigo

ele não dar erro so que pra mim sair do form tenho que click 3 vez pra eu fechar

num text

Private Sub TXTPH_LostFocus()
    Dim SQL As String
    If TXTPH <> "" Then

    Call Conecta
        If Rs_Cli.State = 1 Then Rs_Cli.Close
        SQL = "SELECT * FROM cus where PH ='" & TXTPH.Text & "'"
        Rs_Cli.Open SQL, Banco, adOpenDynamic, adLockOptimistic
                          
            If Rs_Cli.EOF Then
            If MsgBox("Cliente não encontado no Banco de Dado", 36, "Cancelar") = vbYes Then
                frmCadCli.Show vbModal
            Else
                TXTPH.SetFocus
                TXTPH.Text = ""
                TXTNAME.Text = ""
                TXTADD.Text = ""
            End If
        Else
           If Rs_Bai.State = 1 Then Rs_Bai.Close
                Rs_Bai.Open "SELECT * FROM bairro where left([bd_tax_002],5) ='" & Left(Rs_Cli.Fields("bd_cep"), 5) & "'", Banco, adOpenDynamic, adLockOptimistic
                Text4.Text = Rs_Bai.Fields("bd_tax_003")
                Text5.Text = Rs_Bai.Fields("bd_tax_001")
                Rs_Bai.Close
           
            TXTPH.Text = Rs_Cli.Fields("PH")
            TXTNAME.Text = Rs_Cli.Fields("CNAME")
            TXTADD.Text = Rs_Cli.Fields("ARD")
            Command1.Enabled = True
        End If
            Desconecta
        Else
            MsgBox "Informe o número do telefone...", vbCritical, nomePizzaria
        End If

End Sub

num command

Private Sub Command10_Click()
    'On Error Resume Next
    If TXTPH.Text = "" Then ' Or IsNumeric(TXTPH.Text) = False Then
        Call Desconecta
        Unload Me
    Else
        If MsgBox("Você realmente que cancelar está Entrega", 36, "Cancelar") = vbYes Then
            Call Desconecta
            Unload Me
        Else
            TXTPH.SetFocus
            TXTPH.SetFocus
        End If
    End If
   
End Sub

quando eu click no Command10, tenho que click 3 vez pra ele fechas o form, as 2 vez 1º ele traz

esta  "Informe o número do telefone..." na 3 ele fecha normal.

Acho melhor fazer a validação no command button de gravar e não no lostfocus

eu vez assim, da certo so que eu queria envida o minimo do mause no meu projeto

tem

eu vez assim, da certo so que eu queria envida o minimo do mause no meu projeto

tem um

tudo bem mas de qualquer jeito vc tem que clicar no botão não?

 

O que vc pode fazer é um flag...

 

dim flag as byte

 

Private Sub Form_Load()

flag = 0

End Sub

Private Sub TXTPH_LostFocus()

'...

Else

 
  IF flag = 0 then MsgBox "Informe o número do telefone...", vbCritical, nomePizzaria
End If
End Sub

 

Private Sub Command10_Click()

'...

flag = 1
End Sub

Deste modo, ao clicar não vai aparecer a mensagem mas isso é uma gambiarra bem feia... eu colocaria a validação no botão...

 

falows!

sim, mais não pra fazer uma consulta o

e o txtph e pra fazer uma consulta e dar entre e ser o usuario dar entre no txtph

ser ele esta fazio ele vai trazer MsgBox "Informe o número do telefone...", ate ai esta certo.

 

é ser o usuario for fecha, quanto o txtph esta sem nem telefone.

Private Sub Command10_Click()
....

mais pra ele sair tem que dar 3 click no command10

 

porque, como o txtph esta fazio ele fica trazendo "Informe o número do telefone...",  2 vez

e +/- isto deu pra enteder, amigão