Discussion :

[stan314]

Salut tout le monde,

J'ai la procédure suivante qui me permet de savoir si une date est deja presente dans une table :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Function verifdatedanstable() As Boolean
Dim Rsql As String
Dim rst As DAO.Recordset
Rsql = " SELECT DISTINCTROW [DATE_RESERVATION]FROM DATE_RESERVATION "
Rsql = Rsql & " WHERE [DATE_RESERVATION]= " & Me.TxtDate & ";"
Set rst = CurrentDb.OpenRecordset(Rsql)
If ((rst.EOF)) Then
verifdatedanstable = False
Else
verifdatedanstable = True
End If
End Function

ensuite j'utilise cette fonction de la facon suivante :

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
 
If (verifdatedanstable = False) Then
        rs.AddNew
        dit.AddNew
        dat.AddNew
        Me.Txt_CADRE.SetFocus
        Me.transfert1jourpascritere
        rs.Update
        dit.Update
        dat.Update
        MsgBox ("Reservation ajoutée")
 
    Else
        rs.AddNew
        dat.AddNew
        Me.Txt_CADRE.SetFocus
        Me.transfert1jourpascriterejourexiste
        rs.Update
        dat.Update
        MsgBox ("Reservation ajoutéeaaaa")

Le probleme c'est qu'il prend toujours la valeur false que la valeur soit dans la table ou qu'elle ne soit pas..
Si quelqu'un pourrait m'aider..
Merci d'avance
stan314

[Tofalu]

La date est à encadrer avec # et passée au format US : mm/dd/yyyy

Quant à ton code, il peut largement être optimisé.

Au niveau SQL, en enlevant DISTINCTROW, au niveau du VBA, en supprimant la structure conditionnelle.

Function verifdatedanstable() As Boolean
Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("SELECT [DATE_RESERVATION] FROM DATE_RESERVATION WHERE [DATE_RESERVATION]= #" & Format(Me.TxtDate,"mm/dd/yyyy") & "#")
verifdatedanstable = rst.EOF
End Function

Il est normal que le champs possède le même nom que la table ?