Results 1 to 13 of 13
  1. #1
    Join Date
    Mar 2009
    Posts
    12

    Exclamation Compiler WRONG example-DB

    ******* COMPILER WRONG ********
    ========================
    !!!!! EXAMPLE FOR TEST !!!!!!!! Missing -->>>> ";User ID="
    Crazy-Errors (Unvisible strings) Run=YES, IMMEDIATE WINDOWN=NO
    -------------
    AC 2002, with usual references....
    download everywhere
    open DB with Admin
    open immediate window and type...
    ? CCC_STR(,eDB__DAT_DFT)

    Provider=Microsoft.Jet.OLEDB.4.0Admin;Password=;Je t OLEDBatabase Password=***;Data Source=D:\_MOJE\_APL\AC\BDB\DAT_DFT.MDB;Mode=16;Ex tended Properties="";Jet OLEDBystem database=D:\_MOJE\_APL\AC\BDB\xPAC_SYS0.MDW;Jet OLEDBatabase Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=1;Jet OLEDB:Global Bulk Transactions=1

    lcRet = "Provider=" & gkDatabaseProvider &";User ID=" & CurrentUser & ";"
    ---------------
    after compactrepair the same, allways.... !!!!
    references
    C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLL
    C:\Program Files\Microsoft Office\Office10\MSACC.OLB
    C:\WINDOWS\system32\stdole2.tlb
    C:\Program Files\Common Files\system\ado\msado25.tlb
    C:\Program Files\Common Files\Microsoft Shared\Web Components\10\OWC10.DLL
    C:\Program Files\Common Files\System\ado\msadox.dll


    C:\Program Files\Common Files\System\ado\msjro.dll
    C:\Program Files\Common Files\Microsoft Shared\DAO\dao360.dll
    C:\Program Files\Microsoft Office\Office10\EXCEL.EXE
    C:\WINDOWS\system32\MSCOMCTL.OCX
    C:\Program Files\Common Files\Microsoft Shared\Office10\MSO.DLL
    C:\WINDOWS\system32\scrrun.dll
    C:\WINDOWS\system32\FM20.DLL
    C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6EXT.OLB
    C:\Program Files\Microsoft Office\Office10\MSOUTL.OLB

  2. #2
    RuralGuy's Avatar
    RuralGuy is offline Administrator
    Windows 10 Access 2013 32bit
    Join Date
    Mar 2007
    Location
    8300' in the Colorado Rocky Mountains
    Posts
    12,922
    Maybe if you try to describe your issue in different words it will make sense.

  3. #3
    Join Date
    Mar 2009
    Posts
    12
    Hi, thanks for the answer...
    open DB with Admin
    open immediate window and type...
    ? CCC_STR(,eDB__DAT_DFT)
    than cursor on function 'CCC_STR' and press SHIFT+F2 (Definition)
    Make a breakpoint at the start of 'CCC_STR'
    goto immediate window to line
    ? CCC_STR(,eDB__DAT_DFT) .. and <PRESS ENTER>
    Set NEXT STATEMENT to
    Code:
    lcRet = "Provider=" & gkDatabaseProvider & ";User ID=" & CurrentUser & ";"
    Press F8 (STEP INTO)
    ----------- NOW Compare the Value of variable lcRet -----------
    goto immediate window and type
    Code:
    ? lcRet
    Provider=Microsoft.Jet.OLEDB.4.0Admin;
    Missing STRING: --->>> ";User ID="
    -----------------
    Now VERIFY Compiler lcRet = "Provider=" ....
    Code:
    ? "Provider=" & gkDatabaseProvider & ";User ID=" & CurrentUser & ";"
    Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;
    STRING is THERE : --->>> ";User ID="
    -----------------
    Any other questions ?

  4. #4
    Join Date
    Mar 2009
    Posts
    12
    In other words....
    But you MUST COMPARE TWO VALUES
    ===============================
    Another one is this
    Set NEXT STATEMENT to
    Code:
    lcRet = "Provider=" & gkDatabaseProvider & ";User ID=" & CurrentUser & ";"
    Press F8 (STEP INTO)
    ----------- NOW Compare the Value of variable lcRet -----------
    goto immediate window and type
    Code:
    ? ( lcRet = "Provider=" & gkDatabaseProvider & ";User ID=" & CurrentUser & ";") False !!!!!!!!!!!!! ? lcRet Provider=Microsoft.Jet.OLEDB.4.0Admin; ? "Provider=" & gkDatabaseProvider & ";User ID=" & CurrentUser & ";" Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;
    Missing STRING: --->>> ";User ID="
    -----------------

  5. #5
    RuralGuy's Avatar
    RuralGuy is offline Administrator
    Windows 10 Access 2013 32bit
    Join Date
    Mar 2007
    Location
    8300' in the Colorado Rocky Mountains
    Posts
    12,922
    I was not able to duplicate your issue.
    My lcRet value was "Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;"

    I had to comment out this section of code because of the DDF_CREATE wanting to use d: which I do not have.

    Code:
    '   If ll_VFY Then
    '      If Not FF_EXISTS(lc_DDF) Then
    '         bb = DDF_CREATE(cDataBaseFullName:=lc_DDF)
    '         If Not bb Then
    '            GoTo LBL_xPAC_END
    '         End If
    '      End If
    '   End If

  6. #6
    Join Date
    Mar 2009
    Posts
    12
    Hi, THANKS for your test...
    You can simply check only this ONE-LINE
    lcRet = "Provider=" & gkDatabaseProvider & ";User ID=" & CurrentUser ;"
    ------------
    I was not able to duplicate your issue.
    Did you make any changes in my DB ?
    =============================
    See my screen shot, unbelievable debug watch

  7. #7
    RuralGuy's Avatar
    RuralGuy is offline Administrator
    Windows 10 Access 2013 32bit
    Join Date
    Mar 2007
    Location
    8300' in the Colorado Rocky Mountains
    Posts
    12,922
    As I said, I was not able to duplicate your issue. I only changed that which I reported.

    Hmm...I might have put some:
    Code:
    Option Compare Database
    Option Explicit
    ...at the top of some of your modules.

  8. #8
    Join Date
    Mar 2009
    Posts
    12
    I had to comment out this section of code because of the DDF_CREATE wanting to use d: which I do not have....
    -------
    I would say , this produce Recompiling...
    You can simply check only this ONE-LINE
    lcRet = "Provider=" & gkDatabaseProvider & ";User ID=" & CurrentUser ;"
    -------
    Option Compare Database......but this NOT i All modules (conseuence = ??, i make insert... )
    Option Explicit......in All modules

  9. #9
    RuralGuy's Avatar
    RuralGuy is offline Administrator
    Windows 10 Access 2013 32bit
    Join Date
    Mar 2007
    Location
    8300' in the Colorado Rocky Mountains
    Posts
    12,922
    So you are mad because I made a change and recompiled and the problem went away? Can you get this db to demonstrate the problem?

  10. #10
    Join Date
    Mar 2009
    Posts
    12
    My-DB (post 1.) : UNZIP=3.25 MB (3,407,872 bytes)
    ? CCC_STR(,eDB__DAT_DFT)
    Provider=Microsoft.Jet.OLEDB.4.0Admin;Password=;.. ..
    ---------------------------------
    YOUR-DB (last post) : UNZIP=4.25 MB (4,456,448 bytes)
    ? CCC_STR(,eDB__DAT_DFT)
    Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Password=;...

  11. #11
    RuralGuy's Avatar
    RuralGuy is offline Administrator
    Windows 10 Access 2013 32bit
    Join Date
    Mar 2007
    Location
    8300' in the Colorado Rocky Mountains
    Posts
    12,922
    I also did a Compact and Repair on your db. Have you done one on yours yet?

  12. #12
    Join Date
    Mar 2009
    Posts
    12
    My question is to reproduce this Error on other machine....
    ===============================================
    After Compact and Repair , SIZE: 3.25 MB (3,407,872 bytes)
    ? ccc_str(,eDB__DAT_DFT)
    Provider=Microsoft.Jet.OLEDB.4.0Admin....
    ----------------
    But i can Recompile it, and than THIS-ERROR is removed,
    but the question is :
    Is there Another Error like this one ?
    and there is NO GARANTEE about this, because of my expierince.
    =================================================
    In my original DB i have an TEST-ROUTINE (Run ~15min), to check
    ONLY MAIN ROUTINES,...And the Error-rate is ~ 1-5 Compiler Errors,
    these are removed while test-running-code:
    pseudo line edit (Before/After the same) and compile all
    It happens only 1-3 times, on the first run 100% O.K.

  13. #13
    RuralGuy's Avatar
    RuralGuy is offline Administrator
    Windows 10 Access 2013 32bit
    Join Date
    Mar 2007
    Location
    8300' in the Colorado Rocky Mountains
    Posts
    12,922
    Good luck with your project.

Please reply to this thread with any new information or opinions.

Similar Threads

  1. What am I doing wrong?
    By brandon in forum Access
    Replies: 2
    Last Post: 08-03-2008, 10:26 AM
  2. DMax returning wrong value
    By nedbenj in forum Access
    Replies: 7
    Last Post: 10-24-2007, 10:30 AM
  3. What I am doing wrong? (caption of report)
    By swampdonkey in forum Reports
    Replies: 0
    Last Post: 12-07-2006, 11:07 AM
  4. Email created from Access is in the wrong format
    By Stick in forum Programming
    Replies: 0
    Last Post: 09-25-2006, 12:48 PM
  5. Week number wrong
    By Nikki17 in forum Queries
    Replies: 6
    Last Post: 03-18-2006, 10:01 PM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  
Other Forums: Microsoft Office Forums