VBA event

(1) Share

Report

Posted on by Community Member Microsoft Employee

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

All responses (4)

Answers (1)

Community Member Microsoft Employee on at

Like (0)

Report

RE: VBA event

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.
Community Member Microsoft Employee on at

Like (1)

Report

RE: VBA event

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!.
Verified answer

Almas Mahfooz 11,003 User Group Leader on at

Like (1)

Report
RE: VBA event

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
Tim Foster 8,515 on at

Like (1)

Report

RE: VBA event

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