Search results

You may also need to use it on the after update evebts of the dates that can change.

Where and what are you performing the calculation? You should either use it in the Default Value of the calculated unbound form control or using the Form On Current event in vba.

The difference between print preview and view is that the view method is purely to test layouts and gives the user a snapshot of the report, whereby the print preview generates the whole report.

If you run the undelying query that the report is based upon does this show all the customers?

Is the form bound to the table?

Pictures tell a thousand words, you image attachements clearly indicated you were use table level lookups. That is why I commented the way I did. Therefore there was no need to read the full explanation.

Paul I spotted the first error and looked no further. It was clear that LOT was a string therefore it needed single quotes around it.

Sample Data 128982 VC AAAA 1389883; MC AAAA 1589 DC BBBB 179024;VC DDDDD 1212313;AM EEEEE 18902 MC FFFFF 18902 FFFFF 3033383; B#111; VC; XXXX 3035383; B#222; DC; YYYY Public Function SpecialParse(AnyString As string) As string '/Task 1 : Replace all spaces with semi-colons AnyString =...

Will the item you want to parse only contain 2 alpha characters? Will any other item ever contain 2 alpha characters If the answers are Yes and No then not to dificult to do, otherwise it could get complicated.

Simple, do not use lookups at field level. Use relationships between tables and store PK - FK relationships.

Try strFld & cstr(intStart) = rs1.Fields(intStart - 1).Name However you cannot start a line with a variable name but Rs1(strFld & cstr(intStart)) = rs1.Fields(intStart - 1).Name

Remove the quotes from around the strFld variable

SaveSetting "PST", "CopyProd", "ProdNum", DLookup("[PC]", "WAVE3_INVN_DL", _ "[LOT] = '" & Forms!frmOpenLot!tbLotNum & "'")

Only testing can prove that, but that is the normal way to populate many unbound controls from a combo box.

Use the Column(n) method to populate the textbox RowSource "Select ID, Name, Notes From Table" Me.Txtbox = Me.Combo.Column(1) Don't forget columns are zero based.

Glad you are sorted now:)

Call importBeatport()

Private Sub Command2_Click() Dim Criteria As String Dim i As Variant ' Build criteria string from selected items in list box. Criteria = "" For Each i In Me![List0].ItemsSelected Criteria = Criteria & "," & Me![List0].ItemData(i) Next i '/Drop the leading comma...

>= Date()-14

This is a more efficient way of doing it For Each i In Me![List0].ItemsSelected Criteria = Criteria & "," & Me![List0].ItemData(i) Next i '/Drop the leading comma Criteria = Mid(Criteria,2) '/Wrap the In() command around the string Criteria = "Where CustomerId In(" & Criteria...