Probleme avec ALLOW ZERO LENGTH STRING et NULL:

Version imprimable

Bonjour a tous,
Je me sers du code ci-dessous fourni par ce site pour me debarrasser des ZLS(zero length string c-a-d “”) mais cela ne marche pas.
http://allenbrowne.com/bug-09.html

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Function FixZLS()
    Dim db As DAO.Database
    Dim tdf As DAO.TableDef
    Dim fld As DAO.Field
    Dim prp As DAO.Property
    Const conPropName = "AllowZeroLength"
    Const conPropValue = False
 
    Set db = CurrentDb()
    For Each tdf In db.TableDefs
        If (tdf.Attributes And dbSystemObject) = 0 Then
            If tdf.Name <> "Switchboard Items" Then
                For Each fld In tdf.Fields
                    If fld.Properties(conPropName) Then
                        Debug.Print tdf.Name & "." & fld.Name
                        fld.Properties(conPropName) = conPropValue
                    End If
                Next
            End If
        End If
    Next
 
    Set prp = Nothing
    Set fld = Nothing
    Set tdf = Nothing
    Set db = Nothing
End Function

Après execution du code, la propriete de ALLOW ZERO LENGTH de la table (en mode design)se positionne effectivement sur NO mais cela n’a aucun effet sur mes requetes.
Le code suivant continue par me retourner des resultats alors que je ne devais rien obtenir:

Code:

1
2
3
Select *
From T1
Where T1.strPrenom = “”

Merci de me donner un coup de pouce.

07/11/2012, 16h06
f-leb

bonjour,

je dirais que les nouvelles saisies ne permettent pas d'entrer des chaînes vides mais pour autant celles qui étaient déjà saisies avant la manip ne sont pas modifiées.

Tu veux faire quoi exactement quand tu as un prénom="" ?
Supprimer carrément l'enregistrement :aie:? Le remplacer par Null ? par un "?" ? Par autre chose ?
07/11/2012, 17h03
Bonero

Merci de ta prompte reponse.
Je veux simplement me debarrasser de toutes les chaines vides qui existent déjà c-a-d les remplacer par de “VRAIS NULL”.
L’exemple de Prenom=”” etait juste pour checker si le code a marche ou pas.
07/11/2012, 17h49
Bonero
j’ai essaye de glisser le code tout enbas entre les lignes 15 et 16 mais

Code:

tdf.Name

renvoie parfois des noms bizarres du genre

Code:

~TMPCLP91581

et cela fait echouer la ligne

Code:

db.Execute strSQL
Code:

1 2 3 4 strSQL = "UPDATE " & "[" & tdf.Name & "]" & " SET " & _ "[" & fld.Name & "]" & "=Null WHERE " & _ "[" & fld.Name & "]" & " =''" 'Debug.Print strSQL
DB.Execute strSQL
07/11/2012, 19h00
f-leb

Citation:

~TMPCLP91581

des tables temporaires, elles devraient disparaître après compactage.

au pire ligne 12:

Code:

If tdf.Name <> "Switchboard Items" And Not tdf.Name Like "~TMP*"