Hi,
For some reason my brain is not working today.
I have two tables; one is a list of employee’s, where they work, their training status and certification status. The second table is a list of projects completed and by who (linked to the first table).
I want to be able to do two very simple things but can’t get it to work.
Firstly I would like to have the number and % of each trained and certified...
damonreid
Last Activity: Sep 16 '19, 11:10 AM
Joined: Jul 5 '07
Location: Dublin, Ireland
-
I just tend to set that as my default value for all new forms as I make all controls as I want them in place of default values on the forms. Same applies for backrounds and borders. You can set defaults for new databases and new forms. -
[code=vb]Private Sub IDCode_AfterUpd ate()
Dim strProdCode As String
If Me.NewRecord Then
strProdCode = Me.IDCode.Value
' Increment the IdentNumber field by One, if field is Null, set as 0 then add 1
Me!IdentNumber = Nz(DMax("Right( Identifier,4)", "IDCodeQuer y"), 0) + 1
Me!Identifier = Me.IDCode.Value & "-" & Format(Me!Ident Number,...Leave a comment:
-
You could build a form and copy it for each year. Then change the Record Source of the form to a different table (with the same fields).
The simply allow the correct form to open on some condition (select a year from a drop down list, if = 2007 open form a, if 2008 open form b ect...)
It is a bit clumbersome though.Leave a comment:
-
Hold down Shift on startup. Re-Tick the required boxes.Leave a comment:
-
Access will do this automaticall. Just ensure that the "key" is entered.
If you really want to get around this don't use an auto-number at all. You can assign everyone a user ID and base the key of your table on that ID. It is quite easy to do and would have the added advantage of allowing you to see who it was entered the information initially. You can also put a "date/time stamp" on this to see when they where...Leave a comment:
-
The first thing you need is
[code=vb]Private Sub effective_date_ change()
if effective_date = null then
me.checkbox18.v isible = false
me.checkbox36.v isible = false
else
me.checkbox18.v isible = true
me.checkbox36.v isible = true
end if
end sub[/code]
Then do the following for each checkbox
[code=vb]Private Sub Checkbox_AfterU pdate()
if Checkbox = false...Leave a comment:
-
You can base the form on a query, have table one from your form and table two from an index. Once you have both values linked (that is the field in table one should be a look up wizzard to the first value in table two) if you select the first then the second should appear.Leave a comment:
-
Try the following on the field:
Enabled = False
Locked = True
This will stop anyone clicking on the field (or tabbing onto it) but still allow changes to it via VBA.Leave a comment:
-
Why not just link the tables using a query if they have the same common key? That way you can keep the information in one location and still use it for reporting.Leave a comment:
-
Set the following
Record Selectors = No (Bar on the left hand side of the form)
Navigation Buttons = No (The ones on the bottom of your form)
Control Box = No (Max, Min, Close ect all in one go, or do them individually)Leave a comment:
-
No problem, glad I could help.Leave a comment:
-
[code=vb]if fieldname <= date()-6574 then
fieldname =""
else
end if[/code]
Try thisLeave a comment:
-
A simple solution may be to have a single table with your "key" on it and make the other tables have the same key as a look up. That way you will have a series of unique numbers in one table to form your query.
Don't use the query wizzard for this, simply open a new query in design view. Add the 3 tables and make your initial table the right hand join to all the other tables (depending on your personal layout).
...Leave a comment:
-
Make a query to join the 3 tables check your join type it should be an outer join.
However I would simple make a single table, how many fields are you talking about here?Leave a comment:
-
Try this
[code=vb]me.comboxboxnam e.value = ""[/code]Leave a comment:
-
I am not sure what the point is in disabling them, why not just leave the fields open?
You could add an "After Update" event on each of the fields to clear the values in the other two if you want?Leave a comment:
-
Do you want them to only use one combo box?
If so change the ".enabled = true" to ".enabled = false" for the other two combo boxes.Leave a comment:
-
Ensure your form does not edit the connection file.
Search the code for this:
[code=vb]CurrentProject. Connection.Prop erties("Jet OLEDB:Connectio n Control")[/code]
if the database was developed by another person.Leave a comment:
-
If you want to be able to change it perhaps you should change the locked status and not the enable status? If this is what you want to do then.
Else try this.
[code=vb]me.comboboxname .enable = true[/code]Leave a comment:
No activity results to display
Leave a comment: