Replies

How can I program it in VB so that I can make the “CurrentItem” the form? Will a double click bring the focus to the button/form (between step 3 and step4). If I leave it as is… a single click will activate the button on the form. Will a double click 1.set the focus on the form and 2. act on the button. Can someone show me how to do it?

1. Open a New message or Reply to a message
2. Start a CIGARS form
3. Switch back to your email message and enter more information.
4. Switch back to the CIGARS and press the “Submit Request to CIGARS”

I have found a bug in my forms that will in the right circumstance, send out an email message instead of the Form being worked on. These are the steps that will produce the problem.

1. Open a New message or Reply to a message
2. Start a CIGARS form
3. Switch back to your email message and enter more information.
4. Switch back to the CIGARS and press the “Submit Request to CIGARS”

The “Submit Request to CIGARS” cmd button is used to forward the request via code to a distribution list.
This will send your email message and not the CIGARS form. In order for this not happen until we fix this problem, we ask that the users make sure that you are not in Outlook either creating a new message or replying to a message.

This is the code I use to forward this form:

Sub Forward1
SetObjForward = Application.ActivInspector.Currentitem
ObjForward.To=”CIGARS”
ObjForward.SendOnBehalfOfName=strCAD
ObjForward.Send
End Sub

Can anyone recommend what I can change? By clicking on the new message and then back to my forms it id’s my message as the CurrentItem.

Got the project started and have picked out a scanner.

Will be using a Kodak – 35xx. – Most of the high speed scanner are build the same but the Kodak seemed to have a stronger case built into it. Less maintenance by our people was a very big factor. For the software looking at using Kofax because it seems to be more flexable and offers more options then the others. By next month we hope to have at least one in production. Will try to update this one more time then.

Let me go over it.. I have 5 PC’s – 3 have Access 97 and 2 have 2000. We want to convert files from 97 & 2000 to Access 2.0.

One of our clients is still using Access 2.0 and they need this file.

Just want to “convert” the data into 2.0

Have to get back to this problem now. I have a 2 databases that is in ver 97 & a different db in ver 2000. What are the steps to convert this to ver. 2.0 How do I now if my system is setup to do this?

Be working on something else for a while and just go back to this problem. If I manualy delete “Runterm2001.xls” it works fine. How can I get it to overwrite the file? Starting to get desperate.

‘Save Spreadsheet
Application.DisplayAlerts = False
‘Kill “J:EdgarSecurityMasterTerm2001.xls”

ActiveWorkbook.SaveAs FileName:=”tabsproddatabaseEdgarSecurityRunTerm2001.xls”, _
FileFormat:=xlNormal, Password:=””, WriteResPassword:=””, _
ReadOnlyRecommended:=False, CreateBackup:=False
Application.DisplayAlerts = True
End Sub

HELP: I use MS Excel 97, Access97
Tried this your suggestion and it will not work in my case. I need to use the following network path: prodSecurityMasterTerm2001.xls

I keep getting “RunTime Error: 70, Permission denied” when it comes to the KILL statement at the end.

With ActiveSheet.QueryTables.Add(Connection:= _
“FINDER;tabsproddatabaseEdgarSecurityTermination.dqy”, Destination:=Range(“A5”))
.FieldNames = True
.RefreshStyle = xlInsertDeleteCells
.RowNumbers = False
.FillAdjacentFormulas = False
.RefreshOnFileOpen = False
.HasAutoFormat = True
.BackgroundQuery = True
.TablesOnlyFromHTML = True
.Refresh BackgroundQuery:=False
.SavePassword = True
.SaveData = True
End With
Rows(“5:5”).Select
Selection.Delete Shift:=xlUp
Range(“A5:F38”).Select
Selection.Sort Key1:=Range(“D5”), Order1:=xlDescending, Key2:=Range(“A5”) _
, Order2:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom

‘Save Spreadsheet
Application.DisplayAlerts = False
Kill “tabsproddatabaseEdgarSecurityMasterTerm2001.xls”
ActiveWorkbook.SaveAs FileName:=”tabsproddatabaseEdgarSecurityMasterTerm2001.xls”, _
FileFormat:=xlNormal, Password:=””, WriteResPassword:=””, _
ReadOnlyRecommended:=False, CreateBackup:=False
Application.DisplayAlerts = True
End Sub

When I to to Excel/Macros/VB/Tools/Ref. I have Outlook 8.0 Obj. library checked. I still get the same problem. If I take out the objOutlook or Outlook from “Outlook.Applications” it goes a step further. I am not a programmer but I am starting to understand what you are saying. Will try again.

I keep getting “User-defined type not defined” on the the first “DIM objOLook As New objOLook.Application” What am I doing wrong?

I am using Excel97 and Outlook98. Will try to get this working.

Getting “expect end statement” and points to “set objAdd” line.

Dim objApp as excel.application
set objApp = CreateObject(“excel.application”)
With objApp
.Workbooks.Add (“tabsproddatabaseedgarsecurityterm2001.xls “)
End With

I am trying to combine this information into a new field. In the Expression Builder I can use this line.
Expr1: IIf([dbPCon]![mfdisk]=True,”Mainframe to Disk”)

But if I try to add a second or so forth I can get it to work. I also tried:
Expr1: IIf([dbPCon]![mfdisk]=True,”Mainframe to Disk”)and IIf([dbPCon]![PCMF]=True,”PC to Mainframe”)

and
Expr1: IIf([dbPCon]![mfdisk]=True,”Mainframe to Disk”)or IIf([dbPCon]![PCMF]=True,”PC to Mainframe”)

None seem to work.

Lets see… I am using Windows NT 4, Outlook 98, MSAccess 97. In the Control Panel I opened the ODBC Data Sources,
I show for drivers MS Driver (*.mdb) ver. 4.00.4202.00 file ODBCJT32.DLL.

Computer 2(workes here) MS Driver (*.mdb) ver. 3.50.3428.00 file ODBCJT32.DLL

Anyone see a problem with using 4.00?

Just tried that. I went into MS Access97 and it come up fine.