pb insert en VBA

Version imprimable

15/02/2006, 17h06
louisju

pb insert en VBA

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.
15/02/2006, 17h45
Dolphy35

Salut,

Peux-tu nous mettre ton code stp.
15/02/2006, 18h16
louisju
Voici mon code :

Code:

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:

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

re,

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

Code:

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

15/02/2006, 19h01
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 ?
15/02/2006, 19h06
Dolphy35

re,

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