Search results

Yes-s-ss. - It is! Use Custom Menu for TextBox.

Can you post a copy of your application with just the form (with subforms) and required tables/queries. Just a few (fictitious) records to understand.

Take a look at that page: Unrecognizeable Database format 3343

See to Query " frmLeave_SubForm_Details" as example: SELECT [Leave Dates].*, GetDaysEFH([Start_Date],[End_Date]) AS DaysEFH, [Days]-GetDaysEFH([Start_Date],[End_Date]) AS EFH_Difference FROM [Leave Dates]; Try change some dates ([Start_Date] and [End_Date]) in query ...

Copy the function into any external module (not a form module), then you can use it along with other functions in forms, queries and reports.

Can you post a copy of your application with just the form (with subforms) and required tables/queries. Just a few (fictitious) records to understand.

Take a look at example below please

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