Updating records using visual basic

[kmw]

My textbox Text24 remains blank. My update query is linked to my table by a Where statement that is based on text 24. However text 24 remains blank. I have tried making ID my PK and I have changed it to not being a PK and it still remains blnk.



Private Sub CommandUpdatePatient_Click()

DoCmd.OpenForm "FormUpdatePatient"

[Forms]![FormUpdatePatient]![Text24] = DLookup("[ID]", "DISCHARGE_DELAY", "[ID] = [Forms]![FormListBoxSearch]![Combo65]")

End Sub

[JeroenMioch]

<EDIT> ohh wait now i see what ur trying to do. Your trying to get the value from another form.
Then my code below wont work either i think.
I have struggled with this a while ago. And what i did was pass the value to the other form using open arguments.
I will look that up for u.
Disregard the code below

Try this in the form_current section :

me.Text24 = Dlookup ("ID", "DISCHARGE_DELAY", "ID = Combo65")

[orange]

Please show the sql for

My update query is linked to my table by a Where statement that is based on text 24.

You could try ( not tested)

[Forms]![FormUpdatePatient]![Text24] = DLookup("[ID]", "DISCHARGE_DELAY", "[ID] = " & [Forms]![FormListBoxSearch]![Combo65] )

[JeroenMioch]

Ok i looked it up for you.

DoCmd.OpenForm "FormUpdatePatient", , , , , , Me.ID.Value

This will copy the value of ID field (or any other field of your choosing) into the memory.

Then "paste" it into the new form by using form_load()

Private Sub form_load()
If Me.OpenArgs <> vbNullString Then Me.ID = Me.OpenArgs
End Sub

This way you pass the ID value from one form to another.

Hope it helps

[orange]

I agree with JeroenMioch with Openargs -if opening the Form is the issue. I didn't pick up on your opening the form in the post, maiinly because of the title Updating records ....

[kmw]

I think there may be a different problem. I have changed what I am doing and I am trying to put a text box with the ID in the same form as the combo box. The form displays all the values of my combo box except for the ID. The ID is no longer a PK.

Text63 is the where ID should be. All of the other text boxes work except for text63. Text63 will also display other values other than ID.

Thank you so much for your help!!!!

Private Sub Combo65_Change()

Me.Text63 = Me.Combo65.Column(13)
Me.Text23 = Me.Combo65.Column(1)
Me.Text25 = Me.Combo65.Column(2)
Me.Text27 = Me.Combo65.Column(3)
Me.Text29 = Me.Combo65.Column(4)
Me.Text32 = Me.Combo65.Column(5)
Me.Text34 = Me.Combo65.Column(6)
Me.Text36 = Me.Combo65.Column(7)
Me.Text38 = Me.Combo65.Column(8)
Me.Text40 = Me.Combo65.Column(9)
Me.Text42 = Me.Combo65.Column(10)
Me.Text44 = Me.Combo65.Column(12)
Me.Text55 = Me.Combo65.Column(11)

End Sub

Ok i looked it up for you.

DoCmd.OpenForm "FormUpdatePatient", , , , , , Me.ID.Value

This will copy the value of ID field (or any other field of your choosing) into the memory.

Then "paste" it into the new form by using form_load()

Private Sub form_load()
If Me.OpenArgs <> vbNullString Then Me.ID = Me.OpenArgs
End Sub

This way you pass the ID value from one form to another.

Hope it helps

[orange]

I don't think we understand what exactly you are trying to do.
Can you briefly describe the application and what exactly you want to happen (plain English please).

How does the title Updating records using vb(a) relate to the various forms involved?
Could you describe each form as to the purpose and the order things are happening?

[JeroenMioch]

I agree with Orange that were not quit sure what your trying to accomplish

Also, i would advice you to name your Fields, comboboxes, labels in such a way that you can allways see what kind of object it is, and more or less what it does.

So if i were to name a button that makes a report about patients i would name it "btnMakeReportPatients"
Or a field holding the ID of a record "fldID"
and so on...

[kmw]

I have one form to search for information using a combobox and then there is a button on that form to edit that information. The button opens up a form with the existing information to be edited, but the edits do not save. My query to save the edits is based on a text box displaying the ID but I can't get any of my text boxes to display the ID

[JeroenMioch]

Well as i stated try the openargs method. It is a good way to pass the ID value from one form to another.

Try it and get back to us with the results

[kmw]

When I pasted:

Private Sub CommandUpdatePatient_Click()

Me.Text24 = DLookup("ID", "DISCHARGE_DELAY", "ID = Combo65")

DoCmd.OpenForm "FormUpdatePatient"

End Sub

Into the Event Procedure of my button that brings you to the UpdateForm, I received an error because Text24 is on the UpdateForm. Am I adding that argument to the wrong Event Procedure?

[JeroenMioch]

The ID you want to "bring with u" is in your form FormListBoxSearch right ?
In my example the field on this form it self is called "ID" as is the "ID" field on the new form.

When opening your form FormUpdatePatient you need to copy that ID number by opening the form in this way :

DoCmd.OpenForm "FormUpdatePatient", , , , , , Me.ID.Value

Next you go to that form (FormUpdatePatient) and go to visual basic. Select the Form_load() event of that form and put this code in it:

If Me.OpenArgs <> vbNullString Then Me.ID = Me.OpenArgs

So, when the OpenArgs holds a value he will paste it in the ID field of the new form.

I hope your with me now