D'une table a une autre...
Fatime
-
Faltime -
Faltime -
Bonjour,
J'utlise Access 2003 et je suis relativement novice. Je voudrais que le système aille dans la table 1 (TblTache) chercher la Durée d'une tâche pour la reporter dans la table 2 (TblVolume) dans le champs delai pour qu'ensuite je puisse faire un calcul de mon volume * par mon délai dans un nouveau champs.
Des idees?
J'utlise Access 2003 et je suis relativement novice. Je voudrais que le système aille dans la table 1 (TblTache) chercher la Durée d'une tâche pour la reporter dans la table 2 (TblVolume) dans le champs delai pour qu'ensuite je puisse faire un calcul de mon volume * par mon délai dans un nouveau champs.
Des idees?
A voir également:
- D'une table a une autre...
- Table ascii - Guide
- Table des matières word - Guide
- Table des caractères - Guide
- No bootable partition in table ✓ - Forum Windows
- Dans le fichier, générez ce tableau automatiquement (tableau croisé dynamique ou table de pilote) à partir des quatre premières colonnes. - Guide
2 réponses
Vous devez créer un formulaire à partir de la table Tblvolume
Créer un boutton de commande, sélectionner le en mode création
Dans la barre d'outils, utiliser l'outil Propriété et dans l'onglet Evenement choisissez sur clic et dans le boite dialogue choisissez code
Et écrivez les lignes du code suivant comme suit:
exemple:
Private Sub Commande1_Click()
Dim Dbs As Database
Dim Rst As Recordset
Dim Trouve As Boolean
Set Dbs=CurrentDb()
Set Rst=Dbs.OpenRecordset("TblTache")
Rst.MoveFirst
Trouve = False
For i = 0 To Rst.RecordCount - 1
If Rst.Fields("Index") = Me!Index Then 'Comentaire:Rst.Fields("Index") est l'index de la table TblTach et Me!Index est l'index de la table TblVolume
Me!Délai=Rst.Fields("Durée")
Trouve = True
Exit For
End If
Next i
If Trouve = False Then
MsgBox "La durée recherchée n'existe pas",VbInformation,"mprog67@yahoo.fr"
End if
End Sub
Créer un boutton de commande, sélectionner le en mode création
Dans la barre d'outils, utiliser l'outil Propriété et dans l'onglet Evenement choisissez sur clic et dans le boite dialogue choisissez code
Et écrivez les lignes du code suivant comme suit:
exemple:
Private Sub Commande1_Click()
Dim Dbs As Database
Dim Rst As Recordset
Dim Trouve As Boolean
Set Dbs=CurrentDb()
Set Rst=Dbs.OpenRecordset("TblTache")
Rst.MoveFirst
Trouve = False
For i = 0 To Rst.RecordCount - 1
If Rst.Fields("Index") = Me!Index Then 'Comentaire:Rst.Fields("Index") est l'index de la table TblTach et Me!Index est l'index de la table TblVolume
Me!Délai=Rst.Fields("Durée")
Trouve = True
Exit For
End If
Next i
If Trouve = False Then
MsgBox "La durée recherchée n'existe pas",VbInformation,"mprog67@yahoo.fr"
End if
End Sub
