Search results

I've read down the thread. I'm confused. If you have a solution, why post the question?

calval is not a numeric variable and so will need single quotes around it.

True but this would start at 1, not 15,000. You can change the start number but it requires some fiddling about (easier if the table is in SQL then you can specify the start number).

You must have the unique ID (ID_RASKRSNICE) as the first column of you search list box and also it must be included in the recordsource and on the form for your results form (can be a hidden text box on your results form if you don't want to show it). If you form is already open, I would...

Could you please explain a little further? Do you mean it will only change the property of the first combo box listed in the code? I'm a little confused as to what is happening or what you are expecting to happen.

I assume the event selected by the combo box is a criteria for the report, i.e. corresponds to a value in a field? OK, on the form, add text boxes for start date and end date for the user to fill in and also add your combo box for the user to select an event. Then, in the query for each...

Try something like this on the onCurrent Event on your form: Dim ctl As Control, frm As Form, strText as string Set frm = Me strText = "" For Each ctl In frm.Controls If ctl.ControlType = acTextBox Then strText = strText & ctl.Value & " " End If...

I've added some comments to the code to describe what each step is doing. To integrate into your database, you will need to ensure that each record you have has a unique ID (which will your equivalent of DVDID from the example) and you will then need to substitute your database names into the...

OK, I would do this by making what you refer to as your second form to be your first, and would use some code on the On Open event to check to see if needs to display the initial form or not. Without going into too much coding detail here (although I will if you need), I think you need the...

Something like: Dim rs as recordset, lngCounter as long, strSQL as string lngCounter = 15000 strSQL = "SELECT ID FROM tbl_YourTableName" Set rs = CurrentDb.OpenRecordset(strSQL) rs.MoveFirst Do Until rs.EOF With rs .Edit rs![ID] = lngCounter .Update End With lngCounter = lngCounter + 1...