Desconocido
|
| Enviado - 31/3/2003 |
| |
Muy buenas. Esta es buena, así q con paciencia :P
Mi duda es la siguiente: tengo una aplicación para bbdd en access, q genera numeros de referencia del tipo aa/bb, donde:
bb = 2 ultimas cifras de año en el q estamos
/ = una barra normal y corriente :P
aa = numero de referencias generadas en el año bb
(ejemplo: 25/01 = referencia numero 25 del año 2001)
Quiero q esos números se generen solos, de forma q no tenga q estar el usuario pendiente de cual fue la ultima referencia introducida ese año (entre otras cosas xq no se ve a simple vista), y ahí viene mi problema. He implementado el siguiente codigo:
'Generamos el nº de acción correctora
' Dim MiFecha, MiAño 'Primero los 2 ultimos digitos (correspondientes al año actual)
' MiFecha = Date
' MiAño = Year(MiFecha)
' MiAño = MiAño - 2000
'Busco todas las desviaciones q haya registradas de ese año para contarlas
' Dim cnn As ADODB.Connection
' Dim rst As ADODB.Recordset
' Dim n As Long
' Set cnn = New ADODB.Connection
' Set rst = New ADODB.Recordset
' cnn.Open "provider = Microsoft.Jet.OLEDB.4.0; data source= seguimientoAccionesCorrectoras.mdb"
' Dim c As String
' c = "*/00"
' Set rst = cnn.Execute("SELECT * FROM desviaciones WHERE (numeroDesviacion LIKE " + c + ")")
' rst.MoveLast
' n = rst.RecordCount
' MsgBox n
X supuesto está sin acabar, es solo para probar si funciona el tema del LIKE, y x supuesto no funciona. No ejecuta la instrucción del SELECT, y no estoy seguro de si es x un fallo en la instrucción SQL o es q estoy haciendo algo mal. Si alguien tubiera paciencia y fuese tan amable de echar una mano.....
Muchas gracias |
| |
|
