Discussion :

[Brut4lity]

Bonjour !

Je souhaite créer un formulaire qui pourrait à son tour créer des champs dans mes tables.
Je m'explique :



Mon compteur fait des relevés Quotidiens OU Hebdomaires OU Mensuels.
Je souhaite que le formulaire crée automatiquement en fonction du compteur (j'aurais précisé le paramètre ci-dessus dans FREQUENCE) dans les tables Quotidien ou Hebdo ou ... les Jours/Mois/Années afin que j'ai juste à rentrer la valeur affichée par le compteur à chaque fois que je vais sur mon formulaire pour rentrer des données.

Est-ce possible ? Si oui faut-il du code VBA et y'aurait-il un exemple dont je puisse m'inspirer ?

Bonne journée et merci d'avance !

Brut4.

[f-leb]

bonsoir,

une idée consisterait à faire un formulaire lié à la table Compteur avec un sous-formulaire indépendant avec les propriétés champ père/fils sur idCompteur.

Puis construire 3 formulaires liés aux 3 tables Quotidien, Hebdomadaire, Mensuel.

Sur activation du formulaire principal Compteur puis sur changement de la fréquence, tu mets un code du type :

Code :

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

1
2
3
4
5
6
7
8
Select Case Me.frequence
Case "annuel":
Me.sousform.SourceObject = "frmAnnuel"
Case "mensuel":
Me.sousform.SourceObject = "frmMensuel"
Case "quotidien":
Me.sousform.SourceObject = "frmQuotidien"
End Select

[Brut4lity]

Bonjour, je me suis mal exprimé

J'ai déjà agis sous la forme que vous me dites. La chose que j'essaye de faire est de générer automatiquement les tables Quotidien/Mensuel et Hebdo de telle façon :

(prenons exemple sur Quotidien, le | délimite un nouveau champ, / un champ vide)

1 | Janvier | 2011 | / | / | *Compteur*
2 | Janvier | 2011 | / | / | *Compteur*

...

Et je voudrais que cette page soit générée automatiquement pour éviter que l'utilisateur ai à rentrer trop de données.

Merci d'avance !
(Je cherche de mon côté)

[f-leb]

Ah, ok.

Il faudrait décrire plus précisément le processus souhaité.

On pourrait par exemple sur création ou activation d’un compteur récupérer la dernière date saisie (avec une fonction exploitant Dmax et DateSerial) et la comparer à celle d’aujourd’hui.
S’il manque des dates, on les insère dans une boucle (avec DateAdd pour incrémenter)

[Brut4lity]

Re !

Je voyais plus un truc du genre je saisis d'une date à une autre et ça me remplit toutes mes cases de cette date là à l'autre.

Le problème que je rencontre c'est que mes tables ne sont pas formées pareilles.


A toute.

[f-leb]

je n'ai pas le temps pour le moment de tout détailler/tester mais tu pourrais commencer par écrire une routine:

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
21
22
23
24
25
26
27
28
public sub InsertDate(dateDebut as date, datefin as date, idCompteur as long, frequence as string)
 
dim rs as DAO.recordset
 
select case frequence
 case "quotidien":
   set rs=currentdb.openrecordset("quotidien")
   do
      rs.addnnew
      rs.fields("jour-quo")= Day(DateDebut)
      rs.fields("mois-quo")= Month(dateDebut)
      rs.fields("annee-quo")= Year(DateDebut)
      rs.update
      DateDebut=DateAdd("d", 1, DateDebut)
   loop until DateDebut>DateFin
 
 case "hebdo":
' a completer (voir fonctions VBA DateAdd et DatePart)
 
 case "mensuel":
' a completer (voir fonctions VBA DateAdd et DatePart)
 
end select
 
rs.close
set rs=nothing
 
end sub

[Brut4lity]

Re, je suis débutant et n'ai jamais utilisé DAO

ça va me mettre un peu de temps avant de pouvoir étudier ça. Merci

EDIT:

J'ai fait ça au cours de mes diverses recherches. Ce n'est pas tout a fait bien mais c'est déjà pas mal ^^ !

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
 
Private Sub Commande5_Click()
 
Set Table = CurrentDb.OpenRecordset("Prévisions Production", dbOpenDynaset)
On Error Resume Next
With Table
For I = 1 To 12
    .AddNew
    !Année_Prev = Form_Génération!Texte8
    !Mois_Prev = I
    !ID_AtelierBudget = Form_Génération!Modifiable11
    .Update
    .Requery
Next I
 
End With
Table.Close
Set Table = Nothing
 
End Sub

Edit: Merci de ton aide, je vais continuer sur cette voie !

Je vais juste faire quelques ajustements.
Encore merci !

Bonne soirée.