I have several list combo boxes on my form that I want to prevent users from adding data to. How can I do this? For example, there is a list box for insurance carrier, etc. :confused:
I have a HUGE system which presently restricts updating a "Final Action" date to today's date only. However, I want to change it so users can input dates for only the present working week. The present coding is as follows...
Private Sub dteActioned_AfterUpdate() Dim strTime As String
strTime = "07:30"
gintChanged = gintChanged + 1
If Not IsNull(Me![dteActioned]) Then If Me![dteActioned] > Now Then gintReply = MsgBox("Your actioned date is later than today !!", vbOKOnly + vbCritical, "Oops") Me![dteActioned] = Null Me![dteActioned].SetFocus GoTo Exit_dteActioned_AfterUpdate: Else If Format(Me![dteActioned], "dd/mm/yyyy") < Format(Date, "dd/mm/yyyy") Then ' final action earlier than today If Weekday(Now) = 2 And Format(Now, "hh:mm") > strTime Then ' If Weekday(Now) = 6 And Format(Now, "hh:mm") > strTime Then ' Not acceptable to enter a previous date ' older than 7 days is not acceptable gintReply = MsgBox("Now too late to accept this 'Final Action' date !", vbOKOnly + vbCritical, "Oops") Me![dteActioned] = Null Me![dteActioned].SetFocus GoTo Exit_dteActioned_AfterUpdate: Else ' Previous date is acceptable but only as far back as 7 days If CVDate(Me![dteActioned]) < CVDate(Now) Then ' older than 7 days is not acceptable gintReply = MsgBox("Now too late to accept this 'Final Action' date !", vbOKOnly + vbCritical, "Oops") Me![dteActioned] = Null Me![dteActioned].SetFocus GoTo Exit_dteActioned_AfterUpdate: End If End If Else ' Actioned date is acceptable since it is today's date DoEvents End If End If End If ' if today is a Monday Only accept final action dates which fall within the previous week if today
Exit_dteActioned_AfterUpdate:
End Sub
Probably very simple but I just can't get it to work. Help please! Time is short.
How to restric forms entry to be restricted from second edits .. means if some one posted single entry one time and wanted to post second edited entry i need form to ask passoword. or not to be updated if not available the password option.
I'm looking for a little bit of help here. I have a form and on this form I have a combo box. Now this combo box is populated by a table that I have called "Options". So this is all fine and dandy to select items already existing in the table, but ideally I would like to be able to input a new "Option" through this combo box if it doesn't exist in the table already.
I'm thinking I'd have to do something with the "On Not in List" event but I don't know VBA at all.
Also, I will eventually have a Price box next to this combo running off a query driven by the entry in the combo box. Again, I'd like to be able to input a new cost to the existing item or a cost for the newly entered item
relationship -trainer to course (many to many) -course to programme(many to one)
I have created an input form to add new trainer. In the input form i have combo box to enter trainer's course n trainer's program.
Each time i save a new record. A new data is created in the course and program table. I dont want that to occur. I want the data to be saved in the trainer query with the existing course and program.
I want a combo box in a form for data entry. Is the best method in doing this creating a new combo box in the form and linking it to a table, or using a lookup field in my table?
I'm trying to create a Data Entry only form based on a small table called tblProject.
It consist of the fields Project_ID, Artist_ID, Project_Name, and Project_Notes.
I used the wizard to get me started and i know how to change the form to data entry only, but the problem is the vague data in the Artist_ID control. It shows up as a number, because it is an FK to another table (tblArtist) where more details on the artist are held. (including Band_Name)
I want to be able to make it a combobox with a list of the Band_Names from the tblArtist table. This would make creating "a new project" much easier.
I have a form with four combo boxes on it, the four boxes all open the same form and return a record based on the selection from a different column from the same query.
To make it work smoothly I think I need to make it so it is only possible to enter data in one combo box at a time. I could also do with some error handling.
I have one field AccountName in customer table and another field AccountID.
In my form I would like to select from the combo box AccountName during data entry and then have the AccountID automatically update in the Account ID field.
What I am trying to do is create a data entry form to an "order table" using 2 cascading combo boxes. I have created a data entry form based on a query. I can't get the cascading combo boxes to work properly.Here is the code:
Private Sub Combo0_AfterUpdate() Combo2.RowSource = "SELECT L2_ID,L4_Element_name,L5_Category FROM qry_ord WHERE L3_ID = Combo0.Value;" Combo2.DefaultValue = [Combo2].[ItemData](0) Command4.SetFocus End Sub
I am working on creating an access database for tracking physical assets linked to locations. I need to make a combo box list to show items other than the current location of the asset. Basically I need it to refer to last enery of the user and define the new possible entries. so we have a unique relationship between location and asset. The assets and location will always remain fixed and there is never going to be any addition. I am creating a web form so that it can be uploaded into sharepoint.
I have a combo box that pulls account name data from tblAcctInfo. the combo box has an OnChange event which updates a textbox, txtAcctAddr.
when i have a new account that i would like to be listed in the combo box, i use a form, frmAcctAdd, to add a record to tblAcctInfo.
what i would like to do, is: 1) when i type a new value in the combo box that isn't in the list, have that string value pre-populate in the frmAcctAdd. 2) when i have added the new account info into frmAcctAdd and then saved the record, i would like the new value to pre-populate in the combo box, with the txtAcctAddr textbox also updated via the OnChange event (or maybe a different event is more appropriate?).
I have created a long version of this which requires a lot more user interaction (1-user typing in a new value into the combo box, 2-user RE-typing the SAME value into a data entry form, frmAcctAdd, 3-user saving the new record, 4-user re-clicking the combo box and selecting the newly added value) but i am trying to streamline the data entry with auto-populated fields.
I need to be able to restrict users enter a value in the text box (on Form B) called "FTE Assigned" if Dsum of a field called "FTE Allocated" in another form A is less than what is going to be sum of FTE Assigned after the value is entered.
Both these forms are used by users to enter data in the 2 separate tables which are linked together through a join.
Master table - having FTE Allocated values and secondary table having FTE Assigned values.
Basically a message box would do if Dsum (of FTE used) is coming out higher than FTE allocated.
I have a form with a list box that is filtered by the entry made into a combo box. It works fine except that I want an option which shows all records in the list box. I tried using the formula below in the query criteria for the list box but it returns no records when I select All in the combo box. Why won't it work? Is there a better way to do this? Can anyone help?
First I would like to give thanks to all the knowledgeable folks here who have helped me with my DB to date. It is working and every one is very happy and I have learned a lot.
So now I would like to add some more functionality to this existing project.
My DB is for data input of customers for a drawing. It has the following fields: Id, account number, first name, last name, date/time, score1, score2.
I t is taking a great deal of time for the users to enter in hundreds of entries a day. Most of the entries are customers who are already in the DB. I would like to get the fields to auto fill the data for existing customers say after the account number is entered. So after you put in the account the name and any other pertinent data would shows up saving users from typing it in again.
The first problem I am having is that this is still a data entry form and I can’t figure out how to be able to see the account information and still add new data to the record? The new data is a daily score they get.
Second I haven’t figured out how to call up the customers information from just the account field.
I’ve googled this and haven’t found anything terribly helpful.
I an trying to create a data entry form (IndividualsEntryFm) to input data for fields such as (First Name),(Birthdate) etc., these to be saved to the (IndividualsTbl)
I also have another table (NamesTbl) which has family names etc. The two tables are linked by a (MainID) field. I want a combo box on the individualsEntryFm so that I can select the family name. Then I wish the empty fields for the IndividualsTbl to be available to enter data.When I press the save button I then want this data saved, together with the MainID from the combo box to the IndividualsTbl.
I have set the IndividualsTbl with a (PersonID) field as an auto number each individual therefore has a unique PersonID but may well share the MainID. I'm trying to link many people to the same address.
I want to use the same form in datasheet mode for data entry and retrieval. When retrieving, all controls are disabled and locked. I am trying to enable and unlock them for modifying but that isn't working.
My aim is to have my forms open to a new record, which I have done, but if my users need to then update or edit data in previous entries, they can click a button that allows this.
My thoughts were to add a button, then put in code so that the necessary properties changed the form from displaying a new record or records entered since opening it, to showing all records in the associated table....
As an example there is a table for purchase orders. When clicking on this from the main menu form, it opens up the purchase order form to create a brand new PO. At times though, we will need to revisit an order to attach a copy of an invoice, or update the cost of whatever was purchased.
My question is this: I have a table where I'm entering employees' hours worked. Basically, it's something like this:
ID WorkerNumberDateworkedTimeStartTimeEnded 121/2/201310:00:00 AM3:00:00 PM 221/3/20132:00:00 AM11:00:00 AM 321/4/201312:15:00 AM11:30:00 AM 421/5/201310:25:00 PM11:00:00 AM 531/2/201311:00:00 AM3:30:00 PM 631/3/201312:00:00 PM10:00:00 PM 731/10/20137:00:00 AM4:00:00 PM
I have a query that (easily) determines how many hours an employee has worked on any given day. What I can't figure out at all, is how to write a query that can figure out how much time an employee had off in between shifts.
Thus far I'm able to run a query that separates this main table into individual workers by their id numbers, but can't figure out how to determine time off between shifts - as the last hour worked one day, and the first hour worked the next day are on two different lines (they are two different table entries).
My db has multiple linked tables. As time passes and work on a project continues data needs to be added to a separate table that is linked to the first table to be populated.
i.e., Initial design data is entered first, when drilling is complete more data is added to a linked table, when drilling is surveyed yet more data is added to the second table.
What I want to be able to do is to query for a particular set of existing design data, display this on a form and on the same line enable data entry to other fields from other tables which are linked to the existing design data.
I have a form where users can specify crtieria for a query. The value that the user enters via a combo box on a form is entered in a query. The user then hits a button to run the query.
Problem is the entry i have in the criteria of the query that links to the form is not quite right. It work for when they enter a value but causes problems when they leave it blank. I currently have:
Like (IIf(IsNull([Forms]![Main]![CBGroup]),"*",[Forms]![Main]![CBGroup]))
CBGroup is the name of the combo box and this expression sits in the criteria of the group field.
If the user does not enter a value in the combo box i want the query to return all the records, including where the field is blank. However at the minute it only returns the records where there is any value, not the blanks as well.
The expression above works fine with Text boxes but not combos.
Sorry for the essay, thanks if you read down this far.
I built a db for tracking and entering sales info but I'm having a problem with one of my combo boxes. To make entering data easier, I created a combo box that you can select a sales persons name from, then based on who is selected, their Title and Office location also populated.
The problem I have is when I want to manually type in the Name and other info for a temporary sales person. How can I allow users to choose from the drop down or just type it in if that person is not in the list?
hey guys, i have this code which will let you type into a combo box "db" and it will pick out the selection "Die Cut / Back Slit". the following code works except for an error message coming up before it goes into the code.
"the text you entered isnt an item in the list"
anyone know how i can get around this? i tried turning warnings off on the sub but it seems to happen by default before the sub?
Code:Private Sub cmbCut_KeyPress(KeyAscii As Integer)' if pressed not enter or tab , add to a string then select value from entered chars'enter or tab key pressed (added delete and space keys to miss adding to string)If KeyAscii <> 13 And KeyAscii <> 9 And KeyAscii <> 8 And KeyAscii <> 32 Then enteredChars = enteredChars & Chr(KeyAscii)Else DoCmd.SetWarnings False Select Case enteredChars ' get letters entered and set value from combo Case "S" Me.cmbCut.Value = Me.cmbCut.ItemData(0) Case "B" Me.cmbCut.Value = Me.cmbCut.ItemData(1) Case "D" Me.cmbCut.Value = Me.cmbCut.ItemData(2) Case "DB" Me.cmbCut.Value = Me.cmbCut.ItemData(3) Case "T" Me.cmbCut.Value = Me.cmbCut.ItemData(4) Case "F" Me.cmbCut.Value = Me.cmbCut.ItemData(5) Case "FS" Me.cmbCut.Value = Me.cmbCut.ItemData(6) Case "FC" Me.cmbCut.Value = Me.cmbCut.ItemData(7) Case "FSC" Me.cmbCut.Value = Me.cmbCut.ItemData(8) Case Else 'do nothing End Select enteredChars = "" DoCmd.SetWarnings TrueEnd IfEnd Sub
I am learning access on my own, so please bear with me. I am using Access 2000. I have a form with a combo box. I use this form to enter data into the database. The combo box selections are from a separate table. If the required entry is not in the drop down menu selections from the table, the user needs to type in the proper selection. If this happens I want the table driving the combo box dropdown to be automatically updated with the new entry so that the data will appear in the drop down menu selections the next time. How is the best way of accomplishing this. Thanks for any answers and examples.