Runtime copy not working on Windows XP

Hello all

I have an Access 2010 front end to a SQL Server 2008 R2 Express database that has been created and worked on using Windows 7. To distribute the front end to other users in my office I've used the 'Make ACCDE' feature and have then saved the front end on other machines that have the Runtime version of Access installed.

This all works fine on other Windows 7 machines, but it doesn't work on Windows XP machines.

I came across this problem a little while ago and found some posts on a couple of forums about this being a known issue and I think that there was a work around. But now that I'm trying to resolve the problem I don't seem to be able to find the same posts that I had seen before!

Can someone please point me in the right direction.

I think I recall that one option is to create the ACCDE file on a Windows XP machine running Access 2010, but if possible I'd like to do it all on my Windows 7 machine as I don't have a Windows XP machine with a copy of Access 2010.

Thanks in advance
Speedball


Post your answer or comment

comments powered by Disqus
hey,

I made a whole project in Windows 98 and Access XP and when i tried to run the same project on Windows XP with Access XP it got LOADS of ActiveX errors like when pressing buttons, Setting values through macros etc..

I also worked on the project on Windows XP + Access 2000 so the file base is of Access 2000.

It's wierd how on Windows XP + Access2000 and Windows 98 + Access XP it works perfectly, but on Windows XP + Access XP it fails.

Please help!!

I have a simple sales pipeline tool written in Access 2007. Most people are using the Access 2007 runtime as they don't have a full Access 2007 licence.

Some users need to import data from other users and to do this, I added the following code (not my own as I am not a VB expert!) to open a file dialog box so that they can select the relevant file.

This has worked fine on Windows XP but one user has Windows 7 and whenever he tries to run this code, he keeps getting an errror.
he's using the 32-bit version.

I've already deployed the tool across several companies so I don't want to change the database if I can help it. Is there anything I can do on his machine that could help? Is he perhaps using a Beta version of Window 7?

Any ideas???

Set ObjFSO = CreateObject("UserAccounts.CommonDialog")
'Sets Type of file to look for
ObjFSO.Filter = "VBScripts|*.vbs|Text Documents|*.txt|All Files|*.*"
ObjFSO.FilterIndex = 3
'Sets Directory for initial search to start in
ObjFSO.InitialDir = "C:Your Location"
InitFSO = ObjFSO.ShowOpen
'Transfers file using acImportDelim profile previously set through manually importing into table
DoCmd.TransferText acImportHTML, ("QryEnquiriesExport Import Specification"), ("tblUserEnquiriesImport"), ObjFSO.filename

Dear Friends,

I have BE database file on network and a RunTime file on users machines connected to BE (Back End).
I used to send the FE (Front End runtime file) to all the users through email and ask them to copy it on their machines whenever any development/changes occur.

The problem is:
It does not work on some machines and gives errors messages such is database is corrupted or corrupted file format something like that.
The only solution I can do is to visit clients and make the runtime file individually on their machines.

Is there any other solution???

Hi
i have made a database and on the pc i use it works fine, the database has to be used by several people so i copied it to their pc and most of them work fine but 2 pc's have a problem with one field, they are same OS and spec as others that the database works on.
the field that has the problem is in formsstock the 'allocated' main field picks up from the total in the subform but on the 2 pc's that have the problem the allocated in the main just appears blank and so the on_hand calculates as allocated having zero value.
hopefully someone can explainhelp with this
i have tried reinstalling access (2003) but still no difference
also works on access 2000 pc's as well
thanks
kev
tried on windows XP & 2000
access 2000 & 2003

Hi
i have made a database and on the pc i use it works fine, the database has to be used by several people so i copied it to their pc and most of them work fine but 2 pc's have a problem with one field, they are same OS and spec as others that the database works on.
the field that has the problem is in formsstock the 'allocated' main field picks up from the total in the subform but on the 2 pc's that have the problem the allocated in the main just appears blank and so the on_hand calculates as allocated having zero value.
hopefully someone can explainhelp with this
i have tried reinstalling access (2003) but still no difference
also works on access 2000 pc's as well
thanks
kev
tried on windows XP & 2000
access 2000 & 2003

I have 2 fields printing out. They both have the 'can grow' property set to yes. It's working on one (this one is a combination of fields), not working on the one straight from the database. What could be wrong?

Thanks in advance for any help.

I hate to bother everyone but, I am having a reoccurring problem with an Access program. I have two tables linked to Access, table one is created from an existing Excel file, table two is created from a Showcase Query. On my computer (Leb029) I can run the query from showcase, open the file and access works fine. However, when I open the access program on another computer (Lebanon-QRE1) and run the Showcase Strategy Query, the access program does not recognize the field names and starts prompting the user for parameters. Once this happens, the access file will not work on any machine. Now, if I run the showcase file on my computer then go to the QRE1 computer and open the Excel files, the access program works just fine. This is leading me to believe that Showcase Strategy is the "culprit". I checked all the versions of Excel and Showcase and they all appear to be the same. Would anyone have an idea of what might be causing this. Both computers are using ShowCase 4.00.040.204.

I'm working on Windows XP, MS Access 2003 SP1. The problem that I'm having is that even though the Special effect on my objects is set up to SUNKEN, they still appear FLAT, in order to change the appearance, I have to select the object, change the Special Effect property to "Shadowed" and back to Sunken, and then it works.

What could be happening? Does it have something to do with Access 2003? Could it be that we are missing a file? Suggestions are greatly appreciated.


Thanks,

Maritza

Hello,

I have a macro which runs several queries, some of these queries do not work on some of my computers. It doesn't bring up any error message and looks like it is running properly.

I'm not sure where to start looking for a problem. If I run the query on its own then it works fine.

Any ideas would be very grateful.

Description of my setup / the problem:

SERVER1 - Holds the database back end. Permissions on the database file (And folders it's in) are full access for everyone.

COMPUTER1 - Windows 7, this computer originally created the database using Access 2010 Professional. This computer runs the front end of the database successfully, no problems.

COMPUTER2 / COMPUTER 3 - Windows XP running Access 2010 Runtime / Windows 7 running Access 2010 Runtime. These computers both get a security warning when opening the database. They read data fine, but do not write any data. No error message is displayed / nothing to indicate that there is a problem.

I have rechecked file/folder permissions on the network and can't find any issues. I'm guessing that the problem either occurs because
(A) Access 2010 Runtime works differently than Access 2010 Professional and is unable to write for some reason (Unlikely)
or
(b) Access 2010 detects that the file didn't originate from the local computer and limits it's permissions for writing data (More likely)

In either case, I'm wondering how to resolve this issue.

Greetings, all

I am developing a Microsoft Access 2000 database (on Windows XP) that will have a report with images. (Two different images on the same page in the end, but that's perhaps a future post.) I'm using an image frame to display images and a text box to concatinate the file path/name. Through a lot of trial and error, message board interaction/review, MS Knowledge base review, etc., I came up with some code that worked well for a previous project that I did a couple of years ago. I thought I could use the same exact code for this new project, but for some reason the report doesn't want to show the jpgs. Actually, the "no picture available" jpg will display, but the record-specific saved jpgs won't. It seems to at least be looking in the right place, as the photos are all in the same folder.

If I remove the error trap in the code, I get a "run-time error 2220" message that says it can't open the jpg file. Just because I'm curious, I copied the "no picture available" jpg (since it will display that) and renamed as the file name it's telling me it can't open. This did not solve the problem, as I continue to get the same message with the same file name.

Sorry for the long-winded post, but I thought I would try to answer your potentially most basic questions up front.

Please consider, my code skills were enough to cobble things together in a workable fashion to this point, rather than creating great new compositions. The code I'm using is below. Thanks a million for your consideration.

Best regards,
- Johnette


Option Compare Database

Private Sub Form_Current()
On Error Resume Next
Me![Photo2].Picture = Me![PhotoName2]
End Sub

Sub PhotoName2_AfterUpdate()
On Error Resume Next
Me![Photo2].OLETypeAllowed = 1
Me![Photo2].SourceDoc = Me![PhotoName2]
Me![Photo2].Action = 0
End Sub


Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
Dim strNoPicFile As String
strNoPicFile = "P:70064 - Wash West Historic DistrictDatabaseSurvey PhotosNoPicFile.jpg"

On Error GoTo Err_Detail_Format

If IsNull(Me!PhotoName2) = False Then
Me![Photo2].Picture = Me![PhotoName2]
End If

Exit_Detail_Format:
Exit Sub

Err_Detail_Format:
Select Case Err.Number
Case 2220
Me![Photo2].Picture = strNoPicFile
End Select

Resume Next

End Sub

Hi,

I have a filter sub that has worked perfectly fine in Windows XP, but will not work when used in Windows 7. The database is in 2003 format.

Basically, I have a text box in the form header (frmStockInfo). When you type in a keyword and press enter, it searches the table "tblStocklist". It then brings all the records which have this keyword in them and places them in a sub form (subfrmStockInfoStock).

What does windows 7 do differently to windows XP? I am using Access 2003 on both operating systems.

here is my code:

'code to search table tblStockList
Private Sub FilterSub()
SISFSto
Form_frmStockInfo.subfrmStockInfo.Form.RecordSourc e = "SELECT tblStockList.SRN, tblStockList.[Part Description], tblStockList.[Type/Mat'l] AS TypeMaterial, tblStockList.Spec, tblStockList.[Size-type], tblStockList.Tolerances, tblStockList.PartTypeID, tblStockList.SupplierID, tblStocklist.UOM, tblstocklist.pstatus, tblstocklist.cstatus, tblStockList.Total FROM tblStockList WHERE (((tblStockList.[Part Description]) like '*" & cboFindRecords & "*')) OR (((tblStockList.[Type/Mat'l]) like '*" & cboFindRecords & "*')) OR (((tblStockList.Spec) like '*" & cboFindRecords & "*')) OR (((tblStockList.[Size-type]) like '*" & cboFindRecords & "*'));"
End Sub

--------------------------------------
'code to list results in subform "subfrmStockInfoStock"
Function SISFSto()
Call SISetSubForm("subfrmStockInfoStock", "", "", "Stock List")
End Function

Function SISetSubForm(strSourceObject As String, strChildField As String, strMasterField As String, strCaption As String)
With Form_frmStockInfo.subfrmStockInfo
.SourceObject = "subfrmStockInfoLoad"
.LinkMasterFields = ""
.LinkChildFields = ""
End With
With Form_frmStockInfo.subfrmStockInfo
.SourceObject = strSourceObject
.LinkMasterFields = strMasterField
.LinkChildFields = strChildField
End With
Form_frmStockInfo.lblsubfrm.Caption = strCaption
End Function

Hi All,

I'm new to this forum and am hoping that someone here can help me.

I've attached a few screen captures to aid in explaining my problem.

I have a Access program that was originally developed using Access2000 and has since been converted through Access 2003, 2007 and now 2010.
This program has been used exclusively on Windows XP platforms with no issues and is used many times a week. No changes to the programming have been done prior to my problem that I'm about to describe appearing.

Last week I got a new PC with Windows7 installed. When I ran my Access program on this platform, a subform requery/visibility problem is apparent. (See attached screen capture #1 compared to screen capture #2)

In essence, the steps I am executing are that I am clicking on a data entry within the subform, that brings up a new form that allows me to modify the existing data for that row. On save, within the new form, it closes, requeries the original subform and should redisplay the entire dataset with the row data that I modified changed. But when using the program on a Windows7 platform, this is not happening. (See screen capture #2. The data is there, just not visible to the naked eye. (See screen capture #3) Clicking MS Access 2010 Refresh All may, or may not, display all of the subform data. If it does not, then even leaving the form tab and coming back will not work to display the datat and I have to go back and cause an action that will requery the parent form first.

The entire dataset within the subform that I am having trouble with is contained within a single query.

There are no memory or RAM issues that I can see. I've watched my task manager and there's no trouble showing.

This is an i5 core PC. Can the multi core be a problem for subforms?

There is no issue of the data in the tables. it is being correctly modified.

THERE ARE NO ISSUES when I do this same procedure on a Windows XP platform with the same file.

Is there a .dll I'm missing? Or a setting in Access2010 that I can perform? Or is there programming that I need to do to resolve this?

Hoping you can help.

Thanks Attached Files Access Problem - Subform Data not visible.doc (142.5 KB, 10 views) Reply With Quote 10-21-2010, 04:24 PM #2 NTC VIP Windows Vista Access 2007 Join Date Nov 2009 Posts 1,271 First, I don't exactly know the answer. Having said that however, I'm fairly confident that it has nothing to do with RAM or the processor - and even the OS is doubtful.

It is always frustrating when a new version doesn't behave like the old version. But it happens. In happens and has always happened between every version on occasion in some apps. Just the way it is. I would say ~20% in my opinion. But the bigger the jump between versions the greater the %. And so if you were to ask me to guess what the probability was of some issue going from 2k to 2010 - I would say near 100% that some issue would crop up. Even though nothing surfaced in 03 or 07.

Generically speaking - a subform may not show if there actually is no data in the records set. So this is something to sanity check.

You specifically state "No changes to the programming have been done prior to my problem that I'm about to describe appearing." - and so this in fact may be the issue given it is written in 2k. For instance the code may be refering to a toolbar method that is no longer valid as the refresh technique (just an example - maybe not litterally your issue).

What you might consider is tactically deactivating particularly relevant code with a ' and rewriting it (while in 2010 of course). Also if not too onerous - consider whipping up a brand new subform - perhaps duplicating the main - and inserting this new one in. Sort of like a car engine that isn't working for unknown reasons - one sort of dis-assembles it and reassembles it step by step. Not sure if that analogy makes sense or not....

by the way - after making a copy - also be sure to do a compact/repair. one never knows....

in the end with these cases, one does not always find the 'why' of something does not work - but simply resolve it by remaking it. But in this inelegant resolution if you have a multi version environment then you will want to be sure to keep track of the 2010 version as your updates will not be backward compatible.

Sorry I can't be more definitive and am interested to learn what you find.

Hi guys

I am using access 2003 Professional Edition .I have two form. One is main form and other is sub form. I am displaying chart on sub form. It is working fine on window XP 2003 sp3.

The problem I am having is that when I tested and viewed the charts on window 2007 chart flashes
on and off. It also flashes when i navigate records. When i minimize window and maximize it again it show the chart. I think it is refresh problem. On window 2007 i am using access 2003 Professional Edition. How can i solve it. Any idea

Before I catch too much flak, yes I know all of my "stuff" is way out of date. I only do this to play around, but I have fun doing it. I build (use the term loosely) custom databases to track my own stuff and give some away to other people that can use them.
So now to details. I am running Windows XP, Office 2002 Pro, Windows XP Developer. I have an Access database I built to try and help a neighbor out that has some rent property so they can track their properties, how much they spend and on what, how much rent, deposits they take in and produce reports for them. It (obviously) runs fine on my computer. I built an install package which works on an XP computer but when I tried to install it on my wife's Windows 7 computer, I get one of two messages based on the options I selected in the package build. If I include the system files, I get the message that the install/computer needs NT 4. SP 6 or later. If I do not include the system files but do include the Access run time files, I get a message that says the Office System Pack needs to be updated.
Does anyone have any ideas if this will work at all and if so ideas?

Thanks
Dave Miller

Hi Guys,

I have finally finished my db. But on testing at work the reports failed on XP machines. I have created it on vista/7 and it works on them OS's fine.

Is there a way to make it work on XP?

I did it all on access 2003?

Thanks, hope its an easy answer

I have the following code working on my XP machine.


	Code:
	Private Sub Command25_Click()
Dim appOutLook As Outlook.Application
Dim MailOutLook As Outlook.MailItem
Set appOutLook = CreateObject("Outlook.Application")
Set MailOutLook = appOutLook.CreateItem(olMailItem)
Set appOutLook = CreateObject("Outlook.Application")
Set MailOutLook = appOutLook.CreateItem(olMailItem)
With MailOutLook
    .BodyFormat = olFormatRichText
    .To = Nz(DLookup("Contact_Information_Email", "Inspection", "[requests_InspectionID]=" & Me!requests_InspectionID)) & ";"
& Nz(DLookup("Agent_Email", "Inspection", "[requests_InspectionID]=" & Me!requests_InspectionID)) & ";" &
Nz(DLookup("Listing_Agent_Email", "Inspection", "[requests_InspectionID]=" & Me!requests_InspectionID))
    .Subject = "Your inspection has been scheduled."
    .Body = "Greetings " & Format(DLookup("Contact_Information_FirstName", "Inspection", "[requests_InspectionID]=" & Chr(34)
& Me!requests_InspectionID & Chr(34)), " ") & " " & Format(DLookup("Contact_Information_LastName", "Inspection",
"[requests_InspectionID]=" & Chr(34) & Me!requests_InspectionID & Chr(34)), "") & " your inspection has been scheduled for "
& Format(DLookup("InspectionDate", "Inspection", "[InspectionID]=" & Me!Inspection_InspectionID), "mmmm d, yyyy") & " at " &
Format(DLookup("InspectionTime", "Inspection", "[InspectionID]=" & Me!Inspection_InspectionID), " hh:mm AMPM ") & " at the
following address; " & Nz(DLookup("SiteAddress", "Inspection", "[SiteAddress]=" & Chr(34) & Me!SiteAddress & Chr(34)), "") &
". If you have any questions or concerns please feel free to contact us." & vbCrLf & vbCrLf & "Thank you," & vbCrLf & "Kurt
Nelson" & vbCrLf & "Winding River Home Inspection Services LLC." & vbCrLf & "970-222-2104 or 303-774-1104"

    .Display
End With
'MsgBox MailOutLook.Body
Exit Sub
email_error:
MsgBox "An error was encountered." & vbCrLf & "The error message is: " & Err.Description
Resume Error_out
Error_out:
End Sub

When I changed to Vista the code stopped working. I ran the debug and have not received any errors... Im totally at a loss here.

Greetings, I recently upgraded my computer to Windows XP from Windows 2000. I have Access 2000, and had no problem getting code to run in Win 2000, but I am have alot of problems with XP! The codes on my older forms work just fine, but every time I try to create a new form, either I can't get to the code enviroment at all ( I click on the ... button in the properties and nothing at all happens). Or, I can get to the code enviroment and create code, and have it work, until it doesn't! No error codes, no indication at all why it stop responding. I have used Access 95 thru 2000 in Windows 95 thru 2000, and Never had this problem! Any thoughts?

Thanks in advance
DAKCG

Dear Friends,
Revious I was using windows XP, and now i am using windows 7, Since then my data base is not working, even query, form are not working. Only table is opening.

Can any one help me how to operate in windows 7.

Regards,
RAJAMALL

I have an Access 2002 database running thru Access runtime on a Novell network with both NT and XP workstations. This database has been up and running for 5 years with no problems. Last update to the front end was in January, other than that nothing has changed with the program at all. However, this morning, this database stopped working on some PC's. The problem occurs when they log into the database, everything within this app freezes/locks up. This is happening on both the NT & XP boxes and the working copies are both on NT & XP.

Any ideas why, just over the weekend, the application would stop working on select PC's?

I have an existing Access Database that used an imbedded macro to save a config text file. We recently upgraded laptops to 64 bit Windows 7 with Access 2010. Everything on the db works except the SaveAs button. When I click it, nothing occurs.

I have verified the trusted locations and the DLL References to no avail. I also updated the PtrSafe and LongPtr values and it is still not working. I can get it to compile, but no change. Any assistance you can provide would be most welcome. Below is the code in the macro.

Begin Code:
Option Compare Database
Option Explicit

Private sLastScriptFilePath As String
Private sLastHAType As String

' Common Dialog routine from: http://support.microsoft.com/?kbid=161286
Private Declare PtrSafe Function GetOpenFileName _
Lib "comdlg32.dll" Alias "GetOpenFileNameA" _
(pOpenfilename As OPENFILENAME) As Long

Private Declare PtrSafe Function GetSaveFileName _
Lib "comdlg32.dll" Alias "GetSaveFileNameA" _
(pOpenfilename As OPENFILENAME) As Long

Private Type OPENFILENAME
lStructSize As LongPtr
hwndOwner As LongPtr
hInstance As LongPtr
lpstrFilter As String
lpstrCustomFilter As String
nMaxCustFilter As LongPtr
nFilterIndex As LongPtr
lpstrFile As String
nMaxFile As LongPtr
lpstrFileTitle As String
nMaxFileTitle As LongPtr
lpstrInitialDir As String
lpstrTitle As String
flags As LongPtr
nFileOffset As Integer
nFileExtension As Integer
lpstrDefExt As String
lCustData As LongPtr
lpfnHook As LongPtr
lpTemplateName As String
End Type

' OFN constants.
Const OFN_ALLOWMULTISELECT As Long = &H200
Const OFN_CREATEPROMPT As Long = &H2000
Const OFN_EXPLORER As Long = &H80000
Const OFN_EXTENSIONDIFFERENT As Long = &H400
Const OFN_FILEMUSTEXIST As Long = &H1000
Const OFN_HIDEREADONLY As Long = &H4
Const OFN_LONGNAMES As Long = &H200000
Const OFN_NOCHANGEDIR As Long = &H8
Const OFN_NODEREFERENCELINKS As Long = &H100000
Const OFN_OVERWRITEPROMPT As Long = &H2
Const OFN_PATHMUSTEXIST As Long = &H800
Const OFN_READONLY As Long = &H1


' Concatenate a recordset of DNS proxy config commands into a single text string
Public Function ConcatDNS() As String
On Error GoTo Err_ConcatDNS
Dim db As DAO.Database
Dim rst As DAO.Recordset

ConcatDNS = ""
Set db = CurrentDb
Set rst = db.OpenRecordset("select cmdstring " & _
"from qryDNS_AllProxyCommands " & _
"order by SeqNum")
Do While Not rst.EOF
' Debug.Print rs![cmdstring]
ConcatDNS = ConcatDNS & rst![cmdstring] & Constants.vbCrLf
rst.MoveNext
Loop
Exit_ConcatDNS:
Set rst = Nothing
Set db = Nothing
Exit Function

Err_ConcatDNS:
Resume Exit_ConcatDNS
End Function

' Concatenate a recordset of HA-side FA-HA SPI config commands into a single text string
Public Function ConcatHA() As String
'On Error GoTo Err_ConcatHA
Dim db As DAO.Database
Dim rst As DAO.Recordset

ConcatHA = ""
Set db = CurrentDb
Set rst = db.OpenRecordset("select cmdstring " & _
"from qryHA_AllSPICommands " & _
"order by SeqNum")
Do While Not rst.EOF
' Debug.Print rs![cmdstring]
ConcatHA = ConcatHA & rst![cmdstring] & Constants.vbCrLf
rst.MoveNext
Loop
Exit_ConcatHA:
Set rst = Nothing
Set db = Nothing
Exit Function

Err_ConcatHA:
Resume Exit_ConcatHA
End Function

Public Function AskForScriptFilePath(dlgTitle As String, defaultName As String) As Boolean
Dim SaveFile As OPENFILENAME
Dim lReturn As Long
Dim sFilter As String

AskForScriptFilePath = False
SaveFile.lStructSize = LenB(SaveFile)
SaveFile.hwndOwner = Application.hWndAccessApp
SaveFile.hInstance = 0 ' XXX Not safe if multiple instances!!!
sFilter = "Starent Script File (*.cfg)" & Chr(0) & "*.CFG" & Chr(0)
SaveFile.lpstrFilter = sFilter
SaveFile.nFilterIndex = 1
SaveFile.lpstrFile = defaultName & String(257, 0)
SaveFile.nMaxFile = Len(SaveFile.lpstrFile) - 1
SaveFile.lpstrFileTitle = SaveFile.lpstrFile
SaveFile.nMaxFileTitle = SaveFile.nMaxFile
SaveFile.lpstrInitialDir = "My Documents"
SaveFile.lpstrTitle = dlgTitle
SaveFile.flags = OFN_OVERWRITEPROMPT
lReturn = GetSaveFileName(SaveFile)
If lReturn = 0 Then
MsgBox "Canceled"
sLastScriptFilePath = ""
Else
sLastScriptFilePath = Trim(SaveFile.lpstrFile)
sLastScriptFilePath = sLastScriptFilePath
'MsgBox "The user Chose " & sLastScriptFilePath
AskForScriptFilePath = True
End If
End Function

' Return most recent file path
Public Function LastScriptFilename() As String
LastScriptFilename = sLastScriptFilePath
End Function
' Write RecordSet to provided file
Public Function WriteScriptCommon(rs As DAO.Recordset, fnum As Integer) As Boolean
'On Error GoTo Err_WriteScriptCommon
WriteScriptCommon = False
Do While Not rs.EOF
Debug.Print rs![cmdstring]
Print #fnum, rs![cmdstring]
rs.MoveNext
Loop
WriteScriptCommon = True
GoTo Exit_WriteScriptCommon

Err_WriteScriptCommon:
Resume Exit_WriteScriptCommon

Exit_WriteScriptCommon:
If Not IsObject(rs) Then rs.Close
Close #fnum
Set rs = Nothing

End Function
' Save query rows to specified script file. Query is assumed to output field named cmdstring
Public Function SaveQueryToScript(selectQuery As String, scriptFilePath As String) As Boolean
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim fnum As Integer

'On Error GoTo Err_SaveQueryToScript
SaveQueryToScript = False
Set db = CurrentDb

fnum = FreeFile
Open scriptFilePath For Output As fnum
Print #fnum, "# Generated by VZW RoamerTool - " & Strings.Format(Now, "mm/dd/yyyy hh:mm:ss")
Set rs = db.OpenRecordset(selectQuery, , dbReadOnly)
SaveQueryToScript = WriteScriptCommon(rs, fnum)
GoTo Exit_SaveQueryToScript

Err_SaveQueryToScript:
Resume Exit_SaveQueryToScript

Exit_SaveQueryToScript:
If Not IsObject(rs) Then rs.Close
Set rs = Nothing

End Function
' Save query rows to specified script file (*.cfg), prompting for actual path.
' If the script filename passed contains the pattern YYYYMMDD it is replaced with
' the current date. Query is assumed to output a field named cmdstring.
Public Function SaveAsScriptDialog(selectQuery As String, ScriptFilenamePattern As String) As Boolean
Dim fn As String
SaveAsScriptDialog = False
fn = Strings.Replace(ScriptFilenamePattern, "YYYYMMDD", Strings.Format(Date, "yyyymmdd"))
SaveAsScriptDialog = AskForScriptFilePath("Save As", fn)
If SaveAsScriptDialog Then
SaveAsScriptDialog = SaveQueryToScript(selectQuery, LastScriptFilename())
End If
End Function
' Test
Public Function Try1() As Boolean
Dim b As Boolean
Dim fn As String
fn = "proxy-dns-dynamic-ha-update_" & Strings.Format(Date, "yyyymmdd") & ".cfg"
Try1 = AskForScriptFilePath("Save As", fn)
If Try1 Then
Try1 = SaveQueryToScript("select cmdstring from qryDNS_AllProxyCommands order by SeqNum", LastScriptFilename())
End If
End Function
' Return most recent HA Type selected
Public Function LastHAType() As String
LastHAType = sLastHAType
End Function

Public Sub SetLastHAType(HAType As String)
sLastHAType = HAType
End Sub

END CODE

I have customer's computers that will not run Access 2003. All are 64 bit systems, Window 7 Premier.
Google search has shown people that have been able to run 2003 access and those who can not.

What I have tried.
Installed with all back ground services turned off. No virus protection. = access still will not work correctly.
Tried to install in safe mode. = Which can't be done.
Have borrowed another Office disk thinking mine was corrupted. = same problem.
Have written simple program. = None of the wizards will work was the problem here.
Have gone to references in VB editor to insure none are missing.
Have check on google as to which references are suppose to be present, insure i have them checked.
Have renamed the wizards and both repaired and re-installed = wizards still do not work.
Have loaded Northwind program = wizard do not work.

On one of the customer's access databases which I wrote a years ago, when I tried to run I got a runtime error 48 - dll library could not be loaded.
Google search gave many solution steps that were suppose to correct this situation. However none have worked to date.

Further! I have updated to all MS updates. I have installed both Office 2003 SP3 and the hot fix that followed it that was to correct the bug it produces in the update.

I have registered all the the dll's in the (x86) folder and all the other files other users have instructed me could be related to the problem.

I have an old desktop that I updated to Win 7 Pro and Office 2003 Pro, it is a Pent 4 system with as MUCH MEMORY AS ITS OLD MOTHERBOARD CAN HANDLE. This unit is my work computer and my baseline for this problem study. I wrote the original database on this machine. I have compared all the files that I know are related to access from on e computer to the other. In the machine with 64 bit, the folder has (x86) added.

I have joined two other forums and presented this problem. To date I haven't found or received a solution yet

My solution so far was to remove Office 2003 Pro from a computer and install Office 2007 Pro. Access works fine and run old databases OK!

I would appreciate any help or suggestions to solve this problem. Office 2007 works great on the 64 bit computer its just I don't like to use Access 2007 because of the ribbons and the finding of all the functions.

Thanks for the help before hand.

I have an invoice program in Windows XP that works perfectly there but I cannot get it to work in Windows 7.

I have Access 2003 installed in the Windows 7 and XP computer. The program appears on screen when I call it up but the only area that seems to work OK are the Forms for customer, vendor, processors, and products.

All other areas close out the program when I click on the tab - transactions, import, export, etc.

Any help would be appreciated.

I have a Form that does a complex import/convert from an Excel Spreadsheet into a Table (well, a set of tables really).

At one point, I try setting the following WhereCondition on a Recordset:

Code: strCriteriaRawb = "[PatParent]='" & rstPattern("Pattern") & "' And " & _ "[PatUseOffset]=" & rstBoMTable("BomUseOffsets") rstPatCrossRef.FindFirst strCriteriaRawb For some reason, No matter what rstBoMTable("BomUseOffsets") results in, the string strCriteriaRawb always ends in "[PatUseOffset]=False"!

I've stepped through the code and everything seems to be working perfectly except that one statement, anyone know what's going on?

P.S.
To help explain, I've attached a couple of Screenies of me stepping through the code. Attached Thumbnails     Reply With Quote 09-03-2010, 07:55 AM #2 weekend00 I may not be right Windows XP Access 2003 Join Date Aug 2010 Posts 1,296 I did not find any problem with you code.

But I found the code above is different from your screen shot


Not finding an answer? Try a Google search.