Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Access Réduit Modules

Réduit Modules

3 réponses
Avatar
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
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
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

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

"ze Titi" a écrit dans le message de news:

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





Avatar
ze Titi
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" a écrit dans le message de news:

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