Réduit Modules

Le
fujitsu
Bonjour à tous,

Dans les deux formulaires, copier -> coller
Il y a 1 à 9 de Me.NuméroMédicament suivant :

If Me.NuméroMédicament = 1 Then
[Forms]![Form Pre 01].[Code01] = Me.MedicamentTemp
[Forms]![Form Pre 01].[mati01] = Me.MatiTemp
[Forms]![Form Pre 01].[midi01] = Me.MidiTemp
[Forms]![Form Pre 01].[soir01] = Me.SoirTemp
[Forms]![Form Pre 01].[DFin01] = Me.DFinTemp
ElseIf Me.NuméroMédicament = 2 Then
[Forms]![Form Pre 01].[Code02] = Me.MedicamentTemp
[Forms]![Form Pre 01].[mati02] = Me.MatiTemp
[Forms]![Form Pre 01].[midi02] = Me.MidiTemp
[Forms]![Form Pre 01].[soir02] = Me.SoirTemp
[Forms]![Form Pre 01].[DFin02] = Me.DFinTemp
ElseIf Me.NuméroMédicament = 3 Then
[Forms]![Form Pre 01].[Code03] = Me.MedicamentTemp
[Forms]![Form Pre 01].[mati03] = Me.MatiTemp
[Forms]![Form Pre 01].[midi03] = Me.MidiTemp
[Forms]![Form Pre 01].[soir03] = Me.SoirTemp
[Forms]![Form Pre 01].[DFin03] = Me.DFinTemp
End If

Comment faire réduit en modulaire ?
J'ai essayer ça ne marche pas

[Forms]![Form Pre 01].["Code0"&"Me.NuméroMédicament "] =
Me.MedicamentTemp
[Forms]![Form Pre 01].["Mati0"&"Me.NuméroMédicament "] = Me.MatiTemp
[Forms]![Form Pre 01].["Midi0"&"Me.NuméroMédicament "] = Me.MidiTemp
[Forms]![Form Pre 01].["Soir0"&"Me.NuméroMédicament "] = Me.SoirTemp
[Forms]![Form Pre 01].["DFin0"&"Me.NuméroMédicament "] = Me.DFinTemp


Merci de votre aide..

Marco
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
ze Titi
Le #6273911
Hello fujitsu !

Forms("Form Pre 01").Controls("Code0" & Me.NuméroMédicament) = Me.MedicamentTemp
Forms("Form Pre 01").Controls("Mati0" & Me.NuméroMédicament) = Me.MatiTemp
Forms("Form Pre 01").Controls("Midi0" & Me.NuméroMédicament) = Me.MidiTemp
Forms("Form Pre 01").Controls("Soir0" & Me.NuméroMédicament) = Me.SoirTemp
Forms("Form Pre 01").Controls("DFin0" & Me.NuméroMédicament) = Me.DFinTemp

En ce jour mémorable du lundi 07/05/2007, tu as entrepris la lourde tâche de taper sur ton clavier :
Bonjour à tous,

Dans les deux formulaires, copier -> coller...
Il y a 1 à 9 de Me.NuméroMédicament suivant :

If Me.NuméroMédicament = 1 Then
[Forms]![Form Pre 01].[Code01] = Me.MedicamentTemp
[Forms]![Form Pre 01].[mati01] = Me.MatiTemp
[Forms]![Form Pre 01].[midi01] = Me.MidiTemp
[Forms]![Form Pre 01].[soir01] = Me.SoirTemp
[Forms]![Form Pre 01].[DFin01] = Me.DFinTemp
ElseIf Me.NuméroMédicament = 2 Then
[Forms]![Form Pre 01].[Code02] = Me.MedicamentTemp
[Forms]![Form Pre 01].[mati02] = Me.MatiTemp
[Forms]![Form Pre 01].[midi02] = Me.MidiTemp
[Forms]![Form Pre 01].[soir02] = Me.SoirTemp
[Forms]![Form Pre 01].[DFin02] = Me.DFinTemp
ElseIf Me.NuméroMédicament = 3 Then
[Forms]![Form Pre 01].[Code03] = Me.MedicamentTemp
[Forms]![Form Pre 01].[mati03] = Me.MatiTemp
[Forms]![Form Pre 01].[midi03] = Me.MidiTemp
[Forms]![Form Pre 01].[soir03] = Me.SoirTemp
[Forms]![Form Pre 01].[DFin03] = Me.DFinTemp
End If

Comment faire réduit en modulaire ?
J'ai essayer ......ça ne marche pas

[Forms]![Form Pre 01].["Code0"&"Me.NuméroMédicament "] =
Me.MedicamentTemp
[Forms]![Form Pre 01].["Mati0"&"Me.NuméroMédicament "] = Me.MatiTemp
[Forms]![Form Pre 01].["Midi0"&"Me.NuméroMédicament "] = Me.MidiTemp
[Forms]![Form Pre 01].["Soir0"&"Me.NuméroMédicament "] = Me.SoirTemp
[Forms]![Form Pre 01].["DFin0"&"Me.NuméroMédicament "] = Me.DFinTemp


Merci de votre aide..

Marco


--
Cordialement,
Ze Titi

Tout pour réussir avec Access :
http://www.mpfa.info

fujitsu
Le #6273901
Bonjour ze Titi
C'est super, j'ai économie mon énergie
Encore merci
Bonne journée
Marco

"ze Titi"
Hello fujitsu !

Forms("Form Pre 01").Controls("Code0" & Me.NuméroMédicament) =
Me.MedicamentTemp
Forms("Form Pre 01").Controls("Mati0" & Me.NuméroMédicament) =
Me.MatiTemp
Forms("Form Pre 01").Controls("Midi0" & Me.NuméroMédicament) =
Me.MidiTemp
Forms("Form Pre 01").Controls("Soir0" & Me.NuméroMédicament) =
Me.SoirTemp
Forms("Form Pre 01").Controls("DFin0" & Me.NuméroMédicament) =
Me.DFinTemp

En ce jour mémorable du lundi 07/05/2007, tu as entrepris la lourde tâche
de taper sur ton clavier :
Bonjour à tous,

Dans les deux formulaires, copier -> coller...
Il y a 1 à 9 de Me.NuméroMédicament suivant :

If Me.NuméroMédicament = 1 Then
[Forms]![Form Pre 01].[Code01] = Me.MedicamentTemp
[Forms]![Form Pre 01].[mati01] = Me.MatiTemp
[Forms]![Form Pre 01].[midi01] = Me.MidiTemp
[Forms]![Form Pre 01].[soir01] = Me.SoirTemp
[Forms]![Form Pre 01].[DFin01] = Me.DFinTemp
ElseIf Me.NuméroMédicament = 2 Then
[Forms]![Form Pre 01].[Code02] = Me.MedicamentTemp
[Forms]![Form Pre 01].[mati02] = Me.MatiTemp
[Forms]![Form Pre 01].[midi02] = Me.MidiTemp
[Forms]![Form Pre 01].[soir02] = Me.SoirTemp
[Forms]![Form Pre 01].[DFin02] = Me.DFinTemp
ElseIf Me.NuméroMédicament = 3 Then
[Forms]![Form Pre 01].[Code03] = Me.MedicamentTemp
[Forms]![Form Pre 01].[mati03] = Me.MatiTemp
[Forms]![Form Pre 01].[midi03] = Me.MidiTemp
[Forms]![Form Pre 01].[soir03] = Me.SoirTemp
[Forms]![Form Pre 01].[DFin03] = Me.DFinTemp
End If

Comment faire réduit en modulaire ?
J'ai essayer ......ça ne marche pas

[Forms]![Form Pre 01].["Code0"&"Me.NuméroMédicament "] >> Me.MedicamentTemp
[Forms]![Form Pre 01].["Mati0"&"Me.NuméroMédicament "] =
Me.MatiTemp
[Forms]![Form Pre 01].["Midi0"&"Me.NuméroMédicament "] =
Me.MidiTemp
[Forms]![Form Pre 01].["Soir0"&"Me.NuméroMédicament "] =
Me.SoirTemp
[Forms]![Form Pre 01].["DFin0"&"Me.NuméroMédicament "] =
Me.DFinTemp


Merci de votre aide..

Marco


--
Cordialement,
Ze Titi

Tout pour réussir avec Access :
http://www.mpfa.info





ze Titi
Le #6273891
De rien, merci pour le retour !
Bonne journée à toi aussi !

Titi

En ce jour exceptionnel du lundi 07/05/2007, tu nous as très
généreusement gratifié du message suivant:

Bonjour ze Titi
C'est super, j'ai économie mon énergie
Encore merci
Bonne journée
Marco

"ze Titi"
Hello fujitsu !

Forms("Form Pre 01").Controls("Code0" & Me.NuméroMédicament) =
Me.MedicamentTemp
Forms("Form Pre 01").Controls("Mati0" & Me.NuméroMédicament) =
Me.MatiTemp
Forms("Form Pre 01").Controls("Midi0" & Me.NuméroMédicament) =
Me.MidiTemp
Forms("Form Pre 01").Controls("Soir0" & Me.NuméroMédicament) =
Me.SoirTemp
Forms("Form Pre 01").Controls("DFin0" & Me.NuméroMédicament) =
Me.DFinTemp

En ce jour mémorable du lundi 07/05/2007, tu as entrepris la lourde tâche
de taper sur ton clavier :
Bonjour à tous,

Dans les deux formulaires, copier -> coller...
Il y a 1 à 9 de Me.NuméroMédicament suivant :

If Me.NuméroMédicament = 1 Then
[Forms]![Form Pre 01].[Code01] = Me.MedicamentTemp
[Forms]![Form Pre 01].[mati01] = Me.MatiTemp
[Forms]![Form Pre 01].[midi01] = Me.MidiTemp
[Forms]![Form Pre 01].[soir01] = Me.SoirTemp
[Forms]![Form Pre 01].[DFin01] = Me.DFinTemp
ElseIf Me.NuméroMédicament = 2 Then
[Forms]![Form Pre 01].[Code02] = Me.MedicamentTemp
[Forms]![Form Pre 01].[mati02] = Me.MatiTemp
[Forms]![Form Pre 01].[midi02] = Me.MidiTemp
[Forms]![Form Pre 01].[soir02] = Me.SoirTemp
[Forms]![Form Pre 01].[DFin02] = Me.DFinTemp
ElseIf Me.NuméroMédicament = 3 Then
[Forms]![Form Pre 01].[Code03] = Me.MedicamentTemp
[Forms]![Form Pre 01].[mati03] = Me.MatiTemp
[Forms]![Form Pre 01].[midi03] = Me.MidiTemp
[Forms]![Form Pre 01].[soir03] = Me.SoirTemp
[Forms]![Form Pre 01].[DFin03] = Me.DFinTemp
End If

Comment faire réduit en modulaire ?
J'ai essayer ......ça ne marche pas

[Forms]![Form Pre 01].["Code0"&"Me.NuméroMédicament "] >>> Me.MedicamentTemp
[Forms]![Form Pre 01].["Mati0"&"Me.NuméroMédicament "] =
Me.MatiTemp
[Forms]![Form Pre 01].["Midi0"&"Me.NuméroMédicament "] =
Me.MidiTemp
[Forms]![Form Pre 01].["Soir0"&"Me.NuméroMédicament "] =
Me.SoirTemp
[Forms]![Form Pre 01].["DFin0"&"Me.NuméroMédicament "] =
Me.DFinTemp


Merci de votre aide..

Marco


-- Cordialement,
Ze Titi

Tout pour réussir avec Access :
http://www.mpfa.info





--
Cordialement,
Ze Titi

Tout pour réussir avec Access :
http://www.mpfa.info



Publicité
Poster une réponse
Anonyme