Discussion :

[Salsaboy60]

Bonjour,

Je me casse la tête sur un problème en théorie assez simple, mais je ne vois pas la solution.

Je voudrais chercher un entrée bien spécifique (système tickets d’entrée événement) pour ensuite modifier qqe données (bracelet reçu pe)

J'ai un formulaire avec un premier champs : choix entre codebarre ou nom.
Dans un deuxième champs j'introduit soit le nom soit le codebarre à chercher.

J'ai un bouton qui lance le sql et ensuite le résultat 's ouvre dans une nouvelle fenêtre dans un data sheet view.

Maintenant, je voudrais afficher le résultat plutôt dans une formulaire que dans un data sheet, histoire d'ergonomie pour l'utilisateur.

Comment dois je faire?

Qqn peux m'aider là dessus?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Private Sub cmd_recherche_Click()
  Dim dbs As Database
  Dim rs As Recordset
  Dim qdf As QueryDef
  Dim productName As String
  Dim strTable As String, strField As String, strCriteria As String, strSql As String
  Dim Criter As Variant
 
  Set dbs = CurrentDb()
 
 
    strTable = "[tbl_Participants]"         ' recupère le nom de la table
    strField = "[" & Me.cbo_champ & "]"        ' recupère le nom du champ
 
    ' compose le critere de recherche
    strCriteria = strTable & "." & strField & " Like """ & Me.txt_Critere & """"
 
    ' construit la requête sql
    strSql = "SELECT DISTINCTROW " & strTable & ".[N°Entree],[Nom],[Prénom],[email],[Codebarre],[VIP],[BraceletReçu]"
    strSql = strSql & " FROM " & strTable
    strSql = strSql & " WHERE ((" & strCriteria & "));"
 
 
Set rs = dbs.OpenRecordset(strSql, dbOpenSnapshot)
 
With dbs
Set qdf = .CreateQueryDef("tmpParticipantsInfo", strSql)
DoCmd.OpenQuery "tmpParticipantsInfo"
.QueryDefs.Delete "tmpParticipantsInfo"
End With
dbs.Close
qdf.Close
 
 
End Sub

[marot_r]

La solution la plus simple que je vois est la suivante :

dans ta procédure appelante remplacer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Set rs = dbs.OpenRecordset(strSql, dbOpenSnapshot)
 
With dbs
Set qdf = .CreateQueryDef("tmpParticipantsInfo", s)
DoCmd.OpenQuery "tmpParticipantsInfo"
.QueryDefs.Delete "tmpParticipantsInfo"
End With
qdf.Close

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

docmd.OpenForm "NomTonForm", acFormDS,,,,,strSql

dans ton formulaire appellé dans l'événement "Sur Chargement"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
if not me.openargs is nothing then
   me.RecordSource=me.openargs 'Assigne le paramètre passé à l'ouverture comme source de données.
end if

Si cela ne marche pas avec "Sur Chargement" essaye avec "Sur Ouverture".

A+

[Salsaboy60]

Merci, ceci m'as mis sur une piste. J'ai trouvé. Super.