Search results

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"

I would use a ListBox for the main menu and a SubForm for the submenus ...

With [CompletedDate] field: Control source: =DateDiff("d",[Discharge_Date], Nz([CompletedDate], Date()))

Yes, it's possible. Make report in RTF or HTML format ... using tags <bold> & <color> You can also highlight the desired text when exporting the report to MS Word or MS Excel

No way! :sneaky: Or use own Calendar form ...

I did so: I copied the date (time) value from hidden field into an unrelated text field on the Form_OnCurrent event, checked for IsDate() or IsTime() after editing, and then copied back ...

Shorter way: Private Sub ControlName_AfterUpdate Me.ControlName = StrConv(Me.ControlName & "", vbProperCase) End Sub

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.

Your record sourse propery of combobox should have a query like that: SELECT FieldID, FieldName FROM coordinator_program ORDER BY FieldName;

Set combobox properties: ColumnCount = 2 (or more) ColumnWidths = 0;8 (first should be = 0)

Use DCount() Function

Try the code below: Dim sVal$ sVal = "I am trying to enter a line of code that allows me to input the house number in a text box followed by the street name" sVal = StrConv(sVal, vbUpperCase) Debug.Print sVal sVal = StrConv(sVal, vbLowerCase) Debug.Print sVal...

You are thinking correctly trying to optimize code, in programming this is called "polymorphism". You can write approximately this kind of code: Private Sub cboEmploeeAcc_Operaate() If Me.cboSantAg = 1 Then Me.cboEmploeeAcc.Visible = False Else Me.cboEmploeeAcc.Visible =...

@cpampas Any Null value will return error - so better use Nz() function: Me.txtTextField = Replace(Nz(Me.txtNumericField, 0), ",", ".")