Discussion :

[Bonero]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Merci de me donner un coup de pouce.

[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 ? Le remplacer par Null ? par un "?" ? Par autre chose ?

[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.

[Bonero]

j’ai essaye de glisser le code tout enbas entre les lignes 15 et 16 mais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

tdf.Name

renvoie parfois des noms bizarres du genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

~TMPCLP91581

et cela fait echouer la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

db.Execute strSQL

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
strSQL = "UPDATE " & "[" & tdf.Name & "]" & " SET " & _
"[" & fld.Name & "]" & "=Null WHERE " & _
"[" & fld.Name & "]" & " =''"
'Debug.Print strSQL

DB.Execute strSQL

[f-leb]

~TMPCLP91581

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

au pire ligne 12:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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