doubt with MoveLast

[fabiobarreto10]

Lords of this fantastic forum, I have this code:

Dim DataAnterior As Date
Dim Db As Database, Rs As Recordset, Sql As String
Set Db = CurrentDb
Set Rs = Db.OpenRecordset("SELECT DataRealizada FROM TblPassosStatus WHERE CodProduto =" & CodProduto)


DataAnterior = Rs.Fields(0)


Using rs.Fields (0) I get the first column value.
How to use MoveLast for the last column value even if
this value is null?


Thank you.

[pbaldy]

You're only selecting one column, so you wouldn't get any others. If you select more, you can get them with

rs.Fields(x)

where x is the column you want (starting at 0), or

rs!FieldName

which is my preference, as it's self-documenting.

[pbaldy]

Oh, and MoveLast is for moving to the last record, not the last field in a record.

[fabiobarreto10]

Yes, I'm getting the first column value, how do I get the last value, using the move.last.

Yes, I want to move to the last record of the column and get value.

[pbaldy]

If you want the last record

rs.MoveLast

[fabiobarreto10]

Thanks, now I just like when the value is null. For example I have this code:

Set Rs = Db.OpenRecordset("SELECT DataRealizada,DataReprogramada, DataProgramada FROM TblPassosStatus WHERE CodProduto =" & CodProduto)
Rs.MoveLast



DateRealizada = Rs.Fields(0)

DateReprogramada = Rs.Fields(1)

DateProgramada = Rs.Fields(2)

If IsNull(Me.[Passo]) Then Exit Sub
If holstr = "" Then make_hols "c:\BD\FERIADO.txt", "1/1/" & Year(Now())

If DateRealizada <> "" Then
NewUpDate_Core Me.Passo, DateRealizada
Else
If DateReprogramada <> "" Then
NewUpDate_Core Me.Passo, DateReprogramada
Else
If DateProgramada <> "" Then
NewUpDate_Core Me.Passo, DateProgramada
Else
Exit Sub

End If
End If
End If

one of the three fields have a value, but shows an error message when a field has the null value. You can declare a variable as variant and if the value is not null do a conversion to Date?

Thank you.

[pbaldy]

You can just declare them as Variant; they will accept the date when it's there. There's no need to change how it was declared.

[fabiobarreto10]

It worked. Thank pbaldy.

[pbaldy]

Happy to help.