i have the following code and i have the below error:
can't find the project or library in red part
Code:
Option Compare Database
Option Explicit
Function DatumUmwandeln(Datumstring As Variant) As String
Dim Monat, Tag, Jahr As String
If Datumstring <> "" Then
Tag = Format$(Datumstring, "dd")
[code]....
Code:
Private Sub Form_Open(Cancel As Integer)
cboDateStart.Value = Format(Now() - 7, "short date")
...
End Sub
When I run procedure the Format is highlighted and popup error message:
Compile error: Can't find project or library
I try to use the function chr() and left() in Access2000. but it got "Complile error: Can't find project or library".
View 1 Replies View RelatedOkay, I have been away from in-depth access for several months and now I am transfering my project to a new computer with Office 2000 and latest patches installed.
When I try to run a screen, I get the error "Compile Error. Can't find project or library."
I check the references against the old computer and they are all the same.
The silly thing is that it is built-in functions like "trim" causing the error.
I know this is very basic but I forget what causes it.
Thanks much for the help!
Please help!
Working on an Access 97 database that I have inherited, on win 2000. The database is converted into an .mde file for the users.
I need to convert my new version to an .mde file, it does convert, but then when trying to open it afterwards gives the error below. Believe it's connected with the startup form frmsplashscreen which has 'on current', 'on open' and 'on timer' events
The expression On Open you entered as the event property setting produced the following error: Cant find project or library.
I have gone back to the .mdb it was converted from and compared the startup form to that of a previous version. All the code is the same.
I have also tried commenting out the on open event, which then changes the error to
The expression On Current you entered as the event property setting produced the following error: Cant find project or library.
I don't understand why it does not work, this same form opens fine when it's an .mdb file.
This is the first time I have worked with .mde files...I've looked on the internet, can't locate the exact error but similar ones point to problems with files on my ws (references etc). Previous versions of this database as .mde files work fine though?
Just say if you want the code from the startup form.
Help! Can't see what is causing this issue.
The Str() function is a basic, how can this function be missing? I had a problem not so long ago with not being able to change background colors via VBA 'cause, I'm almost certain, the same error message.
Somehow my Access installation is broken, or my HD is dying? Haven't noticed any other errors with my system though.
I am running Office 2010 but at one time also had Office 2013 installed on my Windows 7 64 bit OS PC. The first attachment (AccessProblem) shows the error message that I get when it hits the
Set olApp = CreateObject("Outlook.Application")
line. I get the automation error - library not registered error. The second attachment (Access2Problem) shows the references that I have.
I am using VBA for MS Access 2003. I left this project since 4 years and I know back to it as mass needs forced me to use it again.
I use trim function. it raises the compile error: can't find project or library. I know that the solution is by adding the library in the References item from the Tools menu. Thus What are the minimum libraries that I should add so that these basic problems solved. By the way: I already added the Microsoft Visual Basic for Applications Extensibility 5.3.
I have a program running with VBA coding, whereby the user enter a password which then sets the field attributes to enable the user to change them.
This is working on my laptop, on the client's LAN, it also worked through REMOTE DESKTOP, but the Head Office installed new PCs and now the REMOTE DESKTOP cause a problem.
I built a form—frmDataEntry—whose Record Source is a query called qryEvent, which contains various fields from tblEvent. The primary key field is called EventID.
I also build a subform—sfmDataEntry—whose Record Source is a query called qryEventImages, which contains various fields from tblItem. One of those fields is ItemEventLink, which links records from tblItem to the EventID field in tblEvent. There is also an image box in this subform: filling in the field ImageFile with an image name (example: Logo.jpg) causes that image to display in the image box.
I’ve inserted the subform into the form using the Subform Wizard. Now I’m getting an error message that says "2450: Microsoft Access cannot find the reference form ‘sfmDataEntry’." Why this is popping up. The Link Master Fields and Link Child Fields sections of the property sheet are filled in correctly. Moreover, the subform records are still appearing, but the images linked to each record aren’t loading.
I'm creating a DB that includes a form that "Customers" will fill out. The form (CustomerForm) has text boxs that must be completed. I'm trying to figure out how to make sure all text boxes are filled out. I have already created a Input Mask and selected Required in the "Customer" Table. There is also a Username text box I would like to have validated that is is not already being used and two password text boxes I would like to have validate against one another to ensure it was created correctly. Once all text boxes are properly filled out I would like the Button to Save customer data, close CustomerForm and Open ShoppingCart. This is the code I have created:
Code:
Option Compare Database
Private Sub Log_In_Click()
If IsNull(Me.CustomerFName) Then
MsgBox "Please Enter First Name", vbInformation, "First Name Required"
Me.CustomerLName.SetFocus
[code]...
I have a search query that searches for different results based on 3 criterior. I have set up a form so that the user can input the text into the form and then once the Submit button (that i created) is clicked the query table will be shown.
My question is:
Is it possible to have an error message box appear when i click submit and no data is returned by the search query?
I'm hoping for the message box to say "No corresponding records to your search criteria. Do you want to try again?"
Then the options given in the message box are Yes (where they should be taken back to the search form) and No (Where they are taken to another form).
I need to be able to produce an error on a form where the user attempts to create a new user that already exists. The error needs to be produced when the save button is clicked.
See below for the existing code on my save button which exists in form, 'frmAddEditUser':
Private Sub cmdSave_Click()
If IsNull(cboManagerID) = True Then
MsgBox "Please select a manager", vbExclamation, "Details Missing!"
Me.cboManagerID.Requery
[Code] ....
Currently, if I attempt to create a user with the same Payroll ID as an existing user, my 'User details saved' message box is displayed and to the user it looks like a new record has saved successfully which isn't the case.
I need a message box to appear displaying something like "Payroll ID n already exists" where n is the 'PayrollID' of the duplicate record. (Is it possible to combine a value from a certain control and ones own custom text?)
Note: PayrollID is a combination of letters and numbers, i.e. two letters, followed by 5 numbers, e.g. JD12345.
For reference, the table/field and and control are called, '[tblUser].[PayrollID]' and 'txtPayrollID' (on 'frmAddEditUser') respectively; it is from this field and control that I want the error to be produced if the user is entering the same values which are existing in 'tblUser'.
I have a simple code for an access form button to send a email message.
It looks like this:
Quote:
DoCmd.SendObject , , , [emailaddress], , , [CustomerId], "Dear " & [CustomerName] & "We inform you that (...)"
When I click the button an email message window pops up, and if I do SEND it, everything ends well.
The problem:
If choose NOT to send it, and I close the email message window, an error pops up causing my database to close (I use access runtime).
Do you think I can add anything to my vba so this error doesnt occur?
I have an unbound form: frm_ReceiptSearch with some fields that, when something is input, will search a datasheet viewed form on a subform on the main form (subform name is sf_frm_Receipts). Currently, on the txt_CheckNo field's after update event, I have the following code:
Private Sub txt_CheckNo_AfterUpdate()
Dim SrchVar As String
SrchVar = Me.txt_CheckNo
Me!sf_frm_Receipts!REFNO.SetFocus
DoCmd.FindRecord SrchVar, acEntire, , acSearchAll, , acCurrent, True
End Sub
but I'm getting a runtime error 438.
I completed the Op[en form and find specific data wizard and it works.
Here is my issue: If there is no data to find, I get a "Stop Macro" error.
How to change this?
I am trying to run the below code but I am getting the MS Access can't find object on this line
Code:
DoCmd.OpenQuery "SELECT * FROM PROV_CL WHERE [Address 1] LIKE '*" & strInputBox & "*'", acViewNormal
Code:
Private Sub cmdPreview_Click()
Dim strInputBox As String
Select Case cmbReports
Case "Darin Bad Address"
[Code] ...
I have VBA code that makes use of the Microsoft Office 14.0 Object Library, but if I have this selected whenever I try to do anything in the Form Design view it is constantly freezing. It will literally say not responding" for a minute or so then I will have control again.
View 7 Replies View RelatedI am using Access 2010.
I want to set up a Library File containing code that I can call from numerous access databases.
I try to make reference to the newly created Library.accdb file in Tools - References and get the error message: Name conflicts with existing module, project or object library.
I have checked the names of all of these and there does not appear to be a conflict.
Does anybody know what this error message refers to?
"Reserved Error (-1517); there is no message for this error."
It just started happening today, and I haven't even made any changes to the database. It occurs when I hit a button I have to run a macro.
the macro does the following:
1) Shows all records
2) Requery
3) ApplyFilter.
The Where Condition for the filter is:
Right([tblContracts].[JobNum],4)=Right([Forms]![FrmContProc].[txtFindJobNum],4)
The weird thing is that it only occurs if the Form window is taller than 1/2 of my viewable area. If the Form window is 1/2 the viewable area or shorter, it works OK. This was running fine earlier today, but about 4:00 pm (03/31/06) this started happening.
If anybody knows what this error means, or how to get rid of it (I really need to use this window in full-screen) then please let me know.
-Thanks, Sean
I am not sure where to start or go about creating message box that would display "No results found" if my queries return no results. My search of the forums hasn't been fruitful.
I have created one form that has a text box and a button that works as a search function to run through the tables and displays the applicable queries. Currently, if no results are returned nothing happens. Preferably I would like a message box to display stating that there were "No results found". I would assume that the code would be associated with the "Find" button. Here is the VBA code as it stands, again, I haven't even attempted to add code for a message box.
Private Sub Find_Click()
On Error GoTo Find_Click_Err
If DCount("Heading", "Service Desk Manual Query") > 0 Then
DoCmd.OpenQuery "Service Desk Manual Query", acViewNormal, acReadOnly
End If
[Code] .....
Find_Click_Exit:
Exit Sub
Find_Click_Err:
MsgBox Error$
Resume Find_Click_Exit
I have a report named Link_report which retrieve links to find some documents. I would like to add a Msgbox to say: " No link has been found for this document" when the case link is empty.
View 10 Replies View RelatedHello All,
I have been developing my database all one seems to be well exept for an error message which is attched.
If anybody can help me trap this error or offer some advice i would be greatfull.
Alastair
I have tables and forms setup but I have 3 general questions on how to finish the project.
1. Should I create a folder where all the files reside for instance, create a phone log folder, put the DB file into the folder and export XML's into the same folder?
2. How do I get the form to launch as a self-contained form without the Access application in the background?
3. How can I get this form and table to automatically update an XML spreadsheet whenever records are added?
4. How can I get the form to sort all records according to time logged? The time will be entered in manually and we need all the records to sort automatically by time in ascending order.
While going to the design mode of a form, I regularely get the following message :
Microsoft Access can't run the macro or callback function 'fDesign'.
In my Dbase there is no macro with that name.
Can anyone tell me what this messages means and how to get rid of this thing.
Running Win XP, Access 2003 Sp1
I have attached a screen print of an error message I recieved on my access database. I finally got it to come up, but only after a few pop up boxes with this error message.
I do know the shared drive it is housed on went on the fritz. So I copied it and pasted it to my desk top. Grrr...I thought this message was due to the flipping shared drive. But now, I recieved it on my desk top too.
Anywho...can someone look at it and tell me what it means.
Thanks alot.
PS, i know my desktop has to much stuff, so don't go there. ;)