Modules & VBA :: How To Close Pop Up Form When Click Somewhere Else
Aug 3, 2013
In the main form I have a list box, when I right click on each item on list box another form "frmshortcut" (pop up) will be open in the position of mouse that shows a list box for selecting items according to below code, now I would like when select another place (except "frmshortcut"), this form automatically will be close, like what we have in shortcut list of windows. Now when right click it is opened in the location of mouse click, but problem is, it is not closed automatically when click in other places of main form.
Option Explicit Private Type POINTAPI
x As Long y As Long End Type
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private mp As [*clsMousePosition]
Getting error '2450' when click Access close button to exit.
Run-time error '2450': ECN cannot find the referenced form 'frmLogin'.
Note: After login my login form is visible to, cause to get login user id into "frmECN" Form. But When I'm in "frmECN" Form and enter data then close to exit Access main close button I'm getting 2450 error.
I thought I had my login form really locked down by turning off all the navigation buttons including the control box and close button. I also disabled the navigation pane and allow full menus. The login Menu automatically displays when the database is opened. After I created the .accde I was still able to right click in the top area (where the name of the form is) and close the form. Actually when I right clicked I got Save, Close All, Close, and Form View. Is there something else I need to turn off?
I have a form I want to close but somehow the codes running before it cancel it out before my closing code can run.
Here is the full code for the form.
Code: 'Check for Null Fields If IsNull(Me.cmb_to_customer) Or IsNull(Me.cmb_from_customer) Then MsgBox ("Please enter a TO CUSTOMER and FROM CUSTOMER to continue.") Cancel = True
[Code] .....
This is the ending code that will not run:
'''''''''''''''''''''''''''''''' 'Continue or Not, If yes then wipe all fields, If no then exit form If MsgBox("Do you want to log-in/transfer more batteries?", vbOKCancel, "BATTERY LOG-IN/TRANSFER") = vbCancel Then DoCmd.Close acForm, "FRM_LOGIN" Else Me.cmb_from_customer = Null
All i want to do is after executing the following code, close the form " EmployeeFind" on completion?
Private Sub Form_DblClick(Cancel As Integer) On Error GoTo Err_Form_DblClick Dim stDocName As String Dim Msg, Style, Title, Response Msg = "Employee allocated to Job" Style = vbOKCancel + vbInformation Title = "Employee moved" ' Define title. Response = MsgBox(Msg, Style, Title) If Response = vbOK Then
I am using the method from allen browne [URL] .... to open a form and add it to a collection and when removing it it closes. actually, usually it does work so but i have now a form which does not close until i am hitting the reset button in VBE , is there something i could check why it's not functioning as desired ?
Just to add, this form has a subForm as well (might be the cause ?)
I have a subform that is used in multiple other forms. I wish to have a command button that will close whichever main form the subform is in. Is there some way I can make an if statement that is something like the following?
If (main form = A) then Close (form A) ElseIf (main form = B) then Close (form B) etc. End if
Unfortunately the button has to be in the subform, not the main form (which would be easier). The purpose of the button is to delete the current records that are open and then close the form. The catch is that the subform is the parent record to the main form, so the command has to originate from the subform so that the cascade delete works properly.
I have a form I would like to close without saving the record using a button. here is the code I have but it closes the form and it also writes the record to the table.
Code: Private Sub ClosewoSave_Click() Cancel = True Me.Undo DoCmd.close DoCmd.OpenForm "frmMenu" End Sub
I found in a thread that Cancel = True would not write the record.
I have a problem when I close a form to stop it from closing if a date is not filled in.
If the field "Case_Status" is filled in with "response received" and the date field "response_received_date" is blank, it shows a message and fils in the text box with red background.
It simply fails to keep the form from closing till the date is filled in. Code I have so far:
Private Sub CloseForm_Click() If Me.Case_Status = "response received" And IsNull(Me.response_received__date_) Then Me.response_received__date.BackColor = RGB(255, 0, 0) MsgBox ("Please fill in manatory fields!!!") DoCmd.CancelEvent Else DoCmd.Close End If End Sub
I have a timer form which closes the database after a period of time with DoCmd.Quit. Another form is open at this point but if a user has left it in the middle of editing it I want to be able to save the record in the other form and close it before the timer form closes the database.
What VBA do I need in the timer form to save the record and close the other form before DoCmd.Quit? Just to be clear the code is...
Private Sub Form_Timer() On Error Resume Next Me.Tag = Val(Me.Tag) - (Me.TimerInterval / 1000) Me.Caption = "The database will exit in " & Me.Tag & " seconds" If Val(Me.Tag) <= 0 Then
my code does the following, user selects excel file, opens it, renames sheets, basically needs first sheet to be sheet1. rest don't matter Changes the formats in column a to number and 15dp, saves the file as .xls and then links the file to the database.
Code: Private Sub Command288_Click() Dim s As String Dim i As Long
I have to write a code in a form so that if nobody is doing any activity for 5 minutes then after 5 minutes automatically press Close button named BtnClose in that form.
I have created a button that works fine however it will only work one click per form load and i cant seem to figure out why.
Code: Private Sub BntExpired_Click() Dim QryAllCourses As recordset Do Until ExpiryDate > Date Or ExpiryDate = "" MsgBox ([FirstName].Value + " " + [SecondName].Value + "'s course in " + [CourseName].Value + " has expired") recordset.MoveNext Loop Exit_BntExpired_Click: Exit Sub Err_BntExpired_Click: MsgBox Err.Description Resume Exit_BntExpired_Click End Sub
How do I reference a subform DS field to open up a tabbed form on another subform.
Here's what I have.
field one on the Sub DS opens up tab one on another form, as does field two on DS open tab two on another form.
but..
how can I click on "any" field on the DS, run an IF statement, and it checks if that record on the Datasheet, contains information in regards to, IF field one OR field two contains any data, and opens the tabbed form respectively on the other form?
In the past a Teacher would manually create a Form (Student Form) containing Student information, (Name, Gender, Birthdate, Homegroup) as well as additional issues on the student. This would all be saved into a table.
I would like to change this manual process of typing in individually to each text box, therefore, I have been able to run a report from a external program that obtains (Name, Gender, Birthdate, Homegroup). This saves as CSV and I am able to import into a separate table within the database. This works no problem.
What I have set-up is a form that contains a listbox this contains the Student name and Homegroup from the imported table contents. Again this works fine.
What i would like to do is when a student is selected from the listbox and dbl clicked on, how can i make information (Name, Gender, Birthdate, Homegroup) populate the textboxes in the Student form that the teacher previously used? could this be an update query where the imported table information will then go into the Student form? If so, how can I tell the dbl click of highlighted name is the data i want to populate?
I would like to be able to click a button on a form in my data base and login to a website using my username and password.
The manual login, requires two clicks after username and password, "Login" and "Click to continue"
I have tried many solutions found on the internet, none work for me. One forum reply was to send me a link to another site and it was for Excel. Is the code the same? Didn't work anyway.
From the website I want to login to, I have copied the code into a Word doc from the "inspect element" to work out the names of the fields I'm trying to put my username and password into. (see attached)
I would also like to be able to use Google Chrome as my web browser if possible?
There is a button on the form that allows users to send email with the form as an attachment in pdf. I'd like to create a date/time stamp in another table called tblLog. Trouble is the code works uptil sending emails but it doesn't record the stamp.
I have some code for a button on click event to open a form and select the record which corresponds to a value in an unbound text box. The code is:
Private Sub Command25_Click() On Error GoTo Err_Command25_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = "frmOpenPatientRecord"
[Code] ....
This works fine when I put in a 10 digit NHS number but opens a blank record when I enter a four digit or six character/digit PatientNumber. Both patient number and NHS number are text fields in the underlying table.
I have two problems excel instance does not close at the end and two when I try to do the looking using text it works but soon as I try using date/time it returns nothing.
Code: Private Sub Command84_Click() Dim objExcel As Excel.Application On Error Resume Next
Is there a way to run code to see if a query is open? Then if the query is open, program the database to close it and re-run it?
I have a query that is based on a field on my form. It runs fine the first time. However, if the user leaves the query open and goes back to the form, makes a new selection, and clicks the button to open the query, the query doesn't refresh. The user either has to close the query and re-run it or press the Refresh All button. I need a way for the query to refresh automatically if it is open already or not. The only other alternative I can think of is to program the database to close the query and re-open it. I tried using QueryName.Requery and QueryName.Refresh but in both cases, it tells me that an object is required and I don't know what it wants. I also tried setting the query definitions using VB, but the query is apparently too long because no matter what I do, I can't get it on one line and Access doesn't seem to like it if the query takes up two lines.