Discussion :

[lanfeust010]

Bonjour

je viens vous demander votre aide, je bloque un peu sur le VBA étant débutant en la matière. Je rentre dans le vif du sujet voila mon code :

Code :

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

1
2
Option Compare Database
Option Explicit

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 Boutonlogin_Click()
 
    Dim rs As Recordset
 
       Set rs = CurrentDb.OpenRecordset("Intervener", dbOpenSnapshot, dbReadOnly)
 
    rs.FindFirst "Username='" & Me.txtusername & "'"
 
    If rs!Usertype = "User" Then
        DoCmd.OpenForm "Start2"
        DoCmd.Close acForm, Me.Name
    End If
 
    If rs.NoMatch = True Then
        Me.msgusername.Visible = True
        Me.txtusername.SetFocus
        Exit Sub
    End If
    Me.msgusername.Visible = False
 
    If rs!password <> Me.txtpassword Then
        Me.msgpassword.Visible = True
        Me.txtpassword.SetFocus
        Exit Sub
    End If
    Me.msgpassword.Visible = False
    DoCmd.OpenForm "Start"
    DoCmd.Close acForm, Me.Name
End Sub

séparément ces codes fonctionnent mais ensembles ils me demande un débogage sur la partie qui rend visible mes textes auriez vous une solution a me proposer merci

[marot_r]

Bonjour.

Quel est le message d'erreur ?`
Sur quelle ligne, l'erreur est-elle signalée ?

A+

[lanfeust010]

bonjour message d'erreur : "erreur d'execution '2467'"
ligne concernée : Me.msgusername.Visible = False.
merci de repondre si rapidement

[tee_grandbois]

Bonjour,
quand on vous demande quel est le message d'erreur, ce n'est pas le numéro qu'il faut donner ...

Erreur 2467 : Expression entrée fait référence à un objet fermé ou supprimé

Est-ce que Me.msgusername est un contrôle du formulaire ouvert ? Il est en dehors du If .. End If

[lanfeust010]

bonjour désolé chez moi il est déjà tard.
message d'erreur : l'expression entrée fait référence à un objet fermé ou supprimé

un Screenshots pour la ligne concernée



merci

[lanfeust010]

et oui c'est un message du formulaire ouvert

[tee_grandbois]

je n'ai pas demandé si c'est un message du formulaire ouvert mais si le contrôle Me.msgusername est dans le formulaire ouvert.

[lanfeust010]

je n'ai pas demandé si c'est un message du formulaire ouvert mais si le contrôle Me.msgusername est dans le formulaire ouvert.

oui le contrôle est dans le formulaire

[tee_grandbois]

alors, c'est parce que le formulaire a été fermé avant l'instruction.
Regarde l'instruction Docmd.close acForm, Me.Name, c'est elle qui ferme le formulaire.

[lanfeust010]

ok cela ma résolu le problème du message d'erreur mais du coups cela m'ouvre les deux formulaires en même temps
merci déjà pour cette avancée je continu à essayer de résoudre ce nouveau dilemme si quelqu'un à une solution il est le bienvenu

[lanfeust010]

voila les deux problèmes résolus j'avais juste oublié une ligne Exit sub tout simplement merci en tout cas pour les réponses rapide