Funciones Y DATA ENVIRONMENT

bengaba81
14 de Mayo del 2004
Tengo una base de datos en acces con el campo que relleno con esta funcion de tipo numerico.
El caso es que varano me guarda 04 que es lo que yo quiero, pero luego en la tabla como el 0 esta a la izqda lo elimina, que puedo hacer?
Public Sub NomImagen()
Dim varano
Dim rsaux1 As ADODB.Recordset
varano = Mid(Date, 9, 2)
Set rsaux1 = de1.conex.Execute("SELECT MAX (NombreImagen) FROM Imagenes")
If rsaux1.BOF = False And rsaux1.EOF = False And de1.rsimagenes.RecordCount = 1 Then
de1.rsimagenes.Fields(1) = varano & "0001"
Else
de1.rsimagenes.Fields(1) = rsaux1.Fields(0) + 1
End If
End Sub

Thessen
14 de Mayo del 2004
Deberias guardarlo como tipo texto y no como numero.

bengaba81
14 de Mayo del 2004
si lo hago de tipo numerico, no me realiza la select
en la base de acces es numerico

Thessen
14 de Mayo del 2004
Al declarar varano sin tipo, lo toma como string ya que el valor resultante del mid es una cadena. Al almacenarlo en la Base de Datos (en un campo numerico) el 04 te lo convierte a 4. Para evitarlo, deberias cambiar el tipo del campo de la base de datos para que, en lugar de ser numerico, sea un string.