grtz

First of all, thx for sharing this. Everything works fine, exept when I try to use it as followed. I have a report that is a sort of letter. The text in this report varies based on the info that is found in the query where it is based on. (if a certain document is not present it is set on false and the report will display the text where it asks for that document) This report is outputed to a pdf-file. There is one piece of data that can not be found in any table and/query. Therfor i ask the user of the database if tey want to include the question in the report. The only way i figured out to do that is to put the msgbox into a function and call that function from within the report. If I use the dialog.box instead of the msgbox, Access shows a empty form with the title, but without the question and the buttons and the whole database becomes inresponsive. Any idea why?

grtz

Error : Could not use c:\\…\test.accde file as file already in use.Let me know if any changes needs to be done in the given batch file.

    Dim s As String
    s = s & "SETLOCAL ENABLEDELAYEDEXPANSION" & vbCrLf
    s = s & "SET /a counter=0" & vbCrLf
    s = s & ":CHECKLOCKFILE" & vbCrLf
    s = s & "ping 0.0.0.9000 -n 1 -w 100 > nul" & vbCrLf
    s = s & "SET /a counter+=1" & vbCrLf
    s = s & "IF ""!counter!""==""" & TIMEOUT & """ GOTO CLEANUP" & vbCrLf
    s = s & "IF EXIST ""%~f2.%4"" GOTO CHECKLOCKFILE" & vbCrLf
    If Compact Then
        s = s & """%~f1"" ""%~f2.%3"" /compact" & vbCrLf
    End If
    s = s & "start "" "" ""%~f2.%3""" & vbCrLf
    s = s & ":CLEANUP" & vbCrLf
    s = s & "del %0"
    ' Write batch file
    Dim intFile As Integer
    intFile = FreeFile()
    Open scriptpath For Output As #intFile
    Print #intFile, s
    Close #intFile

And about this code:

‘ OpenOffice being a 32 bit app, its registry location is different in a 64 bit OS If (Marshal.SizeOf(GetType(IntPtr)) = 8) Then baseKey = “SOFTWARE\Wow6432Node\OpenOffice.org\” Else baseKey = “SOFTWARE\OpenOffice.org\” End If

IntPtr.Size won’t return the correct value if running in 32-bit .NET Framework 2.0 on 64-bit Windows (it would return 32-bit).

USE THIS INSTEAD:

region DLL import to find bit version

    [DllImport("kernel32.dll", SetLastError = true, CallingConvention = CallingConvention.Winapi)]
    [return: MarshalAs(UnmanagedType.Bool)]
    public static extern bool IsWow64Process([In] IntPtr hProcess, [Out] out bool lpSystemInfo);
    #endregion
    #region Windows bit version finding
    public static bool Is64Bit()
    {
        bool retVal;
        IsWow64Process(Process.GetCurrentProcess().Handle, out retVal);
        return retVal;
    }
    public static string GetOSBit()
    {
        bool is64bit = Is64Bit();
        if (is64bit)
            return "x64";
        else
            return "x32";
    }
    #endregion

Thanks!

BUT, another table with only Date Field formatted (ShortDate), when upsized using type mapping “smalldatetime”, works perfectly, and Target file receives date as “mm\dd\yyyy”. Question is “WHAT CAN I DO TO RESOLVE THIS ISSUE, UPSIZING THE TIME FIELD AS FORMATTED AND TO RECEIVE IN TARGET TIME FIELD ONLY???” Thanks in advance.

Into the Sub SetUpButtons() I insert:

If Button1_Sgl = "" Then
    Button1_Sgl = "bt1"
End If
If Button2_Sgl = "" Then
    Button2_Sgl = "bt2"
End If
If Button3_Sgl = "" Then
    Button3_Sgl = "bt3"
End If
bt1.caption = Button1_Sgl
bt2.caption = Button2_Sgl
bt3.caption = Button3_Sgl
' Detect which buttons to display
....
If (m_Buttons And vbRetryCancel) = vbRetryCancel Then
    bt3.Visible = False
    bt2.Visible = True
    bt2.Tag = vbRetry
    If bt2.caption = "bt2" Then
       bt2.caption = GetUser32ResourceString(RES_BT_Retry)
    End If
    bt1.Visible = True
    bt1.Tag = vbCancel
    If bt1.caption = "bt1" Then
       bt1.caption = GetUser32ResourceString(RES_BT_Cancel)
    End If
    bt1.Cancel = True
ElseIf (m_Buttons And vbYesNo) = vbYesNo Then
    bt3.Visible = False
    bt2.Visible = True
    bt2.Tag = vbYes
    If bt2.caption = "bt2" Then
       bt2.caption = GetUser32ResourceString(RES_BT_Yes)
    End If
    bt1.Visible = True
    bt1.Tag = vbNo
    If bt1.caption = "bt1" Then
       bt1.caption = GetUser32ResourceString(RES_BT_No)
    End If
    bt1.Cancel = True
ElseIf (m_Buttons And vbYesNoCancel) = vbYesNoCancel Then
    bt3.Visible = True
    bt3.Tag = vbYes
    If bt3.caption = "bt3" Then
       bt3.caption = GetUser32ResourceString(RES_BT_Yes)
    End If
    bt2.Visible = True
    bt2.Tag = vbNo
    If bt2.caption = "bt2" Then
       bt2.caption = GetUser32ResourceString(RES_BT_No)
    End If
    bt1.Visible = True
    bt1.Tag = vbCancel
    If bt1.caption = "bt1" Then
       bt1.caption = GetUser32ResourceString(RES_BT_Cancel)
    End If
    bt1.Cancel = True
ElseIf (m_Buttons And vbAbortRetryIgnore) = vbAbortRetryIgnore Then
    bt3.Visible = True
    bt3.Tag = vbAbort
    If bt3.caption = "bt3" Then
       bt3.caption = GetUser32ResourceString(RES_BT_Abort)
    End If
    bt2.Visible = True
    bt2.Tag = vbRetry
    If bt2.caption = "bt2" Then
       bt2.caption = GetUser32ResourceString(RES_BT_Retry)
    End If
    bt1.Visible = True
    bt1.Tag = vbIgnore
    If bt1.caption = "bt1" Then
       bt1.caption = GetUser32ResourceString(RES_BT_Ignore)
    End If
    bt1.Cancel = True
ElseIf (m_Buttons And vbOKCancel) = vbOKCancel Then
    bt3.Visible = False
    bt2.Visible = True
    bt2.Tag = vbOK
    If bt2.caption = "bt2" Then
       bt2.caption = GetUser32ResourceString(RES_BT_OK)
    End If
    bt1.Visible = True
    bt1.Tag = vbCancel
    If bt1.caption = "bt1" Then
       bt1.caption = GetUser32ResourceString(RES_BT_Cancel)
    End If
    bt1.Cancel = True
Else
    bt3.Visible = False
    bt2.Visible = False
    bt1.Visible = True
    bt1.Tag = vbOK
    If bt1.caption = "bt1" Then
       bt1.caption = GetUser32ResourceString(RES_BT_OK)
    End If
    bt1.Cancel = True
End If
Button1_Sgl = ""
Button2_Sgl = ""
Button3_Sgl = ""
End Sub

Now I write the Messagebox:

Button1_Sgl = "Mieterdaten"
Button2_Sgl = "Adresse"
Mldg_S = "Sollen die Daten des Mietvertrages verwendet werden?\n\noder soll eingetragen werden:\nnur die Adresse?\nnur die Mieterdaten?"
Select Case Dialog.Box(Mldg_S, vbQuestion + vbYesNoCancel, "Datentransfer")
  Case vbYes
        If s = "Wohnraum#" Then
          FlagWohnR_b = True
        Else
          FlagWohnR_b = False
        End If
  Case vbNo
        FlagWohnR_b = True
        FlagAdresse_B = True
  Case vbCancel
        FlagWohnR_b = True
        FlagMieter_B = True
End Select

So i tried to change the code :

From : Provider=Microsoft.Jet.OLEDB.4.0; Data Source=” file location”; Extended Properties=Excel 8.0;IMEX=1;HDR=yes

To: Provider=Microsoft.ACE.OLEDB.12.0;Data Source=file location;Extended Properties=”Excel 12.0;HDR=YES”;

So used ACE.OLEDB.12.0 for Reading the .xls file.

Now, it is working fine on local and testing server both.

What I run into is that I run a sub that handles the movement of data from an external device to a temporary table. Unfortunately, this table has to be deleted at the end of the process. Deletion of this table causes the navigation pane to appear which is undesirable. I must then manually close the navigation pane and then restart the database so that the navigation pane is completely hidden.

Any way to not have to wait for the lock file to be deleted by Access? Would it just be the removal of the first If..Then at the top of the Restart sub?

can any tell how to do it through IIS

Thanks In Advance

Does not appear on Windows 7 Home 64bit sp1: no Internet Information Services Manager on the list under Admin Tools.

Private m_Buttons As VbDialog.BoxStyle
Private m_Title As String
Private m_Prompt As String
Private m_ButtonDelay As Long
Private m_IsRichText As Boolean
Private m_Result As VbDialog.BoxResult
Private m_PlaintextPrompt  As String
Private m_SavedTextFileFolder As String
Private m_AllowBeep As Boolean

instail with office 2007 32bit : “access 2007 engine 32bit” “access 2007 runtime 32bit “

instail with office 2010 32bit : “access 2010 engine 32bit” “access 2010 runtime 32bit “

My suggestion to implementers, don’t use non integer indexed property if you are going to use reflection to get the values.

Public Function Box(ByVal Prompt As String, _ Optional ByVal Buttons As VbMsgBoxStyle = vbOKOnly, _ Optional ByVal Title As String = “”, _ Optional ByVal HelpFile As String = “”, _ Optional ByVal HelpContextId As Long = 0, _ Optional ByVal ButtonDelay As Long = -1, _ Optional ByVal AllowBeep As Variant) _ As VbMsgBoxResult …

And there is a Private Const DEFAULT_BUTTON_DELAY = 1

You can also override it in the form_open event of Form_FormDialog m_ButtonDelay = 2 (whole app has same delay)

but I suggest you set the DEFAULT_BUTTON_DELAY in class Dialog. That way you can call Dialog.Box and either use the default or set it via optional parameter

Your enhanced MsgBox function is Great. No Errors found. Keep Up the Good work.

UDeA From Colombo -- Sri Lanka.

i used this sample on access 2010 and two mode viewed full screen mod.

main access windows code dosn’t run.

please correct!

Its actually the opposite: You can do everything from code, no need for frames and layers. And if you want to do any cool graphics you can program fade-in effects, transparency, design buttons, movies -- anything is possible.

I tried VisualStudio 2008 but handling data for forms was really allot of code. that was quiet shocking for a spoiled Access programmer ;) So you may as well write a PHP script to push the data to your web-server.

I had a look at PowerBuilder from Sybase but they want allot of money for it. :(

I didn’t like the IDE, they try to sqush too much into one place and trying to find code is quite difficult with all the different frames and layers. I guess not being a graphic designer nor animator means the IDE is not suited.

I have heard there are other great tools for writing pure AS, but as you say, there are other platforms to achive the same thing.

Perhaps we should all ditch Access and use pure VB.NET?

Though I have to say if that is what they mean, the Access IDE is far nicer to work with than the Flash IDE.

Working with the flash IDE is nasty. I gave it a go to find out what all the ‘Flash’ buzz was about. last year.

I hated using the Flash IDE so much, I decided to never, ever spend any more time looking at Flash again.

Now I cant get my Runtime accde running and loose ALLOT of time.

To code in AC3 and Java is just soooo much more fun!

What is up with a tool that doesn’t do what it advertised? And how can it be fixed?

Thanks!

Tim

Mine started working properly…!

It works on a Win XP SP3 system with runtime 2007…

I have now decompiled and recompiled the DB’s after applying the MS hotfix, but still remote users are getting blank forms for appilcations that work fine for in-house users.

If I take the same application and compile it using Access 2007, the app works fine for remote users, as it was working prior to SP1 2010.

This has to be one of the worst balls ups I have seen MS make since releasing Vista!

My users are not happy and neither is the Boss!

1) On 64-bit systems, the path to the DLL may be C:\Program Files (x86)\Common Files\Microsoft Shared\DAO\ . This is where I found mine.

2) If you continue to see the error after applying the fixes Renaud and Matthew listed here, remove the Access database from your migration project and add it back in again. This did the trick for me.

Now I want to know, is this available for each site separately ?

Thanks,