Derniers sujets
» Des chantiers e stages humanitaires en 2019-2020 au Togo
urgent /aide/l'access EmptyLun 15 Juil 2019, 11:18 par hicahumaitaire2

» Des offres de chantiers et missions humanitaires en 2019-2020 Togo
urgent /aide/l'access EmptyLun 15 Juil 2019, 11:12 par hicahumaitaire2

» Recherche de bénévoles pour missions humanitaires avec MSVD
urgent /aide/l'access EmptyMar 02 Juil 2019, 16:28 par asso-msvd-msvd

» Missions humanitaires en aout 2019 AVEC MSVD AU TOGO
urgent /aide/l'access EmptyMar 02 Juil 2019, 16:09 par asso-msvd-msvd

» Opportunité de stages conventionnés, de missions humanitaires, tourisme 2019
urgent /aide/l'access EmptySam 29 Juin 2019, 03:14 par asso-msvd-msvd

» Opportunité de stages conventionnés, de missions humanitaires, tourisme 2019
urgent /aide/l'access EmptySam 29 Juin 2019, 03:13 par asso-msvd-msvd

» Missions humanitaires 2019
urgent /aide/l'access EmptySam 29 Juin 2019, 03:10 par asso-msvd-msvd

» Recherhe de volontaires, bénévoles pour mission humanitaire
urgent /aide/l'access EmptySam 29 Juin 2019, 03:03 par asso-msvd-msvd

» Stages conventionnés, missions humanitaires 2019 au Togo
urgent /aide/l'access EmptySam 29 Juin 2019, 03:01 par asso-msvd-msvd

» Recherche de bénévoles, de scouts, d' étudiants en groupe- été 2019
urgent /aide/l'access EmptyMar 16 Avr 2019, 16:30 par asso-msvd-msvd

» Mission humanitaire de solidarité internationale 2019 avec MSVD
urgent /aide/l'access EmptyMar 16 Avr 2019, 16:00 par asso-msvd-msvd

» Offre de stage, mission de volontariat international avec MSVD 2019
urgent /aide/l'access EmptyMar 16 Avr 2019, 15:59 par asso-msvd-msvd

» Missions humanitaires cet été 2019 avec MSVD
urgent /aide/l'access EmptyMar 16 Avr 2019, 15:57 par asso-msvd-msvd

» Faculté de gouvernance, sciences économiques et sociales FGSES
urgent /aide/l'access EmptyVen 12 Avr 2019, 10:00 par lhbilmarocain

» Actions solidaire/chantier humanitaire printemps, été, automne, hiver 2019 en Afrique avec JVSI
urgent /aide/l'access EmptySam 16 Mar 2019, 23:57 par jvsitogo

Portail Madariss
urgent /aide/l'access Mada311
Chat Madariss
urgent /aide/l'access Mad11
FACEBOOK

urgent /aide/l'access

Aller en bas

urgent /aide/l'access Empty urgent /aide/l'access

Message par Queen1 le Mer 02 Fév 2011, 14:33

svpppp
j'ai un qustion dans le module d'access (informatique)
c urgen !!! si vous avez une idée sur cela !plz Embarassed



la question est :
realisé un formulaire dans le quel vous mettez le message"bienvenu a mon application "de tel façon a ce qu'il s'executra a l'ouverture de la base de donneés apres 5 secondes le formulaire menu doit-etre afficher

Queen1
Je commence à comprendre comment.
Je commence à comprendre comment.

Féminin
Nombre de messages : 57
Age : 27
Ma ville : rabat
Date d'inscription : 21/10/2007

Revenir en haut Aller en bas

urgent /aide/l'access Empty Re: urgent /aide/l'access

Message par MJF le Mer 02 Fév 2011, 15:06

Clique sur spoiler pour démarrer sur un exemple similaire:
Spoiler:
Voici un exemple de code qui permet d'afficher un menu contextuel sur une zone de texte lorsque l'utilisateur clique avec le bouton droit de la souris. Notre menu propose à l'utilisateur de :
1. Convertir le texte en majuscule
2. Convertir le texte en minuscule
3. Effacer le texte

Précisons tout de même que lorsque la zone de texte est vide, le menu doit être inactif.
En haut du module de formulaire, placer les déclarations suivantes :


'Declaration des constantes de Menu
Const MF_CHECKED = &H8&
Const MF_APPEND = &H100&
Const TPM_LEFTALIGN = &H0&
Const MF_DISABLED = &H2&
Const MF_GRAYED = &H1&
Const MF_SEPARATOR = &H800&
Const MF_STRING = &H0&
Const TPM_RETURNCMD = &H100&
Const TPM_RIGHTBUTTON = &H2&

'Type Point pour localiser la souris
Private Type POINTAPI
X As Long
Y As Long
End Type

'Declaration des API
Private Declare Function CreatePopupMenu Lib "user32" () As Long

Private Declare Function TrackPopupMenuEx Lib "user32" _
(ByVal hMenu As Long, ByVal wFlags As Long, ByVal X As Long, _
ByVal Y As Long, ByVal HWnd As Long, ByVal lptpm As Any) As Long

Private Declare Function GetSystemMenu Lib "user32" _
(ByVal HWnd As Long, ByVal bRevert As Long) As Long

Private Declare Function AppendMenu Lib "user32" Alias _
"AppendMenuA" (ByVal hMenu As Long, ByVal wFlags As Long, _
ByVal wIDNewItem As Long, ByVal lpNewItem As Any) As Long

Private Declare Function DestroyMenu Lib "user32" _
(ByVal hMenu As Long) As Long

Private Declare Function GetCursorPos Lib "user32" _
(lpPoint As POINTAPI) As Long

Puis sur l'événement Sur Souris Relâchée d'une zone de texte :


Private Sub Texte1_MouseUp(Button As Integer, Shift As Integer _
, X As Single, Y As Single)

'Traite le cas d'un clic droit
If Button = 2 Then
'Declaration
Dim Pt As POINTAPI
Dim result As Long
Dim hMenu As Long
Dim TypeMenu1 As Long
Dim TypeMenu2 As Long
Dim TypeMenu4 As Long
'Si le texte est vide alors le type de menu sera : Desactiver
If Texte1.Text = "" Then
TypeMenu1 = MF_GRAYED Or MF_DISABLED
TypeMenu2 = MF_GRAYED Or MF_DISABLED
TypeMenu4 = MF_GRAYED Or MF_DISABLED
'sinon,
Else
'Le menu Effacer sera actif
TypeMenu4 = MF_STRING
'Coche le menu correspondant au format du texte
'Si majucsule, alors cocher option majuscule
'Si minuscule,cocher option minuscule
TypeMenu1 = IIf(Texte1.Text = UCase(Texte1.Text), _
MF_CHECKED, MF_STRING)

TypeMenu2 = IIf(Texte1.Text = LCase(Texte1.Text), _
MF_CHECKED, MF_STRING)
End If
'Creer le menu contextuel
hMenu = CreatePopupMenu()
'Creer les items du menu contextuel
AppendMenu hMenu, TypeMenu1, 1, "Majuscule"
AppendMenu hMenu, TypeMenu2, 2, "Minuscule"
'Ajoute un séparateur dans le menu contextuel
AppendMenu hMenu, MF_SEPARATOR, 3, ByVal 0&
AppendMenu hMenu, TypeMenu4, 4, "Effacer"
'Récupere l'emplacement de la souris
GetCursorPos Pt
'Affiche le menu à l'emplacement de la souris
'Et récupere la valeur de l'item cliqué
result = TrackPopupMenuEx(hMenu, _
TPM_LEFTALIGN Or TPM_RETURNCMD _
Or TPM_RIGHTBUTTON, Pt.X, Pt.Y, Me.HWnd, ByVal 0&)
'Supprime le menu
DestroyMenu hMenu
'Traite le resultat
Select Case result
Case 1
Texte1.Text = UCase(Texte1.Text)
Case 2
Texte1.Text = LCase(Texte1.Text)
Case 4
Texte1.Text = ""
End Select
End If

End Sub

Quelques explications :

AppendMenu hMenu, TypeMenu1, 1, "Majuscule"

Ici, le paramètre "1" correspond à la valeur qui sera retournée lorsque l'utilisateur cliquera sur la ligne intitulée "Majscule" du menu contextuel. Ce résultat est retourné par la methode TrackPopupMenuEx

De plus, l'ergonomie sera optimale si vous désactivez l'affichage des menu contextuels par défaut. (Options de démarrage de la base de données)
MJF
MJF
Admin.
Admin.

Masculin
Nombre de messages : 1611
Date d'inscription : 16/02/2010

Revenir en haut Aller en bas

urgent /aide/l'access Empty Re: urgent /aide/l'access

Message par MJF le Mer 02 Fév 2011, 15:14

Pour le temps, voila un autre:
Spoiler:
Simuler une fonction de boite de message (msgbox) à l'aide d'un formulaire personnalisé
[haut]
Versions : 2000 et supérieures

L'intérêt est de pouvoir définir du code dans le module du formulaire. On peut donc enrichir cette méthode à volonté, mais le principe est là.

Je fais un formulaire avec un seul contrôle (pour afficher le message) de type Label : lblMain.


Code du formulaire nommé : frmInfo

Option Compare Database
Option Explicit

Private Sub Form_Load()
Dim strMsg As String
Dim Dur As Integer
Dim Argz As String
Dim pos1 As Integer

' récupère l'instruction openargs du type (TXT=salut|@|Dur=30)
Argz = OpenArgs
pos1 = InStr(Argz, "|@|")
strMsg = left(Argz, pos1 - 1)
strMsg = right(strMsg, Len(strMsg) - 4)
Dur = CInt(right(Argz, Len(Argz) - pos1 - 6))

' attribue les propriétés Texte et durée d'affichage
Me.lblMain.Caption = strMsg
Me.OnTimer = "=xCloseFrm()"
Me.TimerInterval = Dur * 1000

End Sub

' fonction de fermeture programmée
Function xCloseFrm()
DoCmd.Close acForm, Me.Name
End Function

Ensuite je crée une fonction d'appel dans un module avec les arguments que je vais passer dans la chaîne OpenArgs


Option Compare Database
Option Explicit

Function MyDialog(ByVal strTxt As String, ByVal Dur As Integer)
DoCmd.OpenForm "frmInfo", acNormal, , , , acDialog, "TXT=" & strTxt & "|@|Dur=" & Dur
End Function

Ensuite par du code il me suffit de faire

MyDialog "Attention cette fenêtre va se fermer dans 5 secondes",5
MJF
MJF
Admin.
Admin.

Masculin
Nombre de messages : 1611
Date d'inscription : 16/02/2010

Revenir en haut Aller en bas

urgent /aide/l'access Empty Re: urgent /aide/l'access

Message par MJF le Mer 02 Fév 2011, 15:21

Le Splash-Screen en cadeau, oops! Je voulais dire en pdf.
Bonne lecture!
En fait, quel niveau tu as en access?
Quelle version d'access tu utilises?
MJF
MJF
Admin.
Admin.

Masculin
Nombre de messages : 1611
Date d'inscription : 16/02/2010

Revenir en haut Aller en bas

urgent /aide/l'access Empty Re: urgent /aide/l'access

Message par Queen1 le Sam 05 Fév 2011, 04:06

merci trop M. de votre repense
mais je pense qu'on a pas encore atteindre ce niveau ...
pour l'instant on est entrainé just a utiliser des formulaire ..des macro...des requette ainsi le mode sql



Queen1
Je commence à comprendre comment.
Je commence à comprendre comment.

Féminin
Nombre de messages : 57
Age : 27
Ma ville : rabat
Date d'inscription : 21/10/2007

Revenir en haut Aller en bas

urgent /aide/l'access Empty Re: urgent /aide/l'access

Message par MJF le Sam 05 Fév 2011, 08:37

C'est bon.
Sur quel logiciel tu travailles? Quelle version?
Moi, j'étudie tout seul pour moi-même et par tranche de 3 mois pour chaque discipline.
J'ai déjà fait access il y a 5 ans; je l'ai compris et j'ai passé à autre chose.
Pour débuter en ligne voila un site avec des cours !
Pour les bases de données, je travaille avec des logiciels plus complexes, portables fait main.
MJF
MJF
Admin.
Admin.

Masculin
Nombre de messages : 1611
Date d'inscription : 16/02/2010

Revenir en haut Aller en bas

urgent /aide/l'access Empty Re: urgent /aide/l'access

Message par Queen1 le Ven 11 Fév 2011, 02:22


je vous remercie enormement pour ce lien ..je l'a consulté ..
Smile

Queen1
Je commence à comprendre comment.
Je commence à comprendre comment.

Féminin
Nombre de messages : 57
Age : 27
Ma ville : rabat
Date d'inscription : 21/10/2007

Revenir en haut Aller en bas

urgent /aide/l'access Empty Re: urgent /aide/l'access

Message par Contenu sponsorisé


Contenu sponsorisé


Revenir en haut Aller en bas

Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum