Discussion :

[idauzemendi]

Je voudrais lancer une requête sur la table ASOP paramétrée sur la valeur du contrôle codebank du formulaire ouvert.

J'ai mis ce code sur le contrôle codeblank après MAJ

Code :

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

1
2
 
MonSQL = "Select * From ASOP Where CODPLAN = " & Me!codebank

J'obtiens le message d'erreur suivant.

Erreur 7874
Impossible de trouver l'objet 'Select* From ASOP Where CODPLAN = 5121'

La valeur du contrôle est effectivement 5121

Code :

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

MonSQL = "Select * From ASOP Where CODPLAN = " & Me!codebank

Je suis loin d'être expert et je suppose qu'il s'agit d'une erreur toute bête.

[CinePhil]

C'est de l'Access ça non ?

Est-ce que la variable MonSQL serait déclarée en tant qu'objet (par un SET) plutôt que comme une variable de type String (par un DIM) ?

[idauzemendi]

Ce n'est pas long et le plus simple est de donner tout le code. Je râle car ça me simplifierait beaucoup les choses de résoudre ce problème.
Précision : la version access est celle de office2000.

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
 
Private Sub codebank_AfterUpdate()
Dim MonSQL As String
Dim strsource As DAO.QueryDef
Dim codselect As Long
codselect = Me!codebank
 
MonSQL = "Select * From ASOP Where CODPLAN = " & codselect
On Error Resume Next
Set strsource = CurrentDb.QueryDefs(rqetat)
If Error <> 0 Then
strsource.SQL = MonSQL
Else
CurrentDb.CreateQueryDef "rqetat", MonSQL
End If
DoCmd.OpenReport "JournalTresorerie", acViewPreview
 
End Sub