[ACCESS-VBA] Passare un Null come parametro....

[dr.stein]

Ciao!
Ho questo problema!

Ho questa funzione:

Codice PHP:

Function Formatta(ByVal Str As String, ByVal Lung As Integer) As String
        
    If IsNull(Str) Then
        Formatta = String(Lung, " ")
    Else
        Formatta = Str + String(Lung - Len(Str), " ")
    End If
    
End Function 


Al quale io passo una stringa e un numero!
Il numero rappresenta la lunghezza fissa che deve avere la stringa restituita!

Ovvero, se io passo "ABC" e 5, mi restituisce "ABC--" (dove - sono spazi), se passo "A" e 5 ho "A-----"

Nel caso la stringa sia vuota, ricevo una stringa di tanti spazi quanto e' il numero del secondo parametro.
Stesso funzionamento dovrebbe avere nel caso di stringa nulla!

Ora esaminiamo il pezzo di codice che richiama questa funzione:

Codice PHP:

Dim Query As Object
Set Query = CurrentDb.OpenRecordset("INGRESSO")

Dim Riga As String

Riga = ""

.... CUT ....

Riga = Riga + Formatta(Query!CognomeContr, 25) 


INGRESSO e' il nome di una tabella dove ho memorizzati tutti i dati

Ora, il campo CognomeContr e' un campo testo da 25 caratteri, quindi posso avere al suo interno una stringa che va da 0 a 25 caratteri, oppure Null!

Qual'e' il problema ?

Nel caso ci sia Null, Access mi risponde:

Codice PHP:

Errore di runtime '94':

Utilizzo non valido di Null 


Come posso passare Null come parametro ad una funzione ?

Altre idee per risolvere il problema ?

Thx!

[ilsensine]

String non può essere Null. Devi usare il tipo Variant.

[dr.stein]

Originariamente inviato da ilsensine
String non può essere Null. Devi usare il tipo Variant.

DOH!!!!

Ma ho fatto tanto per evitare il Variant!!!!

Grazie!

[cisky]

Ti consiglio di crearti una comoda funzione che ti gestisce l'uso del Null con le stringhe

Function NullStr(v As Variant) As String
    If IsNull(v) Then
        NullStr = ""
    Else
        NullStr = CStr(v)
    End If
End Function

Es: Riga = Riga + Formatta(NullStr(Query!CognomeContr), 25)

Ciao!

[dr.stein]

Originariamente inviato da cisky
Ti consiglio di crearti una comoda funzione che ti gestisce l'uso del Null con le stringhe

Function NullStr(v As Variant) As String
    If IsNull(v) Then
        NullStr = ""
    Else
        NullStr = CStr(v)
    End If
End Function

Es: Riga = Riga + Formatta(NullStr(Query!CognomeContr), 25)

Ciao!

Uhm... e' un'idea...
ma non e' ridondante a quel punto ?

[a2000]

Originariamente inviato da dr.stein
Ciao!
Ho questo problema!

....

Se non hai problemi puristico-tipologico di derivazione pascalina (il variant non lo voglio no ! - ma d'altra parte "Null è un sottotipo di Variant utilizzato per indicare che un elemento non contiene dati validi") ti propongo questa più corta e con l'uso della negletta Istruzione Mid (non la Funzione):

Function Formatta1(ByVal Str As Variant, ByVal Lung As Integer) As String
         
 Formatta1 = String(Lung, " ")
 If Not IsNull(Str) Then Mid(Formatta1, 1) = Str
     
End Function

[cisky]

Originariamente inviato da dr.stein
Uhm... e' un'idea...
ma non e' ridondante a quel punto ?

Beh, sicuramente è ridondante ...

... nel senso che và utilizzata per ogni lettura da un campo del Recordset che accetti valori a Null.

Secondo mè il controllo dei valori a Null in fase di recupero dati dal DB è sempre da tenere in considerazione per evitare spiacevoli sorprese con i valori Null; quindi preferisco sempre utilizzare data type non variant nelle routine (Quando è possibile!).