I have witten a code in the close event of a "Primary" form that would update a Combo boxe on a "secondary" form only if the "secondary" form is open.
ie:
Private Sub Form_Close()
If Forms!frmEnquiry.Open Then
Forms!frmEnquiry!CboCustomer.Requery
Else
DoCmd.Close
End If
End Sub
This code keeps giving me an error, is anybody has got any idea why?
Thanks in advance.
I used the following code in the on close event of my form and it works when the value of [maingameformation.playid] is not previously entered but if there is already a value there it won't overide it? Is this possible to do?
Private Sub Form_Close()
[Forms]![gameentryfrm]![maingameformation.playid] = Me.playid
End Sub
Hi all - Having a problem getting my macro to run with the ON CLOSE event of a form. Before users exit the form (or database completely), I want the macro to run. The macro is designed to run an update query that updates 3 fields in my main table. Right now, the macro runs and but it only updates 2 of the 3 fields. It's as if the database closes before the update query gets a chance to finish. Any ideas on this?
Thanks,
Dan
Hi all
On closing a report, I am prompted to save it (because I've changed a record source when it opened)
However, I don't want to save it.
Is there an command I could use during the on close event (or something similar) to get rid of the prompts??
Thanks
I am using the following dialog box to ask whether or not the user wants to print the report in the Close event of a report. I really need help finishing the code. As the user presses "X" to close the report, I would it to be that if the user says yes...the report prints. If the user says no...the report closes.:cool:
Private Sub Report_Close()
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "Print the Report?"
Style = vbYesNo + vbQuestion
Title = "Report"
Help = "DEMO.HLP"
Ctxt = 5000
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then
Is there a way to cancel a form's close event? If a user clicks the form's close button, I want a msgbox to ask if they are sure, and if yes continue and close, else cancel the forms close event. I know how to perform the msgbox and the if statement. I can not figure out how to cancel the form's close event.
View 2 Replies View RelatedWorks great, but when I hit the number "3", (3 times in row) it will let me into the form. I want it to not let me in IF I don't know the password.
Where did I go wrong?
Private Sub Form_Load()
Dim pw As Variant
If InputBox("What is the password?", "Password") = "1" Then
Else
MsgBox "Invalid Password", vbCritical, "Sorry Charlie"
DoCmd.Close
If InputBox("What is the password?", "Password") = "2" Then
Else
MsgBox "Invalid Password", vbCritical, "Sorry Charlie"
DoCmd.Close
End If
End If
End Sub
I am working with 2 forms and a subform.
frmTaskTracker -subfrmInbox (Datasheet View - based on a query)
frmUpdateInboxItem
subfrmInbox displays a summary of tasks on a task list. The user navigates to frmUpdateInboxItem from frmTaskTracker. After updating a record from frmUpdateInboxItem, it is possible that it the record in question will no longer meet the requirements to have it listed on subfrmInbox.
I have attempted to add code to the on close event of frmUpdateInboxItem to requery the sub form on frmTaskTracker but am not getting the syntax correct.
correct my code? Alternatively is there is a more correct way to do this, I'd be happy to learn it.
Code:
Option Compare Database
Private Sub cmdClose_Click()
Me.[frmTasktracker]![subfrmInbox].Requery
DoCmd.Close acForm, "frmUpdateInboxItem"
End Sub
I have a Main form with a combo box that pulls names from a table. Alongside the combo box is a command button that opens a form which allows the user to edit the names in the table.
The problem: When a user edits a name and closes the edit form, the edit is not immediately displayed in the combo box. However, when the Main form is closed and reopened, the edit is properly displayed. Can I somehow refresh the combo box in the On Close event of the edit form?
As the title says, ctrl-W works on all my other forms but not on the one which has Pop-up set to "Yes".
View 1 Replies View RelatedHello,
What is the code to detect a close form? I have to put in a condition statment. Example :
If forms!frmWords.Close then
...
End if
But this don't work. The word "Close" isn't right. What is the snytaxe?
Thanks,
Le
Hi
I need a button code in the OnClick event.
I want when clicking on the button, to close the currently opened form and open another one.
Any help will be very much appreciated!
Thanks guys!
C.
I created a form to list the number of customers in my lobby. In the Form Footer I placed a field to count the number of customers waiting (Name: CC1, Control Source: =Count([LName]). Works fine.
I want a Beep on the form if the customers exeed 5. I placed the following code in the Timer event but I cannot get the event to work. I believe it has something to do with the field name but I'm unsure. Any help would be appreciated.
Private Sub Form_Timer()
Requery
If [CC1] >= 5 Then
Beep
Else
End If
End Sub
I have a form with a test list. Each test is a record with a yes/no checkbox, and controls for testdate and examiner. I don't want the user to be able to exit a record if the yes box is checked and either the testdate or examiner fields are blank. The code I am using is:
If IsNull(Me.Examiner) And Me.SelectTest = Yes Or IsNull(Me.TestDate) And Me.SelectTest = Yes Then
MsgBox "You must enter an examiner and a test date for each test you select.", vbCritical + vbOKOnly + vbDefaultButton1, "Missing Data"
Me.Examiner.SetFocus
Cancel = True
Else
Cancel = False
End If
I am having trouble with which event should be used with the code, however. In both before and after update I have had the following problem. If a user accidentally checks the wrong test and then unchecks it, they still get the message as if the box were still checked yes. Can anyone tell me why and how to avoid that?
Thanks in advance,
Carly
I'm calling a Public Click event on a Form, from a Delete Record button on another form. Debugging shows that the code executes correctly line for line... but the 'Event' doesn't function as it should. The main feature I need to to iterate over the controls on the second form to disable them, to prevent users from typing in, causing relationship error. Why is this?! Even after the execution of the code... I can click on the refresh button myself, which will disable the control, but not if I call the event from the code.
Here is my code...
Code: Private Sub DelGroup_Click()On Error GoTo Err_DelGroup_ClickDoCmd.SetWarnings FalseDim msgString As StringmsgString = "You are about to delete a Lessee/Group." & Chr(13) & "This will also remove all related records in the..." _& Chr(13) & Chr(13) & Chr(45) & " Reviews Tab" & Chr(13) & Chr(45) & " Facility Details Tab" & Chr(13) & Chr(45) _& " Chronology Tab" & Chr(13) & Chr(45) & " Asset and Insurance Tabs." _& Chr(13) & Chr(13) & "Are You Sure?"If MsgBox(msgString, vbInformation + 4, "Confirm Delete") = vbYes Then DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70Dim frm As Form_ReviewsSet frm = Forms!Reviewsfrm.SelectLessee.Requeryfrm.SelectLessee.Value = ""frm.SelectAsset.Requeryfrm.SelectAsset.Value = ""DoCmd.SelectObject acForm, "Reviews", False 'Don't even think i need this line, but put it in for good measure. Tried withoutfrm.Refresh_Click 'It now jumps to the Refresh Click Event and runs as expected...ElseExit SubEnd IfDoCmd.SetWarnings TrueExit_DelGroup_Click:Exit Sub Err_DelGroup_Click:MsgBox Err.DescriptionResume Exit_DelGroup_ClickEnd Sub
This is driving me mad
I am using a database name as school. having a form name as form01.with cmd button close which close the form. I want to close form with ms Access database. So when user click close button application database will be closed.
View 1 Replies View Relatedi have an sql statement:
aa = "hello"
Tasklist.RowSource = "SELECT [Tasks].Staff_Name, [Tasks].Project_Title, [Tasks].Percentage_Complete FROM [Tasks] WHERE [Tasks].Date_Allocated < aa ORDER BY [Tasks].Staff_Name;"
how can i make it look the the data i put in "aa" rather than prompt a msg box asking for "aa"?
we have a main table for tracking pickups....some of the fields are combo boxes with relationships to other tables....one such relationship is units (ml, gallon, ounce, etc)...in the main table everything works just fine....a user enters the location info, the amount and the corresponding units. thus, an example would be a user picks up something from building X, room 101, 10, Gallons.....the 10 refers to the gallons, the user picked up 10 gallons...
now for the query:
i'm creating a query for which i will base a report on...in query design if i just select the above info everything works fine....it comes out on the report as 5 Gallons....however, what i'd like to do is concatenate the two fields so that they take up less space on the report and are more visibly appealing...here's what i tried in query design:
Amt: [amount]&Space(1)&[units]
this does not work....in the units table that provides Gallons as a selection in the combo field, Gallons has a key value of 5.....thus, when i run the query using the above code i get 10 5 - where 10 is the amount the amount and 5 is the key from the combo box...
i've tried bringing in the units table but then i get a type mismatch....how can i concatenate the two fields and show the proper units? this has to be simple but i cannot get it to work... :mad:
Hi Lads
Hi guys, I want to return all the records which contain information under a particular column heading, hence the statement thats supposed to return all tables where Sector colum is not empty. I am new to SQL and Access so not sure why this simple query isn't working. It is a subform and displays the results in the "details" section of the form below the controls.
I think it could be something to do with the fact that its a subform, but Im not sure about this.
Me.RecordSource = "SELECT * FROM [tblRecordInfo] WHERE Sector <> "" "
any ideas guys? any assistance is greatly appreciated
thanks in advance
I have a six table database and have a query to show all records,(at the moment) but although i have put 3 records in for testing it only shows the first record. Any help gratefully recieved i'm pulling hair out.:mad:
View 3 Replies View RelatedHope I explain this clearly -
I have a combo box with four choices. I then have four labels.
If i select A in the combo box i want LabelA to show up, B in combo box Label B (but not Label A) and so on.
I have set the property for all labels to (not) visible.
Then on the combo box I have put
(On Click) event if cmboxx is "A" then
me. label A.visible = true else me.label A.visible = false end if.
This works fine if I am entering a new dataset but when I exit from the database and then go back in, the label is not visible.
I have tried entering the code in the OnLoad event of the form but that doesn't work. Any ideas?
Also - if the combo box also has its selection made before I enter this code then the label is not visible until i go back and re-enter (ie" click) it. Any ideas
I have a table filled with computer monitor information (tblMonitorManagement). I had query that uses combo boxes (cboSerialNo, cboRoom, cboDepartment) on a form for search parameters. The query is called qryMonitorManagement_Sub. The results are displayed in a subform (frmMonitorManagement_Sub). This works for both my desktop and also my laptop based forms/queries/tables.
Although this form works when using cboRoom and cboDepartment, it does not work when using cboSerialNo, so I decided to simplify it down to get to the root of the problem...here's what I did.
I created a new form, created a combo box (again called cboSerialNo), and had it look up the serial numbers in tblMonitors. Simple.
I created a query called qryMonitors_Test, added all fields from tblMonitors (not using the * option). I then set the SerialNo field criteria to the contents of the cboSerialNo on the new form. Simple. For now I'm ignoring searching on anything else.
I ran the query with no search parameters before I added the criteria, and it obviously displayed all the records in tblMonitors. Fine.
After adding the criteria (using Build...to prevent typos), I used the form to select a serial number, run the query and get no results returned.
If I copy and paste the same serial number and change the SerialNo criteria in the query to search for that it works fine. As soon as I tell it to search for the combo box contents it returns no data.
This is driving me completely bat-poo. It's nothing I've not done a squillion time before but it just refuses to work. I've got to assume it's a query issue as opposed to a form issue, but things don't get much simpler than this should be!
I have a query that filters two tables. 1) Status 2) Name
The status is 1,2,3,4,5 from an option group on my form.
In the query I have <>3 for the status, whereby I only want records that are status 1,2,3,& 5.
When I run the query with all names it works perfectly, however I am trying to run the query for only a select few names versus all of them.
The problem is I do not know how to select only a few names versus all of the names and make it work. When I try to add names i.e "Doe, John" my Status pulls all records including option 3.
Can anyone help? I do not even know where to start seaching.
Thanks.
Fen How
Hi Guys,
I've tried searching the forums for an answer with no joy.
I'm trying to create a very simple DELETE query, which I've never had an issue with before.
Basically I have two tables
Dbo_PDRPerson (PersonID, RoleID, PDRID)
tbl_InfoByPDR (PDRID)
Basically I want to delete all records in Dbo_PDRPerson where a corresponding PDRID record exists in tbl_InfoByPDR
My current method:
DELETE dbo_PDRPerson.PersonID, dbo_PDRPerson.RoleID, dbo_PDRPerson.PDRID
FROM dbo_PDRPerson INNER JOIN tbl_InfoByPDR ON dbo_PDRPerson.PDRID = tbl_InfoByPDR.PDRID;
This tells me to "Specify the table containing the records you want to delete"
Any ideas
Many thanks
Hi
Using a toggle box to ask the following question, i have data that contains either OPEN or CLOSED against each record. I tried using the following in the criteria for the specific data to either select all the OPEN records when the box is clicked and i would like to select all records OPEN and CLOSED when it is nto clicked
IIf([Forms]![MEQN_ProdACStn_Picker]![Toggle38]=True,"OPEN","")
This didn't work and a number of other attempts failed as well...
How do i do it in the criteria selection or is it not possible
Cheers
Newbie Jasper
I've done this tons of times, so I don't understand what's happening... The title says it all: when I update the ID of one record of the main table, the referenced records on related tables won't update even though they have a relationship between them with the option "Cascade update" clicked.
In the attached database, the main table "Expedientes" is related to table "Actuaciones".