VBA event

(1) Share

Report

Posted on by Community Member

Hi,

By some reason I don't know this: AfterLostFocus() event is not working automatically , why? it's used to work.

Private Sub Nmordencompracliente_AfterLostFocus()

Dim valor As Integer
If (Me.Nmordencompracliente.Value <> "") Then
valor = BuscarNumeroBl(Me.Nmordencompracliente.Value)
If valor > 0 Then
MsgBox "¡Este número ya existe " + CStr(valor) + " Veces! (O_o)"
End If
End If
End Sub

*This post is locked for comments

I have the same question (0)

All responses (4)

Answers (1)

Tim Foster 8,515 on at

Like (1)

Report
Copy link

Link copied!

I'm sorry if this seems like a silly question, but...

If you set a breakpoint on your first "If" statement, the code never executes?

The VBA project could be corrupt.

Tim

Was this reply helpful? Yes No
Verified answer

Almas Mahfooz 11,009 User Group Leader on at

Like (1)

Report
Copy link

Link copied!
AfterLostFocus is working for me. I am not sure about BuscarNumeroBl (what is this doing), I have just change your code a little and it should work.

Private Sub Nmordencompracliente_AfterLostFocus() Dim valor As Integer If (Me.Nmordencompracliente.Value <> "") Then If BuscarNumeroBl(Me.Nmordencompracliente.Value) > 0 Then MsgBox "¡Este número ya existe " + CStr(valor) + " Veces! (O_o)" End If End If End Sub

Was this reply helpful? Yes No
Community Member on at

Like (1)

Report
Copy link

Link copied!

Hi, it worked, and BuscarNumeroBl is a S_Procedure, I realized that my sql connection user had not permission to this SP. Thanks! you are really good guys!.

Was this reply helpful? Yes No
Community Member on at

Like (0)

Report
Copy link

Link copied!

You are helping me, I'm glad! never mind to make any questions, I did what you said, and it worked (the break point). Thanks, my friend.

Was this reply helpful? Yes No