ACCES Remplissage automatique de champ
Maxime
-
Max2350 Messages postés 5 Statut Membre -
Max2350 Messages postés 5 Statut Membre -
Bonjour,
Je souhaiterais, dans une table, pouvoir définir le contenu d'un champ suivant les données d'un autre champ. Je m'explique:
Je veux créer un champ "Commentaires" dépendant d'un champ "Code".
Dans le champ commentaire, je veux écrire "Dernier N°" si et seulement si dans le champ Code = "12"
Est-ce envisageable?
Puis-je espérer pouvoir faire un calcul de genre?
Merci à ceux qui pourrons m'aiguiller
Je souhaiterais, dans une table, pouvoir définir le contenu d'un champ suivant les données d'un autre champ. Je m'explique:
Je veux créer un champ "Commentaires" dépendant d'un champ "Code".
Dans le champ commentaire, je veux écrire "Dernier N°" si et seulement si dans le champ Code = "12"
Est-ce envisageable?
Puis-je espérer pouvoir faire un calcul de genre?
Merci à ceux qui pourrons m'aiguiller
A voir également:
- ACCES Remplissage automatique de champ
- Logiciel de sauvegarde automatique gratuit - Guide
- Réponse automatique thunderbird - Guide
- Recherche automatique des chaînes ne fonctionne pas - Guide
- Acces rapide - Guide
- Accès refusé - Guide
10 réponses
Ces champs sont-ils dans la même table?
Je te propose un petit code VBA, avec une jolie requête SQL ^^
Je te propose un petit code VBA, avec une jolie requête SQL ^^
Ok.
Option Compare Database
Option Explicit
'Déclaration Variables Globales
Dim db As New ADODB.Connection
Dim rst As New ADODB.Recordset
'Cette fonction est appelée pour initialiser ADO
Private Function initADO() As Boolean
On Error GoTo err
If db.State <> adStateClosed Then db.Close
If rst.State <> adStateClosed Then rst.Close
Set db = CurrentProject.Connection
initADO = True
Exit Function
err:
MsgBox err.Number, err.Description
initADO = False
End Function
Private Sub Bascule0_Click()
initADO
Dim MyString As String
MyString = "Dernier N°"
db.Execute "UPDATE Table1 SET Commentaire='" & MyString & "' WHERE Code='12'"
End Sub
Ou tout simplement crée une requête dans Access et copier :
UPDATE Table1 SET Commentaire='" & MyString & "' WHERE Code='12'
Option Compare Database
Option Explicit
'Déclaration Variables Globales
Dim db As New ADODB.Connection
Dim rst As New ADODB.Recordset
'Cette fonction est appelée pour initialiser ADO
Private Function initADO() As Boolean
On Error GoTo err
If db.State <> adStateClosed Then db.Close
If rst.State <> adStateClosed Then rst.Close
Set db = CurrentProject.Connection
initADO = True
Exit Function
err:
MsgBox err.Number, err.Description
initADO = False
End Function
Private Sub Bascule0_Click()
initADO
Dim MyString As String
MyString = "Dernier N°"
db.Execute "UPDATE Table1 SET Commentaire='" & MyString & "' WHERE Code='12'"
End Sub
Ou tout simplement crée une requête dans Access et copier :
UPDATE Table1 SET Commentaire='" & MyString & "' WHERE Code='12'
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Hm, as-tu bien remplacé Table1 par le nom de ta table?
Les champs indiqués comme Code/Commentaire sont-ils orthographié comme dans ta table?
Les ' ' sont-ils bien présents dans ta requête?
Les champs indiqués comme Code/Commentaire sont-ils orthographié comme dans ta table?
Les ' ' sont-ils bien présents dans ta requête?
C'est étrange parce que j'ai fais le test et ça marche niquel!
Essaye alors ma première solution
Dans un formulaire tu crées un bouton.
ALT + F11
Tu copies le code que je t'ai donné en replaçant Private Sub Bascule0_Click() par le nom de ton bouton _click
Pour avoir le nom du bouton, faut être en mode création, clique droit sur le bouton, propriétés, et là tu devrais avoir le nom.
Si ça marche toujours pas, je vois pas où est l'erreur :O
Essaye alors ma première solution
Dans un formulaire tu crées un bouton.
ALT + F11
Tu copies le code que je t'ai donné en replaçant Private Sub Bascule0_Click() par le nom de ton bouton _click
Pour avoir le nom du bouton, faut être en mode création, clique droit sur le bouton, propriétés, et là tu devrais avoir le nom.
Si ça marche toujours pas, je vois pas où est l'erreur :O
Merci mais cela me parait bien compliqué tout au moins pour la première partie, mais si je devais utiliser cela Où dois-lje le mettre ?
J'ai donc préféré créer une requète
UPDATE Table1 SET Commentaire='Dernier N°' WHERE Code='12'
J'ai rentré ce critère dans ma requête et j'ai ce message d'erreur
Vous avez rentré une opérande sans opérateur
et WHERE est surligné
Où est l'erreur ?
J'ai donc préféré créer une requète
UPDATE Table1 SET Commentaire='Dernier N°' WHERE Code='12'
J'ai rentré ce critère dans ma requête et j'ai ce message d'erreur
Vous avez rentré une opérande sans opérateur
et WHERE est surligné
Où est l'erreur ?
Je viens de vérifier,
j'avais effectivement une erreur puisque dans ma table 'commentaire' n'a pas de majuscule
j'ai donc corrigé mais j'ai toujours le même message et WHERE toujours surligné
j'avais effectivement une erreur puisque dans ma table 'commentaire' n'a pas de majuscule
j'ai donc corrigé mais j'ai toujours le même message et WHERE toujours surligné
