I would like to have a button on my form that would update a record to a closed status, but I want to have an "Are You Sure?" window pop up first. I did a search on "verify," "verification," "sure," and several others but haven't found what I need. I looked through my Access bible, with no luck.
Any help is GREATLY appreciated. Thanks!
Hello team,
My database window is hidden.
I have a form with data about an article. When I click a button, another form opens showing a sales graph of that article.
On the form with the graph, I have put another button to print it. The code behind that button is:
Private Sub printpriceevolution_Click()
On Error GoTo Err_printpriceevolution_Click
Dim stDocName As String
Dim MyForm As Form
stDocName = "frm_priceevolution"
Set MyForm = Screen.ActiveForm
DoCmd.SelectObject acForm, stDocName, True
DoCmd.PrintOut
DoCmd.SelectObject acForm, MyForm.Name, False
Exit_printpriceevolution_Click:
Exit Sub
Err_printpriceevolution_Click:
MsgBox Err.Description
Resume Exit_printpriceevolution_Click
End Sub
The funny thing is that after the printing (which works fine) my database window is shown, where it is supposed to be hidden.
Any idea what could trigger this? Does it have to do with pop-up dialog box settings?
Thanks
I want to find a way to grab the text from the window that shows the location of the file using vba in Access.
View 3 Replies View RelatedI have two subforms in a main form. book_sub and book order subform. there are various subforms which i toggle in book order subform window by changing their properties with command button on main form. here is the code -
Code:
private sub billq_click()
Me.BOOK_SUB.SourceObject = "BILLQ"
Me.BOOK_SUB.LinkMasterFields = "[BOOK ORDER SUBFORM].FORM![ORDER ID]"
Me.BOOK_SUB.LinkChildFields = "[order ID]"
private sub stock_click()
Me.BOOK_SUB.SourceObject = "stock"
Me.BOOK_SUB.LinkMasterFields = "[BOOK ORDER SUBFORM].FORM![BOOKCD]"
Me.BOOK_SUB.LinkChildFields = "[BOOKCODE]"
Now the problem is when i change billq to stock it shows parameter entry window with caption [order id] twice. after clicking ok it does toggle the form to stock. then when i click button for billq again it shows the same thing.
the code works fine except showing parameter entry window twice with every toggle.
Hello,
How would I go about in making a command button bring up a report to show a result of items for the end of the month?
For example, when a user clicks on this button it will bring up a report showing all the items that are out of date for the end of the month. I am having problems with the query as for months have different lengths e.g. 28/29/30/31 days. How would I make a query show the end result for each month correct as February if going to be different each time i.e. when it is a leap year. I have got far but having trouble with this part.
Hope you can help.
I added a "print preview" button to a report that does just that, shows the print preview. The issue I'm having is that I can't do anything in Access after I click that button. Everything in Access seems to stop working, I can't click on anything with my mouse. the only thing that does anything is that i can move the report up and down with the up/down/left/right keys. If I click on a different application that isn't Access (i.e. excel, spotify, email, etc.) and then go back to it, everything works fine.
View 4 Replies View RelatedI generated a pop up warning message window every time when I open a form. The problem is there are many lines information in the window. Now I want to have a Print button in the msgbox window. So the user can click that buttton to print these warning message. Is this easy to do? Any clues? Thanks.
View 3 Replies View RelatedI am using Access 2010 and creating a front-end for a customer database.
Take a look at the screen capture I added to this post.
What I want to happen is on that "Supplier" button. When I click on it, it opens a new window with the "Supplier" form and on the specific supplier for this product. There is an attached image of what that macro looks like.
The problem I am having is that I do not want the Supplier form to open in a new window, I want it to open within the Navigation Form, replacing the what is currently on the screen.
Hi Guys,
I have a database that uses a switchboard with a close button that runs several instructions before it exits. The problem is that some users have access to the database window and I need to prevent them from closing the database by hitting the X in the upper right.
Anyone know how to do this?
Hello everybody, it's been a while since i wrote on the forums and yet again I am in the need to ask for the help of this wonderful community.
I have a form on which is a button that I want when pressed to open a Windows Explorer window displaying the contents of a directory.
The exact way that I want this thing to work is like this : The user is browsing a form of lets say client details and on the form lies the button that when pressed will take the client's name and apply it to the path in order to open that Windows Explorer window and create a path like C:program filesclient name and display the contents of that window.
I would like if possible someone who can point me as to how I can construct this button to work cause I cant see to get it done.
Many thanks for your time :)
Is there a way to use a command button to display the database window. I changed the Startup to not show the database window and want to be able to show it using a command button. I would appreciate any help.
S.Pommier
I would like to be able to have a button that my firm's legal assistants can click which will automatically popup the folder on the server where the client's documents are stored. What is the easiest way to write this?
View 3 Replies View RelatedHi,
Anyone know in microsoft access 97 is it possible to remove the close button (top right hand corner) when a form is maximised?
Thanks.
I created a command button from using the wizard so when I click to delete the record the button is for, a window pops up asking if I am sure I want to delete the record. Is there a way to not have the button pop up?
Here is the code:
Private Sub cmdCompleted_Click()
On Error GoTo Err_cmdCompleted_Click
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdDeleteRecord
Exit_cmdCompleted_Click:
Exit Sub
Err_cmdCompleted_Click:
MsgBox Err.Description
Resume Exit_cmdCompleted_Click
End Sub
I am trying to UPDATE records from the Master form by clicking a button to a new window -
frmCustomerMaster (main form) - a button will trigger to UpdateCustomerMaster new window and pass all the data to the new window.
UpdateCustomerMaster (New window Form) On Submit Update values.
frmCustomerMaster (main form) - is currently locked by properties, I do not want main form to be editable.
how to pass the data to new window and how to update the records?
I'm looking for methods to verify if an application is working correclty.
Any suggestions?
Thank you in advance.
Hi,
I have a parent window which upon clicking on a button will pop-up a child window containing a listbox. The listbox recordsource is a subset of the parent window. I want the user to select a record from the listbox which will load the selected record onto the parent window.
How does one pass argument back from child window to parent window?
From parent window to child window, I used
docmd.openform ,,,,,,[argument] and me.openargs in the child window
thanks in advance.
Hi I have designed a database for a small organization. It is a ver small database. can any one verify and tell me the mistakes in my design. It hardly takes 20 min for the people like you. This is my first step in designing. I am attaching the zip file which contains dbm file and business requirements. Complete physical data model is there.
especially in "category_tests" table i feel that i have done some thing wrong.
Thanking you all.
Hi,
I'm using the code below to check new product# input from a form called frmProducts that is bound to a table called tblProducts.
Private Sub Prod__BeforeUpdate(Cancel As Integer)
Dim varX As Variant
varX = (DLookup([Prod#], "tblProducts", Forms!frmProducts.[Prod#]))
If Not IsNull(varX) Then
MsgBox [Prod#].Value & " already exists as a product #"
Me.Undo
Cancel = True
Else
'do nothing!
End If
End Sub
The problem is that any new product# that you input results in "product already exists".
Thank you very much, in advance, for any help.
Tony Scotti
Montreal
I'm sure this is on the forum somewhere but have searched and searched... and had no luck.
I want my date feild to be set to enter a date no more than 2months in advance but a minium of a week in advance.
I have done this lol
week(1)<"">month(2)
I don;t actually have a clue, do you use "" to represent the value? also how do i do this date verify thing :P.
Thanks in advance
Hi all..
This is my first question posted on this site. I have created a survey with questions to be answered. The database is already populated with records of the people's names who were getting the survey. What I need is when the data entry clerk brings up the customer's name on the form, is that they are forced to enter the surveys answers for certain questions before they click the "Save" button. The answers are set up as radio buttons on the form (ie Less than 6 Months, 6 Months, 8 months and 1 Year).
Not sure if a Before or AfterUpdate macro is needed?
Any suggestions would be appreciated. Please email me directly if you have code.
Thank you
Hello,
I need some help. I have a form named MASTER based on a table also called MASTER.
A control of my form in names SSN which stores the client SSN.
On the same form I have placed a subform which has its record source to a table named 21.
What I am trying to do is:
When I enter a new record in my form MASTER, the code should:
1) Verify if in table 21 a record with that SSN already exists.
If YES, skip the code and do not add the SSN. If NO, well, run the appendquery.
2) At the same time, verify if a record with that SSN already exists in table MASTER. If NO, add the data, if YES, abort the code and exit the form.
The form EForms is a menu form I use to access the records.
This is the code. Something is not going right, I think with the end if functions. Any help? I have placed the code in the AfterUpdate event of my control SSN.
Dim mydb As DAO.Database, MyRs As DAO.Recordset
Dim strCode As String
Dim strFilter As String
Dim stDocName As String
Dim stLinkCriteria As String
Set mydb = CurrentDb
Set MyRs = mydb.OpenRecordset("master")
stDocName = "MASTER"
stLinkCriteria = "[SSN]=" & "'" & Me![SSN] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria
If Not IsNull(DLookup("[SSN]", "21", "[SSN] = '" & Me!SSN & "'")) Then
Forms("EFORMS").Visible = False
Else
If IsNull(DLookup("[SSN]", "21", "[SSN] = '" & Me!SSN & "'")) Then
DoCmd.OpenQuery ("Appendssa21tax")
End If
End If
If Not IsNull(DLookup("[SSN]", "MASTER", "[SSN] = '" & Me!SSN & "'")) Then
MsgBox "Sorry! A record with this SSN is already in file. Retrive case from E-Forms Menu.", vbOKOnly, "Warning"
DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
DoCmd.Close
End If
Forms!eforms.lstPreInterview.Value = Null
DoCmd.Close
DoCmd.OpenForm ("Eforms")
DoCmd.RunMacro ("CloseEforms")
DoCmd.OpenForm ("Eforms")
End If
Thanks.
Is there any way user can verify the data that its enter correctly, for example I want a button on user form, after every 14 entries when user hit that button it bring the sum of 14 entries.
View 5 Replies View RelatedI have a group of databases, with one that I keep global values in (among other things).On initial load, I link the table to other databases, but the linked tables pile up.How can I verify the linked table exists, so I don't have to link it again?
View 1 Replies View RelatedHi, I'm not sure if this is possible, but I've heard you guys really know your stuff.
I have a client who would like to import a list of e-mail addresses, but would like to verify the domain name used in the provided address against a list of domain names pre-populated in a table. Do I need to use Dlookup? Here are some additional details. Thanks in advance!
MAIN_IMPORT_TBL
ID
FNAME
LNAME
E-MAIL
PHONE
DOMAIN_TBL
DOMAIN_ID
DOMAIN_NAME
AP
I have a picture stored on a network file share that populates each time a particular form is opened. Every so often we lose our connection (which is a different issue altogether). Right now the error I get after much grinding away, is "Bad file name or number"
Is there a quicker way to check for the connection before it spends 45 seconds trying to find the whole path?
Code:
Dim vFolderPath As String, dirFile As String, strFile As String
vFolderPath = Nz(DLookup("FolderName", "tblCodes-FolderControl", "FolderKey = '" & "Profile" & "'"))
dirFile = vFolderPath & Dir(vFolderPath & ctrl_people_id & " *", vbDirectory)
strFile = dirFile & "profile_pic.*"
'Debug.Print dirFile
On Error Resume Next
If Dir(strFile) <> vbNullString Then
Me.[ctrl_ImageFrame].Picture = dirFile & "" & Dir(strFile)
Else
Me!ctrl_ImageFrame.Picture = "X:~stuffprofile_icon.png"
End If