REQUETE SEEKRésolu

Question

Bonjour,

Si quelqu'un pourrait m'aider pour cette recherche avec seek qui ne fonctionne pas.
Une table reprend les dates des jours fériés et je voudrais si la date dans la zone du formulaire
est identique à u champ de cette table des fériés qu'il m'affiche jour férié.
J'ai converti les dates en Cdbl, car apparemment les dates ne fct pas en access pour les comparaisons.

le code est le suivant

Dim db As DAO.Database
Dim strsql As String
Dim rec1 As QueryDef
Dim rec As DAO.Recordset
Dim bln As Boolean
Dim TRAV1 As Double
Dim TRAV2 As Double




Dim intrecords
Set db = CurrentDb()
Dim TRAV As String
TRAV1 = CDbl(JOUR)


Set rec = db.OpenRecordset("TFERIES1", dbOpenTable)
If rec.RecordCount > 0 Then
    rec.MoveLast
    rec.MoveFirst
rec.Index = "FERDATE" 'est un champde la table TFERIES1
Do Until rec.NoMatch
   rec.Seek "=", "TRAV1"
   If Not rec.NoMatch Then
      MsgBox ("jour ferie")
      Controledate = False
      Exit Do
   End If
Loop
End If
rec.Close
End Function

cs_casy · Accepted Answer

Pourquoi ne pas faire une requette plutot ?

"SELECT * FROM TFERIES1 WHERE FERDATE=  #" & TaDateDuFormulaireSansConversion & "#"

Si la requette retourne au moins un enregistrement c'est que ta date correspond à une des dates fériées

  ---- Sevyc64  (alias Casy) ----  <hr size  ="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #    http://aide-office-vba.monforum.com/index.php

cs_ROBESPIERRE · Answer

Merci bcq à Casy et à ce forum pour cet échange

REQUETE SEEK

2 réponses

Votre réponse

Discussions similaires