Erreur d'exécution 3075 [Débutant(e)]

**erfindel** · 18/01/2007, 09h52

Bonjour

encore un petit problème, le journalier !

Voila me suis mis au formulaire je fait mon sous formulaire de recherche et qui est sur la base de celui de cafeine

et j'ai une erreur de syntaxe alors que je ne vois pas d'où peut venir ce problème :

syntaxe de base :

Code :

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

1
2
3
4
5
Private Sub lstResults_DblClick(Cancel As Integer)
 
DoCmd.OpenForm "frmAutoMedias", acNormal, , "[CodMedia] = " & Me.lstResults
 
End Sub

Dans mon code :

Code :

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

1
2
3
4
5
Private Sub lstResultat_DblClick(Cancel As Integer)
 
DoCmd.OpenForm "frmAutoPersonnel", acNormal, , "[num_pers] = " & Me.lstResultat, acFormReadOnly
 
End Sub

FrmAutoPersonnel et bien le nom exact de mon sous formulaire, num_pers fait référence à ma table personnel où sont listés toutes les personnes et LstResultat correspond au lstResults de Caféine soit la zone ou s'affiche le résultat de la recherche

Merci par avance j'esperes avoir assez détaillé...

Dans mon code il me dit que j'ai une erreur de syntaxe j'ai regarder dans la MSDN pour la commande DoCmd et il ne me semble pas d'erreur

**Lou Pitchoun** · 18/01/2007, 10h32

Salut

Envoyé par erfindel

...et il ne me semble pas d'erreur

Es tu sur ??

Envoyé par Aide access

DoCmd.OpenForm nomformulaire[, affichage][, nomfiltre][, conditionwhere][, modedonnées][, modefenêtre][, openargs]

le acFormReadOnly correspond à modedonnées

"[num_pers] = " & Me.lstResultat correspond à openargs

**erfindel** · 18/01/2007, 10h44

ben...
je ne sait pas non je suis pas sur je débute en VBA.

J'ai repris l'exemple de Cafeine et lui il utilise DoCmd donc je ne sait pas j'essaye avvec OpenArgs ça à l'air de marcher il me sort une autre erreur sur une autre ligne maintenant

**erfindel** · 18/01/2007, 10h47

le message à toujours le même code d'erreur : 3075

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
Private Sub RefreshQuery()
    Dim SQL As String
    Dim SQLWhere As String
 
    SQL = "SELECT num_pers, nom_pers, pre_pers, lib_poste_pers, mail _pers, port_pers from personnel"
 
    If Me.chkNom Then
        SQL = SQL & "WHERE personnel!num_pers < > 0  And personnel!nom_pers like '*" & Me.txtRechNom & "*' "
    End If
    If Me.chkPre Then
        SQL = SQL & "WHERE personnel!num_pers < > 0  And personnel!pre_pers like '*" & Me.txtRechPre & "*' "
    End If
    If Me.chkDir Then
        SQL = SQL & " INNER JOIN direction ON (Direction!num_dir = Personnel!num_poste_pers) WHERE personnel!num_pers < > 0 And direction!lib_serv = '" & Me.ldRechDirection & "*' "
    End If
 
    If Me.chkServ Then
        SQL = SQL & " INNER JOIN Service ON (Service.num_serv = Personnel.num_poste_pers) WHERE personnel!num_pers < > 0 And service!lib_serv = '" & Me.ldRechService & "*' "
    End If
 
    SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where ") - Len("Where ") + 1))
 
    SQL = SQL & ";"
 
    Me.lblStat.Caption = DCount("personnel!num_pers", "personnel", SQLWhere) & " / " & DCount("personnel!num_pers", "personnel")
    Me.lstResultat.RowSource = SQL
    Me.lstResultat.Requery
 
End Sub

l'erreur se trouve sur la ligne :

Code :

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

 Me.lblStat.Caption = DCount("personnel!num_pers", "personnel", SQLWhere) & " / " & DCount("personnel!num_pers", "personnel")

Bizarre parce que j'ai presque rien changer dans cette ligne de code par rapport au tuto de Cafeine !

**Lou Pitchoun** · 18/01/2007, 10h50

En fait,

si tu reprends uniquement sa ligne en changeant le nom de table et de critère : ça doit fonctionner.

le soucis est que tu as rajouté le mode d'ouverture du formulaire à la fin.
Tu ne peux pas choisir où tu mets tes arguments !!

Le mieux pour apprendre :
Tu tapes toi même ta ligne.
Et tu verras que lorsque tu auras tapé "DoCmd.OpenForm " après l'espace tu vas avoir une info bulle qui va te guider sur les arguments. (Ordre, type, Variables...)

**erfindel** · 18/01/2007, 10h52

c'est ce que j'ai fait en faite quand j'ai vu que le débogueur me sortait une erreur mais au finale la même chose

**Lou Pitchoun** · 18/01/2007, 10h54

le message à toujours le même code d'erreur : 3075

Et le message d'erreur ??
Le numéro ne m'aide pas trop...

**erfindel** · 18/01/2007, 10h55

oki je te fait un petit screenshot

**erfindel** · 18/01/2007, 10h58

voila le messeage d'erreur :

**Lou Pitchoun** · 18/01/2007, 11h09

Tu as un problème au niveau de la création de la chaine SQL.

En mode pas à pas (met un point d'arrêt avec F9 sur la ligne Private Sub), vérifie que tu passes dans une seule condition If.

Visiblement, ton message d'erreur indique que tu passes dans le 1er ou 2ème et le 3 ème.

Ce qui fait que tu te retrouves avec 2 Where.

**erfindel** · 18/01/2007, 11h14

Je vais poser une question de boulet peut être mais comment on fait pour le lancer en mode pas à pas c'est bien F8 ? la quand je fait F8 rien ne se passe (ACCESS 2003)