|
Publicité ' | |||||||||||||||||||||||
|
|
#1 |
|
Invité régulier
![]() Inscription : mai 2008 Messages : 13 ![]() |
Bonjour,
Alors si qlq peut m'aider ca serait le paradis sur terre J'essaie de mettre en place une sorte de pointeuse sur access. j'ai crée un formulaire de saisie des heures pour chaque salarié dans chaque chatier a une date donnée. mes questions sont ainsi: *est ce que je peux rentrer uniquement un n° de semaine pour avoir automatiquement un masque de saisie avec tout les dates de cette semaine et remplir ainsi ce formulaire. ceci va me permettre de ne pas se tromper dans mes saisie et ainsi vérifier, répondre au tél...ou autre et revenir après sur mon travail?? *est ce qu'il y a un moyen de saisir plutot tout cela sur excel et basculer le tout sur access avec un boutton?? Merci a vous au revoir |
|
|
00
|
|
|
#2 |
![]() ![]() |
Bonjour ben35,
bienvenue sur DVP ![]() une FAQ est à ta disposition parmi plein d'autres ressources : http://access.developpez.com/faq Je te recommande d'y aller régulièrement. - pour le numéro de semaine : http://access.developpez.com/faq/?page=dates#InfoDate et http://access.developpez.com/faq/?pa...DAtPremJourSem - pour l'import depuis Excel : http://access.developpez.com/faq/?pa...l#ImpFichExcel
__________________
Pas de question technique par MP, je ne réponds pas ![]() Mon perso ? Une vraie brute Tutos Access, Tâches planifiées et Batch,Tables de Paramètres sous Access, Excel et Batch, Tâches planifiées et Access |
|
00
|
|
|
#3 |
|
Invité régulier
![]() Inscription : mai 2008 Messages : 13 ![]() |
bjr,
j'ai réussi, merci bcp |
|
|
00
|
|
|
#4 |
|
Invité régulier
![]() Inscription : mai 2008 Messages : 13 ![]() |
Private Sub Texte23_AfterUpdate()
Dim tmpDate As Date Dim NumSemaine As Integer NumSemaine = CDbl(Texte23.Value) tmpDate = CDate("31/12/2007") If Weekday(tmpDate, vbMonday) < 6 Then NumSemaine = NumSemaine - 1 End If lundi = DateAdd("ww", NumSemaine, tmpDate) mardi = DateAdd("d", 1, lundi) mercredi = DateAdd("d", 2, lundi) jeudi = DateAdd("d", 3, lundi) vendredi = DateAdd("d", 4, lundi) samedi = DateAdd("d", 5, lundi) lundi_c = lundi samedi_c = samedi End Sub |
|
|
00
|
Copyright © 2000-2012 - www.developpez.com