error 2113

[mana]

hello

i have a form with two fields in it: auftrag and vl_01 those are bounded to a query and when i fill out these data the data is inserted to the bounded table.

i want when i enter the auftrag the vl_01 will be automatically filled.
i wrote the below code in after update event of auftrag but i have the following errrror, can you help me pleasE??

error 2113 : the value you entered is not valid for this field

my code is this:

Private Sub Label_AfterUpdate()
Me.Prüfplatz.Value = "select VL-01 from qry_reifen_edit"
End Sub

 

[bob fitz]

Can you explain in plain english what you are trying to do with the following code:

Me.Prüfplatz.Value = "select VL-01 from qry_reifen_edit"

 

[mana]

i want to get vl01 to fill out the prufplatz field.
vl01 in qry_reifen_edit is based on auftrag that i filled it out before in field lable.

do you know what my poblem is?













Me.Prüfplatz.Value = "select VL-01 from qry_reifen_edit

 

[bob fitz]

i want to get vl01 to fill out the prufplatz field.
vl01 in qry_reifen_edit is based on auftrag that i filled it out before in field lable.

do you know what my poblem is?

Me.Prüfplatz.Value = "select VL-01 from qry_reifen_edit

What is "auftrag "

 

[mana]

auftrag is a field in my form that i fill it out manually and then i use the query that has the list of auftrags and vl01 to find out the related vl01 to the manually entered auftrag

 

[bob fitz]

auftrag is a field in my form that i fill it out manually and then i use the query that has the list of auftrags and vl01 to find out the related vl01 to the manually entered auftrag

Not sure I understand what you are trying to do but perhaps you should be using DLookup() function to return the required value

 

[mana]

hello

thank you for your response but when i write the following code i have the below error:

run time error 3464, data type mismatch in criteria expression

the code is as below:

Private Sub Label_LostFocus()

Me.Prüfplatz.Value = DLookup("[VL-01]", "dbo_Nacharbeitszeit_mgnt_reifenedit", "[AUFTRAGSNUMMER] =" & Forms![frm_Reifenfelgen_Edit]!Label)


End Sub

 

[bob fitz]

What is: Forms![frm_Reifenfelgen_Edit]!Label

 

[mana]

this is the field auftrag, then i will find vl01 based on that

 

[bob fitz]

this is the field auftrag, then i will find vl01 based on that

So you have a text box on your form called "Label"?

 

[mana]

yes , exactly

 

[bob fitz]

Try:
EDIT
Me.Prüfplatz= DLookup("[VL-01]", "dbo_Nacharbeitszeit_mgnt_reifenedit", "[AUFTRAGSNUMMER] ='" & Forms![frm_Reifenfelgen_Edit]!Label & "'")

 

[mana]

thank you very much it works now

 

[bob fitz]

thank you very much it works now

Glad you have it working now Perhaps you would now mark the thread as solved.

 

[mana]

hello

how can i mark the thread as solved?

 

[bob fitz]

hello

how can i mark the thread as solved?

Under Thread Tools which can be found just above the first post