Search results

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), ",", ".")

Your question is older than the universe! :) The point is that by applying selection conditions to the secondary combo box - you do it for all records of sub form.

In sub form module: Me.DestFieldName = Me.AnotherFieldName

You have two erroneous lines in your code. Replace them with the ones below: CurrentDb.Execute "UPDATE 201Assets SET AssetFlag = True " & _ "WHERE stdid=" & Me.subformAssets.Form.Recordset.Fields("stdid")

https://docs.microsoft.com/ru-ru/office/vba/api/access.formatconditions.add https://www.access-programmers.co.uk/forums/threads/conditional-formatting-the-field-based-on-the-value-of-another-field.301500/

Oops! Please forgive me generously. I can't see well this morning ....

Try use Me.Undo ...

Dim sVal As String, vVal sVal = "[Customer ID] = " & Me![Customer ID] & " AND [Customer First Name] = '" & Me![Customer First Name] & "'" vVal = DLookup("[Customer ID]", "[Your Table Name]", sVal) If vVal > 0 Then 'Found ... ' ... Else ' ... End If