Search results

Private Function GetListValues() As Variant Dim sVal$, idx% For idx = 0 To Me.lstDefects.ListCount - 1 If Me.lstDefects.Selected(idx) = True Then sVal = sVal & csDelimeter & Me.lstDefects.ItemData(idx) End If Next idx If Len(sVal) > Len(csDelimeter)...

Try use quotation marks around text values [MaxHorseRatingTable]![centre]="DEL"

Public Function GetLatestDate(Optional sWhereCondition As String = "") 'Usage: ' ?GetLatestDate("RecID = 23") '--------------------------------------------------------------------------------------------------- ' Name of table with fields "Phone", "Email" & "Text" ("Text" is reserved word !!!)...

When importing, the Microsoft driver despite the fact that the field is long text evaluates the imported data on the first 8 lines. If the data in them is less than 255 characters, it considers them as short text and everything further is cut off accordingly. The same applies to any other data...

Yes, you are absolutely right! (y)

Harsh practice:

Below is an example:

Publish your table (part of the data) here - we'll see. There may be something wrong with your data.

Try changing semicolons to commas ...

The third argument of the function DCount() "WhereCondition" is a string! :)

Checked it out. It worked for me like this: =DCount("*";"tblJobRefBook";"JobStatus = 'Quoted' AND QuotedDate >=" & Format(Date()-30;"\#mm/dd/yyyy\#"))

If your regional date format is different from MM/DD/YYYY - try this: =DCount("Quoted","tblJobRefBook","[JobStatus] = 'Quoted' AND QuotedDate >=" & Format(Date()-30, "\#mm\/dd\/yyyy\#"))

Try use sub forms

Or in this way: Dim strMailMessage As String Dim strRes As String strMailMessage = "Bla - Bla - Bla " & vbCrLf & vbCrLf & vbCrLf & "First name:" & _ vbCrLf & vbCrLf & "Phil" & vbCrLf & "GOGO" & vbCrLf & vbCrLf & "Last name:" 'Debug.Print strMailMessage strRes =...

Use Len() function

Try this expression: =IIf(IsNull([SaleOrder]);Null;Nz(DCount("*";"SalesOrderDetailsT";"SaleID=" & [SaleID] & "AND SaleOrder <" & [SaleOrder]);0)+1)

If I understood you correctly, something like this:

Use a colon to combine lines If (Me.standard <> "apple") And (Me.frequency = "annual") Then strDocName = "report1": msgbox "all good", vbInformation

Wrong!!! In my opinion you should take the argument from current record of open Recordset - not from current record of subform. ... "' and endt_num =" & Rs!endt_num & ";"

What about the space character? SELECT * FROM [YourTableName] WHERE ([YourFieldName] Like "*[!A-Z,a-z,0-9]*"); With space character exception: SELECT * FROM [YourTableName] WHERE ([YourFieldName] Like "*[!A-Z,a-z, ,0-9]*");