Modules & VBA :: Check If Database Is Open (Read Only Mode)
Jul 16, 2015
I would like to be able to check if a db is open and if it is to prevent the user from proceeding.
I use the Access 2013 Runtime. I can check if a db is open by trying to open Exclusively, using something like
Code: [URL] ....
But if the db is already open Not exclusively and I try to open it exclusively it does not raise an error and it allows the user to open the db in Read Only mode.
I would like to be able to prevent this, because careless and/or inexperienced users may open several instances of the db.
Of course, if the db is already open exclusively it does not allow you to open it exclusively another time.
I am having problems opening my databases. Access automatically opens them in 'Read Only' mode, and I cannot find a way to avoid this - so I can never add data to the original tables ....
I'm working in Access 2010. I created a database that I want to post in a server on the read-only mode, so that users can not change forms or querys. How can I do this in Access 2010?
I have two separate database files, a front end with all my forms and a back end with all my tables. The backend is stored on a network drive, is there any way of being able to store the frontend on the drive with the backend? Users do not use the actual computer to store information or access files, everything is usually saved on the network drive. I have created a shortcut that launches the front end database in the read only kiosk mode.
--> check to see if two fields matches e.g (qty=qty_completed)
--> if all records in recordset meets the above condition then run update statement
I want to put this code inside Form_Close. The code that I'm using checks the two fields for the condition and runs the update statement if condition is met. Problem is this a continuous form and I want all records need to meet the condition before it execute update statement.
I would like to ask here for advice on MS Access 2000 application. When a user logs in, he should be able to use the Access 'Query' screen in read-only mode. In other words, he should be able to generate queries by selecting tables and columns, or using the wizard, but the results of those queries may never have any influence on the data in the database. So: SELECT queries only. Users should be allowed to execute those queries, but are not allowed to access the tables, forms, or any other items directly. Is there a way to achieve this?
I would like to take advantage of using combo boxes to search records on a form but do not want user to be able to edit or change any of the data. Setting the form to read only of course, disallows use of any controls on the form.
I started quite simple, just wanted to read to node MsgId. This is the code I use:
Private Sub ReadXML_Click() Dim aDoc As DOMDocument60 Dim aNode As IXMLDOMNode Set aDoc = New MSXML2.DOMDocument60 aDoc.async = False aDoc.Load DLookup("C:Sample.XML")
[Code] ....
Whatever I try: //MsgId or MsgId the results is "No nodes". How to read to XML.
Besides reading one node, the next challenge will be iterating the PmtInf node. There can be 1 in the XML file but also 50.
My application relies on whether Outlook is open and more importantly, with the correct Exchange profile selected. To ensure this I have the following code which, on the work PCs (Windows XP and Office 2003) works correctly.
Code:
If Outlook_is_Running = True Then Set myOlApp = CreateObject("Outlook.Application", "localhost") Set myNameSpace = myOlApp.GetNamespace("MAPI") Set colFolders = myNameSpace.Folders On Error Resume Next
[code]....
The work PCs are being upgraded soon to Windows 7 and Office 2007 so I have taken the application home and started to develop it on my home PC (Windows 8.1 64 and Office 2013 64). I have used PtrSafe where necessary and have compiled with no errors, but this code always returns false even though Outlook 2013 is open.
On further investigation, if I comment out the 'On Error Resume Next line I get the error Active X component cannot create the object (or similar) Error 429. This is the same regardless of whether Outlook is open or not
I have some code that resides in a button on a report that allows me to save a PDF version of this report. My problem is that if i have the destination directory open on windows explorer, i get a runtime 2501 "The output To action was cancelled" error.Is there any way to check if the directory is already open, and cancel the output to, or close the window to avoid this error?
Here is my code:
Code: Private Sub CmdSavePDF_Click() Dim MyFileName As String Dim MyPath As String 'Dim CompanyName As String
I'm trying to lock a checkbox when the forms open and depending if one has role as admin, it should unlock it.When I add the below code in the on open form I get error:
I am storing values of pictures and the location of them in a table, this works fine!... using OpenRecordset. The problem is that when the function is called to store the information, it just keeps adding the same values of each file in the folder over and over again in a word "Duplicating" the information.
I have tried various methods using the OpenRecordset, but cannot seem to find the correct manor of applying the code.
Below is the function I have for storing the data...
Code: Public Sub GetFilesNamesFromFolder(strFolderPath As String) On Error GoTo ErrorHandler Dim objFSO As Scripting.FileSystemObject Dim objFolder As Scripting.folder Dim objFile As Scripting.File
i have a database that runs updates from within itself.what i need is, this database to then open a another database run a update query, then close it.
I am writing a program that allows users to enter customer info and I want to be able to pop up a window that will search for Postal (Zip) codes using the Postal Service URL. (I would like to position the popup so that the contents of the Address and Postal Code fields are still visible on the form). I would also like to know if there is a way to copy the contents of the Address Field in my program to the Windows Clipboard, using VBA code, so that I can paste it into the Postal Code Finder without highlighting the field contents and pressing Ctrl-C.
I have code working for some workers here ,who used to save excel files in a folder and my databse upload those files into database and then do the rest.I am looking for a code in vba which,on upload button matches the file in table and if the file already exists ,it should not upload again in the table and if it does not exists it should upload . I have attached my code below :
Private Sub Command0_Click() Dim strcPath As String strcPath = "O:QA FilesQC ReportingPending Review" Dim strcNewPath As String
I have a button using a macro to open a form in Hidden mode. Then I have another button on another form to open this form that was hidden.
When I open the form, the form is virtually blank apart from the form caption name. But when I close this and press the button again the form opens as normal.
I do not understand why?
I was told that once you hide the form and when you open the form again, it should appear normal. Why do I get this blank form??? Only by hitting the button again then the form is normal....
I have a button on my form that should open a report in Preview node.
On SOME users machines, it appears that absolutely NOTHING happens when the user clicks the button. (preview mode)
Report parameters that may have some bearing are as follows. (Default settings in most cases) Default View : Report View Allow Report View: Yes Allow Layout View: Yes Auto Center : Yes Auto Resize: Yes Fit to page: Yes
Pop_up: Yes (This is NOT the default setting, as I would prefer the report to pop-up. If the report does not open in pop up mode, the users tend to close the DB instead of just the report.)
On the user machines where the problem exists, I have turned off the pop-up blocker in their web browser. It seems to work when opening in Report View.
Button Macro parameters are: Report Name: My_Rpt_Name View : Print Preview Filter Name : Where Condition : Window Mode : Normal
Environment SQL back end (ODBC Connection to server) Access 2010 Front end
I am developing the DB in the bog standard install with no special permissions / add-ons. Also, my developer (log on) account is as a standard user, so there should be no (network) permission issues.
When troubleshooting on the user machines, If I open the report in design view and then open in Preview mode, it works.
Is the problem with the Form or the Macro or the Preview mode or maybe some Reg key that must be changed to allow reports as pop-ups?
I have a simple Access database with a number of linked tables to Excel spreadsheets located in the same directory.When I open the Access database from two networked machines, I get an error on the second machine when I try to open a form that uses the linked tables. It says that the linked table has been opend in Exclusive mode.Any idea how I can prevent Access from opening the linked tables in exclusive mode?thanks
I have been trying to come up with a solution for a problem I am having for a while to no avail. We have a backend database that stores various tables full of data. We then have a custom Excel Ribbon that connects to the database and pulls in the different tables depending on the user selection form the ribbon. Everything is working well on that end. The problem I am running into though is that in the development phase of the ribbon and database we had multiple versions and so there are still some people who are using old versions of the ribbon and therefore not connecting properly to the database. Is there some type of code I can add into the database and ribbon where it checks for a specific version to ensure the user is using the most recent version?
Basically, before any type of query is run to connect to the database the ribbon would have some sort of label on it somewhere and the database would check for that label and if it is correct, the code proceeds and if not a message box appears that tells the user they are not using the most current version of the ribbon and exits the sub?
I am trying to open a database with a password (I know the password) from another database however I cannot work out how to do it. I have been using this code to do this to open databases without passwords for a while.
I am using Access 2007.
Code: Private Sub Command36_Click() Const cstrClientFEPath = "G:Templates" Const cstrFEFile = "db.accdb" Dim intX As Integer 'Utility var
I am using the following event code to open a database from another. Everything works fine but, I would like add a mxgbox letting the user know the database does not exists and to contact me for assistance.
Private Sub cmdOpenTime_Click() Dim accapp As Access.Application Set accapp = New Access.Application accapp.OpenCurrentDatabase ("c:PILOT_ApplicationTIME.Accdb") accapp.Visible = True End Sub
I have several comboboxes in my database from which users select values. However, in most cases, I do want to give them the option to add an item that does not appear while simultaneously updating the underlying table which stores those dropdown values. I have made use of the builtin "allow edit list items" feature of Access 2007 but the form always opens on the first record of the form on which they are to add the new item. Is there a way to specify that it should open in Data Entry view apart from using VBA?
I want to be able to open a Table as Read Only, so that a user can browse etc., but neither alter nor enter data - I want them to use the Forms for that. How then, using VBA code, do you open a Table as Read Only?