Search results

No, there is no need even to have a promary key in that table. I will of course be carefull about that and back-up, backup, as I always do, now. That table is a sub-table to a main work table. It collects a list of equipment used to perform work referenced in the main table. It could contain...

"LIKE" FOUND 2 "=" FOUND 1 That is what I am saying makes no sence. I have to wait to kick everyone out of the backend and modify that strange KEY setup and then try it again. Dave

[What text is being passed in the TempRA variable?] TempRA is dimensioned as LONG (that is why I don't understand why the "like" statement worked. I thought that was for text. I just tries it on a whim. [Is a physical impossibility. Do you mean a Foreign key?] Don't know what a Foreign...

See attachment. Wierd looking table, eh? Don't know how that happened (before my time <grin>). I will try correcting the primary key and see what that does. Not sure how my first method even saw one record.

TempRA is dimensioned as LONG The field I am searching is a Number, Long Integer. It's strange that it even finds 1 record via the first method.

Interesting, this table had two "KEYS" in it. One to the left of "RANum" and one to the left of "SerialNO". That shouldn't be possible should it? I wish I could paste a screen shot in to the message.

Why does the following report (correctly) 2 records: strSQL = "SELECT * FROM SERVICERECORDCALEQUIP WHERE RANum like " & TempRA & " ORDER BY RANum;" and this statement on finds one record: strSQL = "SELECT * FROM SERVICERECORDCALEQUIP WHERE RANum = " & TempRA & " ORDER BY RANum;"...

Fantastic Tip!!!

Okay Bob, Here is the offending function that is crashing the docmd.sendoutput command: Function SetDefaultPrinter(strPrinterName As String) As Boolean Dim strDeviceLine As String Dim strBuffer As String Dim lngbuf As Long ' get the full device string ' strBuffer = Space(1024) lngbuf =...

I found the offending lines of code on the CertReport report: If fIsLoaded("ServiceRecord") Then SetDefaultPrinter (Forms!ServiceRecord!DefaultPrinter) Forms!ServiceRecord.SetFocus DoCmd.Maximize End If I will investigate further.... Now this is weird. If I remark those lines out...

Well here is an example that causes Access to instandly crash and exit: Dim stdocname As String Dim CC As String Dim FaxNum As String Dim Revision As Variant Dim MyForm As Form Dim Dprinter As Variant ' Set MyForm = Forms!ServiceRecord ' 'Print cal cert ' If IsNull(MyForm!CertVersion) Then...

Creating an HTML message in this manor: Set olapp = CreateObject("Outlook.Application") Set olNamespace = olapp.GetNamespace("MAPI") Set olfolder = olNamespace.GetDefaultFolder(olFolderInbox) Set olMailItem = olfolder.Items.Add("IPM.Note") Set olattach = olMailItem.Attachments ' With olMailItem...

One more question concerning this. When using this routine, Outlook pops up a window stating that a program is trying to automatically send an email on your behalf......" Is there anyway in the VBA code to prevent this?

Hello there. Access 2000. stdocname = "CustomerWorkOrderRpt.XLS" DoCmd.OutputTo acReport, "CustomerWorkOrderRpt", acFormatXLS, stdocname, True Works, but Access closes, or crashes, immediately after creating the XLS spreadsheet. I have tried AcFormatHTML, AcFormatSNP, acFormatRTF and all...

Okay, I figured out how to reference Outlook. It works well to creat an email. I am still having problems because what I want to send is the output of a report. When I use the Docmd.OutputTo command to create a file, access seesm to lock-up on the second page of a two page report. I have...

Hello there, your email sending example is not working for me. I am getting a "user defined type not defined error" on the first line: Dim olapp As Outlook.Application Did I have to reference a given library?

Thanks Bob. I swear I thought that maybe I tried that, but I probably had something slightly wrong <g>. I will try that very soon. Thanks again.

If a user is asked for the Fiscal Week how can I have VBA determine what the start date of a Fiscal Week is? I know how to enter a Date and determine what fiscal week it is in. I have stolen <grin>;) enough code to do that. Often my manager will tell me to generate a so and so report for...

Hello there, I can export to Excel but only if an "example sheet" already exists. In the example below, NewFilename might = "Week 9 Labor Hours.XLS". If that Excel files doesn't already exist, I get a runtime error "1004 Week 9 Labor Hours.XLS could not be found....". If it already exists...

Another desparate plee that I eventually figured out myself. I sure wish there was a list of all property functions that I could find for MSGraph. ' If Me.ProbeNumElements <= 32 Then Graph_Data.axes(1).ticklabelspacing = 1 Graph_Data2.axes(1).ticklabelspacing = 1 ElseIf Me.ProbeNumElements...