Discussion :

[louisju]

Bonjour,

J'ai un soucis avec du code VBA version ADO permettant l'insertion d'un enregistrement dans une table à partir d'un formulaire qui contient 2 listes déroulantes de 2 autres tables (clés étrangères).
J'espère être clair. Le pb est que quand les listes ne sont pas renseignées il ne veut pas faire l'insert alors que mes colonnes de tables peuvent contenir des valeurs nulles pour les champs associés. Auriez vous une idée ? Ca marche tbien quand on sélectionne une valeur pour chaque liste.

[Dolphy35]

Salut,

Peux-tu nous mettre ton code stp.

[louisju]

Voici mon code :

Code :

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

cmd.CommandText = "Insert Into album Values ( '" & Me!TxtNum & "','" & Me!TxtTitre & "','" & Me!TxtNbPAges & "','" & Me!TxtNbHistoires & "','" & Me!ListeRevue & "','" & Me!ListeSerie & "','" & Me!TxtJaquette & "')"

Avec la ligne suivante ça passe mais ce ne m'arrange pas pour généraliser les cas :

Code :

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

1
2
3
 'cmd.CommandText = "Insert Into album Values ( '" & Me!TxtNum & "','" & Me!TxtTitre & "','" & Me!TxtNbPAges & "','" & Me!TxtNbHistoires & "',null,null,'" & Me!TxtJaquette & "')"
 
cmd.Execute

FRANK

[Dolphy35]

re,

Esseye une truc comme cela. Adpte le à ton appli je n'ai fait que du copier coller de ta source.

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
If Not IsNull (Me!ListeRevue) or Len (Me!ListeRevue) <> 0 Then
 
  If Not IsNull (Me!ListeSerie) or Len (Me!ListeSerie) <> 0 Then
 
       "Insert Into album Values ( '" & Me!TxtNum & "','" & Me!TxtTitre & "','" & Me!TxtNbPAges & "','" & Me!TxtNbHistoires & "','" & Me!ListeRevue & "','" & Me!ListeSerie & "','" & Me!TxtJaquette & "')"
 
  Else
 
       "Insert Into album Values ( '" & Me!TxtNum & "','" & Me!TxtTitre & "','" & Me!TxtNbPAges & "','" & Me!TxtNbHistoires & "','" & Me!ListeRevue & "',Null,'" & Me!TxtJaquette & "')"
 
  End If
 
ElseIf Not IsNull (Me!ListeSerie) or Len (Me!ListeSerie) <> 0 Then
 
      "Insert Into album Values ( '" & Me!TxtNum & "','" & Me!TxtTitre & "','" & Me!TxtNbPAges & "','" & Me!TxtNbHistoires & "',Null,'" & Me!ListeSerie & "','" & Me!TxtJaquette & "')"
 
Else
 
      "Insert Into album Values ( '" & Me!TxtNum & "','" & Me!TxtTitre & "','" & Me!TxtNbPAges & "','" & Me!TxtNbHistoires & "',Null,Null,'" & Me!TxtJaquette & "')"
 
End If

[louisju]

c vrai que ça englobe tte les possibilités et ça marche mais n'existe-til pas une raison de blocage sur une valeur nulle pour une liste déroulante ?

[Dolphy35]

re,

Le blocage est au niveau de l'INSERT. La liste elle peut être nulle.