field update failed in form current event

[MF_PA]

Hi,
using my VBA instructions I cannot update the value of the text box "Txt_Obtained" with the real time results of my combo box .


The result of this text box during the form current event is updated according to what is typed in other text boxes and depending on some option buttons of the same form, obtaining a similar result (which will be used to set the form filter)


example:
MyVar & [city] Like '" & Me.Cmbx1city.Value & "'And [code] Like '" & Me.Cmbxcode.value & "'And [enterprise] Like '" & Me.TxtEnterpriseChosen & Chr(39)


During the form_current event ,when I update text boxes or option buttons, immediately are updated MyVar and TxtEnterpriseChosen . Consequently, "Txt_Obtained" is updated, using the value already present in the two comboboxes Cmbx1city and Cmbxcode.




Here's my problem, the result of the Txt_Obtained check is correct only if I first change the value of one of the two comboboxes, and then I change that of the text boxes or option buttoms.
Instead, if first I change that of the text boxes or option buttoms and in a second moment I change the value of one of the two comboboxes, the Txt_Obtained control is not updated to the new value selected in the combobox.




I've also tried (whith no results) to insert VBA instructions into the Cmbx1city _AfterUpdate() and Cmbxcode _AfterUpdate() events.


Thank you for your clarifications

[Welshgasman]

Create a function in the form to concatenate your control values.
Then call that from various events of the controls that hold those values.

Either AfterUpdate or even Lost Focus events.

[June7]

Lack of space in front of And in "'AND could be an issue. And LIKE without wildcard might as well just be = sign.

But exactly where is this expression used? Provide code or db for analysis.

[ranman256]

is this an sql statement? The LIKE has no *
each combo box (or any control) must rebuild the filter in the AFTERUPATE event.

sub Cmbx1city_afterupdate
UpdBox
end sub


sub Cmbxcode_afterupdate
UpdBox
end sub


sub TxtEnterpriseChosen _afterupdate
UpdBox
end sub

sub UpdBox()
  'exact = statement
me.filter  = "[city] = '" & Me.Cmbx1city & "' And [fieldcode] = '" & Me.Cmbxcode & "'And [enterprise] = '" & Me.TxtEnterpriseChosen & "'"
me.filterON = true
end sub

[MF_PA]

Lack of space in front of And in "'AND could be an issue. And LIKE without wildcard might as well just be = sign.

The code obtained appears to work at least until I use the comboboxes, which instead are read correctly when I then act on the text boxes or on the option button.

Thats why I believe it does not depend on this code. So I am currently making various attempts, by following the suggestions of the other two members ( to use my code whith the After update event).

if I don't find a solution for the next few days, i'll Provide a part of db for analysis


PS: I confirm that my code is used to obtain a SQL statement. the reason that complicates my code is that the filter uses MyVar which is the result of the checks on the text boxes or on the option button

Thanks

[MF_PA]

Solved!For each my combo box (and my others controls) I’ve rebuilt the filter in the AFTERUPATE event.
It didn't work because my instructions in vba AFTERUPATE event, did not correspond with the secting properties of the two cmbx ( not yet selected) . Thats why, originally, the cmbx had been copied from another form.

Thank you all