[VBA] Recordset public, requête SQL associée public aussi ?

Version imprimable

18/07/2007, 16h48
dalmasma

[VBA] Recordset public, requête SQL associée public aussi ?

Bonjour,

Dans mon formulaire, quand j'ai sélectionné un élément de ma liste modifialble je veux vérifier si mon recordset (dépendant de cet élément) créé publiquement dans une procédure fonctionne, j'utilise recordCount et une MsgBox et il y a une erreur sur la ligne qui correspond à la MsgBox

Comment se fait-ce ?

Merci
18/07/2007, 18h10
Dolphy35

re,

sans ton code cela risque d'être dur pour t'aider :?

Dolphy ;)

Bonjour,

voilà le code : (cmb_IDEq est une liste déroulante, allKindDisp est une procédure d'affichage indépendante de la MsgBox et chk_allKind est une checkBox)

Code:

1
2
3
4
5
Private Sub cmb_IDEq_Change()
AllKindDisp
Me.chk_allKind.Enabled = True
MsgBox rsPFT.RecordCount
End Sub

et là c'est la procédure dans laquelle je crée le recordset :) :

Code:

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
36
37
38
39
40
Public Sub Update_All_Same_Proj_Fam_Type()
Dim IDETemp As Integer
Dim SQL As String
Dim SQLallUpd As String
Public rsPFT As DAO.Recordset
Dim DB As DAO.Database
Set DB = CurrentDb
Dim rst As DAO.Recordset
 
SQL = " SELECT  [Equipments].[IDEquipment] FROM Equipments"
SQL = SQL & " WHERE [Equipments].[IDFamily] IN (SELECT [Equipments].[IDFamily] FROM Equipments "
SQL = SQL & " WHERE [Equipments]![IDEquipment] = "
SQL = SQL & cmb_IDEq & ") And [Equipments].[IDType] IN (SELECT [Equipments].[IDType] FROM Equipments "
SQL = SQL & " WHERE [Equipments]![IDEquipment] = "
SQL = SQL & cmb_IDEq & ") And [Equipments]![IDEquipment] <> "
SQL = SQL & cmb_IDEq & ";"
 
 
Set rsPFT = DB.OpenRecordset(SQL, dbOpenDynaset)
 
 
    If rsPFT.RecordCount = 0 Then
           MsgBox "No similar equipment"
    Else
 
        Set rst = CurrentDb.OpenRecordset("EquipmentCharacteristics")
        rsPFT.MoveFirst
 
        While Not (rsPFT.EOF)
            rst.AddNew
            rst!IDEquipment = rsPFT.Fields("IDEquipment").Value
            rst!IDCharacteristic = Chr(34) & cmb_IDcharacteristic & Chr(34)
            rst!CharacValue = Chr(34) & txt_value & Chr(34)
            rst.Update
            rsPFT.MoveNext
        Wend
 
 End If
 
End Sub

Merci d'avance :p

19/07/2007, 08h40
Invité

Bonjour

Code:

Public rsPFT As DAO.Recordset

doit être déclaré dans l'entête d'un module.

Starec
19/07/2007, 08h57
dalmasma

Salut,

Je l'ai déclaré en tête de module, mais il y a une erreur 91 maintenant : objet non défini, il faut aussi que je le définisse en tête de module ?
19/07/2007, 09h06
Invité

Bonjour

As-tu coché la référence Microsoft DAO 3.6 Object Library ?

Starec
19/07/2007, 09h11
dalmasma

Pardon c'est la variable Objet ou variable de bloc With qui n'est pas définie ! Je m'ai gourré :oops:

Chef Oui Library cochée Chef ! :D
19/07/2007, 09h19
Invité

Re

Il faut que tu mettes ta msgbox dans ta routine

Code:

Update_All_Same_Proj_Fam_Type

et qu'avant tu l'appelles

Code:

Call Update_All_Same_Proj_Fam_Type()

Starec
19/07/2007, 11h44
dalmasma

Tu veux dire qu' à la place actuelle de l'appelle de la MsgBox je mets Call Update_machin et que dans Update_machin je mets la MsgBox ?

(parce que si j'appelle Update_machin la précodéure d'ajout va s'effectuer, alors que ce que je veux c'est voir si le le recodrset rsPFT est créé)