I have several forms that can be called from more than one other form, but I need to build my forms so that the user is returned to the form from which they started.
I have looked in the help files and FAQ and I can't find what I am looking for.
Please, can someone direct met to the required information or tell me how to achieve this?
Thanks,
Kev.
I am wanting to make a text box on a form, to return a number (amount of records returned by a query)basically so if the query returns 5 records, the text box on the form will show"5",
Lets say the form is called "A", and the query is called "B" .How do I put this in the source control of the textbox ? < if this is right too ?
Is the calling Form name or the event handler's sub name available in called module? I need it in order to determine the form's name as in [Forms]!someformname!some control.
View 7 Replies View RelatedIs there an easy way to propogate a value from one form to another?
I have two forms: Form A and Form B
Form A is the main: it contains many field including a Supplier CB.
Form B allows the user to add a new supplier if it is not on the list..
Form A allow user to pick a list from the table of suppliers. I allowed edit ietm list in the properties to add the list of suppliers to grow as new supplier are entered. I pointed the user to Form B ton enter the new supplier.
Things going well as I planed, however it is annoying when I enter the new supplier in Form A and respond "yes" to add new items I have to retype the new supplier in Form B again. I have about 11 fields in Form A that will follow this theme. This will not be user friendly if not fixed.
:eek: :eek: :eek: :eek: :eek: :confused: :confused: :confused:
I am trying to update a database table via a command button on the main form, that uses tabbed sub forms.
The database gets its data from paradox data tables copied our company's
third-party software. These table files are copied from one location to another to stop the paradox database from locking up and giving me errors during the import process of this database. I then link to these files at a pre-determined location on a local computer hard drive.
When I try to run the code below I get the error about the table being
locked by a user or process. As you can see I have tried adding a pause
incase the files are still being copied but this does not seem to be the
problem.
I have used a msg box to confirm that the copying process has completed before starting the make query, but the same error comes up after I click ok.
Can anyone suggest anything else.
As you can see from the simplicity of the code below I am a beginner so take it easy on me, by not taking knowledge for granted. :)
code:
------------------------------------------------------------
Dim response
Dim stDocName As String
Dim stLinkCriteria As String
response = MsgBox("Are you sure that you want to update xxx with Customer
data from xxx?", vbYesNo, "Perform Update")
If response = vbYes Then
‘pause software to let any pending work to be completed
Sleep (5000)
‘close active form
DoCmd.Close
‘close all active forms
Do While Forms.Count > 0
DoCmd.Close acForm, Forms(0).Name
Loop
‘pause software to let any pending work to be completed
Sleep (30000)
‘delete existing file
Kill "c:folderfile DATA.DB"
‘replace with new file
FileCopy "J:Folderew_DATA.DB", " c:folderfile DATA.DB "
‘pause software to let any pending work to be completed
Sleep (40000)
DoCmd.SetWarnings False
stDocName = "Make_DATA"
DoCmd.OpenQuery stDocName, acNormal, acEdit
‘pause software to let any pending work to be completed
Sleep (35000)
stDocName = "Make_DATA_SUMMARY"
DoCmd.OpenQuery stDocName, acNormal, acEdit
‘pause software to let any pending work to be completed
Sleep (35000)
stDocName = "qry_Update_ Status"
DoCmd.OpenQuery stDocName, acNormal, acEdit
‘pause software to let any pending work to be completed
Sleep (35000)
‘open up main form when finsihed
stDocName = "main-form"
DoCmd.OpenForm stDocName, , , stLinkCriteria
DoCmd.SetWarnings True
Else
End If
I am struggling trying to execute a function inside a Form_current event to display some stats.
The Function is this:
Code:
Function FlightsByAircraft(Aircraft As Long) As Long
Dim rst As DAO.Recordset
Dim dbs As DAO.Database
Dim str As String
str = "SELECT * FROM tblFlights WHERE AircraftID = " & Aircraft
[Code] ....
The code for the Form_Current event is this:
Private Sub Form_Current()
txtStats1 = FlightsByAircraft(Me.AircraftID)
Very simple. Well, the problem is when I move to a new record, a error message comes up: "Run-time error '94' - Invalid use of Null". It is because the AircraftID is not populated at that time. I tried to insert in the function code something like that:
Code:
If IsNull(Aircraft) then
exit function
else
.... (the DAO.Recordset code)
but it doesn't work.
how to make my form controls change size / position as my form is resized / loaded on a computer with a different resolution. Several of the tutorials out there suggest putting code on the "on resize" property of the form. When I looked at the Northwind database to try to mimic their code however, it looks like they must be doing something different as there is no on resize code under the form properties and I was unable to find the code they do use.
View 4 Replies View RelatedHi,
In Visual Basic of the form,
Suppose I have a form "na",
I want to create another form using the VB, the form style and format as sama as the "na", all the fields are same, same positions.
Dim frm As Form
Set frm = CreateForm(, "na")
DoCmd.Restore
frm.RecordSource = "na"
I tried these code, the code is created based on "na", but it still needs to add the fields, and it will automatically open the design view to design, i want to VB to copy the "na" design to the new form.
How can I write? Does VB copy the same design and format to the new form?
Please let me know,
Thanks.
I have a form, containing a subform.
The form displays various fields for the user to enter order details.
The subform is populated with all previous deals for the person whose deal is being recorded. This subform is purely for display purposes and the data shown cannot be edited.
The problems I have are:
1) When a user clicks anywhere on the subform. They can tab through the fields or scroll around the subform without any problems. However, when they try to return to the main form, all controls on it appear to be locked.
2) Clicking on the subform removes focus from the main form, so saves the record being edited on the form. This is a big problem, as the order may be in error and/or incomplete. I only want the user to be able to save or cancel the record, using specific buttons on the main form.
Is there any property for the sub form I can set to prevent the above from happening?
Thanks in advance.
I have a bound form which opens as a new record. If I accidently press carriage return by mistake whilst entering it goes to another new record, how do I stop this behaviour?
I only want the record to save with the click of a button.
regards in advance
Peter
Hi,
I am not much familiar with VB Coding.Can any body please help me with this Please:When i click on submit button,it has to show the query results on the Form.Please find the below code:
Private Sub Command_Click()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strSql As String
Set db = CurrentDb
strSql = "SELECT Interface.[Interface ID], Interface.[Interface Name] from [Interface]"
Set rs = db.OpenRecordset(strSql)
Do While Not rs.EOF
Debug.Print ("Interface ID: " & rs![Interface ID] & "Interface Name: " & rs![Interface Name])
rs.MoveNext
Loop
rs.Close
db.Close
End Sub
#######################
It is not retrieving any thing.IF my code is wrong,Please advice me with the necessary steps to view the results on the form,when we clicl on the submit button.
Thanks,
Kanuri
Is there a common answer or design mistake that would cause a form to return a different (much higher) record set than that if the query is ran by itself. The query is the control source for the form.
View 3 Replies View RelatedA quick question that I'm sure one of you guys will be able to answer without any trouble, but I'm having difficulty with...
I have a form on which I would like to have a text box which returns the size of a file on my PC. The file path will not change.
Any ideas would be appreciated.
Thanks in advance.
As the title says - I am getting a Return without GoSub error for every button on a particular form. Nothing has changed (that I'm aware of anyway) and now it is happening.
The only possible thought I had is I have one user using 2003 and all others using 2000 - could that have anything to do with it?
Thanks
I am trying to create a multi-user web-based database where all users log-in and see different forms based on a field in the user table.
I am trying to use a DLookup to return the name of the Form I want open based on the command box that shows the userID and UserName
DoCmd.OpenForm , acNormal, DLookup("field", "table", "[UserID]=" & Me.cboName.Value)
cboName row source
SELECT [table].[UserID], [table].[UserName] FROM table ORDER BY [UserID]
I have a form that displays multiple records in datasheet view. I want to query off of that form and return all results for all records being displayed. However, I'm not sure how to tell Access to do this. Access instead wants to return records for only the first displayed record in the form or the record that is highlighted by the cursor.
In the attached image you can see a list of AccountingUnits (AU) going down. My query using AU from the form as criteria will only return records for AU 114510 since it is the first record, but I would like to see records for all AU's being displayed by the form. How can I do this?
I have a Query of dates and I need to have those dates return onto a from horizontally?
View 1 Replies View RelatedI have already made a query with all the information needed. What I am trying to do is create a form where a user can open the database and enter a unique number and have information from 10 fields associated with that number show.
View 5 Replies View RelatedI have a bound form that is used to enter company info (address, name, category...etc). When the user closes the form, if Company name, province or category are left blank, I warn them with a message box asking if they want to exit and undo changes, or return to the form to fill in the missing info.
When they choose the option of returning to the form, I get 2 errors. You must enter a value in "tblCompanies.category", and "You can't save the record at this time, do you want to exit without saving?". If I click "No" on the second warning, focus is set to the missing data control and I can continue working.
How can I prevent the record from being saved when I choose to return to the form to fill in the blank records?
Code:
Private Sub Form_BeforeUpdate(Cancel As Integer)
On Error GoTo Form_BeforeUpdate_Error
Dim Response As Integer
' Determine if required fields are populated.
If IsNull(Me.txtCompanyName) Then
Response = MsgBox("Company name is a required field. Do you wish to discard changes and exit?", vbYesNo,
[Code] ....
I did export the table data into a tabbed delimited format and will include that at the end. If you want to reproduce my bug copy that data in a txt file and import that into the table tblMain. Make a search form and a sub form. the sub form is linked to the table and the main form is unbound with two search buttons.
Problem Statement:The code works fine. I did find a bug that seems to arise with the wild cards when the entire field values are entered. You can replicate the bug by testing the search criteria listed below.
This is a brief example of the bug. A detailed description is near the code below.
If my name is "Devtycoon" and I search "Dev" the SQL statement will build "*Dev*" and it will pull up my name, "Devtycoon". On the contrary if I search "Tycoon" the SQL statement will build "*tycoon*" and it will pull up my name, "Devtycoon". If i search "DevTycoon" the sql statement will build "*Devtycoon*" and no results will be returned. That is buggy because the name is in the database but no wildcards would be needed.
Table structure:
tblMain
ClientID
Surname [text]
Organization [text]
ProgramTitle [text]
City [text]
State[text]
Zip4 [text]
Telephone [text]
Form1 contains the controls for search criteria. Three text box controls are used to filter a sub form control called "DS". The sub form is called sFrmMain and is a datasheet that shows results of the search. there is a button that runs the code and another button that clears search criteria and shows all records. Both button's code set the sub form's record source using an SQL string built using a function that returns a segment of the overall search string using the contents of each control that then is concatenated into a SQL statement used to set the record source.
There is a function for the following components of the SQL statement
SELECT / FROM
WHERE
controlA = me.txtSurname
controlB = me.txtOrganization
controlC = me.txtProgramTitle
This is how you can replicate the bug.
I tested two additional surnames organizations and program titles as follows:
Try example (1). you will get both the 4's and the 14's records returned.
If you type in letter for letter of the second record (the one with the 14's) no records populate. It is like the wild card does not like it if you type in the entire field value. Uncle Gizmo's and Allen Brown's method do the same thing were no records populate if the 14's entire surname organization and program title are entered into the text controls. Can you reproduce this error? Other than that I think either method is bulletproof.
Example criteria
1) put the following criteria in each control then hit the search button
4 surname
4 organization
4 program title
[two records returned]
2) put the following criteria in each control then hit the search button
[no records returned]
14 surname 14
14 organization 14
14 program title 14
Code behind search form:
Code:
Option Compare Database
Option Explicit
Private Sub cmdShowallRecords_Click()
Dim strSQL0 As String
Me.txtOrganization = ""
Me.txtProgramTitle = ""
Me.txtSurName = ""
strSQL0 = fSQL_SelectFrom & fWhere & fSurName & fOrganization & fProgramTitle
Me.DS.Form.RecordSource = Left(strSQL0, Len(strSQL0) - 5) & ")"
[code]....
First, I am trying to get a query to return records between a certain date range. In the form I have DateFrom and DateTo unbound text boxes from which faculty select the date range. I know I have done this before, but I cant figure out how to create a field name and write the criteria for the source query in design mode!
I tried [Form]![FormName]![DateFrom]<[Form]![FormName]![DateTo] in the criteria but I can't seem to write a valid field name that doesn't alter the criteria in some way...
Second, in the same form, faculty enter the StudentID for the student they wish to get records for. How do I write the code to show a msgbox when there is no such ID in the event they enter an StudentID incorrectly.
All using access 2010. Here's the situation. I built a searchform according to datapigtechnologies video. Used a query with criterias on fields i want to search on the form: ex.
Code:
Like [frm]![frmMyform]![MyField]
It worked fine i thought until i ran the same query outside the form without the criteria field. I filtered the query for the same result and the one used on the search form did not return all data records for that particular result set. Ex. on the searchform; I select the fields I wanted to filter then ran the query. I come up with only 9 records when it should be 18 I get with running the exact same query without the criteria and manually filter the results.
I have a subformClientOffers on my frmAllProperties. On the subformClientOffers is a field called Outside Agents. This field allows for multiple values to be selected.
The subfrmClientOffers is in datasheet view.
While the field Outside Agents DOES allow me to select more than one, they post in the field one after another:
Ken Shaw, John Doe, Jane Doe, Harlan Bestlyn
Therefore, the datasheet view of the subformClientOffers causes the field Outside Agents to get very long, much too long to view without scrolling. My client wishes for everything on the frmAllProperties to be viewable without scrolling.
Is there anyway, to cause the field Outside Agents to place a return between each selected name (sort of a wrap text kind of thing)?
One thing I might mention is that the field is a drop down field from tblOutsideAgents. The table itself has First Name and Last Name, but I concatenated that into Fullname on the form, so that when the user opens the drop down they see the entire name. I don't know if that would have any effect on making the 'return' thing work or not.
I can't use this field as a subdatasheet because I already have one subdatasheet attached to the subform to show multiple notes on each Client Offer.
hi i am making a database and i need some help trying to make this form if anyone can tell me how to make this form can you MSG me!!!!!!!!!!!!!!!!!!!
i trying to make this Form
http://office.microsoft.com/en-au/templates/TC010178391033.aspx?CategoryID=CT011366681033
it the CALLS tab on the form
anyway thanks for trying to helping out if you dont know how to do it
I have 3 tables.
1. Bulding numbers....1 to 15
2. Rooms....each bldg. has 22 rooms so altogether 650 rooms
3. Maintenance work...for each room every maintenance work
Now I need form where by choosing room# I can found what work was done.
I would post a file but it excedees 100kb
thank you
Here is my sample DBA
I'd like to solve this issue
when I open my Quotations form I'd like a set of services to be selected by default, ex: Brush and Pen. So the user only has to input the quote amount
is there anyway to have the form open with a script like:
"on open (or on load). in subform SELECT refproduct where product from tblproducts = 1 and also SELECT refproduct where product from tblproducts = 4"
Therefore when my main form opens, in the subform I have already Brush on the 1st line selected and pen on the 2nd. My user only has to type the price.
Thanks for your much appreciated help