Utilisation incorrecte de Null
Bonjour,
Situation initiale: présence d'une table de données comprenant entre autre:
- un champ avec le "Nom_de_l'article" [Format - Texte]
- un champ avec le "No_de_l'article" [Format - Texte]
- un champ avec le "No_structuré_de_l'article" [Format - Texte]
Les divers enregistrements sont édités par le biais d'un form. Le champ "No_structuré_de_l'article" se construit sur la base du contenu du champ "No_de_l'article". Jusque là tout va bien. Lorsque je décide toutefois d'éffacer la valeur de mon premier champ (No_de_l'article) Access se plante et me fait apparaitre le message que voici "erreur d'exécution '94': Utilisation incorrecte de Null".
Ci-joint le code générant mon "No_structuré_de_l'article"
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
28
29
30
31
|
Private Sub CodeArticle_AfterUpdate()
Dim strFile As String
Dim s As Integer
If Len(Me.CodeArticle.Value) = 0 Then
Me.Code.Value = "0"
Exit Sub
End If
strFile = Me.CodeArticle.Value
Debug.Print strFile
If Len(strFile) < 5 Then
Me.Code.Value = "00"
End If
If Len(strFile) = 5 Then
Me.Code.Value = strFile
End If
If Len(strFile) = 6 Then
Me.Code.Value = Left(strFile, 2) & "00000" & Mid(strFile, 4, 1) & Right(strFile, 1)
End If
If Len(strFile) = 7 Then
Me.Code.Value = Left(strFile, 2) & "0000" & Mid(strFile, 4, 2) & Right(strFile, 1)
End If
End Sub |
Que me proposez-vous pour éviter de voire apparaitre ce message d'erreur
Salutations
Papillon00
