Ajout Enregistrement dauns une table
DAVIMIKA
Messages postés
118
Date d'inscription
jeudi 2 novembre 2000
Statut
Membre
Dernière intervention
10 janvier 2014
-
17 janv. 2005 à 13:06
DAVIMIKA Messages postés 118 Date d'inscription jeudi 2 novembre 2000 Statut Membre Dernière intervention 10 janvier 2014 - 19 janv. 2005 à 11:34
DAVIMIKA Messages postés 118 Date d'inscription jeudi 2 novembre 2000 Statut Membre Dernière intervention 10 janvier 2014 - 19 janv. 2005 à 11:34
A voir également:
- Ajout Enregistrement dauns une table
- Php table - Conseils pratiques -PHP
- Swing table java - Forum Java
- Ajouter un enregistrement dans une table access vba ✓ - Forum Visual Basic 6
- Ajouter un champ dans une table sql - Forum VB.NET
- Mettre à jour un champ avec un champ d'une autre table ✓ - Forum SQL
3 réponses
phantom_2005
Messages postés
184
Date d'inscription
mercredi 8 décembre 2004
Statut
Membre
Dernière intervention
1 septembre 2010
1
17 janv. 2005 à 13:37
17 janv. 2005 à 13:37
Salut, je suppose que tu travailles en vba.
Tu peux utiliser une requête d'ajout.
ex:
Dim Montant As Integer, Age As Integer, IdTarif As Integer
Dim CompteComptable As Long
Dim Libellé As String, ReqAjout As String
If Age >= 18 Then
Montant = 20
Libellé = "Adultes"
IdTarif = 1
CompteComptable = 700000
Else
If Age < 18 Then
Montant = 15
Libellé = "Jeunes"
IdTarif = 2
CompteComptable = 701000
End if
End If
......... etc ........
ReqAjout = "INSERT INTO Cotisations VALUES (Ton_Id_Cotisation, " & IdTarif & ",' " & Libellé & " '," & Montant & "," & CompteComptable & ");"
DoCmd.RunSql ReqAjout
J'espère que j'ai bien compris le problème
@+
--------------------------------------------------------------------------------
Phantom_2005
Tu peux utiliser une requête d'ajout.
ex:
Dim Montant As Integer, Age As Integer, IdTarif As Integer
Dim CompteComptable As Long
Dim Libellé As String, ReqAjout As String
If Age >= 18 Then
Montant = 20
Libellé = "Adultes"
IdTarif = 1
CompteComptable = 700000
Else
If Age < 18 Then
Montant = 15
Libellé = "Jeunes"
IdTarif = 2
CompteComptable = 701000
End if
End If
......... etc ........
ReqAjout = "INSERT INTO Cotisations VALUES (Ton_Id_Cotisation, " & IdTarif & ",' " & Libellé & " '," & Montant & "," & CompteComptable & ");"
DoCmd.RunSql ReqAjout
J'espère que j'ai bien compris le problème
@+
--------------------------------------------------------------------------------
Phantom_2005
DAVIMIKA
Messages postés
118
Date d'inscription
jeudi 2 novembre 2000
Statut
Membre
Dernière intervention
10 janvier 2014
17 janv. 2005 à 23:11
17 janv. 2005 à 23:11
Ok pour une requette Ajout,
Je dois parcourir la tblAdhérents, et en fonction des critères décrit plus haut ajouter à la tblCotisations les éléments correspondant à la tblTarifs, et cela pour tout les adhérents..
<?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" />
Je précise que je suis débutant et j’aimerai avoir le maxi de précision possible.
Salutations
Je dois parcourir la tblAdhérents, et en fonction des critères décrit plus haut ajouter à la tblCotisations les éléments correspondant à la tblTarifs, et cela pour tout les adhérents..
<?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" />
Je précise que je suis débutant et j’aimerai avoir le maxi de précision possible.
Salutations
DAVIMIKA
Messages postés
118
Date d'inscription
jeudi 2 novembre 2000
Statut
Membre
Dernière intervention
10 janvier 2014
19 janv. 2005 à 11:34
19 janv. 2005 à 11:34
Bonjour,
J'attend toujours une réponse à mon dernier message, est-ce que j'ai mal expliquer mon problème ?
merci d'avance pour la réponse
Salutations
J'attend toujours une réponse à mon dernier message, est-ce que j'ai mal expliquer mon problème ?
merci d'avance pour la réponse
Salutations
