Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations Shaun E on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Runtime Error '713' 'Application Defined of Object Defined Error'

Status
Not open for further replies.

GZook

Programmer
Apr 14, 2003
42
US
When I take the application to the client's site, and try to run the application from the icon, I immediately get the above runtime error.

When I run the application here at the office, it works fine with no problems. Therefore, the problem is unduplicable at the office.

I'd hate to have to take the source and VB to the clients site to determine what the problem is.

Here's what I can tell you.

The app uses GoldMine's GMW6s32.dll and I know the path to that file is correct.

The paths to the GoldMine, GMBASE, Contact tables folder and the Goldmine User Name and Password are correct. I have them stored in a VFP table. I have an ODBC data source named 'User Table' set up and pointing to that table.

In the app, I have a Data Environment set up to use the User Table data source.

What else can I check on site prior to taking the source and a copy of VB6 on site?

Here's the part of the source having to do with the data environment:
Code:
    'Get Path User and Password information from User Table
    Dim sDir As String, sGmBase As String, sDataPath As String, sUser As String
    Dim sPassword As String, iLoadOK As Integer
    dsrUser.rsUser.Open
    sDir = Trim$(dsrUser.rsUser!gmpath)
    sGmBase = Trim$(dsrUser.rsUser!gmbase)
    sDataPath = Trim$(dsrUser.rsUser!contcpath)
    sUser = Trim$(dsrUser.rsUser!userid)
    sPassword = Trim$(dsrUser.rsUser!password)
    dsrUser.rsUser.Close
    iLoadOK = GMW_LoadBDE(sDir, sGmBase, sDataPath, sUser, sPassword)
 
Actually, there are two apps where this error occurs on site. One uses a form to edit the values in the User Table fields. Much the same code is used to initialuze the form text boxes:
Code:
Private Sub Form_Load()
    dsrUser.rsUser.Open
    Me.TxtGMFolder = dsrUser.rsUser!gmpath
    Me.TxtGMBase = dsrUser.rsUser!gmbase
    Me.TxtContactFolder = dsrUser.rsUser!ContcPath
    Me.TxtUserName = dsrUser.rsUser!UserId
    Me.TxtPassword = dsrUser.rsUser!Password
    dsrUser.rsUser.Close
End Sub
Assuming this is where the error occurs, this proves it to be a problem with the user table code or environment setup.

Again, any help is appreciated.
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top