Discussion :

[alkmehd]

salut tout le monde,

je me tue le cerveau pour essayer de trouver un bout de code qui me permette de savoir si le recordset que j'ai ouvert est vide ou s'il contient quelque chose.

j'ai essayé :

sql = "Select NumStagiaire from Stagiaire where NumSociete = '" & Forms!frm_Societe!Ref & "';"
Set result = db.OpenRecordset(sql, dbOpenSnapshot)

If IsNull(result.Fields("NumStagiaire")) Then
Forms!frm_Societe!btn_ModifStag.Visible = False
Else
Forms!frm_Societe!btn_ModifStag.Visible = True
End If

est que quelqu'un a une idée ? ^^

merci d'avance

[Invité]

Salut

Code :

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

1
2
3
4
5
6
 
if result.recordcount = 0 then
....
else
....
end if

Starec

[Sinclar]

Salut,
Peut être plus simple comme cela:

Code :

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

1
2
3
4
5
6
 
IF IsNull(DLookup("[NumStagiaire]","[Stagiaire]",NumSociete = '" & Forms!frm_Societe!Ref & "')) Then
     ...
Else
     ...
End If

après c'est une question d'habitude

[alkmehd]

voici le nouveau code, j'ai essayé le premier mais ça m'effaçais toujours le bouton qu'il y est une stagiaire ou pas.

avec le deuxième code ça me fait pareil, pourtant par mesure de securité je lui demande de m'afficher "NumStagiaire" avant ce qu'il fait correctement donc mon recordset n'est pas vide et pourtant il m'efface mon pitit bouton tout joli

Code :

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

1
2
3
4
5
If IsNull(DLookup("[NumStagiaire]", "Stagiaire", NumSociete = "' & Forms!frm_ChoixSociete!Stagiaire!NumSociete & '")) Then
            Forms!frm_Societe!btn_ModifStag.Visible = False
        Else
            Forms!frm_Societe!btn_ModifStag.Visible = True
    End If

qu'est ce que vous en dites ?

[Sinclar]

Re,
J'en dis que tu devrais essayer de remplacer IsNull par IsNothing et de placer cette fonction dans un module; sinon je ne vois pas

Fonction:

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
 
Function IsNothing(varToTest As Variant) As Integer
    IsNothing = True
 
    Select Case VarType(varToTest)
        Case vbEmpty
            Exit Function
        Case vbNull
            Exit Function
        Case vbBoolean
            If varToTest Then IsNothing = False
        Case vbByte, vbInteger, vbLong, vbSingle, vbDouble, vbCurrency
            If varToTest <> 0 Then IsNothing = False
        Case vbDate
            IsNothing = False
        Case vbString
            If (Len(varToTest) <> 0 And varToTest <> " ") Then IsNothing = False
    End Select
 
End Function

[Sinclar]

Ah si, je crois qu'il ya une erreur de syntaxe:

Code :

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

1
2
 
"NumSociete = " & Forms!frm_ChoixSociete!Stagiaire!NumSociete

[alkmehd]

oki ça marche

ça me semblait bizarre mais bon comme par moment j'ai du mal a comprendre ce que permet access et ce qu'il ne permet ...

en tout cas merci à vous deux Sinclar et Starec