Can You Populate A Unbound Continious Form
Feb 18, 2005Can you populate a unbound continuous form. If yes how do I do it
Phil.t
Can you populate a unbound continuous form. If yes how do I do it
Phil.t
I'm trying to populate a form textbox which is unbound.
I have table with a list of peoples login names and a query filtering these names once a user logs in. If the GetUserName() matches one of the names in the table then user is authorised. this part seems to be working fine. User not on the GetUserName() list the filter says blank ie Not Authorized.
How to take this confirmed user name and place it into a textbox on a form?
Table name: [tblUserNames] with [IngEmpID] & [UserName]
Query Name: [qryUserNames] with a Criteria GetUserName()
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 found a few regarding continuous form data but its not the sample that fits.
Attached here is my screen shot and my accdb file (MSAccess 2013)
How do they populate unbound continuous form from msaccess connecting to mysql server.
It should display 5 data but in my case it does show only one data.
What really is the best way, programming-wise and user experience-wise when presenting records in a form:
1) Use the form with sub-forms to show records. Add new records via a popup form and use recordsets in VBA to allow validating.
2) Use unbound controls on a form and populate with pure VBA recordsets. For data with more than one row use list boxes. A popup form used for adding new or editing etc using VBA.
3) Another I haven't thought of; new or a combination of above?
Is there any particular reason I would choose to use
DoCmd.RunSQL "insert into...
Versus
CurrentDb.Execute "insert into.... ??
I am using an unbound form on the front end of my database to populate the backend tables (multiple tables). Some forms only have a few fields, while other forms have about 15 fields with 3-4 tables updating.
I am okay using the DoCmn.RunSQL , but I keeping reading on the forum that others chose CurrentDB.Execute and it has me thinking.
My database is stored on a network drive with only on front end.
Hi All,
I have a continious form that displays over 500 records. Is there a way to sort through this form based on hitting a key, or indexing the alphabet...or maybe even another idea (for a given field)...in an effort to get me to a record needed quicker.
If that's not clear, in other words...I need to be able to jump through the continious form in a quick fashion, so if I'm searching departments, I don't need to scroll through the whole form to get to the Departments that start with "t"...I hope that's better.
Thanks in advance,
Josh
Hi All,
I have a continious form where each record can be edited. After editing a record the form does a me.save and a me.requery (is important). After this it jumps back to the first record (seems logical), but how can I write a code that he goes back to the 'previous edited record'.
Thanks.
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]")
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 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 am using an unbound combo box to pre populate my field
Example: on my form if I select a post code prefix AB1 it is returning a value 2AB the second half field of the form.
The form works for me however it does not return any value for the second half on my table.
I have a form with a textbox which when users enter a unique number(barcode) I want to run a query which pics up the barcode number, checks against the product id and fills the subform with the name of the product and price.
The basic details of the product table is like:
product id (Autonumber)
prdoduct name (text)
price
barcodeId (number)
The subform where i want the result to go is the order details fields product name and price.
I am trying to figure out how to do this but my mind keeps going blank, its been a long while since i used ms access.
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?
I am populating a table using combo boxes in a continuous form. The box box alone works fine without any issue of repeated data. But as you know obviously the combo box only populates data in a single column of the table, in which case mine is the LASTNAME; so now I am attempting to populate a unbound textbox with the FIRSTNAME side-by-side with the combo box for the same record.
In the After Update event of the cboLASTNAME:
Code:
Me.txtFIRSTNAME = Me.cboLASTNAME.Column(3)
However, after updating the the combo the textbox data is repeated.
Is there a possible solution to this?
I 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?
I think I've solved a method to have cascading comboboxes on a continous subfrom.
The after update on the first box sets the query the drives the secondbox's rowsource, and blanks out all the boxes below it. And so on.
Dim EventTP As String
EventTP = Me.cbxClass1
Me.cbxClass2.RowSource = "SELECT distinct Class2 FROM tblEventTypes WHERE (((class1)='" & EventTP & "'));"
Me.cbxClass2 = ""
Me.cbxClass3 = ""
Me.cbxClass4 = ""
All of the comboboxes are fed by one table.
Comments?
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
Access 2007
Unbound Form
I have a onclick tied to a label (for decoration purposes) that when clicked it launches VBA that essentially updates a form. All that part works except it will not recognize any changed value of the field I was last in?
Just to try to explain best as I can what happens.
- Form gets opened
- I change field (quantity field)
- I click the Label
- It reverts to pre-existing value.
if I click off of the text field first then do the onclick - it recognizes just fine.
I 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!
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 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 have a continuous form that displays all my customers .I want to be able to dble click a customers ID and go to there customer details form.
View 14 Replies View RelatedHi Everyone,
I will do my best to try and explain what I am trying to accomplish.
I have a form that has two fields [NumbX] and [NumbY]
They way they display on my form is [Numbx] of [NumbY]. These two field show which transaction of the total number of transactions. So basically if someone comes in to do a transaction, they could be doing just one ([NumbX =1] and [NumbY] =1). If they are doing 3 transactions the fields would be [NumbX]=1 and [NumbY]=3. As they complete subsequent transactions [NumbX] increased incrementally, until X =Y.
Every transaction ends with a Print Form opening and the user confirming the printing of the transaction. In the print form I have coded it to clear the main form once X= Y otherwise retain some of the information input in some of the fields for the subsequent transactions. Right now, I have it set up that the user inputs [NumbX] manually. What I would like to do is have that automatically increase by 1 when the print form closes. This should continue until [NumbX]=[NumbY].
The fields are unbound and used solely for driving other activity (opening other forms) so autonumber is not an option.
Any suggestions??
Thanks
I am trying to troubleshoot a form and I am at wits end with it. :eek: I hope someone can help me.
There is a form whose record source is based on a query. When it opens it loads all the records. At the bottom of the form, there is an unbound text box that is used as a filter. The person is suppose to be able to type something in there and then once the cmd button is pressed it filters bases on the value of that text box. That appears to work fine.
The problem is, when the form loads, the unbound text box is locked. It does not allow anyone to type in it.
I checked form properties and also the text box property and it is not locked. I have added code on the getFocus, OnLoad, OnUpdate..ect, to make the properties of that text box unlock it self. I have had no success with that.
I did notice that after the form loads and I hit Design view and then change back to Form view, the text box is unlocked and allows typing. :confused:
Why then does it allow editing, but not on initial load. Any help would be wonderful. If further explanation is necessary, please ask.
Thank you
Hello all,
Need your help again.
I have an unbound form with text boxes and 1 check box.
I created a module named Reset;
Private Sub Reset()
[Sales].Value = ""
[Corporate].Value = ""
[EndDate].Value = ""
End Sub
1) I linked this module to a macro so that on clicking a button, the macro runs the module and closes it, but it's not working.
in my macro, I have open module: Reset
I also have clode module= Object: Module, Name: Reset
But this is not working
2) Also, how do I clear the check box?
Thanks again for the help.