[VB6 - VBA]Récupération d'une variable entre deux formulaires

Question

Bonjour à vous,

J'aimerais savoir comment je pourrais envoyer une variable entre deux formulaires sous ACCESS et puis ensuite appliquer cette variable dans une liste déroulante pour qu'elle ne trouve qu'une ligne de la base de données car la variable serait un ID donc la primary key d'une base MySql.

J'espère avoir été assez clair.

Voici le bouton du premier formulaire qui enverrait donc la variable IDMACH
Private Sub Commande86_Click()
On Error GoTo Err_Commande86_Click

    Dim IDMACH As String
    Dim stDocName As String
    Dim stLinkCriteria As String
   ' Dim stLinkCriteria2 As String

    IDMACH = Me![ID_MACHINE]
    IDMACHINE = Me![ID_MACHINE]
    
   stDocName = "MPAM_AJOUT_FLUX2"
    
    
   '  stLinkCriteria = "[ID_FLUX_mach]=" & "'" & Me![ID_MACHINE] & "'"
  '  stLinkCriteria2 = "[ID_FLUX_SRC]=" & "'" & Me![ID_MACHINE] & "'"
  '  '  stLinkCriteria2 = "[ID_FLUX_SRC]=" & "'" & Me![ID_MACHINE] & "'"

   ' DoCmd.OpenForm stDocName, , , stLinkCriteria
    
    DoCmd.OpenForm stDocName
    
    MsgBox (IDMACH)
    
    ' Me![ID_FLUX_SRC] = IDMACH
   ' Me![INFO] = IDMACH
   ' Me![toto] = IDMACH
    
    
    'MsgBox (IDMACH)

Exit_Commande86_Click:
    Exit Sub

Err_Commande86_Click:
    MsgBox Err.Description
    Resume Exit_Commande86_Click
    
End Sub

Et il faudrait donc créer une liste déroulante dans le second formulaire qui permettrait d'être trié en fonction de l'ID machine donc avec la variable IDMACH

NHenry · Answer

Bonjour, 

Une variable publique dans un module devrait aller.

v----Signature--------v----------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS, celui-ci pour bien poser votre question ou encore celui-ci pour les PFE et autres exercices.[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : ).[*]En VB.NET pensez à activer Option Explicit et Option Strict (propriété du projet) et à retirer l'import automatique de l'espace de nom Microsoft.VisualBasic (onglet Références dans les propriétés du projet).[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés/list
---
Mon site

[VB6 -> VBA]Récupération d'une variable entre deux formulaires

1 réponse

Votre réponse

Discussions similaires