Discussion :

[gerarddurand]

Bonsoir,

Dans ma base, gestion d'hôtel, j'ai un formulaire qui reflète les arrhes versées.
A chaque chargement du formulaire général je recherche dans la table des arrhes versées si une date est dépassée.

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
41
42
Dim db As dao.Database
Dim rst As dao.Recordset
   Set db = CurrentDb
   Set rst = db.OpenRecordset("tblArrhesVersees")
 
IdArrhesNonAffectees = 0
RepArr2 = 0
 
    Do Until rst.EOF
 
      If rst!JourDarrive < date And rst!ControleSaisie = 0 Then
            IdArrhesNonAffectees = rst!IdArrhes
             RepArr2 = 1
 
                MsgBox "ALERTE...ALERTE...ALERTE...ALERTE" & vbCrLf & _
                    "--------------------------------------" & vbCrLf & _
                vbCrLf & "Vous avez des Arrhes non affectées." & " " & vbCrLf & _
                "Chambre N°" & " " & rst!ChambreA & " " & vbCrLf & _
                "Arrivée prévue le" & " " & rst!JourDarrive & vbCrLf & rst!Titre & rst!Nom & " " & rst!Prenom & vbCrLf & vbCrLf & _
                "Arrhes Versées    " & rst!AccompteVerse & ",00€" & vbCrLf & vbCrLf & _
                "CE MESSAGE RESTERA ACTIF TANT QUE LE PROBLEME PERSISTERA.", vbCritical, "Hôtellerie"
 
            If RepArr2 = 1 Then Exit Do
'
     End If
 
  rst.MoveNext
 
  Loop
 
   rst.Close
   Set db = Nothing
   Set rst = Nothing
 
 If RepArr2 <> 1 Then Exit Sub
 
 Dim stDocName As String
        Dim stLinkCriteria As String
          stDocName = "frmArrhesVersees"
          stLinkCriteria = "[IDArrhes]=" & IdArrhesNonAffectees
 
          DoCmd.OpenForm stDocName, , , stLinkCriteria

Le formulaire des arrhes s'ouvre bien sur l'enregistrement spécifié.

Si j'annule l'enregistrement (DoCmd.RunCommand acCmdDeleteRecord) tout va encore bien sauf qu'une fois l'enregistrement supprimé un message apparaît "expression sans paramètre".

j'ai enlevé la gestion d'erreur dans la sub en question mais rien n'y fait.

une idée ...

cordiales salutations.

[loufab]

Bonjour,
Ôter la gestion d'erreur n'y fait rien, il faut au contraire la remettre.

PAr contre tu n'indiques pas la ligne concerné, ni à quel moment tu déclenches la commande de suppression.

Bref pas grand chose pour t'aider.

Cordialement,

[gerarddurand]

bonjour,
Merci pour ta réponse Loufab.

La commande suppression est déclenchée par un clic sur un bouton.

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
Private Sub Suppress_Click()
On Error GoTo Suppress_Click_err
 
If MsgBox("Souhaitez-vous continuer ?", vbQuestion + vbYesNo + vbDefaultButton2, "Supprimer Enregistrement") = vbNo Then
    Exit Sub
End If
 
DoCmd.RunCommand acCmdDeleteRecord
 
If RepArr2 = 1 Then
    RepArr2 = 0
     DoCmd.Close acForm, "frmArrhesVersees"
End If
 
Suppress_Click_exit:
Exit Sub
 
Suppress_Click_err:
MsgBox Err.Description, vbInformation, "Hôtellerie"
Resume Suppress_Click_exit

Le message apparaît une fois l'enregistrement supprimé.

Hélas je n'ai rien d'autre comme explication.

Cordiales salutations.

[loufab]

C'est donc dans le formulaire.
Vérifie tes expressions, formules... dans les zones.

Il se peut qu'une fasse référence à une valeur de l'enregistrement, si c'est le cas il faut traiter le cas ou il n'y a rien (Null ?)

[gerarddurand]

Bonsoir,

J'ai tout vérifié et je ne trouve rien d'anormal, juste que mon formulaire est filtré. C'est peut être le filtre qui produit ce message.

Ce n'est pas cette alerte qui empêche mon programme de tourner.

Vaincu,Je ferme cette discussion.
Salutations.

[gerarddurand]

@loufab

Salut loufab et à toutes et tous.

Je reviens sur ce post, bien que clôturé, pour apporter un éclaircissement.

Je disais que ce message provenait, peut-être, du fait que mon formulaire était filtré.

En fait j'avais vu juste. J'ai ajouté la suppression du filtre juste avant le DoCmd.RunCommand acCmdDeleteRecord ligne 7

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
Private Sub Suppress_Click()
On Error GoTo Suppress_Click_err
 
If MsgBox("Souhaitez-vous continuer ?", vbQuestion + vbYesNo + vbDefaultButton2, "Supprimer Enregistrement") = vbNo Then
    Exit Sub
End If
 
DoCmd.RunCommand acCmdDeleteRecord
 
If RepArr2 = 1 Then
    RepArr2 = 0
     DoCmd.Close acForm, "frmArrhesVersees"
End If
 
Suppress_Click_exit:
Exit Sub
 
Suppress_Click_err:
MsgBox Err.Description, vbInformation, "Hôtellerie"
Resume Suppress_Click_exit

et je n'ai plus ce message d'erreur.

Je ne sais pas si c'est le hasard, en tout cas ça fonctionne.

Cordiales salutations.