I have a form with a combo box at the top that works fine. The combo box is linked to a table that has 5 parcels of land with area size, address, type. On my form i need to populate a textbox with a formula depending on what parcel of land was selected at the combo box. Such as price x area of land selected.
View RepliesI am trying to search on EmployeeID field and populate corresponding data like EmployeeName, EmployeePay in other text boxes in the same box .
In my Unbound Form I have three unbound Text Boxes and one Command button:
txtEmpID
txtEmpName
txtEmpPay
cmdFind
In my table EMPLOYEE i have three fields
EmpID -- Autonumber
EmpName -- Text
EmpPay -- Text
I have a form with two text boxes and a button. I want to be able to type a value into the first Text box click the button and the second text box to be filled with the value which is stored in the Table.
The first Textbox is called barTxt, The second Textbox is called CustTxt The button is called SearchBtn and the Table is called BookInTable. I have been trying to use the code.
Code:
Private Sub SearchBtn_Click()
DoCmd.FindRecord Me.BarTxt.Value, , True, , True
CustTxt.Value = "SELECT BookInTable.Customer FROM BookInTable " & _
" WHERE Customer = """ & Nz(Me.BarTxt) & """" & _
" ORDER BY Customer"
End Sub
This however instead of displaying the Value for customer which is stored in the BookInTable. Displays The code SELECT BookInTable.Customer FROMBookInTable " & _ " WHERE Customer = """ & Nz(Me.BarTxt) & """" & _ " ORDER BY Customer"
I have 4 fields that are unbound on a form. img1 img2 img3 img4..When these are entered they are all combined and autofill another unbound textbox = imagename.. what i would like to do is from this unbound textbox 'imagename' ..i would like to populate a textbox that IS bound called FileName
[Event Procedure]
Private Sub imagename_Click()
Me.imagename = Me.FileName
End Sub
I am newish to background coding in access 2010. I have a call log with a form which is where the information on the caller/area is entered. There's a combo box that needs to populate a textbox with 3 different things, depending on whats selected. I'm using If,Then, Else.
The first selection needs to just have the textbox say something. I have that figured out with:
If Me.CboSource = "..." Then
Me.Title = "..." (cboSource = combo, of course, and Title is the textbox.)
Next is where I'm fuzzy....The second selection needs to have the textbox populate with a dropdown list of choices from another table. No matter what I do, nothing is working. My latest attempt is:
ElseIf Me.CboSource = "External" Then
Me.Title = [tablename].[name]
I have a Continuous Form with an Unbound TextBox, its Data property has
Quote:
=DLookUp("price","tblPrices","SupplierID = 1" And "ItemID = [itemID]")
The form Data is based on tblItems..I am getting one price for all the records. I expect to get the correct price for each item.
I have 5 combo boxes that all cascade into the next, and then when the last combo box is updated from the drop down list, it auto-populates a text box. My issue is that I have a second text box that needs to be auto-populated from the same data table based on what has been entered into the 5 combo boxes and the first text box. I've tried creating parameters and setting a lookuprecord macro in my main table and then using a returnvars RunDataMacro on the actual form, but it says, "Invalid list or query reference 'BillingDataQuery'." I'm not sure if it's because I'm not setting that RunDataMacro on the wrong combo box, or if I've written it incorrectly...
I did this same technique (based on directions in a post from this forum) on another combo box that populates five text boxes and it works just fine, but I don't know how to get this to work based on what's populated in 5 combo boxes to auto-populate the last text box.
I need to populate a text box with data from a single cell contained in a table.Im hoping to use two combo boxes that when selected will select the cell. The combo boxes select data sources from the same table. One combo the row the second the column. One combo is already in use and populates several fields in the form. In the same form I'd like to place the second combo and beneath it have a text box that will populate with that cell detail.
View 3 Replies View RelatedI have a continuous subform with an unbound Concat textbox and would like to populate another field for each record with the results with a main form button onClick event.
How do I accomplish this?
I have a form based on a query.On the form I have 4 comboboxes.The combo boxes filter eachother without a problem (based on custom select query).Now I want after the fourth combobox value is selected, I want to populate a text field with a value from a different column from the master query (after the 4 selections only 1 value should be possible)I try to say this easy.Master query contains 5 columns:
- group
- type
- job
- insurance
- charge
combo1 selects group (and filters records)
combo2 selects type (from remaining records and filters again)
combo3 selects job (from remaining records and filters again)
combo4 selects insurance (from remaining records and filters again)
[code]....
This works great and the dropbox only shows 1 OF EACH DIFFERENT record...If I add a text box and want to see the "charge" value, that I thought I could use the ME.text-code. But in order to do this, I have to add the charge column into the query of Combo4.the dropbox for insurance gives me multiple values that are the same. Is there any way to make this work?
I am trying to create a login form with the following three basic fields:
txtUsername
cboUsertype
txtPassword
I would like to be able to populate cboUsertype with User types associated to the user I type into txtUsername. I have found many useful tutorial on the web on login procedures. How ever I hardly found anything on how to populate a combobox after updating a texfield. It bis more than a week that I am trying to find a solution but until now I have just been . I would be grateful if you could provide me with either a link on the web or a vb code to make it work.
I have a simple login form (really just an audit tracking form) that requires the person to enter in their email address and select an office number from a combo box. Essentially, upon first entry, they will put in their email address and select an office number. When they return to the database and put in their email, it will automatically populate the combo box.
I need the text box (EmailLogin) to do 3 things: update an EmailLogin field on a table called EmailLogin (which I already have it set to do), search a field called EMail in a table called Staff, and update a combo box (cboOfficeNumb) below it if it matches an entry from EMail on the Staff table with the field OfficeNumb.
I have the cboOfficeNumb updating the OfficeNumb field on both EmailLogin and Staff tables.I am unsure of how to use a Query to perform the search and use DLookup for the update of the cboOfficeNumb.I am okay with modifying the tables to remove OfficeNumb from the EmailLogin table, as it is really just tertiary.
I am trying to populate the text boxes in a form with data from a table based on the selection a user has made in a combobox. I am trying to do this through a DLOOKUP in the text boxes Control Source using the following:
Code:
=DLookUp("[upMobile]","tblRepName","[tblRepName].[repContactMobile] = " & Str([upRepName].[Text]))
in the form when viewing the data.
I have a form called frmPO based on a table called tblPO One of the fields in tblPO is linked to the field idAddress in the table tblAddresses
The following fields exist in both tblAddresses and tblPO
Company
Address1
Address2
City
ZP
State
The form contains controls for these fields on tblPO. I would like to give the user the choice to either enter a shipping address manually, or selecting a preregistered address from tblAdresses. For this I would like a combo box showing the values of idAddress. I f a user selects a preregistered shipping address, I would like the form to fill the rest of the fields based on the value of this control.
My understanding is that I should set a BeforeUpdate event to set the values of the different controls, unfortunately my command of VBA amounts to 0.
I have two tables: tblWeightTickets and tblWasteType.
I want to create a form: frmWeightTickets, where a user can enter information and the data is stored in tblWeightTickets.
There are two fields in particular that I am working on ... "WasteType" and "Rate".
On the form, I want "WasteType" to be a combobox "cboWasteType" and when I select a type of waste I want the "Rate" textbox on the same form to auto populate with the rate amount for that particular type of waste (i.e. recycling, garbage, etc).
The Rate amount is located in the table: tblWasteType under the field name "Rate". How can I do this and at the same time store the information in the tblWeightTickets? I already have the combo box loaded with the types of waste - I just need it to populate the rate text box and store it in the Weight Tickets table.
I have a form with a button that pops up a datasheet with a number of records. I need the dbl click event to populate a hidden text field with the id of the item that was double clicked.
Ive found the double click even and can get the double click to close the window, but i need to populate the text field as well.
Ok, i have tried and searched but could not find a good start to a solution for my problem.
I have a calendar form, which shows the dates and under it text labels.
Now whenever something is present in my table (tblKalender) on those dates, i want it to show in the text labels under the correct date.
Now, i have the results through a query, but i dont want to link the query to the form. Only thing that i have trouble with now is getting the information i need to show to those labels. I have written some code (early stages) which i want to show me the results for testing, later on i can fill the fields. I keep getting an error saying not enough parameters, expected is 1.
Can anybody take a look at the code or help me with this?
My query for day one is called qerKal1 and the fields i need to get back are the hour and the task. The query gets it's criteria from the label above that day (lbDag1), which shows the date.
I have this code in a module and when the form is opened it runs the fucntion.
Option Compare Database
Option Explicit
Const strSQLWhere1 As String = "" & _
"SELECT qerKal1.Uur, qerkal1.Taak, qerKal1.Datum " & _
"FROM qerKal1 " & _
"WHERE (((qerKal1.Datum) = [Forms]![frmKalender]![lbDag1].[Caption]));"
Public Function fFillDay1()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strSQL As String
Dim strText As String
Dim strText2 As String
strSQL = strSQLWhere1
Set db = CurrentDb
Set rs = db.OpenRecordset(strSQL, dbOpenForwardOnly)
Do Until rs.EOF
If strText = "" Then
strText = rs!Uur
strText2 = rs!Taak
Else
strText = strText & ", " & rs!Uur
strText2 = strText & "," & rs!Taak
End If
rs.MoveNext
Loop
rs.Close
MsgBox strText & strText2
Set rs = Nothing
Set db = Nothing
End Function
hi,
I hope someone can help me here..
I have a form with ID, town and address on it.
I want to beable to type in an ID, press enter then if the ID exists in a query then populate the town and address text boxes with the correct info..
If the ID doesn't exist, then open another form so the user can choose the site from the list..
At the moment I think I am going about it the wrong way :
Private Sub ID_AfterUpdate()
intResult = DCount("*", "Q_findsite", "")
If intResult = 0 Then
Dim stDocName As String
stDocName = "Sites_listbox"
DoCmd.OpenForm stDocName, ,
End If
If intResult = 1 Then
Dim rst
--THIS PART FAILS WITH A RUNTIME 3061.. ?
Set rst = CurrentDb.openrecordset("Select town,address FROM Q_findsite ")
[Forms]![AddFault]![Town] = rst.Fields(0)
[Forms]![AddFault]![Address] = rst.Fields(1)
End If
End Sub
the Q_findsite query is expecting a parameter for ID = [forms]![addfault]![ID]
Is there an easier way of doing this ?
thanking you in advance.
Trying to pull information from a text box on double click to populate a combobox on another form...
keeps coming up "type mismatch"
I call lngAccount as recognised on mouseover... ("Business Account" is the value I want)
I can't get it to work!
For info, the form I'm calling from is a subform located FrmMainMenu/FrmAccountsMainMenu and the control source is [Account]
the form I wish to populate in on FrmTransactions (it is a main form only) and the combobox is cboaccountselect - **I've seen the obvious mistake with no reference to this whatsoever, corrected it, and still not working**
From a info sheet on RTB Using the Add, Clear, and Remove methods, you can dynamically populate the control with embedded objects at run time. Can those 'embedded objects' be controls, e.g. list boxes, labels etc ?
View 3 Replies View RelatedI have a tabbed form from which the user can select a contact's record from a subform on the first tab, click a edit command button, and the unbound text boxes on the top of that tab populate. The user can then click the second tab with employment history which has blank unbound text boxes and another subform which is linked by the contact id to the first tab.
The user can select a record in the second tab, click a command button and the text boxes populate no problem. The problem comes when the user changes the contact on the first tab, and then tries to edit a record on the second tab. Then I get a run-time error '-2147352567 (80020009)' saying the value you entered isn't valid for this field. Why it would work the first time by not the second?
There are two forms invoolved in thi
pfrm_AddClientPrimary
pfrm_AddClientDuplicateCheck
On a command button in pfrm_AddClientDuplicateCheck I have the following code.
Code:
Private Sub cmdAddNewClient_Click()
DoCmd.OpenForm "pfrm_AddClientPrimary"
DoCmd.Close acForm, "pfrm_AddClientDuplicateCheck"
End Sub
This works great
On the onOpen event of the pfrm_AddClientPrimary form I have this code
Code:
Private Sub Form_Open(Cancel As Integer)
Me.FirstName = Forms!pfrm_AddClientDuplicateCheck!txtFirstName
Me.LastName = Forms!pfrm_AddClientDuplicateCheck!txtLastName
Me.SocialInsureanceNumber = Forms!pfrm_AddClientDuplicateCheck!txtSOcialInsureanceNumber
Me.FirstName.SetFocus
End Sub
This fails on the first line with this error
Run-time error 2147352567 (80020009)
You can't assign a value to this object
I am aware of the incorrect spelling of Me.SocialInsureanceNumber this is the way it is in the db.
Hello all,
I have a passthru query which pulls in data from SQL Server for further processing on the agents machine. I would like to create a form with a text box that displays that sql code in it, so they can see it without having to open the query in design view. I would also like to have a button on that form that allows them to save the query, overwriting the previous passthru query, as a new passthru query. Any recommendations?
Thanks!
Vassago
I know how to do this with a combo box. After defining the SQLtext and WClause something like:
with me.cbocombobox
____.rowsource = SQLtext & Wclause
____.requery
end with
How do I (can I?) use the SQL in VBA to populate a text box in a similar manner? I have tried various versions of me.textbox = sqltext & Wclause etc, but to no avail.
Cheers.
Hi,
I have a form that has a list of sitting on when you select a sitting I would like to produce list of centres that are registered with that sitting. I would like to do this by having an unbound text box. I need to do it this way for part two.
So I have
SittingID The user can select a sitting from the combo box of sitting ID. I have this code behind the combo box to look up the sitting details:-
Me.RecordsetClone.FindFirst "[SittingID]=" & Me.cboSittingID
Me.Bookmark = Me.RecordsetClone.Bookmark
I then have a table that holds all the centre that belong to that sitting this table has the Centre ID and the sitting ID I would like the user to select a sitting using the combo box and then the unbox text box populates with:-
CentreName, CentreNumber, VenueName, any idea's how I go about this one. Thanks
I have a form with a text box named HRName.
When I populate a combo box named BusOrgCode, I want to auto-populate the HRName box with the name that corresponds with the Bus Org Code. I get a run time error "2001." Help!
Here's my code:
+++
Private Sub BusOrgCode_AfterUpdate()
Dim strFilter As String
' Evaluate filter before it's passed to DLookup function.
strFilter = "BusOrgCode = " & Me!BusOrgCode
' Look up HR Partner Name and assign it to HRName control.
Me!HRName = DLookup("HRName", "HR by Bus Org Code", strFilter)
Exit_BusOrgCode_AfterUpdate:
Exit Sub
End Sub
+++