AfterUpdate

[irade92]

Hi
I have two form, the small one and the bigger one. From small one wit double click of a mouse I transferred value to bigger form. See Pic1. After I move mouse to bigger form I get this See Pic2. I put the mouse at the end of a control to avoid black selected. see pic3. On Enter AfterUpdate give me result as the field is empty. What I do is clear last number and retype the last number and then AfterUpdate is functioning...see pic4. What should I do to avoid all this
Thanks

 

[cheekybuddha]

What is the code you use to transfer the value to the bigger form (Pic1 -> Pic2) ?

 

[irade92]

What is the code you use to transfer the value to the bigger form (Pic1 -> Pic2) ?

Code Tags Added by UG
Please use Code Tags when posting VBA Code
https://www.access-programmers.co.u...e-use-code-tags-when-posting-vba-code.240420/
Please feel free to Remove this Comment

Private Sub mE_BROJ_DblClick(Cancel As Integer)
    On Error GoTo greska
  
    [Forms]![frmSMETKI_MAIN_3]![fsubSMETKI_MAIN_3]![br_recept] = mE_BROJ
    [Forms]![frmSMETKI_MAIN_3]![fsubSMETKI_MAIN_3]![br_recept].SetFocus
    [Forms]![frmSMETKI_MAIN_3]![fsubSMETKI_MAIN_3]![br_recept].Requery
     
  
    Cancel = True
greska:
    Resume Next
End Sub

 

[cheekybuddha]

Why are you setting Cancel = True?

In fsubSMETKI_MAIN_3 change the declaration of br_recept_AfterUpdate to Public

Public Sub br_recept_AfterUpdate()
' ...
End Sub

Then modify your code:

Private Sub mE_BROJ_DblClick(Cancel As Integer)
On Error GoTo greska

  With Forms.frmSMETKI_MAIN_3.fsubSMETKI_MAIN_3.Form
    .br_recept = Me.mE_BROJ
    .br_recept_AfterUpdate
    .Requery
    .br_recept.SetFocus
    .br_recept.SelStart = Len(.br_recept & vbNullString)
  End With

greska:
  Resume Next
End Sub

hth,

d

 

[irade92]

Why are you setting Cancel = True?

In fsubSMETKI_MAIN_3 change the declaration of br_recept_AfterUpdate to Public

Public Sub br_recept_AfterUpdate()
' ...
End Sub

Then modify your code:

Private Sub mE_BROJ_DblClick(Cancel As Integer)
On Error GoTo greska

  With Forms.frmSMETKI_MAIN_3.fsubSMETKI_MAIN_3.Form
    .br_recept = Me.mE_BROJ
    .br_recept_AfterUpdate
    .Requery
    .br_recept.SetFocus
    .br_recept.SelStart = Len(.br_recept & vbNullString)
  End With

greska:
  Resume Next
End Sub

hth,

d

well..great solution..but only one change..I need to press Enter If I want to execute afterUpdate..In this case now it automaticaly invoke AfterUpdate.. Why I need to press Enter..becouse there will be more recepts And I need to chose which one to realize...So please do a little change

 

[cheekybuddha]

OK,

Comment out the line:

    .br_recept_AfterUpdate

to:

'    .br_recept_AfterUpdate

See if you are then able to press Enter and the AfterUpdate will run.

hth,

d

 

[irade92]

OK,

Comment out the line:

    .br_recept_AfterUpdate

to:

'    .br_recept_AfterUpdate

See if you are then able to press Enter and the AfterUpdate will run.

hth,

d

I have already tried it .but the same efect as in previous pic I send

 

[cheekybuddha]

Try also to comment out .Requery

If that doesn't work then you will need another strategy to fire the .br_recept_AfterUpdate event

 

[irade92]

Try also to comment out .Requery

If that doesn't work then you will need another strategy to fire the .br_recept_AfterUpdate event

I would like to thank you very much...it works as in your first lines with a little addition from me two lines to go to next field with .requary

 

[cheekybuddha]