Recent content by strep21

I'm a big fan of the SPLIT function, so I would use : Function SplitAgain(strIN As String, strDelimiter As String) 'strIN like "AMZN : Amazon, Inc" 'strDelimiter = ": " 'Use like : SplitAgain("AMZN : Amazon, Inc",": ") 'Output = Amazon, Inc Dim var1 As Variant var1 = Split(strIN, strDelimiter)...

Schalkse, (ruiters ???) try to replace "WHERE (tblKlanten.Klantnummer = '" & [Klantnummer] & "');" by "WHERE (tblKlanten.Klantnummer = " & [Klantnummer]);

Greaseman, Apart from what Paul says ..... is Between [TableDates].[FromDate] and {TableDates].[ToDate] an exact copy and past ? Note the "{" instead of "[" after "and".

Strange .... I thought I posted an answer yesterday, but don't see it. So here it is again : To hide field Me.txtID in your subform datasheet view. In your subform's open event : Private Sub Form_Open(Cancel As Integer) Me.txtID.ColumnHidden = True End Sub

Sorry, I misunderstood your question. Insert a new module. On the top of that module, put : Dim lngGroup Dim lngGroupIncrement As Long Then put this function in the module : Public Function GroupIncrement(Group) As Long If Group = lngGroup Then lngGroupIncrement = lngGroupIncrement +...

Using tblInput for your table name : SELECT tblInput.Patient_No, tblInput.ID, DCount("ID","tblInput","Patient_No= '" & [Patient_no] & "'") AS NR FROM tblInput;

I mostly think an example (attached) says more than a hundred words ;)

I attached a mini-sample. Good luck :D

Not in a table. Use a validation rule in your input form.

Try replacing .RecordCount by .ListCount

Sasolini, When importing the file, click on "Advanced" (down left). Look at the Decimal Symbol, about middle of the screen, to the right. It probably says " , ". Change it to " . " (without the double quotest). Eddie