Search results

Try write in Form "On Load" event: Private Sub Form_Load() Me.txtUnboundField = Environ("UserName") End Sub

Have you read my post #4? ... I suggested that instead of Application.FollowHyperlink sVal to use Procedure from post #6 WScriptFollowHyperlink sVal

Try other way to open Hyperlink: WScriptFollowHyperlink sURL Using that Procedure: Public Sub WScriptFollowHyperlink(vLink) ' FollowHyperlink is not working properly !!! '---------------------------------------------------------------------------------------------- Dim wsShell As Object...

Try: Private Sub List64_DblClick(Cancel As Integer) Dim sVal As String sVal = Me.List64.Column(2) & "" Debug.Print sVal MsgBox sVal, vbInformation 'Application.FollowHyperlink sVal End Sub What will happen?

Try to convert result to Date format :

Dim lResCount As Long ' ... If qdf.Type = 0 Then ' Select query lResCount = DCount("*", strQryName) If lResCount > 0 Then 'query contain results ! ' ... End If ElseIf qdf.Type = 48...

Check this function please

I Pass!

I started with line number 4: - "The important button in main screen ..." ;)

I read your assignment. Unfortunately, I don't have time to decide your whole list of wishes. Have you thought about hiring a specialist to finish your application?

Private Sub cmdExitApp_Click() '!!! - Button name changed to "cmdExitApp" DoEvents DoCmd.Close acForm, Me.Name Application.Quit End Sub

You forgot Me.... statment! :) Public Function FocusInOut(bGotFocus As Boolean) 'Now in any combobox on any form in the event procedures for gotfocus and lostfocust ' onGotFocus: =FocusInOut(True) ' onLostFocus: =FocusInOut(False)...

I'm working on that ... Try the example below

Take a look on example below please. ComboBoxes dropdown only if it has no value.

Try to replace string Dim app As Access.Application, strPath As String to: Dim app As Object, strPath As String

Is this happening to all databases or just one?

The one above is for creating an .accdb file (MSA 2007 + ), and the second one is for *.mdb (MSA 2003 format)

Take a look at the example below

Can you post a sample db to demonstrate the problem?

I offer you a shorter way of generating the path string: ... = "PATH\filename" & Format(Now, "\_mmddyyyy\_hhmmss") & ".xlsx"