Unbound fields

[UT227]

I have a form with 4 unbound fields: cboEmployeesID, cboSupervisorID, cboShiftID, txtWorkDate. When I click to add a new record, I want these fields to remain with the information the same except for cboEmployeesID. This is the code I used. It makes all my fields blank:

DoCmd.GoToRecord , "", acNewRec


Me.cboEmployeesID = Null
DoCmd.GoToControl "cboEmployeesID"

[Rainlover]

The values should stay the same unless you change or delete them.

[UT227]

That's what I thought too. They all go blank.

[Rainlover]

GoToRecord, , Next,
Me.cboEmployeesID = Null
DoCmd.GoToControl "cboEmployeesID"

Try This

[Micron]

Are the other controls dependent on another one, i.e. do the combos cascade and the text is calculated - thus the others go blank because you change the first one in the chain? As already stated, the contents of an unbound control shouldn't change just because you go to a new record. Or maybe you are doing a form or control requery/refresh on an event such as OnCurrent?

[UT227]

The code on my OnCurrent is why the unbound fields go blank. I'm probably approaching the problem wrong. This is what I'm trying to accomplish. I'm entering employees daily stats. The stats go onto 1 table. I have 4 unbound fields that I use to populate the fields on the table. What I did was added the code to After Update; Me.EmployeesID=Me.cboEmployeesID, and the rest are the same. Those fields that need to be populated will be hidden. The reason for this is so that the user doesn't have to keep repopulating each field. He only has to enter the name of the employee. The supervisor, date, and shift will stay there. In order to be able to see each field in the unbound fields as you do a search, I made a code in the OnCurrent; Me.cboEmployeesID=Me.EmployeesID. It works great until I try to add a record. The fields go null and the unbound fields do what I told them to do and go null. Like I said, I'm probably approaching the problem wrong. Fresh ideas are welcome.

[UT227]

The code; "GoToRecord, , Next," Gave me an error

[moke123]

Sounds like you could just use an unbound form and use an insert query to enter data. Then just set those controls you need null to null

edit: That error looks like its from the extra "," after "Next"

Another edit: You could also put the code me.cboemployees = me.EmployeeID and the others in the click event of the command button you are using to save the record.

[UT227]

Use an insert query? I'm not familiar with that one.

[Rainlover]

An Insert query is known as an Append Query.

That error you get is because of the extra "," (Typo)

Why do you use Two Error traps.

[moke123]

If you were to use an unbound form you could have code under a button to execute an insert.

Dim strSql as string

strSql = "Insert into YourTable(EmployeeID,SomeField,SomeOtherField) Values (" & me.cboEmployeeID & "," & me.anotherControl & "," & me.AnotherControl2 & ")"
Currentdb.Execute strSql, dbFailOnError

' then set controls to null

me.somecontrol = null

But I think what you may need to do is move the Me.EmployeeID = Me.cboEmployeeID to your save command as in my second edit above..

[Rainlover]

[QUOTE= He only has to enter the name of the employee. The supervisor, date, and shift will stay there. [/QUOTE]

Why not put these controls in a form header. The sub form would be where you add records.

That error you get is because of the extra "," (Typo)

[Micron]

Stepping back a bit - why is the form unbound?? Even if you wanted to keep certain values from the previous record I suspect you could use the default value property. Unbound forms require more code than bound forms, and if there isn't a good reason to do so, then it doesn't make sense to trouble yourself with all the extra work.

[UT227]

The form is bound to a table.

[moke123]

The root of the problem your having is that you are setting the value of the UNBOUND control (Me.cboEmployeeID = Me.employeeID) in the on current event. When you go to a new record, The current event fires and your code runs and sets the combo to null. It probably should be Me.EmployeeID = Me.cboEmployeeID in the command button (note its reverse of what you had)