Discussion :

[adelsunwind]

Bonjour, j ai un form qui pour source une table.
En fonction d une liste modifiable je change la source de mon formulaire
par:

Code :

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

1
2
3
4
5
6
7
 
Private Sub Date_AfterUpdate()
 
Dim i As String
i = (Forms![Consulter hebdomadaire loc]![Date])
 
Me.RecordSource = "select * from hebdomadaire_loc where Cstr(date) = '" & i & "';"

sauf que quand mon champ date est nul dans mon enregistrement source alors j ai une erreur.

J ai donc voulu supprimer tous les recordsets avant l ouverture de ce form qui ont deux champs vides dont le champ date.
J ai procéder ainsi

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
 
Set RS2 = db.OpenRecordset("Select * From [Hebdomadaire_loc]")
 If Not RS1.EOF Then RS1.MoveLast
    nbr1 = RS2.RecordCount
    If (nbr1 = 0) Then
    Exit Sub
    Else
    Do Until RS2.EOF
    With RS2
    RS2.MoveFirst
    If ((IsNull(RS2![Date]) And IsNull(RS2![DDM A1 E2]))) Then
    RS2.Delete
    RS2.MoveNext
    End If
    RS2.Update
    End With
    Loop
 
 
DoCmd.OpenForm "Consulter hebdomadaire loc", acNormal, , , acFormEdit, acWindowNormal

Et là mon form ne s ouvre meme plus et les enregistrement que je voulais effecé sont toujours présent à ma grance déception.
Quelqu un a t il une idée?

[Jean-Philippe André]

Bonjour
et une requête du style :

Code SQL :

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

DELETE * FROM MaTable WHERE [Date] IS NULL AND [DDM A1 E2] IS NULL;