Discussion :

[Dryss51]

Bonjour,

J'ai un petit problème, je vous explique :

J'ai créé un formulaire avec des textBox indépendantes. Grace à un code VBA je recupère la valeur de chaque textBox.

Ensuite, je fais un insert into de ces valeurs vers un table précédement créé.

Mon problème :

Quand tous les champs sont renseignés pas de problème, l'insert into se réalise sans problème. Mais je voudrai qu'il fonctionne aussi (qu'il remplisse la table approprié) lorsque tous les champs ne sont pas forcément rempli A PART la clè primaire qui elle est toujours rempli

En gros je voudrai pouvoir rentrer des valeurs null dans la table grace a mon insert into tant que mon N°action est valide.

Ex :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
  'Affecte les valeurs
                                    N°Act = DMax("N°Action", "Action") + 1
                                    Désignation = lstDésignationAction.Column(1)
                                    Stat = Satut.Value
                                    rev = Révision.Value
                                    dateRecep = [Date Reception].Value
                                    dateRelan = [Date Relance].Value
                                    dateRecev = [A Recevoir].Value
                                    Prop = lstPropo.Value
                                    Interv = lstIntervenant.Value
                                    NbH = NbH.Value
                  'insertion table Action
 insertAction = "INSERT INTO [Action] (N°Action,Désignation,Satut,Révision,[Date Reception],[Date Relance],[A Recevoir]) VALUES (" & N°Act & ",'" & Désignation & "','" & Stat & "', '" & rev & "',#" & dateRecep & "#,#" & dateRelan & "#,#" & dateRecev & "#)"
                                    DoCmd.RunSQL insertAction

Si quelqu'un à une idée parcque je pensais pas que ça allait planté

Merci d'avance

[Demco]

Pour la gestion des null : utilise la fonction Nz() pour chaque champ succeptible d'être null.

En espérant t'aider.

[Dryss51]

Merci ca m'a deja bien aider mais je voudrai que les champs date soit vide aussi. Tu as une idée car il accepte pas null, pas "" car c'est un variant

ex qui marche pas :

Code :

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

1
2
nz([Date Reception].Value, null)
nz([Date Reception].Value, "")

ex qui marche

Code :

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

nz([Date Reception].Value, 0)

Mais le champs est remplie par 00:00:00 et je voudrai qu'il soit vide..