I have created a database then saved it to my computer.
Now while I am trying to open MS ACCESS in my computer I am getting an error message -
"This file may not be safe if it contains that was intended to harm your computer.
Do you want to open this file or cancel the operation?"
Giving the options - 'CANCEL' 'OPEN' 'MORE INFO'
How can I by pass this dialog box?
When I launch my Database file, it would normally run some scripts (I don't actually know what they do, the file is not used by me, only colleagues).
Instead i get this error:
The expression On Load you entered as the event property setting produced the following error: Object or class does not support the set of events.
When I click 'OK' another error appears:
The expression On Timer you entered as the even property setting produced the following error: Object or class does not support the set of events.
Once i click 'OK' on this error, another error sometimes occurs:
The expression MouseMove you entered as the even property setting produced the following error: Object or class does not support the set of events.
But strangely enough the third error doesn't occur every time i move the mouse.
After these errors have been closed, all i have is my 'form' with a loading bar. I cant access the actual database. Nor can i get into the Visual Basic to try and find the cause. This is happening to multiple clients of mine, and me personally.
Running Windows 7, Server 2008 (64bit), Windows 7 (64bit)
Running Access 2007 and Access 2010.
I have tried changing permissions on the file, this doesn't work.
What's wrong with my zSQL string? I am working on it for 2 days and got no where. I want to put a IF statement
(=IF('Report - key'!$B$7="ALL","ALL",'2012 data'!B2))
to a ACCESS Text field using SQL Update. Here is my code:
Dim zSQL As String
Dim zmsg As String
Dim DQ As String
DQ = """"
zSQL = "UPDATE Supplier_Meeting_Planning SET [ID3] = ' " & "=IF(" & "'" & "Report - key" & "'" & "!$B$7=" & DQ & "ALL" & DQ & "," & DQ & "ALL" & DQ & "," & "'" & "2012 data" & "'" & "!B2)"
Debug.Print zSQL
DoCmd.RunSQL zSQL
It is very painful to put ' and " in the string.
I'm sick of the lame excuse for error messages that Access gives out.. I'm talking about 'Overflow', 'invalid use of Null' and such like.
What about telling you what field/expression caused the error and on what record if applicable.
It's so frustrating - Access obviously knows what caused the error but refuses to tell you so you have to go through the annoying process of taking out fields one by one (when in query view).
Does anyone agree that they need to make the error handling in Access much better?
Thanks for any interest in my post.
I am trying to call a stored procedure from access ,but it is giving me this runtime error :
Code:
2147217900
Syntax error or access voilation
I am doing this first time so i dont know about how to pass parameters (IN and OUT)..
My code is
Code:
Public Sub createDataToAnalyze()
Dim objConnection As New ADODB.Connection
Dim objCom As ADODB.Command
[Code].....
I have setup a small application with front/back end in local network. On client machines i have installed access runtime. Although it works fine but it suddenly quit when there is any run time error while working on client machine. Although on server machine ( where full version is running it didn't close the application ).
What i need is an option to not quit the application completely. As i am not expert in coding of try/catch statements I need a simple solution for time being .
I'm trying to export queries from access to excel using the DoCmd option. The code (see below) works to a point - it exports some of the queries before I get a run time error:
"31532: Microsoft Access was unable to export the data".
The worksheet tabs also do not pick up the query name but instead return what looks like a temporary ID (e.g. ~TMPCLP118431). Have tried different file locations and versions of excel but the same thing keeps happening.
Code:
Sub ExportAllQueries()
Dim qdf As QueryDef
Dim db As Database
[Code]....
I using excel 2010 and access 2010. I have VBA script runtime error 3011 when running script. It has problem finding access report. First I was passing in as variable with the name. Then I used a script to pull in the report name from access and it is still failing with same error.
Code is shown below.
Private Sub Command29_Click()
Dim reportname As String
Dim theFilePath As String, FilePath As String, tempStr As String
' reportname = Me.My_DBTableName
[Code] ....
I am very close to completing a DB Program.... How can I create a desktop Icon that will Launch my Program without Loading Microsoft Access along with it???
View 6 Replies View RelatedHi All,
Is there a way that when the user clicks on a database file, the form pops up without opening MS Access window.
Thx,
Jatz
Hi All,
Is there a way that when the user clicks on a database file, the form pops up without opening MS Access window.
Thx,
Jatz
Hi all! I am looking for some help in how to get a form to open just once on the first launch of the database. This information is the company information of the one using the software. I have a button that one can click if they want to edit or add this information later. Thanks for your help in advance.
:confused:
hi guys, here is the situation.
I have 3 forms:
1- editpopsubform where the info comes from a select statement.
2- editPoplist , which has the form 1 as a subform
3- editpop, a form which allows the user to edit a record selected in the poplist form.
The idea is to open the editpoplist form, where a list of records appears. Once a record is double clicking in the code number, the editpop form is open showing all the details for that particular record.
the code number in the editpop from is assigned as per the following:
=[forms]![editpoplist]![editpopsubform]!ifsnumber
Problem: when i double click in the code number the following error appears...
"run-time error 2501 . the open form action was cancelled"
any clue?
thx max.
Hi,
Not sure if this is not a stupid question, but when I try to open two forms with controls that have the same underlying control source, I encounter a message that say "the table is locked and cannot be malnipulated pregrammatically", or "the table you tried to open is being used, please wait a while before trying again." Is there anyway around it at all?
Niroth
I have the following code, which works the way I want it to when I click the button the first time. However, if I close out the excel and click the button again, it errors at the line "ActiveWorkbook.Worksheets("Ref").UnProtect", with the message "Run-time error '91', Object variable or With block variable not set". I can not figure this out, why in the world does it work the first time, but not the second???
Private Sub cmdReport_Click()
Dim path As String
Dim XL As Object
Dim oBook As Excel.Workbook
Dim pic As Excel.Shape
Set XL = CreateObject("Excel.Application")
[code]...
When i open my db in 2003 I get a compile error: “can’t find project or library
i'm working in 07
please help!!
Here is the function
Code:Option Compare DatabaseOption ExplicitPublic Function HoursAndMinutes(interval As Variant) As String'************************************************* **********************' Function HoursAndMinutes(interval As Variant) As String' Returns time interval formatted as a hours:minutes string'************************************************* **********************Dim totalminutes As Long, totalseconds As LongDim hours As Long, minutes As Long, seconds As LongIf IsNull(interval) = True Then Exit Functionhours = Int(CSng(interval * 24))totalminutes = Int(CSng(interval * 1440)) ' 1440 = 24 hrs * 60 minsminutes = totalminutes Mod 60totalseconds = Int(CSng(interval * 86400)) ' 86400 = 1440 * 60 secsseconds = totalseconds Mod 60If seconds > 30 Then minutes = minutes + 1 ' round up the minutes andIf minutes > 59 Then hours = hours + 1: minutes = 0 ' adjust hoursHoursAndMinutes = hours & ":" & Format(minutes, "00")End FunctionPublic Function ElapsedTimeString(dateTimeStart As Date, dateTimeEnd As Date) As String'************************************************* ********************' Function ElapsedTimeString(dateTimeStart As Date, dateTimeEnd As Date) As String' Returns the time elapsed between a starting Date/Time and an ending' Date/Time formatted as a string that looks like this:' "10 days, 20 hours, 30 minutes, 40 seconds".'************************************************* ********************Dim interval As Double, str As String, days As VariantDim hours As String, minutes As String, seconds As StringIf IsNull(dateTimeStart) = True Or _ IsNull(dateTimeEnd) = True Then Exit Functioninterval = dateTimeEnd - dateTimeStartdays = Fix(CSng(interval))hours = Format(interval, "h")minutes = Format(interval, "n")seconds = Format(interval, "s")' Days part of the stringstr = IIf(days = 0, "", _ IIf(days = 1, days & " Day", days & " Days"))str = str & IIf(days = 0, "", _ IIf(hours & minutes & seconds <> "000", ", ", " "))' Hours part of the stringstr = str & IIf(hours = "0", "", _ IIf(hours = "1", hours & " Hour", hours & " Hours"))str = str & IIf(hours = "0", "", _ IIf(minutes & seconds <> "00", ", ", " "))' Minutes part of the stringstr = str & IIf(minutes = "0", "", _ IIf(minutes = "1", minutes & " Minute", minutes & " Minutes"))str = str & IIf(minutes = "0", "", IIf(seconds <> "0", ", ", " "))' Seconds part of the stringstr = str & IIf(seconds = "0", "", _ IIf(seconds = "1", seconds & " Second", seconds & " Seconds"))ElapsedTimeString = IIf(str = "", "0", str)End FunctionPublic Function ElapsedDays(dateTimeStart As Date, dateTimeEnd As Date) As String'************************************************* ********************' Function ElapsedDays(dateTimeStart As Date, dateTimeEnd As Date) As String' Returns the time elapsed in days between a starting Date/Time and' an ending Date/Time formatted as a string that looks like this:' "10 days" or "1 day".'************************************************* ********************Dim interval As Double, days As VariantIf IsNull(dateTimeStart) = True Or _ IsNull(dateTimeEnd) = True Then Exit Functioninterval = dateTimeEnd - dateTimeStartdays = Fix(CSng(interval))ElapsedDays = IIf(days = 1, days & " Day", days & " Days")End Function
Good afternoon,
When I'm trying to open a back end database which was previously created is MS Access 97 it gives me the following error;
Cannot update. Database or object is read-only.
I have tried running the "Compact/Repair Function of MS Access 97 and MS Access 2003 to no avail.
I have tried converting the back-end to Access 2003 as well but I still get the same error message. I can link to the database tables from an Access 2003 database fine with no error message!!
Has anyone got any suggestions before I have to take it offline and rebuild the back-end and then copy the data across from the old one?!!!
hello,
I have a subform which opens good with Access 2003 but now that I updated to Access 2007, it won't open. It gives me a "type mismatch in expression" error. Why does this happen??
thank you.
I have a button that opens another form to enter data on. But when I click the button I am getting the error msg: "Can't find project or library." And the debugger goes to the following sub routine and highlights Date in 3rd line(tried to bold).
This only happens on 1 user's machine. The other 4 computers open it flawlessly. All 5 have the same setup/security. Don't know why it works on 4 and not the last one. Any ideas?
(Access97.)
Private Sub Form_Open(Cancel As Integer)
Dim x As Long
Me.txtEntryDate.Value = Date
Me.lblErrMsg.Caption = ""
CurrentRateCode = ""
CurrentUnitFactor = 0
CurrentCartonFactor = 0
Set PTdb = CurrentDb()
Dim rsVASRate As Recordset
Set rsVASRate = PTdb.OpenRecordset("SELECT * FROM tblVASRateCodes", dbOpenDynaset)
x = 0
Do Until rsVASRate.EOF
VASRate(x).RateCode = rsVASRate(0)
VASRate(x).UnitFactor = rsVASRate("UnitValue")
VASRate(x).CartonFactor = rsVASRate("CartonValue")
x = x + 1
rsVASRate.MoveNext
Loop
VASRateTableCount = x - 1
rsVASRate.Close
DoCmd.RunSQL ("DELETE * FROM tblVASData") 'clear VAS data summary table
If TableExists("tblVASEntry") Then
DoCmd.RunSQL ("DELETE * FROM tblVASEntry") 'clear VAS data entry table
Me.subform_VASEntry.Requery
Else
DoCmd.RunSQL ("CREATE TABLE tblVASEntry (VEID IDENTITY PRIMARY, 'Rate Code' INTEGER, Units INTEGER, Cartons INTEGER);")
End If
End Sub
Hi
My repair form pulls data from the vendor table to display the vendor information.
Whenever i try to open the repair form, it gives me a popup first that says "enter the extention number"
regardless of entering data or pressing cancel my form gets displayed.
When i enter a number (a random number) it wil populate my extention field along with all other data. And when i dont enter any number and hit the cancel button, it populates all data except the extention field, that has nothing to do with the number that i enter but is the one stored in the vendor table.
I am confused what to do with this
Can anyone help me
thanks
I want to create a report using the data currently held in a form. I found this bit of code somewhere:
DoCmd.OpenReport "report", acViewPreview, , "[job number] = " & txtFilter.Value
txtFilter is the name of textbox containing the data I want for the report. This works if in the table for txtFilter's data the field is set to a number. But if I set this field to text it comes up with a data type mismatch error. How do I solve this? (sorry new to access and vba). The reason I want to set it as a text field is so that I can limit the number of characters entered.
Thanks
Chris
I just recently helped a local business move their files to a new server, and reinstall fresh windows and office on all their machines. I have run into a problem with Access, hoping someone can help.
Sometimes (usually when someone else has the file open), if you double click on the mdb file (which is on a mapped drive) nothing happens. If you make a shortcut that doesnt help. But if you open Access, and then goto File-Open and located the MDB file that way, it opens fine.
This is annoying to the employees and they want a solution.
Anyone run into this problem?
I work on a pre-created Access database, and the other day I was working on it, and was trying to export something to Excel to sort it and do some Pivot analysis.
Anyway, I must have pressed something, because now every time I open the database, rather than saying "record 1 of 20463" and showing the data from record 1, it shows "record 1 of 1" and all the data fields are blank. If I go to "Records" and "Show All Records" they'll all come up, but I don't want to have to do that every time, and as I import and export all the time, I'm worried that the next time I try it it'll mess up the years of data I have.
A receive a compile error when an OpenForm macro action is executed. The error message is: The form you referenced may be closed or may not exist in the database. Microsoft Access may have encountered a compile error in a Visual Basic module for the form.
How do I fix this compile error ?
In the database that I use at work sometimes when we OPEN it we get an immediate error saying out of memory, therefore we close it and reopen and all is good.
This is a problem when the average user logs on as they don't close it, they just continue on and then start experiencing issues.
I thought that the memory was supposed to clear when you close the database.
We run the debugger and no errors are ever found, we also run the compact and repair.
This can happen 1 in 10 or maybe 20 times when we open the database.
when i want to open the database in an access database i have the following error. you have as the event property setting the expression entered when open.This expression has caused an error amppu (database name) can not find the form that is referred to
View 4 Replies View Related