Bonjour Ramond,
Je n'ai pas touvré votre adresse Email celle-ci doit ertre Masqué
La mienne est : brusson.guy@free.fr
Mais voila mon Probleme détaillé
Bonjour Raymond,
Je me suis servi de l’exemple
http://officesystem.access.free.fr/telecharger/adressesauto.zip
Commune de France métropolitaine et Corse pour afficher la liste de mes
Articles
Exemple :
Famille Article Sous Famille Article Prix ttc
Stock
Armes Fusil Beretta 3000 3
Accessoires Carabine Wincheste 2500 5
Livres Mixte Browning 1500
0
Dans l’exemple je clique sur Armes et cela me donne Fusil
Carabine
Mixte
Et dans la colonne Articles : Beretta
Winchester
Browning
Comme dans Commune
Je que je veux c’est de pouvoir cliquer sur un nom de la colonne Article
pour ouvrir le formulaire Articles en MAJ et
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Guy BRUSSON
Bonjour,
J'ai trouvé une premiere Phase j'ouvre bien mon formulaire Article mais je n'arrive pas a me positionner directement sur l'articles selectionné comment faire
Voila le Code pour l'ouverture du formulaire
Private Sub Liste_Articles_DblClick(Cancel As Integer) On Error GoTo Liste_Articles_DblClick Dim lngliste_ArticlesID As Long
If IsNull(Me![Liste_Articles]) Then Me![Liste_Articles].Text = "" Else lngliste_ArticlesID = Me![Liste_Articles] Me![Liste_Articles] = Null End If DoCmd.OpenForm "Frm Articles Général", , , , , acDialog, "GotoNew" Me![Liste_Articles].Requery If lngliste_ArticlesID <> 0 Then Me![Liste_Articles] = lngliste_ArticlesID
Exit_Liste_Articles_DblClick: Exit Sub
Liste_Articles_DblClick: MsgBox Err.Description Resume Exit_Liste_Articles_DblClick End Sub
Bonjour Ramond, Je n'ai pas touvré votre adresse Email celle-ci doit ertre Masqué
La mienne est :
Mais voila mon Probleme détaillé
Bonjour Raymond,
Je me suis servi de l’exemple http://officesystem.access.free.fr/telecharger/adressesauto.zip Commune de France métropolitaine et Corse pour afficher la liste de mes Articles
Exemple : Famille Article Sous Famille Article Prix ttc Stock Armes Fusil Beretta 3000 3 Accessoires Carabine Wincheste 2500 5 Livres Mixte Browning 1500 0
Dans l’exemple je clique sur Armes et cela me donne Fusil Carabine Mixte Et dans la colonne Articles : Beretta Winchester Browning
Comme dans Commune
Je que je veux c’est de pouvoir cliquer sur un nom de la colonne Article pour ouvrir le formulaire Articles en MAJ et
Merci
Amicalement et merci
Bonjour,
J'ai trouvé une premiere Phase j'ouvre bien mon formulaire Article mais je
n'arrive pas a me positionner directement sur l'articles selectionné comment
faire
Voila le Code pour l'ouverture du formulaire
Private Sub Liste_Articles_DblClick(Cancel As Integer)
On Error GoTo Liste_Articles_DblClick
Dim lngliste_ArticlesID As Long
If IsNull(Me![Liste_Articles]) Then
Me![Liste_Articles].Text = ""
Else
lngliste_ArticlesID = Me![Liste_Articles]
Me![Liste_Articles] = Null
End If
DoCmd.OpenForm "Frm Articles Général", , , , , acDialog, "GotoNew"
Me![Liste_Articles].Requery
If lngliste_ArticlesID <> 0 Then Me![Liste_Articles] = lngliste_ArticlesID
Exit_Liste_Articles_DblClick:
Exit Sub
Liste_Articles_DblClick:
MsgBox Err.Description
Resume Exit_Liste_Articles_DblClick
End Sub
Bonjour Ramond,
Je n'ai pas touvré votre adresse Email celle-ci doit ertre Masqué
La mienne est : brusson.guy@free.fr
Mais voila mon Probleme détaillé
Bonjour Raymond,
Je me suis servi de l’exemple
http://officesystem.access.free.fr/telecharger/adressesauto.zip
Commune de France métropolitaine et Corse pour afficher la liste de mes
Articles
Exemple :
Famille Article Sous Famille Article Prix ttc
Stock
Armes Fusil Beretta 3000 3
Accessoires Carabine Wincheste 2500 5
Livres Mixte Browning 1500
0
Dans l’exemple je clique sur Armes et cela me donne Fusil
Carabine
Mixte
Et dans la colonne Articles : Beretta
Winchester
Browning
Comme dans Commune
Je que je veux c’est de pouvoir cliquer sur un nom de la colonne Article
pour ouvrir le formulaire Articles en MAJ et
J'ai trouvé une premiere Phase j'ouvre bien mon formulaire Article mais je n'arrive pas a me positionner directement sur l'articles selectionné comment faire
Voila le Code pour l'ouverture du formulaire
Private Sub Liste_Articles_DblClick(Cancel As Integer) On Error GoTo Liste_Articles_DblClick Dim lngliste_ArticlesID As Long
If IsNull(Me![Liste_Articles]) Then Me![Liste_Articles].Text = "" Else lngliste_ArticlesID = Me![Liste_Articles] Me![Liste_Articles] = Null End If DoCmd.OpenForm "Frm Articles Général", , , , , acDialog, "GotoNew" Me![Liste_Articles].Requery If lngliste_ArticlesID <> 0 Then Me![Liste_Articles] = lngliste_ArticlesID
Exit_Liste_Articles_DblClick: Exit Sub
Liste_Articles_DblClick: MsgBox Err.Description Resume Exit_Liste_Articles_DblClick End Sub
Bonjour Ramond, Je n'ai pas touvré votre adresse Email celle-ci doit ertre Masqué
La mienne est :
Mais voila mon Probleme détaillé
Bonjour Raymond,
Je me suis servi de l’exemple http://officesystem.access.free.fr/telecharger/adressesauto.zip Commune de France métropolitaine et Corse pour afficher la liste de mes Articles
Exemple : Famille Article Sous Famille Article Prix ttc Stock Armes Fusil Beretta 3000 3 Accessoires Carabine Wincheste 2500 5 Livres Mixte Browning 1500 0
Dans l’exemple je clique sur Armes et cela me donne Fusil Carabine Mixte Et dans la colonne Articles : Beretta Winchester Browning
Comme dans Commune
Je que je veux c’est de pouvoir cliquer sur un nom de la colonne Article pour ouvrir le formulaire Articles en MAJ et
Merci
Amicalement et merci
Raymond [mvp]
Bonjour.
tu peux faire ceci:
Private Sub Liste_Articles_DblClick(Cancel As Integer) On Error GoTo Liste_Articles_DblClick_Err Dim lngliste_ArticlesID As Long If IsNull(Me![Liste_Articles]) Then DoCmd.OpenForm "Frm Articles Général", , , , acFormAdd, acDialog Exit Sub Else DoCmd.OpenForm "Frm Articles Général", , , "[lecodearticle] = " & Me![Liste_Articles], acFormEdit, acDialog End If Me![Liste_Articles].Requery Exit Sub Liste_Articles_DblClick_Err: MsgBox Err.Description End Sub
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://OfficeSystem.Access.free.fr/runtime/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Guy BRUSSON" a écrit dans le message de news:
Bonjour,
J'ai trouvé une premiere Phase j'ouvre bien mon formulaire Article mais je n'arrive pas a me positionner directement sur l'articles selectionné comment faire
Voila le Code pour l'ouverture du formulaire
Private Sub Liste_Articles_DblClick(Cancel As Integer) On Error GoTo Liste_Articles_DblClick Dim lngliste_ArticlesID As Long
If IsNull(Me![Liste_Articles]) Then Me![Liste_Articles].Text = "" Else lngliste_ArticlesID = Me![Liste_Articles] Me![Liste_Articles] = Null End If DoCmd.OpenForm "Frm Articles Général", , , , , acDialog, "GotoNew" Me![Liste_Articles].Requery If lngliste_ArticlesID <> 0 Then Me![Liste_Articles] = lngliste_ArticlesID
Exit_Liste_Articles_DblClick: Exit Sub
Liste_Articles_DblClick: MsgBox Err.Description Resume Exit_Liste_Articles_DblClick End Sub
Bonjour.
tu peux faire ceci:
Private Sub Liste_Articles_DblClick(Cancel As Integer)
On Error GoTo Liste_Articles_DblClick_Err
Dim lngliste_ArticlesID As Long
If IsNull(Me![Liste_Articles]) Then
DoCmd.OpenForm "Frm Articles Général", , , , acFormAdd, acDialog
Exit Sub
Else
DoCmd.OpenForm "Frm Articles Général", , , "[lecodearticle] = " &
Me![Liste_Articles], acFormEdit, acDialog
End If
Me![Liste_Articles].Requery
Exit Sub
Liste_Articles_DblClick_Err:
MsgBox Err.Description
End Sub
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Guy BRUSSON" <GuyBRUSSON@discussions.microsoft.com> a écrit dans le message
de news: 0D06D2E5-415D-4D7C-AEFD-85E1D9437391@microsoft.com...
Bonjour,
J'ai trouvé une premiere Phase j'ouvre bien mon formulaire Article mais je
n'arrive pas a me positionner directement sur l'articles selectionné
comment
faire
Voila le Code pour l'ouverture du formulaire
Private Sub Liste_Articles_DblClick(Cancel As Integer)
On Error GoTo Liste_Articles_DblClick
Dim lngliste_ArticlesID As Long
If IsNull(Me![Liste_Articles]) Then
Me![Liste_Articles].Text = ""
Else
lngliste_ArticlesID = Me![Liste_Articles]
Me![Liste_Articles] = Null
End If
DoCmd.OpenForm "Frm Articles Général", , , , , acDialog, "GotoNew"
Me![Liste_Articles].Requery
If lngliste_ArticlesID <> 0 Then Me![Liste_Articles] =
lngliste_ArticlesID
Exit_Liste_Articles_DblClick:
Exit Sub
Liste_Articles_DblClick:
MsgBox Err.Description
Resume Exit_Liste_Articles_DblClick
End Sub
Private Sub Liste_Articles_DblClick(Cancel As Integer) On Error GoTo Liste_Articles_DblClick_Err Dim lngliste_ArticlesID As Long If IsNull(Me![Liste_Articles]) Then DoCmd.OpenForm "Frm Articles Général", , , , acFormAdd, acDialog Exit Sub Else DoCmd.OpenForm "Frm Articles Général", , , "[lecodearticle] = " & Me![Liste_Articles], acFormEdit, acDialog End If Me![Liste_Articles].Requery Exit Sub Liste_Articles_DblClick_Err: MsgBox Err.Description End Sub
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://OfficeSystem.Access.free.fr/runtime/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Guy BRUSSON" a écrit dans le message de news:
Bonjour,
J'ai trouvé une premiere Phase j'ouvre bien mon formulaire Article mais je n'arrive pas a me positionner directement sur l'articles selectionné comment faire
Voila le Code pour l'ouverture du formulaire
Private Sub Liste_Articles_DblClick(Cancel As Integer) On Error GoTo Liste_Articles_DblClick Dim lngliste_ArticlesID As Long
If IsNull(Me![Liste_Articles]) Then Me![Liste_Articles].Text = "" Else lngliste_ArticlesID = Me![Liste_Articles] Me![Liste_Articles] = Null End If DoCmd.OpenForm "Frm Articles Général", , , , , acDialog, "GotoNew" Me![Liste_Articles].Requery If lngliste_ArticlesID <> 0 Then Me![Liste_Articles] = lngliste_ArticlesID
Exit_Liste_Articles_DblClick: Exit Sub
Liste_Articles_DblClick: MsgBox Err.Description Resume Exit_Liste_Articles_DblClick End Sub
Guy BRUSSON
bonjour Encore un grand Merci cela répond parfaitement a mes attentes et c'est même génial (tellement simple)
Merci
Bonjour.
tu peux faire ceci:
Private Sub Liste_Articles_DblClick(Cancel As Integer) On Error GoTo Liste_Articles_DblClick_Err Dim lngliste_ArticlesID As Long If IsNull(Me![Liste_Articles]) Then DoCmd.OpenForm "Frm Articles Général", , , , acFormAdd, acDialog Exit Sub Else DoCmd.OpenForm "Frm Articles Général", , , "[lecodearticle] = " & Me![Liste_Articles], acFormEdit, acDialog End If Me![Liste_Articles].Requery Exit Sub Liste_Articles_DblClick_Err: MsgBox Err.Description End Sub
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://OfficeSystem.Access.free.fr/runtime/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Guy BRUSSON" a écrit dans le message de news:
Bonjour,
J'ai trouvé une premiere Phase j'ouvre bien mon formulaire Article mais je n'arrive pas a me positionner directement sur l'articles selectionné comment faire
Voila le Code pour l'ouverture du formulaire
Private Sub Liste_Articles_DblClick(Cancel As Integer) On Error GoTo Liste_Articles_DblClick Dim lngliste_ArticlesID As Long
If IsNull(Me![Liste_Articles]) Then Me![Liste_Articles].Text = "" Else lngliste_ArticlesID = Me![Liste_Articles] Me![Liste_Articles] = Null End If DoCmd.OpenForm "Frm Articles Général", , , , , acDialog, "GotoNew" Me![Liste_Articles].Requery If lngliste_ArticlesID <> 0 Then Me![Liste_Articles] = lngliste_ArticlesID
Exit_Liste_Articles_DblClick: Exit Sub
Liste_Articles_DblClick: MsgBox Err.Description Resume Exit_Liste_Articles_DblClick End Sub
bonjour
Encore un grand Merci cela répond parfaitement a mes attentes et c'est même
génial (tellement simple)
Merci
Bonjour.
tu peux faire ceci:
Private Sub Liste_Articles_DblClick(Cancel As Integer)
On Error GoTo Liste_Articles_DblClick_Err
Dim lngliste_ArticlesID As Long
If IsNull(Me![Liste_Articles]) Then
DoCmd.OpenForm "Frm Articles Général", , , , acFormAdd, acDialog
Exit Sub
Else
DoCmd.OpenForm "Frm Articles Général", , , "[lecodearticle] = " &
Me![Liste_Articles], acFormEdit, acDialog
End If
Me![Liste_Articles].Requery
Exit Sub
Liste_Articles_DblClick_Err:
MsgBox Err.Description
End Sub
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Guy BRUSSON" <GuyBRUSSON@discussions.microsoft.com> a écrit dans le message
de news: 0D06D2E5-415D-4D7C-AEFD-85E1D9437391@microsoft.com...
Bonjour,
J'ai trouvé une premiere Phase j'ouvre bien mon formulaire Article mais je
n'arrive pas a me positionner directement sur l'articles selectionné
comment
faire
Voila le Code pour l'ouverture du formulaire
Private Sub Liste_Articles_DblClick(Cancel As Integer)
On Error GoTo Liste_Articles_DblClick
Dim lngliste_ArticlesID As Long
If IsNull(Me![Liste_Articles]) Then
Me![Liste_Articles].Text = ""
Else
lngliste_ArticlesID = Me![Liste_Articles]
Me![Liste_Articles] = Null
End If
DoCmd.OpenForm "Frm Articles Général", , , , , acDialog, "GotoNew"
Me![Liste_Articles].Requery
If lngliste_ArticlesID <> 0 Then Me![Liste_Articles] =
lngliste_ArticlesID
Exit_Liste_Articles_DblClick:
Exit Sub
Liste_Articles_DblClick:
MsgBox Err.Description
Resume Exit_Liste_Articles_DblClick
End Sub
bonjour Encore un grand Merci cela répond parfaitement a mes attentes et c'est même génial (tellement simple)
Merci
Bonjour.
tu peux faire ceci:
Private Sub Liste_Articles_DblClick(Cancel As Integer) On Error GoTo Liste_Articles_DblClick_Err Dim lngliste_ArticlesID As Long If IsNull(Me![Liste_Articles]) Then DoCmd.OpenForm "Frm Articles Général", , , , acFormAdd, acDialog Exit Sub Else DoCmd.OpenForm "Frm Articles Général", , , "[lecodearticle] = " & Me![Liste_Articles], acFormEdit, acDialog End If Me![Liste_Articles].Requery Exit Sub Liste_Articles_DblClick_Err: MsgBox Err.Description End Sub
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://OfficeSystem.Access.free.fr/runtime/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Guy BRUSSON" a écrit dans le message de news:
Bonjour,
J'ai trouvé une premiere Phase j'ouvre bien mon formulaire Article mais je n'arrive pas a me positionner directement sur l'articles selectionné comment faire
Voila le Code pour l'ouverture du formulaire
Private Sub Liste_Articles_DblClick(Cancel As Integer) On Error GoTo Liste_Articles_DblClick Dim lngliste_ArticlesID As Long
If IsNull(Me![Liste_Articles]) Then Me![Liste_Articles].Text = "" Else lngliste_ArticlesID = Me![Liste_Articles] Me![Liste_Articles] = Null End If DoCmd.OpenForm "Frm Articles Général", , , , , acDialog, "GotoNew" Me![Liste_Articles].Requery If lngliste_ArticlesID <> 0 Then Me![Liste_Articles] = lngliste_ArticlesID
Exit_Liste_Articles_DblClick: Exit Sub
Liste_Articles_DblClick: MsgBox Err.Description Resume Exit_Liste_Articles_DblClick End Sub
