Ho una funzioncina di formattazione:
cod_agenzia = zeri(oRs_D_I("COD_AGENZIA"), 4)
Function zeri(ByVal nome_campo As String, ByVal numero_zeri As Integer)
Dim len_campo As Integer
len_campo = Len(nome_campo)
num_space = (numero_zeri - len_campo)
zeri = String(num_space, "0") & nome_campo
End Function
il problema è che il recordset può essere vuoto… e vorrei che venisse stampato il valore "0"..
come posso fare???
Se il recordset e' vuoto, non potrai eseguire la
oRs_D_I("COD_AGENZIA")
Ti conviene fare una If prima per controllare il fatto che il recordset sia vuoto ed operare di conseguenza ...
cavolo...
ho decine di recordset da formattare...
possibile che non esista un metodo più "pulito" che fare "if" per ogni variabile??
Potresti passare il recordset alla funzione e controllare all'interno di questa ...
in che modo?
Passi alla funzione
zeri
anche il recordset (tra i parametri) e controlli all'interno della funzione zeri, prima di formattare il valore del campo, il fatto che il recordset sia vuoto ...
P.S. Per formattare dei valori numerici con degli zeri all'inizio, puoi piu' facilmente usare la Format ...
ho fatto così:
Function numeri(Optional ByVal nome_campo As String)
If IsNull(nome_campo) Then
numeri = "0"
Else
numeri = Int(nome_campo)
End If
End Function
non funziona lo stesso... :master:
Devi passare il recordset, non la stringa del dato!
P.S. Ma poi scusa, non sei stato chiaro ... il caso da esaminare e' se il campo ha valore null o se il recordset e' vuoto? Sono cose diverse ...
gli passo il recordset:
A_I_r_proc = numeri(oRs("PROC"))
Function numeri(Optional ByVal nome_campo As String)
If IsNull(nome_campo) Then
numeri = "0"
Else
numeri = Int(nome_campo)
End If
End Function
o sbaglio?
Cosi' gli passi il valore del campo, non l'intero recordset ...
E comunque, rispondi alla mia domanda precedente ...
Il problema e' che il campo ha valore null o che il recordset e' vuoto???
Permessi di invio
Rispondi quotando