SDEMINGO, SIGOP CON LO DE AYER

bengaba81
13 de Mayo del 2004
Public Sub NomImagen()
Dim varano
Dim rsaux1 As ADODB.Recordset
varano = Mid(Date, 9, 2)
'Set rsaux1 = de1.rsimagenes.Clone
Set rsaux1 = de1.conex.Execute("SELECT MAX (NombreImagen) FROM Imagenes")
'MsgBox rsaux1.Fields(0).Value
If rsaux1.BOF And rsaux1.EOF Then
de1.rsimagenes.Fields(1) = varano & "0001"
'el recordset está vacio
Else
'el recordsset tiene registros
de1.rsimagenes.Fields(1) = rsaux1.Fields(0) + 1
End If


If rsaux1.Fields(0) = Null Then
de1.rsimagenes.Fields(1) = varano & "0001"
Else
de1.rsimagenes.Fields(1) = rsaux1.Fields(0) + 1
End If
End Sub