I have a form with several fields bound to a table, and also a listbox of records that are not bound to any table. What I want to do is to be able to double-click a record in my listbox and have the record show up on my form in a particular bound field, and also become a part of the underlying table's record.
Is it possible to do this? If it is, how would I do it?
Thanks in advance to all who are willing to help!
Hi
I've created a listbox and am using the following code
stWhat1 = "": stCriteria1 = ","
For Each vItm1 In Me!LstArchive.ItemsSelected
stWhat1 = stWhat1 & Me![LstArchive].Column(0, vItm1)
stWhat1 = stWhat1 & stCriteria1
Next vItm1
Me!txtCriteria1 = CStr(Left$(stWhat1, Len(stWhat1) - Len(stCriteria1)))
The problem is that my bound column is a text field. I'm really struggling on where to put my quotations so that I get the following with the In function
In('00638','00639').
Any help or pointing in right direction would be very much appreciated
Carrie
My code is not working.
1. The code below should equal the Current Month
2. It does not close the form if no data.
PHP Code:
If DLookup("[CurMonth]", "tblEmpEvaluation") = Format(DateSerial(Year(Date), Month(Date), Day(Date)), "mmmm ")
DoCmd.OpenForm "frmEvalNotice"
End If
PHP Code:
If DLookup("[CurMonth]", "tblEmpEvaluation") <> Format(DateSerial(Year(Date), Month(Date), Day(Date)), "mmmm ") Then 'No Data. NotWorking?
DoCmd.Close acForm, "frmEvalNotice"
End If
I have two listboxes. One for Activities and the other for Organizations.
I set the Org listbox to be multi-select so I could run a loop on that listbox to join multiple Orgs to a single Activity. That part works well.
To do so, I am using the bound column (which is the pkey value) from the multi select listbox, and on the single select listbox I'm using the ListboxName.value to gather the pkey for the "1" side of this 1:Many series of inserts.
Now... I want to use one of the other-than-bound-column value from the multi-select listbox, but I don't know how. When setting a value I only know of the use of :
Code:
ListBoxOrganizations.ItemData(varItem)
and I don't know how to do the equivalent of
Code:
ListBoxOrganizations.ItemData(varItem's column(2).value)
yes, I just made that up, but I hope you get the point. Meaning, as the loop cruises the ItemsSelected on the multiselect I'd like to use other than the bound column when setting variables.
I've tried using the column property to then cruise to the proper record in the listbox, e.g. :
[code]
txtCollaborationDesc = "Collaborate " & ListBoxOrganizations.Column(2, varItem) & " with " & listboxActivities.Column(2)
[code]
But this seems to return the column(2) value of the first record loaded into the list box, as if the varItem piece is being ignored. I believe the loop is working properly, as when the inserts are happening correctly with the bound column of the multi-select list is correctly present as an Fkey in the resulting child records.
I just can't get any other column's value for some reason.
MS Access 2010 and this is an accdb.
I have a list box bound to a query. If the list box retrieves two records, I am not able to select only one of them. If I click, it gets both records selected ( highlighted ). Is there any way I can select only one record?
View 8 Replies View RelatedSo I have a list box that lists organizations. I recently changed the list box type to extended multi select. On the same form, I have a button that opens a new form where the user can input contacts for each organization. When the list box was not multi select, the expression [forms]![media]!
[List30] made the default value of one of the fields in my contact form the bound column from the selection in the list box. However, now that the list box is multi select, the contact input form does not seem to be able to get the value from the bound column in the list box. When multi select is turned on, is the bound column stored differently.
To even get the contact input button to work, I had to change the code from:
Private Sub Command40_Click()
On Error GoTo Err_Command40_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Contactsqry"
stLinkCriteria = "[Organization ID]=" & Me.List30
[Code] .....
I've a form with comboboxes and listboxes on, which populates a table with data. The cbo or lbo are bound to the relevant table field.
Unfortunatley, there is one lbo that just wont update the relevant table field.
I've tried lots of different settings and etc, following advice reseacrhed from these forums.I've even tried copying an lbo that does work, all with no luck.
Has anyone ever had similar experience? If so, how do I get out of it?
Cheers
Pete
I need to have 2 textboxe son my form that are directly linked to data in a DB so that the user can type values in directly.
Unfortunately, the data for these 2 textboxes is completely separate from the main form's recordsource.
Is it possible to do this using an expression? I've tried but it only retrieves the data rather than allows you to update it.
If not, then will I have to do this through VBA code?
It's an unusual request, I know, but it's necessary for my purpose.
I have a form, frmMain that I use to update a number of tables. On it is a number of combo boxs, comProduct, comBrand, comSize, comPrice and comQuantity. comProduct opens a new form, frmNew if the users input is not already in the table. On frmNew there are again combo boxes comProduct, comBrand and comSize. This form adds the record to the table.
So, if I input a new value - not already in the database - for product in the comProduct combo box, the form frmNew appears and I can proceed to define the product, brand and size of the new record. The form then closes and reopens frmMain and tabs across to comQuantity (skipping the fields I've already defined in frmNew).
Now if you can wrap your head around that, here is the problem: Because I've already entered the values for product, brand and size in frmNew, I want them to automatically appear in the appropriate combo boxs on the frmMain form. I've been using the following code (executed from frmNew, so Me = frmNew):
Code:[Forms]![frmMain].[comProduct] = Me.comProduct[Forms]![frmMain].[comSize] = Me.comSize[Forms]![frmMain].[comBrand] = Me.comBrand
It works, but I've since discovered it creates a new record in the table so I end up with two duplicate records (one when I submit frmNew and another when the values are automatically input into frmMain.)
Now, my question: How can I display these values in frmMain without having them create the second record? I was thinking of using a SELECT query somehow, but I don't know where to begin. I also considered using labels instead of comb boxes, but I'll need to be able to edit them if the record already exists.
I have a Main form with several sub forms on it the tables behind each form are related tables. The user enters data on the main form with the exception of one bound control then moves on to enter data on the sub forms On exiting the record or the main form I want to take data from several of the sub forms and add them together and enter result in the bound form on the main form. Because this bound control is not used to enter data in there are no event triggers to code to get this done.
View 3 Replies View RelatedHello,
I've got this multiple select listbox which writes data into a textbox:
Private Sub List2_AfterUpdate()
Dim Cursisten As String
Dim ctl As Control
Dim Itm As Variant
Set ctl = Me.List2
For Each Itm In ctl.ItemsSelected
If Len(Cursisten) = 0 Then
Cursisten = ctl.ItemData(Itm)
Else
Cursisten = Cursisten & "," & ctl.ItemData(Itm)
End If
Next Itm
Me.txtCursisten = Cursisten
End Sub
And I've got a SELECT ALL button to select all records in the listbox:
Private Sub cmdSelectAll_Click()
On Error GoTo Err_cmdSelectAll_Click
Dim i As Integer
If cmdSelectAll.Caption = "Alles Selecteren" Then
For i = 0 To Me.List2.ListCount
Me.List2.Selected(i) = True
Next i
cmdSelectAll.Caption = "Alles De-Selecteren"
Else
For i = 0 To Me.List2.ListCount
Me.List2.Selected(i) = False
Next i
cmdSelectAll.Caption = "Alles Selecteren"
End If
Exit_cmdSelectAll_Click:
Exit Sub
Err_cmdSelectAll_Click:
MsgBox Err.Description
Resume Exit_cmdSelectAll_Click
End Sub
The only thing is that when I use the SELECT ALL button, the function List2_Afterupdate doesn't work anymore. There must be a simple solution but I just can't figure it out. Can anyone please help me?
Tnx a lot!
I've created a data entry form w/ 7 fields.... [f1], [f2], [f3], [f4], [f5], [f6] are bound to a table. While [f7] is unbound and has Nz function.
Now, the value of [f7] is the summation of [f1] to [f5], i want that what ever value is generated by [f7] will be stored on [f6] in both forms and table...
Hi,
Have two controls GroupID and Shift which are linked with Criteria:
SELECT tblShifts.Shift, tblShifts.GroupID
FROM tblShifts
WHERE (((tblShifts.GroupID)=[Forms]![fmPersonalDetails]![GroupID]));
Have two other controls which are Position and Grade with same type of link.
Problem is When I try to edit the Shift control an error message comes up saying 'cannot edit bound to unknown field 'Shift'.
Have checked each of the property fields with the Position and Grade controls and are the same. Spelling is the same in the table. Are there any other obvious things I should be looking at because I'm pretty new to this and cannot find the solution.
Would be grateful for some input/suggestions.
In my Textbox Control source I have given a formula =[Product Price]+[Delivery Costs].
I would like to provide an option to ther user to overwrite this Textbox (Should able to input a value).
When I try to edit the calculated value on the form, I get a message "Control cannot be edited, bound to expression". What can I do?
is there any problem with fields in differnent tables that have a field name that's the same? My concern is the control source for a bound control. Access can keep track of this if a few of these similar field names are on the same form and bound?
scratch
Hello All,I am new to Access and VB and have gained some very very useful tips from this site whilst compiling my new project.I have a question which I have been unable to find anywhere here.I have two tables at the moment. One is the main table from which my form is created. My second table is a list of registrations and the corresponding number of current hours accrued by the registration (eg ABC has 512 hours used)I query the rego table on my main form to give me a listbox so that for each new record, the user can select the rego, and the starting hours are automatically filled in the 'Start hours' field on the form (using an after update event to set the hours after the rego is selected), which is bound to the 'Start Hours' Field on the main table, so that when it is saved, the info saves to my main table.When the user returns, they then enter their Finish hours, and this finish hours is then written to the rego table, so that next time the rego is selected the start hours is the same number as the finish hours from the last time the item was used.Now for the problem. Users can fill out some parts of the form, and take it before the finishing hours are entered for the previous record. Therefore, when they return to enter their finishing hours, the starting hours hasn't updated on the form, and it doesn't change unless they reselect the rego from the list box to trigger the after update event.Is there any way, (I have tried, Me.Refresh, Requery etc) I can get the after update event to fire in the current form automatically, ie without having to reselect the same rego again? Is there a way to just refresh the rego field so that it thinks that it has updated and triggers the after update?I may have now made it clear as mud, but this is my first post so any help would be very much appreciated. I can elaborate on any problems if needs be.Thanks in advance for your help!
View 1 Replies View RelatedHi,
When i try to select a record from a combo box this message appears in the bottom of the screen :
Control Can't Be Edit; it's bound to AutoNumber field 'EventID'
It will not let me choose a PK/ID. what am i doing wrong or what setting needs to be changed?
thanks
Hey guys, I am trying to input data into a form, the form consist of mulitiple tables. Once I set it up I get a "#Name?" error in the text box, and when I try to input data into the text box, at the bottom of the form it keeps saying "control can't be edited; it's bound to unknown field 'FieldName'."
Can anybody help me with this problem?
Thanks
I have written a code to look up by the unique reference number rather than use the wizard to avoid this error happening... The field is restricted to list only so you can't actually edit the number.For ease of use you cannot scroll by record and I need to filter by the ID. Is there an easy fix to this combobox?
Would creating a seperate query work? Is there another lookup code I could use where I don't need to have the combo box bound to the ID field since it's not being edited anyway? I had a go at one and although it would now let me select it wasn't updating the record, tried a few ways but it seems that it needs to be bound to the field.
I'm using Access 2007. I've created a table with two fields. "Novice and Recertification" as in combo box.
I put it on the form. Now the idea is when a user clicks Recertification, it shows up on the report. When the user clicks on Novice, it should be empty on report (Reason why I want to keep novice is so that we have a record of it.)
Now the challenge is I added another column, empty field for Novice and Recertification for Recertification. Thing is if I set the bound column, I select on an empty field on form and it will be empty on report. But I want the user to see Novice on the form and it must not show on the report.
Access 2010. The first table is called Clients.The Primary Key field for the Clients table is an AutoNumber field called ClientID.The other two relevant fields in this table are ClientFirstName and ClientLastName. The second table is called Contacts.In the Contacts table is a foreign key field, bound to the ClientID field from the Clients table, and also named ClientID.
On the Contacts table, the ClientID field properties are set on the Lookup tab as follows:
Display Control: Combo Box
Row Source Type: Table/Query
Row Source: SELECT clients.ClientID, clients.ClientFirstName, clients.ClientLastName
Bound Column: 1
Further, in the Row Source's Query Builder, ClientFirstName and Client LastName both have Ascending selected as Sort criteria.
Everything works as intended: When entering data into the the Contacts table (actually, the data is entered via a form built from the Contacts table) the data entry person can click the drop-down on the combo box for the ClientID field, scroll through ClientID records, and see unique ID numbers sorted by first and last names. And the actual data for the field is stored properly as the unique ClientID number.
When entering ClientID data into the Contacts table (or form), is it possible to enable autofill based on ClientFirstName and ClientLastName, rather than ClientID? For instance, let's say we have a few clients named Joe Smith. It would be great to just start typing "Joe Smith," and have the field autofill the ClientID number for the first client named Joe Smith. The intention is to make data entry a bit quicker.
So I'm not new to Access but I am to 2010. It has been a bit "challenging". Here's my first question:
1.) I'm trying to search on a field by using a command button. I basically want to click the button and the following message pops up: Enter MRN.
2.) When the MRN is entered, I would like the form to filter on all records that have this MRN.
3.) In old versions of Access, I would create a Macro for this and then call the Macro in the form.
4.) I've tried the FindRecord action in the Macro but it does not work. I actually came across several actions that don't seem to be working properly (getting error messages).
5.) In my head, this should be one of the EASIEST things to do. I've done this before in several different databases. I will admit it has been a few years since I have used Access for this (ie. building forms, macros etc.). I've primarly used it to pull in a data set and then run some queries to get the data I need quickly versus using Excel.
I have only one bound text field in my report. By default, it shows the results (150 records ) vertically. I wish to show them horizontally, 5 in a row. How to do this.
View 11 Replies View RelatedOne of my forms has a text box which is bound to a field called teenumber. This form is set up that "on current" has code
If Me.teenumber = 0 Or IsNull(Me.teenumber) Then
Me.teenumber = Nz(DMax("teenumber", "tblteeofftimesshotgun"), 0) + 1
This enables the text box teenumber to be auto filled with sequential numbers growing by 1 for each record. This database is for a golf tournament and this form enables user to set up tee times for shotgun start for the players.
When the user gets to tee number 18 or whatever the last hole on the course is the teenumber field needs to be reset to 1. With the above code I a unable to do this.
Is there a way to create a text default value for a control box that is bound to a number field?
I have a combo box that is bound to an auto number ID but displays text. Bound column = 1, Number of column = 2, Column width = 0; 4cm
I want to use sample text in all my controls (and I know an alternative would be to use the control tip text). In a text box it is easy, I just set the default value to that value and then a before_update event considers the text box empty if the field value is the default value (e.g. Name text box has: Name... as default value). This doesn't work with my combo box since the bound column is a number. I could create a value in the table but then it would appear in the drop box and it is messy.
[URL] .....
I have several combo box fields in a bound form where they are selecting values from a list (values stored in a separate table) and then loading a number into the bound table field when selected.
How can I put a text prompt in these fields when loading the form which gets removed when focused and of course is not permitted to attempt a save into the bound numeric fields? I've done quite a bit of searching but can only find materials about doing this on bound text fields. I've also seen solutions using Nz which don't seem to work.