i have an unbound image in my form.
i added after the update event of my combo box
Me.OLEUnbound3.SourceObject = Me.PicLink.Value
Did not work.
this is what appears in the piclink filed
"C:photo1150.jpg"
any help
thanl yo
Mark
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
I have a report with an unbound checkbox which has a null (greyed out value) when printed. I'm just trying to set it to false when the report opens.I have
Code:
Private Sub Report_Open(Cancel As Integer)
Me.CheckNotPaid = False
End Sub
but it just says 'Runtime Error -214..You can't assign a value to this object'
To 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 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.
I have a program that runs under access 2007 that I use at my work. We will soon be updating to MS office 2010 and the program will not work now because a calender file .ocx was removed from access 2010. Is there a way to get the 2007 .ocx file to work in access 2010?The program I am using is a relatively simple stand-alone and unsupported app that we use to request patient arrival and departure from various radiology tests inside a hospital. No reports are made from the app other than the number of patient transports for the day.
The app is placed on a common drive accessed from any pc in the hospital. No special permissions are required. But our app does use the calendar, time and date functions in access 2007. When I tried the app on a pc with access 2010, it basically says it (access) cannot open the app because a .ocx file is not present.Is there a way to make the access 2010 calendar file work in access 2007?
I have an Access 2010 database with two tables and two forms. The tables are Organizations and People. Similarly, the forms are Organizations Entry Form and PeopleEntryForm. The People are linked to the Organizations table. Several people can be linked to the same organization.On my Organizations EntryForm, I created a command button to duplicate a record using the wizard. It works fine.
I did exactly the same thing on the PeopleEntryForm, but instead of copying the record, it creates a new blank record. I don't get any error messages. Is my problem due to the fact that the People table is linked to the Organizations table?
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
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'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??
I used the sample of the Unbound Form from this form for my application and it works perfectly. Now I try to have 2 subforms in a Main form(Unbound form) and want to use the idea of unbound form to design these two subform. But I don't know how to start.
Any suggestion to lead would be appreciated.
Thanks.
My Main looks similarly to the Order form in NorthWind db sample which has 2 subform.
I have a form (frmMain) that references a table (tblMain). The table contains five fields (MonInv, TueInv, WedInv, ThuInv, and FriInv).
I have an unbound field (Text2) which calculates the totals of those fields.
Here's the equation in the control source:
=(MonInv+TueInv+WedInv+ThuInv+FriInv)
My problem is Text2 displays #Name.
Is something wrong with the equation.
I've got a main form with a subform on it. I am in the process of converting all the forms from bound to unbound. Currently the subform is populated by a link from Employee ID. How do I link the subform to the main form when the main and subforms become unbound?
Thanks in advance,
Recall.
i really need some help with this... heres the background. I have an unbound search combo box in the header of my form. when users select the PCNo from this combo box, i need the associated container no to appear in a control on a bound form.. below are my tables:
tblShipping
ShipID (PK)
PCNo
tblContainer
ContainerID(PK)
ShipID (FK)
ContainerNo - (data to be displayed on form)
how can i pull up and display the container no (stored in tblContainer) based on the PC No that a user selects from this combo box?
i have got the combobox working fine - the users can select a PC No that is already stored. what i need now is for the Container No to be displayed on this form, based on the PC No.
I said I was a dummy, but here goes.
I am designing a customer information form, the form has an unbound combo box showing customer names and when clicked opens the customer record.
My problem is when I enter a new record, I have a button that saves current and opens new, but when I am in the new record, the customer I just added previously is not showing up on the unbound control, only when I close the form completely and re-open it.
Is there a code to update the unbound combo box when you click to go to new record.
hey all i was wondering, can a unbound text box be a bound textbox. I have just noticed that my unbound text box doesnt not save in the field in my table, that is because it is unboune right? but i need it to save to my table, and i guees the only way to do that is to save in in the save button right? thanks
View 2 Replies View Related