whatever Microsoft office program is open. The problem i get is that when i add the reference Microsoft outlook 14.0 object library i get a compile error "ByRef argument type mismatch".
Code:
Option Compare Database Public Enum OfficeAppName Outlook = 1 PowerPoint = 2 excel = 3 Word = 4 Publisher = 5 Access = 6 End Enum
I copied some VBA from one database to another. I didn't change anything and I am able to run it fine in the first database. But in the DB I pasted it to, I am received a Compile Error message with the XlApp As Excel.Application area highlighted.
Function OpenAutoCount() Dim xlApp As Excel.Application Dim xlWB As Excel.Workbook
The basic idea is that I need to insert a record into a table and then return the Key field so that I can use it to populate another table. This was working just fine for a while, then it stopped and naturally I can't think of anything I did to make it not work. I get an Invalid Use of Null error at the bolded step.
Dim SQL As String Dim SpecID As Long Dim VerifySpec As Variant ' Check for empty strings If Len(Me.txtNewPartNumber & vbNullString) = 0 Then Response = MsgBox("Part Number cannot be blank.", vbExclamation, "Missing Data") Exit Sub End If
I just recieved a access project from a client, apparantly it works fine on their machine. I FTPed it to my machine. Both are winXP.
Most of the app works fine except when I try to bring up one form. I get this error.
Compile Error Can't find Project or Library.
This is written in access 2000 and that is what I am running it on. I've checked windows update, my computer is up to date. That includes Office update.
I tried running this on a second box that I have, a win2000 server I get the same error.
It apprears something is not getting transfered, any Ideas?????
I tried to declare a variable to be type Database and when I compile the program it gives me an error Compile error "Use Defined type not defined" this is the code that I have written:
Public Sub NewX()
Dim mydb As database ******** here is were is giving me the error, I tried to declare this on several places but it does the same error********** Dim myrecord As Recordset
Set mydb = CurrentDb Set myrecord = mydb.openrecordset("log", dbopendynaset)
the rest of the code continues....... End Sub
Any help will be appreciated, I am trying to save the information on the database by clicking a coomand button .
I used "Option Explicit" at the beginning of a module. When I compiled the code, I received a Compile error that indicated the Set dbs = CurrentDb is not defined.
I am trying to check for when a user trys to enter a duplicate number.
The control that I am checking is in a subform on the main form:
Main: frmCandidateInfo Sub: frmTestInfo
Control on the subform is: RankOrder
I am trying to check the control entry against the table entry:
Table: tblTestEvents Field: RankOrder
Here is what I have:
Code: Private Sub RankOrder_BeforeUpdate(Cancel As Integer) Dim lngRankDup As Long lngRankDup = Nz(DLookup("[RankOrder]", "tblTestEvents", "[RankOrder]=" & Forms!frmCandidateInfo!sfTestInfo!Form!RankOrder, 0)) If lngRankDup <> 0 Then MsgBox TestEventID & " already exists in the database" End If End Sub
I know that the error is due to the argument not being correct, but I am not sure how to fix it.
I have been trying to find a solution to why I can't get a Dlookup with multiple criteria to return the value I need.
Essentially I am trying to use an Order Number to find the item number which is contained within another table. However the order number has multiple lines (suffixes) which alter the item number. Therefore I am trying to have the item number be populated by the correct 'combination' of Order Number and line ("suffix").
I have managed to use the Dlookup in the after update of each box of the form separately and they retrieve values in the table correctly:
Afterupdate of main order number:
Code:
Private Sub OrderNumbertxt_AfterUpdate() ItemNumbertxt = DLookup("item", "dbo_job", "[job] = '" & Forms![**INPUT]![OrderNumbertxt] & "'") End Sub
Afterupdate of suffix:
Code:
Private Sub SuffixTxt_AfterUpdate() ItemNumbertxt = DLookup("item", "dbo_job", "[suffix] = Forms![**INPUT]![SuffixTxt]") End Sub
However when I combine them as follows in the afterupdate of the Suffix box I receive a "Run-time error '13': Type mismatch"
Code:
Private Sub SuffixTxt_AfterUpdate() ItemNumbertxt = DLookup("item", "dbo_job", ("[suffix] = Forms![**INPUT]![SuffixTxt]") And ("[job] = '" & Forms![**INPUT]![OrderNumbertxt] & "'")) End Sub
I think the reason is something to do with some being numbers and some being a combination of text and numbers (based on the replies of other topics), but have been trying to modify these slightly and can't get it to work still.
Also the Order Number is a combination of letters and numbers (normally in the form of AB12345678), the suffix is just a number between 0-9 and the Item number it finds is a combination of numbers and letters.
When trying to open an Access database on the server, an error message appears - "Compile of hidden files error", followed then by a run-time error. There is no problem accessing the the server and opening the database from another PC? Does anyone have any ideas what could be causing this. Backups to CD have started failing at the same time.
I have an unbound list box that updates the data displayed on the form when a selection is made from the list.
Private Sub List13_AfterUpdate() ' Find the record that matches the control. Dim R As Recordset Set R = Me.RecordsetClone R.FindFirst "[HospitalID] = & '" & Me![List13] & _ "'" Me.Bookmark = R.Bookmark Me![List13].Requery End Sub
I am having problems with this no longer working once I import the database objects into a secured database. I am encountering an error "Compile Error: Method or data member not found" with reference to the list box in the "findfirst" statement. I have tried this many times before and after the security and the results are consistent. I was otherwise ready to go with this new database. Any insight would be appreciated as always. Thanks.
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.
I have developed a quote form that is working well. I want to print out a Quotation to send to my customer. Currently it shows the Qty, Item ID# and description in the detail portion of report. In the report footer, currently it will print out, Subtotal, Freight and the resulting total.
A problem arose when I tried to add the total weight of the items in a quote to the report form. I get a "compile error...variable undefined" msg when I try to open up the report by clicking a "Print Report" button I have on the form.Here is the code that is highlighted by the error msg. the Undefined variable is dWtTotal n red below.
Private Sub ReportFooter_Format(Cancel As Integer, FormatCount As Integer) Me!txtSubTotal = dSubTotal Me!txtDiscountValue = dDiscVal Me!txtTotal = dTotal Me.txtFreight = dFreight ' Me!txtTotalWithWork = dWithWork '12-21-14 Add Total Job Wt to Report Me.txtWttotal = dWtTotal
I feel like I have defined the variable with this code below which is in the first part of the VBC code that occurs when I click on the Print Quote button:
I tried to create a form that recognizes two kind of users and when you log in it shows a different form, reading and seen videos I type something like this (code below) but when run in a click on a button it says....
Compile Error: Variable not defined: In this forum read that you must declare global variables on a Module, so I added this on a Modele Called Modeule1 but also doesnt work.
Option Compare Database Option Explicit Public strAdmin As String Public strUsuar As String
Usuar and Admin are the form that will appear when login as a usuary or Administrator.
Option Compare Database Option Explicit Dim NumIntentos As Integer
I have been working on this problem for about the last hour, and have gotten absolutely no-where - I cannot figure out what is wrong with my DLOOKUP.
I am using it in a query, as part of an IIf statement, but to simplify things whilst testing, I have just bunged the dlookup into a text box on a form, but itself.
The code I am using is:
=DLookUp("[SHORTNAME]","CPL_NOMINEE","[FULLNAME]=" Like "*" & "[AccID]")
What I am trying to do is return the SHORTNAME, from a table called "CPL_NOMINEE", which is a linked table (to Oracle), where the field FULLNAME has the value of ACCID at the end.
An example of each field would be:
SHORTNAME: CNL FULLNAME: H Noms Ltd 500222 ACCID: 500222
With the code above, I just get a blank box - as if it can't find anything in the dlookup, but I can SEE the data is there in the table - what's up?!?
Am currently having trouble with a DLookup function as follows
Table ======
Products ProductID Description Nett
I have a form (Purchase Order Detail Subform) where by I want to enter the Product ID manually and then for the Description and Nett fields to populate automatically I've started on the description field: =DLookUp("[Description]","Products","[ProductID] =" & [Forms]![Purchase Order Detail Subform]![ProductID]) but this isn't right, being a bit of a newbie to access its probably because I've done something really silly... any idea? Thanks
I have a table called "ShrinkWrapBinding" where I am supposed to look up a "Price" from. As you see in the code below, I calculate a "totalPackages" number which comes from values in a form. My problem is that when I try to use this value (totalPackages) on the DLookUp function (as seen in this code) it gives me a syntax error exactly on the totalPackages variable. Please note that I added single quotes to the 'totalPackages' variable when I use it on the DLookUp function, and have tried every possible combination (single quotes, double quotes) but still doesn't work. What is it that I'm doing wrong?
Code: Dim totalPackages As Integer Dim tempPrice As Double
I made a form for a table which contains client questionnaire responses, "Dec4Docs". I wanted to include the names of these clients in the form, just to make everything easier for whoever is doing data entry, but client names are in a different table, "BasicInformation". Both the questionnaire table and the client information table use a common ID number, "WISnum". I found a number of online tutorials which instructed me to use the DLookUp function for what I'm doing.This site here, for example, suggests the following formula:
^This was meant to find FirstName in the BasicInformation table where WISnum is equal to the WisnumField of the Dec4DocsForm form. Instead, all I got was a flashing error message that partially broke the program's GUI. I could not find a solution on Google, so I played around for awhile, bug checking by adding and removing things to the formula, until I finally got a little lucky and figured this out: