ADO recordset if null/0

[Ruegen]

I'm working with recordset on a form however the user must first fill the date fields and then use a list button to list the records else there is nothing.

I have another button that has an if with isnull(datefield1) or isnull(datefield2) to cover that however if there isn't anything in the recordset then I will get an error

I have rs.movefirst and rs.movelast and then rs.recordcount to count the recordset

I also have recordcount = rs.recordcount to hold the count for a message box (so the user can be warned as to how many records they will be emailing before the attempt it)

I'd like to prevent any errors if the list is null/0



how would I go about this in the proper way?

[ItsMe]

Edit: I just realized you are using ADO. The rules a little different for ADO and I though you were using DAO


Your isnull() function should do the job of determining wheather or not there is a value in the text field. You could add another validation for empty string

if me.datefield = "" then

For unbound textboxes, if the user deletes the value before continuing, it will no longer be null, it will be an empty string. This is also true for controls bound to certain field data types like text data types.

As for validation of your recordset in your DAO. You can use the .EOF. You can also use the .Recordcount

You do not need always need to .Movefirst or .Movelast. For instance, .Findfirst will populate a recordset. So you will not need to .Movelast and then .Findfirst.

To get a recordcount you can

Dim intCount as integer
.MoveFirst
intcount = .Recordcount
msgbox intcount

if intcount <=0 then
set rs = nothing
exit sub
end if

[Ruegen]

Edit: I just realized you are using ADO. The rules a little different for ADO and I though you were using DAO


Your isnull() function should do the job of determining wheather or not there is a value in the text field. You could add another validation for empty string

if me.datefield = "" then

For unbound textboxes, if the user deletes the value before continuing, it will no longer be null, it will be an empty string. This is also true for controls bound to certain field data types like text data types.

As for validation of your recordset in your DAO. You can use the .EOF. You can also use the .Recordcount

You do not need always need to .Movefirst or .Movelast. For instance, .Findfirst will populate a recordset. So you will not need to .Movelast and then .Findfirst.

To get a recordcount you can

Dim intCount as integer
.MoveFirst
intcount = .Recordcount
msgbox intcount

if intcount <=0 then
set rs = nothing
exit sub
end if

Arghh! my mistake! I meant DAO - I apologise!! But otherwise good to know *I still need to learn all this anyway

I went and got a morning coffee after this**

[Ruegen]

Thanks for your help itsme