Discussion :

[benjamin002]

Bonjour,

Je crée une base de donnée, j'ai ainsi un formulaire d'ajout et je souhaiterais ne pas avoir à me soucier du remplissage d'un champs lors de l'enregistrement.
En effet lorsque je clique sur enregistrer je souhaiterais que dans le champs "Etat" il me mette automatiquement "Disponible"
Voici ce que j'ai entrepris:

Code :

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

1
2
3
4
5
6
Dim D As String
D = "Disponible"
Dim StrSQL As String

StrSQL = "INSERT INTO DA (Redacteur, NumDA, NomFournisseur, NomMarque, DateCommande, NumClasseur, Description, Materiel, Prestataire, Software, Semestre, Etat) VALUES ('" & Me.TxtRedac & "'," & Me.TxtNumDA & ",'" & Me.TxtFournisseur & "','" & Me.TxtMarque & "'," & Me.TxtDate & "," & Me.TxtClasseur & ", '" & Me.TxtRech & "', '" & Me.TxtMateriel & "', '" & Me.TxtPrestataire & "', '" & Me.TxtSoftware & "', " & Me.TxtSemestre & ", D);"

(Il n'y a pas la totalité de mon code mais simplement la partie qui s'interesse à mon probleme)

lorsque j'enregistre il me demande une valeur pour D, or je lui ai donné (cf: D = "Disponible") non?

[miamou]

Bonjour,
Remplace ton code par ceci:

Code :

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

1
2
3
4
5
6
Dim D As String
D = "Disponible"
Dim StrSQL As String
 
StrSQL = "INSERT INTO DA (Redacteur, NumDA, NomFournisseur, NomMarque, DateCommande, NumClasseur, Description, Materiel, Prestataire, Software, Semestre, Etat) VALUES "
StrSQL = StrSQL & "('" & Me.TxtRedac & "','" & Me.TxtNumDA & "','" & Me.TxtFournisseur & "','" & Me.TxtMarque & "','" & Me.TxtDate & "','" & Me.TxtClasseur & "', '" & Me.TxtRech & "', '" & Me.TxtMateriel & "', '" & Me.TxtPrestataire & "', '" & Me.TxtSoftware & "', '" & Me.TxtSemestre & "', " & D & ")"

Par contre si la valeur du champs Etat ne change pas souvent tu peut, en mode création de la table concernée, mettre dans la propriété du champs Etat, valeur par défaut "Disponible" et dans ce cas tu n'as pas à te soucier de ce champs lors de l'insertion d'un enregistrement il est automatiquement rempli par cette valeur.

[benjamin002]

D'accord, cependant est-il modifiable après?
j'entend par là qu'en fait j'ai une contrainte, en effet je souhaite lorsque je supprime un enregistrement qu'il me note dans mon champs Etat: "Supprimé" mais conserver la ligne, le fait de mettre automatiquement la valeur "Disponible" n'empêche pas la modification de celui-ci?

[fgiambelluco]

Bonjour à tous

lorsque j'enregistre il me demande une valeur pour D, or je lui ai donné (cf: D = "Disponible") non?

A mon avis, comme D est une valeur fixe, il faut mettre des ".

La fin de la syntaxe donnerait ça

Code :

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

Me.TxtSoftware & "', " & Me.TxtSemestre & ", 'D');"

Pour

fait de mettre automatiquement la valeur "Disponible" n'empêche pas la modification de celui-ci?

Une valeur par défaut est proposée à la création mais reste modifiable.
bon courage

[benjamin002]

A mon avis, comme D est une valeur fixe, il faut mettre des ".

à quel endroit? "D" = "Disponible" ? Dim "D" As String ?

[benjamin002]

Merci fgiambelluco, cela fonctionne, il fallait en effet ajouter des quotes à D:

Code :

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

1
2
3
4
5
 
Dim D As String
D = "Disponible"
Dim StrSQL As String
StrSQL = "INSERT INTO DA (Redacteur, NumDA, NomFournisseur, NomMarque, DateCommande, NumClasseur, Description, Materiel, Prestataire, Software, Semestre, Etat) VALUES ('" & Me.TxtRedac & "'," & Me.TxtNumDA & ",'" & Me.TxtFournisseur & "','" & Me.TxtMarque & "'," & Me.TxtDate & "," & Me.TxtClasseur & ", '" & Me.TxtRech & "', '" & Me.TxtMateriel & "', '" & Me.TxtPrestataire & "', '" & Me.TxtSoftware & "', " & Me.TxtSemestre & ", 'D');"

Encore merci

[miamou]

dsl de ne pas donner la syntaxe exacte. Mais il est déficile de copier le code et le modifier sur l'éditeur de message
je corige ce j'avairs posté:

Code :

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

1
2
3
4
5
6
Dim D As String
D = "Disponible"
Dim StrSQL As String
 
StrSQL = "INSERT INTO DA (Redacteur, NumDA, NomFournisseur, NomMarque, DateCommande, NumClasseur, Description, Materiel, Prestataire, Software, Semestre, Etat) VALUES "
StrSQL = StrSQL & "('" & Me.TxtRedac & "','" & Me.TxtNumDA & "','" & Me.TxtFournisseur & "','" & Me.TxtMarque & "','" & Me.TxtDate & "','" & Me.TxtClasseur & "', '" & Me.TxtRech & "', '" & Me.TxtMateriel & "', '" & Me.TxtPrestataire & "', '" & Me.TxtSoftware & "', '" & Me.TxtSemestre & "', '" & D & "')"

[benjamin002]

Merci pour ton aide aussi Miamou