Discussion :

[dalmasma]

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

[Dolphy35]

re,

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

Dolphy

[dalmasma]

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 :

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

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 :

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
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

[Invité]

Bonjour

Code :

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

Public rsPFT As DAO.Recordset

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

Starec

[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 ?

[Invité]

Bonjour

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

Starec

[dalmasma]

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

Chef Oui Library cochée Chef !

[Invité]

Re

Il faut que tu mettes ta msgbox dans ta routine

Code :

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

Update_All_Same_Proj_Fam_Type

et qu'avant tu l'appelles

Code :

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

Call Update_All_Same_Proj_Fam_Type()

Starec

[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éé)