updating with a combo box

[smack317]

well my problem is that i can get the combo box to populate the form but i cannot figure out how to get the fields to update if any information is changed alos if the info in the combo box is ClientId how are they supposed to add the new Id if its locked in the box...heres my code for populating:

Private Sub Combo59_AfterUpdate()
' Get a reference to the Access Application object.
Dim cnnDB As ADODB.Connection
' Get connection to current database.
Set cnnDB = CurrentProject.Connection
Dim rst As Recordset
Set rst = New ADODB.Recordset
rst.Open "select * from ATCRF_Main where Client_Number=" & Me![Combo59], cnnDB, 3, 3

Me!Group_Num = rst("Group_Num&quot
Me!Initial = rst("Initial&quot
Me!Final = rst("Final&quot
Me!Resource_ID = rst("Resource_ID&quot
Me!Coaching_Sessions = rst("Coaching_Sessions&quot
Me!Accessing_Resources = rst("Accessing_Resources&quot
Me!Adult_Issues = rst("Adult_Issues&quot
Me!Basic_Letter_Writing = rst("Basic_Letter_Writing&quot
Me!Case_Man = rst("Case_Man&quot
Me!IEP_Checklist = rst("IEP_Checklist&quot
Me!Indep_Living = rst("Indep_Living&quot
Me!IRP = rst("IRP&quot
Me!Life_Planning = rst("Life_Planning&quot
Me!PBS = rst("PBS&quot
Me!TTL = rst("TTL&quot
Me!Web_Sites = rst("Web_Sites&quot
Me!R_Title = rst("R_Title&quot
Me!In_Use = rst("In_Use&quot
Me!In_Process = rst("In_Process&quot
Me!Not_Using = rst("Not_Using&quot
Me!Company_Name = rst("Company_Name&quot
Me!Address = rst("Address&quot
Me!City = rst("City&quot
Me!State = rst("State&quot
Me!Zip = rst("Zip&quot
Me!Country = rst("Country&quot
Me!Phone = rst("Phone&quot
Me!Case_QMRP = rst("Case_QMRP&quot
End Sub


thanks ahead of time

 

[paron]

smack317, if you are a very experienced Access developer, please disregard!

If not, it seems that you might get more of what you want by "binding" the controls like Me!Group_Num to the recordset (by setting their ControlSource property to the name of the appropriate field in the Design View Properties window.) Then changes to the data that the user makes in the control will also be made to the field in the recordset.

Your combobox can then just update the "RecordSource" of the form, and all the controls will update because they are bound to the field in the recordset. The simplest way to add new would be to leave the navigation buttons on the form enabled, so that users can just click the star to make a new record.

Ron

 

[smack317]

thats been done already thanks though