editing in Sub form after record source is set using combo box

[ravgarwa1]

Hi,

I have a form with subform in which I made a combo box through which I am populating 2 fields in sub form using SQL query from a table which has multiple rows. There are 3 more fields in sub form which i left for manual entering the data. I am facing issue when the data of first 2 fields get populated using combo box function then when I enter data in any rows of next 3 fields it gets auto populated with same value in all rows. I want to allow editing of each rows seperately. Can someone please help me with this issue?

[NeoPa]

Hi Ravgarwa. Welcome to Bytes.com.

It looks like you have three Controls that are unbound, but you're expecting them to behave as bound ones. Check out Why Values in Unbound Form Controls do not Persist.

Unfortunately, your explanation isn't very clear so it's hard to tell what it is you're actually trying to achieve with this. Maybe if you could explain your requirements a little better someone may be able to give suggestions as to how to get what it is you'd like to have. For now though, that would be difficult without understanding what you're trying to explain. Perhaps a little more time & effort writing it out would be helpful.

[ravgarwa1]

Hi Neopa,

Yes you are correct that I have 3 unbound controls in the subform.

I am creating a attendance recording form in which I have a combo box for Manager which will fetch the employee list from employee table in subform. So employee Id and name are the fields which are coming from query for record source. Post that other 3 fields are date, attendance and leave type are fields which I will update for all employees based on requirement. Below is the coding details:

Private Sub Command6_Click()
 
Dim selSQL As String
 
selSQL = "SELECT TLData.TLWINID, EmployeeData.WINID, EmployeeData.EmployeeName " _
& "FROM TLData INNER JOIN EmployeeData ON TLData.TLWINID = EmployeeData.TLWINID " _
& "WHERE (((TLData.TLWINID)=[Forms]![Attendance]![cboTLWINID])) " _
& "ORDER BY TLData.TLWINID, EmployeeData.WINID "
 
Me.sfmAttendance.Form.RecordSource = selSQL
Me.sfmAttendance.Form.Requery
 
End Sub

[NeoPa]

ravgarwa1:
Post that other 3 fields are ...

No idea what this is supposed to mean. I'm guessing you didn't read your post before submitting it again. It will be very hard to help you if you don't put the basic effort in. I can only guess what you mean, and as it seems you're quite inexperienced that's even harder. I can see what makes sense but I can't follow the logic if there is none.

That's fine. We all have to start somewhere. There's nothing wrong with being inexperienced - it just means that your explanation is more important. Without it making sense it's very hard to advise you how to handle your problem.

My guess is that you have three unbound Controls on your Form (Date, Attendance & Leave Type) that you want to save somewhere. If so then you need to include the Fields from the table where they should be saved in the RecordSource of either your main Form or one of the Subforms. IE. They must be bound Controls.

I can help with one tip that is certainly relevant from looking at your code - Setting the RecordSource property runs the query immediately. There's no requirement to run .Requery(). It often does very little harm but for slow queries it can increase the response time for the user. It basically runs the same query twice so it makes sense it will take longer.