1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. Visual Basic 6
Sujet Précédent Sujet Suivant

Problème de Current Record

Dominic85 Messages postés 3 Date d'inscription vendredi 16 mai 2008 Statut Membre Dernière intervention 16 mai 2008 - 16 mai 2008 à 14:04
Dominic85 Messages postés 3 Date d'inscription vendredi 16 mai 2008 Statut Membre Dernière intervention 16 mai 2008 - 16 mai 2008 à 14:19
Alors


Jai une table


Ki a deux champs : date début, et date fin


Kan je double click sur un des champs, il doit afficher le jour de la semaine


Exemple ; si je click sur 16/05/2008


Il doit afficher dans la textbox : 6


Le code marche, mais pas sur la dernière ligne


Il me dit :aucun enregistrement en cours


Pourtant il y a bien une valeur


 <?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" /??>

Private Sub Date_Début_DblClick(Cancel As Integer)
Dim f As Form
Set f = Forms!F6_Paramétrage
Dim BD As DAO.Database
Set BD = CurrentDb
Dim a As Double
Dim Val1 As Date
Dim az As Recordset
DoCmd.SetWarnings False
DoCmd.OpenQuery "R8_Z_1"
Set az = BD.OpenRecordset("T8_Z_1", dbOpenDynaset)
az.MoveLast
NB = az.RecordCount
MsgBox NB
a = Me.CurrentRecord
If Me.CurrentRecord > NB - 1 Then
az.Move (a)
     Val1 = az![Date Début]
     f.Étiquette268.Visible = True
     f.Étiquette270.Visible = True
     f.Étiquette268.Caption = Weekday(Val1, 2)
End if
 DoCmd.SetWarnings True
Set az = Nothing
End Sub

Dominic
A voir également:

3 réponses

Réponse 1 / 3
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 71
16 mai 2008 à 14:11
ca m'a l'air complexe, pour rien

qu'est-ce que Date_Début ?

ne peux tu faire :

Private Sub Date_Début_DblClick(Cancel As Integer)
Étiquette268.Caption = Weekday(Date_Début, 2)
End Sub
0
Réponse 2 / 3
Dominic85 Messages postés 3 Date d'inscription vendredi 16 mai 2008 Statut Membre Dernière intervention 16 mai 2008
16 mai 2008 à 14:15
La table a deux champs: date début et date fin
et cette table, issue d'un sousformulaire
en fait j'execute une requète qui récupère les champs dans une table, qui va etre mon recordset
le soucis cest que si l'utilisateur a rempli plusieurs dates, il faut que quand il double click sur nimporte laquelle, que le recordset prenne la valeur de l'enregistrement en cours
d'ou l'intérét du currentrecord
non?
0
Réponse 3 / 3
Dominic85 Messages postés 3 Date d'inscription vendredi 16 mai 2008 Statut Membre Dernière intervention 16 mai 2008
16 mai 2008 à 14:19
Private Sub Date_Début_DblClick(Cancel As Integer)

'date_début cest le champ dans le sous formulaire, et F6_Paramétrage cest lee formulaire

Dim f As Form
Set f = Forms!F6_Paramétrage
Dim BD As DAO.Database
Set BD = CurrentDb
Dim a As Double
Dim Val1 As Date
Dim az As Recordset


'ici c'est la requète qui récupère les valeurs

DoCmd.SetWarnings False
DoCmd.OpenQuery "R8_Z_1"
Set az = BD.OpenRecordset("T8_Z_1", dbOpenDynaset)
az.MoveLast
NB = az.RecordCount
MsgBox NB


'il faut que je me positionne sur le champ sur lequel lutilisateur a double clické

a = Me.CurrentRecord
If Me.CurrentRecord > NB - 1 Then
az.Move (a)

'je récupère sa valeur, je calcule weekday et je laffiche
'cest la ligne qui suit qui bug quand je suis sur le dernier enregistrement


Val1 = az![Date Début]
f.Étiquette268.Visible = True
f.Étiquette270.Visible = True
f.Étiquette268.Caption = Weekday(Val1, 2)
End if
DoCmd.SetWarnings True
Set az = Nothing
End Sub


'merci pour tes réponses
:o)
0
Rejoignez-nous