I have a form created by using the wizard and selecting fields from a particular table. I have added three unbound fields to this form that are connected to other tables. My question is when I hit the escape key all of the fields that are bound will clear their information. The unbound fields will not clear. I want the unbound fields to clear their information when I hit the escape key as well. Can someone tell me how to do this?
Thanks.
Hi
I have a from with unbound fields on and i have it set up so when you type in the field click the button - it runs a query and finds the records.
I have tried to add a combo box that gets the actual value from the field (avoids people typing wrongly) which it finds the values fine, but the query does not seem to be able to returns to results for that value selected via the combo box.
Any advice would be good?
Thanks
Scott
Can I populate unbound fields on a continious form, if it is possible would you give me some code to look at or direct me to an article
Phil
I have 2 fields in an MS Access form "BTKForm" sending and picking up data form a bank terminal.
Code is executed by clicking a Button on the form.
Field 1, "IssuerID", is an Unbound field picking up a code from the bank terminal. It's numbers between 0 and 100, representing the Card provider.
Field 2 - "IsID", is a value field linked to a table.
I want to take care of (save) (copy) "IssuerID" in to "IsID".
Code:
Public Sub TransferAmount_Click()
Set BAX = CreateObject("BankAxeptSrv.BankAxeptAutomation")
If BAX.Connected And BAX.LicenseVerified And Not BAX.BankMode Then
Dim amnt As Long
Dim cashb As Long
amnt = Round(Amount.Value * 100)
[Code] .....
I have a form with a field that has formula for calculation. However, I am unable to link the field to the table since the control source is my formula.How can I that field to a table?
View 5 Replies View RelatedI total novice at VBA. I am trying to code a button to modify (the last) record in a subform list and then add a new record based on values in unrelated or unbound fields on the button form.
The following code is based on the first of two YouTube tutorials (this bit on the edit) and looks like it should work. Except that my Access 2010 with Visual Basic for Aplication v7 does not recognise the type definition Database or Recordset
Code:
Private Sub ANOwner_Click()
Dim cn As Integer
Dim db As Database
Dim rs As Recordset
Set db = CurrentDb
[Code] .....
I'm trying to build a form based on a table where the user can also enter data to update the table but with data fields not originally in the table. Below is a summary of what I have and what I need:
1.) A file that will be uploaded daily into a Table (ie name Denials extract table).
2.) A form bound to table Denials extract
3.) Additional fields that will be updated by users that is not included in this table b/c they are not available in the system we are getting the data extract from.
4.) The user will look up a key field that will allow them to review it in our system. Once they "work" the record, there will be multiple fields that they will update with this information that are not in the bound recordsource (table Denials extract).
Do I create another table with these fields even though they will be blank at first and make them a subform that will have a "primary key field" that will link the main form with the subform? Will they need to "update" a whole new table? Not really sure how that would work since they will be updating fields not in the bound table.
I have form with an unbound combo box which is populated from a query
It should populate a field in a table which is related to another - however it only works when i query by id number (primary key) and not the text value i want - is it possible to query both so it returns say 1,option 1 - then when selected it will place a 1 in the table - which is related to option 1 in another table instead of just having to select '1' which will mean nothing to a user?
Using DAO recordset, table enters unbound fields data properly for desired records, but adds an extra record which is a duplicate of the first record entered....any known access quirks for adding unwanted records?
View 3 Replies View RelatedWorking on a report that displays multiple pie charts. Each chart is based on a different query. I cannot pull a single query for all charts due to the criteria for each conflicting with each other. Each query is filtered by Fiscal Year based on what I input into my Fiscal Year Filter form. The command button on the FY Filter Form opens the report, set TempVar to the FY field (the criteria for each query), and closed the FY Filter Form. This works as I want it to.
The problem: I have additional fields I want to show up on the form such as number of completed students (WINGED). This number is based on yet another query where all completed students are counted [WingedCount]. I have tried to write an expression to an unbound field that points at this [WingedCount] field but it does not work. Then, I changed the report's source as the query with the [WingedCount] field. This does work, however this is where I run into an issue
I open my FY Filter Form and type in my criteria and select the open command button. However, now I am asked for the criteria again for each chart on the report.
I need a way to input the criteria only once and have all charts populate as well as my count field.
I have attached a jpeg of my current report and will upload jpegs of the needed output following this post.
how can i to save the values entered into unbound text boxes to fields in table
View 2 Replies View RelatedTo make it simple, I have a list of contact names and their email. I want to have a form with no control source and have 2 simple drop down boxes for their Name and their Email. What I would like to happen is the user choose a name from the drop down in field 1 and then the field below auto-populate their email in field 2. I understand I can use conditional IF/THEN and list out each email, but the contact list is ever changing, so I want to first drop down to link to the TblContacts, have the user pick the name from the list and then have the 2nd field autopopulate from that same TblContacts with their email respective to the Name entered in field 1. My form has two field [Traveler] and [Email]...The tblContacts two fields are [Name] and [Email]
Code:
DLookup("[Email]", "tblContact", "[Name] = [frmEmail]![Traveler]")
I have an unbound form with an associated report. When the user hits the 'print' button on the form/screen, the report is launched in the background. In the On Load event of the report I populate the report fields from the forms field as so:
Code:
Me.txtAddrMainLine2 = "NAME " & UCase([Forms]![frm_OrderRx].[txtPatientName])
This works like a charm as long as I call the report in Print Preview mode (i.e. with acViewPreview). But if I send the report directly to the printer, none of the fields print.
I've read about using other report events to populate the fields (e.g., On Format and On Print) and also something about using TempVars to pass the data. But I haven't read anything that's clear and definitive about the full answer.
I am running in to a brick wall with this. I have an unbound text box with the control source set to =IIF([text42]=0,0,[text42]/[text44])*100 and in continues to return a #name? error.
I am not sure how to get this expression to work. I have even tried to put =[text42]/[text44] and I still get the #name? error.
Ive been looking through the posts to see the merits of using bound and unbound forms. I have the following scenario and think that a unbound form would be best solution, what does anyone else think?
I have carried out normalisation of the system and have ended up with two identical tables called Broad themes, one of these tables relates to a documents theme, one to a organisations theme. Organisations and documents are both directly related in the table structure making it impossible to just use one Broad themes table (Circular).
I want to give the user an option form to enter the relevant criteria into unbound text boxes then select using an option group which table to enter information into or option to insert into both tables.
Is this where a unbound form would be most appropriate?
I use form to enter a reservation for our kennel. I've put an unbound box to enter a run number. We print out a daily report showing who's coming in, but have drawn a block on how to get the number in the unbound box to print. How do I link the box to the report? Thanks
View 2 Replies View RelatedI didnt write here alot of time,
so my english became less.
here is my question
I have an unbound form
In the form there are 40 textboxes.
There names are like this:
A1
A2
A3
A4
When I open the form I wrote code like this:
For I = 1 to 40
If
. Then
*****************
I WANT TO WRITE IN THE TEXTBOX
BUT I DONT KNOW WHAT IS THE I VALUE
IF I WROTE A & i
ITS DOSENT WORK
WHAT CAN I DO?
******************
End if
next
thanks!
Hi, I have a unbound text box in a form. i would like it to display the total value of other text boxes in the same form. The other boxes are bound to a table. please advise
Pieter
Hi
I have a unbound text box on a form. I am using code to complete a search, each time a letter is input into the text box the code runs. My problem is that I am only able to input one letter in the text box. Has anyone any ideas why this is!
Code I am using:
Function FilterForm()
Dim strFil As String
Dim strNewRecord As String
Dim strSupplier As String
Dim strTp As String
Dim db As DAO.Database
Dim qdf As DAO.QueryDef
Set db = CurrentDb
If Not QueryExists("qryProductSelect") Then
Set qdf = db.CreateQueryDef("qryProductSelect")
Else
Set qdf = db.QueryDefs("qryProductSelect")
End If
If IsNull(Forms!frmCapitalGoods!ctlSubForm.Form!ctlSu bForm.Form!txtFind.Value) Then
strFil = " Like '*' "
Else
strFil = " Like '*" & Forms!frmCapitalGoods!ctlSubForm.Form!ctlSubForm.F orm!txtFind.Value & "*'"
End If
strNewRecord = "SELECT tblProduct.* " & _
"FROM tblProduct " & _
"WHERE tblProduct.Product_Name" & strFil & ""
qdf.SQL = strNewRecord
DoCmd.Echo False
If Application.SysCmd(acSysCmdGetObjectState, acQuery, "qryProductSelect") = acObjStateOpen Then
DoCmd.Close acQuery, "qryProductSelect"
End If
Forms!frmCapitalGoods!ctlSubForm.Form!ctlSubForm.F orm!.RecordSource = "qryProductSelect"
Set qdf = Nothing
Set db = Nothing
End Function
hi
i've created a unbound text box and for my default value i've put the path of a spreadsheet i wanna import.
How would i get my macro to select fromt the form as apposed to the default path i put in manually.
Hello Learned Friends,
I have an unbound form with start date and end date text boxes. The code behind the form allows a combination of dates to produce a report, but only one named report. I would like, with your help, to give the user a choice of reports to preview and/or print. Thank you in advance for divulging your knowledge.
I have a form that calls up an employee that also lists their hire date. I have an unbound text box that calculates the years of service by DateDiff(). It works for the first record but sticks for all the subsequent records. I've tried an afterUpdate or Change on the bound Hire_Date text box that is Me.txtYearsOfService = DateDiff("yyyy",Me.Hire_Date,Now) but it still sticks to the first record.
I'm sure this is basic but can't see the obvious. Please relieve the pain.
Thanks
This is a stupid problem, but I just can't seem to figure it out (some days I am smarter than others).
I have a form with three unbound comboboxs that are synchornized so that what you select in the first combobox changes your options in the 2nd and 3rd boxs. My problem is that I want to record the selections made in the unbound comboboxes in the table attached to the form, but cannot seem to make it work. Help!! :confused:
I am using Access 2000.
Thanks.
newbie question
Is there anyway to bound an unbound text box to a print command button ?
Hello all
I'm new to Access so sorry if this is stupid - I have looked everywhere!
I have an unbound combo box on a form that is populated in the onload event of the form by setting the rowsource to a query based on the companyID on the form. The query gets me a list of contacts at that company.
So, after the form is loaded the combo box (if dropped down) might show:
1 Fred Smith
7 Jim Jones
9 Arthur Askey
The first column contains the ContactID.
My question is .... when the form loads I know the ContactID of the person I am looking at. If that person is 'Jim Jones' and I have a field on the form which contains Jim Jones ContactID of 7 - how can I get the combo box to be showing the 'Jim Jones' row?
(I don't what to bind the combo box to anything as I want to use it just to filter which contact I am looking at - not change the ContactID)
I guess I want to loop through the combo box saying 'If the contactID of this row = the ContactID on the form - select this row' - but I can't find the syntax anywhere.
Thanks for any help.
I am trying to save data from an unbound form to a table based on "VBAUnbound.zip" posted by sbaxter.
The Code looks like this:
Code:Private Sub cmd_ip_save_Click()'Error Handling On Error GoTo cmd_ip_save_Click_Err' Declare Variables Dim DAOdb As database Dim DAOrs As DAO.Recordset' Update Database Set DAOdb = CurrentDb t = "M_Paint" Set DAOrs = db.OpenRecordset(t) With DAOrs .AddNew .Fields("Catalogue_Code") = Me.txb_ip_cataloguecode .Fields("Base_Metal") = Me.cmb_ip_basemetal .Fields("Paint_Type") = Me.cmb_ip_painttype .Fields("Color_Family") = Me.cmb_ip_colorfamily .Fields("Metallic") = Me.cbx_ip_metallic .Fields("Surface_Quality") = Me.cmb_ip_surfacequality .Fields("Number_of_Coats") = Me.txb_ip_numberofcoats .Fields("Supplier") = Me.txb_ip_supplier .Fields("Product_Name") = Me.txb_ip_productname .Fields("Color_Name") = Me.txb_ip_colorname .Fields("Color_Number") = Me.txb_ip_colornumber .Fields("Top_Coat") = Me.txb_ip_topcoat .Fields("Pre_Finish_I") = Me.txb_ip_prefinish1 .Fields("Pre_Finish_II") = Me.txb_ip_prefinish2 .Fields("Finish_Comments") = Me.txb_ip_finishcomments .Fields("Size") = Me.txb_ip_size .Fields("Number_of_Samples") = Me.txb_ip_numberofsamples .Fields("Compilation") = Me.cbx_ip_compilation .Fields("Location") = Me.txb_ip_location .Fields("Date_Received") = Me.txb_ip_datereceived .Update End With' Message box MsgBox Me.txb_ip_cataloguecode & " Added" DAOrs.Close DAOdb.Close' Exitcmd_ip_save_Click_Exit: Exit Sub ' Error notificationcmd_ip_save_Click_Err: MsgBox "An unexpected error hass occurred." _ & vbCrLf & "Procedure: cmd_ip_save_Click" _ & vbCrLf & "Error Number: " & Err.Number _ & vbCrLf & "Error Description:" & Err.Description _ , vbCritical, "Error" Resume cmd_ip_save_Click_ExitEnd Sub
I am getting an error "Runtime Error '424' Object required" at this line:
Set DAOrs = db.OpenRecordset(t)
When I hover my mouse over "DAOrs" it flags a messages saying "DAOrs = Nothing".
What does that mean? Can anyone help??