Search results

Make sure you are opening the database with the correct shortcut. You will get this error when you try and open a db without going through the mdw file.

Try importing everything into a blank XP database.

When this error occured for me I had Access2k and XP installed at the same time. I'm not sure if XP version will iron it out as it didn't for me.

The download you need is the 'Microsoft Office SP3'. This will prevent it from happening again.

As Rich said this is a bug. You will need to download a patch then copy all your code and paste it as a text file. Then set each form to HasModule = No Then you will need to create a new Db and import your tables, forms etc. Finally copy/paste back the code you saved as a text file. As far as...

You could use the common dialog control and then put some code behind a button similar to this Me.ActiveXCtl62.InitDir = "G:\Your Directory Name" Me.ActiveXCtl62.Filter = "*.doc|*.doc" Me.ActiveXCtl62.ShowOpen Change the *.doc file extensions to the file extensions that you require to...

I'm trying to return the value of 'Title' from a file property (word, excel etc), but with no luck. Has anyone done this? If so I would be grateful for any help. Thanks.

Dim fs, f, s Dim StrLen As Integer Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFile(Your File) s = f.Name Debug.Print (s) StrLen = Len(Your File) StrLen = StrLen - 4 s = Left(YourFile,StrLen) Set fs = Nothing Set f = Nothing

ghudson I posted this before Geoffcodds post but when I tested it it would not work. Hence I deleted the post. Can you get it to work or is it me being thick!!

I would try commenting out different parts of your code at a time to see if it solves the problem. At least then you can better identify which part of the code is causing the problem. If the problem still persists then you will need to look at other parts of your app.

Do you have any On_Open events running?

You may find some VB decomplilers on the net but I don't think you will have much luck. Most of them will only work with VB 3 if at all. Even then you won't get a full decompile. You may have more luck with a Hex editor. If you are the owner of the .exe don't you have the source code still?

dcx693 Whenever I've used Dlookup I could never get it to work your way even though that is the way it is described in help. I have always had to put the quotes around all of criteria part and then it works fine.

Try typing this at a command line. regsvr32 C:\WinNT\System\COMDLG32.OCX

Try This. =DLookUp("[Branch_Contact]","Branch","[Branch_City] = [Forms]![MainForm]![cboBranch_City]")

Do you have both Access 97 & 2K installed on your PC? I had a similar problem when I had both Access 2K and Access XP installed. In the end I removed Access XP and everything worked fine.

Not too sure on how to insert into a word doc. The code below will create a new .txt file called flag.txt and insert a line of text into it. It may help. Dim fs, a Set fs = CreateObject("Scripting.FileSystemObject") Set a = fs.CreateTextFile(DirStr & "Flag.txt", True)...

Access Runtime will work on Win98. Runtime is quirky though. I have had issues with some routines working and then not.

How are you checking to see if the report needs to be run? If it is based on whether any records are returned from a query you could use If DCount("*", "QryName") > 0 Then DoCmd.OpenReport "RptName", acViewPreview Else DoCmd.OpenForm "FormName" End If

Put a common dialog control on your form and try this. Dim Response Response = MsgBox("Do you want to add an attachment to the email?,vbYesNo,"Message Title") If Response = vbYes Then Me.ActiveXCtl48.InitDir = "C:\" Me.ActiveXCtl48.Filter = "*.doc|*.doc" Me.ActiveXCtl48.ShowOpen If...