Hi,

I have a form named "frmInlogBAM" that is used as a menu. On this form I'm working with different sheets (or tab control if I remember). On Every sheet I have an action button that takes the user to the same form named "frmArtikel". The command buttons names are for exemple "cmdArtikelBA01", "cmdArtikelBA02", cmdArtikelBA05",... They are coming form the sheets "TabBA01", "TabBA02", "TabBA05",...

On the form "frmArtikel" that is used to input data in the table I have 3 fields: "ArtikelNumber", "ArtikelName" and "ArtikelDepartment".

Now what I would like to have is that when I use the cmdArtikelBA02 command button to go to the form, the ArtikelDepartment field of the "frmArtikel" form gets the default value BA02. If it's coming from the "cmdArtikelBA05" button it has to be BA05... The ArtikelDepartment field is locked, so the user can't change the value.

What I tried was putting

dim artOriginator as commandbutton

in a module, and then try to get this into the form "frmArtikel". On the action button that takes me to the form I use

set artOriginator = BA02 (also tried "BA02")

but when I do this I get an error.
I also use
set artOriginator = Nothing on the command button that takes me back from the "frmArtikel" form to the "frmInlogBAM" menu.

Does anyone know what I should change about the set artOriginator on the command button and what I should add on the "frmArtikel" on current event to make this work? (I guess I'll have to use the on current event...)

I wouldn't use the On Current event.

You can either pass the value in a public variable, and use On Load event to set the field value to the value in the public variable. Set the public variable on the On Click event of the button opening the form.

So in a module, do this:

Public sDept As String

Then on the On Click event of each button, send the Department, like this:

cmdArtikelBA02 On Click event:
sDept = "BA02" 'use quotes since it is a string.

Then on the On Load event of the form, do this:

Me.ArtikelDepartment = sDept

If you are going to allow the user to continue to create records in the same table after the first record is entered after loading the form, then use the record number, subtract one, and use the last department value.

Did that work?


mmcdonal

When I open the form, no value is entered in the ArtikelDepartment field. If I change me.artikeldepartment = sDept to me.artikeldepartment.defaultvalue = sDept I get #Name in the artikeldepartment field...

I don't know if this is important, but data locked = yes

About the next record with the action button with the record number: I'm not using a record number in this table. I only have those 3 fields and the primary key is a combination of artikelnumber and artikeldepartment.