Editing a table with form via VBA

[WickidWe]

Hi I have a form to add, edit, and delete Records from a table


I am using the following VBA

Private Sub cmdEdit_Click()

If Not (Me.frmlEmpDetailsSub.Form.Recordset.EOF And Me.frmlEmpDetailsSub.Form.Recordset.BOF) Then
With Me.frmlEmpDetailsSub.Form.Recordset
Me.txtAddEditname = .Fields("Name")
Me.cboRoster = .Fields("Roster")
Me.cboPermFctn = .Fields("PermFctn")
End With
End If
End Sub

Instead of refering to the Subform to load the data i would like to refer to a combobox:

cboSearchName

I hope its not an issue but This Combobox contains 5 columns

[pbaldy]

You mean like this?

http://www.baldyweb.com/Autofill.htm

[WickidWe]

---

No, this is not the same thing
all I need to do is change the recordset the the Edit fields refer to

[pbaldy]

Change it to what? If a combo, isn't that

Me.TextboxName = Me.ComboName.Column(2)

[WickidWe]

do you mean replace

If Not (Me.frmlEmpDetailsSub.Form.Recordset.EOF And Me.frmlEmpDetailsSub.Form.Recordset.BOF) Then
With Me.frmlEmpDetailsSub.Form.Recordset
With Me.TextboxName = Me.ComboName.Column(2)?

[pbaldy]

I mean drop the recordset and the With statement and replace the 3 lines in the middle with references to the combo:

Me.txtAddEditname = .Fields("Name")

becomes

Me.txtAddEditname = Me.ComboName.Column(2)

with the appropriate column number.

[WickidWe]

Dont worry I worked It Out I was confused.
Thank you.

[pbaldy]

No problem.