Posts Tagged 'modules'
Samedi 2 mai 2009 |
Parfois, il est nécessaire pour empêcher une forme ouverte s'il ya des documents qui montrent, par exemple lorsque vous faites une requête et aucune inscription n'est pas requise, nous n'avons pas besoin d'être ouvert sous forme puisque nous n'avons pas de données à afficher. Donc, ce que nous avons à faire est de vérifier s'il ya des documents qui montrent et s'il n'y a pas afficher un message et entraver la forme ouverte. Comment?
Il est facile de mettre juste le code ci-dessous dans les propriétés du formulaire dans l'événement pour ouvrir ":
= 0 Then If Form.RecordsetClone.RecordCount
MsgBox "Aucun enregistrement trouvé.", VbExclamation, "Erreur!"
DoCmd.Close acForm, "trouver des données"
Exit Sub
End If
Pour voir un exemple télécharger: Empêcher Open Form
Publié dans Exemples , les formulaires , les modules | Les 2 Commentaires »
Thursday, Décembre 11th, 2008 |
1 - Créer un formulaire de commande dans la structure et l'événement "cliquant" sur les propriétés de la forme entrez la commande suivante: me.keypreview = true
Ou est ce que cela va rendre les événements de clavier sont reçus dans la première forme.
2 - Dans les propriétés du formulaire, bouton ci-dessous à «l'événement a mis le code suivant:
Private Sub Form_KeyDown (KeyCode As Integer, Shift As Integer)
Sélectionnez KeyCode Case
Affaire vbKeyF2
DoCmd.OpenForm "Form1"
Affaire vbKeyF3
DoCmd.OpenForm "Form2"
Affaire vbKeyF4
DoCmd.OpenForm "formulario3"
Affaire vbKeyF5
Comme Calculatrice Dim double
Calculatrice = Shell ("calc.exe", vbNormalFocus)
Affaire vbKeyF6
DoCmd.Close
Case Else
End Select
End Sub
Qu'est-ce que cela fait est le suivant:
- En appuyant sur la touche F2 ouvre la form1
- En appuyant sur la touche F3 ouvre Form2
- En appuyant sur la touche F4 ouvre la formulário3
- En appuyant sur la touche F5 ouvre la calculatrice Windows
- En appuyant sur la touche F6 ferme le formulaire
En plus de la touche de fonction F1, F2 ... etc, nous pouvons aussi utiliser n'importe quelle autre touche pour exécuter des fonctions, mais en gardant à l'esprit que si nous voulons entrer des données dans une forme qui ne conviennent pas à utiliser les touches qui sont utilisés pour écrire des données dans les champs.
Une autre chose est qu'il ne fonctionne que sur la forme où vous mettez les codes ci-dessus.
Téléchargement: Touches
Publié dans Exemples , les formulaires , les modules | Les 1 Commentaire »
Saturday, Septembre 20, 2008 |
C'est une sorte de menu qui nous permet de gagner du temps, de lignes de code et une meilleure entente en termes de formes ouvertes, car avec ce menu juste besoin d'une forme ouverte. En plus de réduire le nombre de formulaires ouverts diminue également le nombre de boutons dans un menu pour ouvrir chaque formulaire.
Ce type de menu, qui a certainement existé pendant un certain temps et est déjà utilisé par de nombreux utilisateurs d'Access.
Alors, où est ce menu?
Nous allons créer le menu en utilisant une liste déroulante qui contient toutes les formes que nous avons l'intention d'ouvrir à travers elle. Lorsque vous sélectionnez une option dans la liste déroulante du formulaire de demande est affiché dans le sous-formulaire. Puis nous commençons à faire l'étape par étape le menu.
1 - Nous allons créer une table où l'on va stocker le nom que vous souhaitez donner à chaque forme et le nom de la forme que va s'ouvrir. Dans l'exemple que j'ai créé 'tblmenu' de la table avec les champs suivants:
Type de champ
Texte Nomedomenu - (combo)> Nom qui sera vu dans le menu
sous forme de texte -> Nom de la forme qui va ouvrir
Une fois les données introduites dans l'exemple sont les suivants:
Formulaire NomedoMenu
Comptes Form1
Dépôts Form2
Mouvements formulario3
Compte-Box formulario4
Compte-compte formulario5
Extrait formulario6
2 - Ensuite, nous créons une requête à partir du tableau précédent:
Tblmenu choisi la table, puis choisissez les deux domaines dans lesquels nous avons choisi pour monter nomedomenu sorte d'être plus faciles à trouver dans le menu à quelques reprises quand nous voulons ouvrir les formulaires. Pour cette requête, j'ai appelé «CsMenu».
3 - Nous allons créer «Menu» sous la forme, c'est à dire choisir la forme nouvelle en mode Création. Ensuite, nous avons créer une zone de liste déroulante et modifier les propriétés suivantes:
- Nombre de colonnes: 2
La largeur des colonnes -: 1cm, 0cm;
- Origine de la ligne: csmenu (qui est le nom de la requête créée dans le paragraphe précédent)
4 - Dans la même forme, nous allons créer un formulaire sous-formulaire principal indépendant de (Dans l'exemple j'ai appelé menuquadro). C'est cette forme qui sera ouvert chacune des formes de choisir dans le menu (liste déroulante).
5 - Maintenant, créez un module qui va nous permettre d'ouvrir le menu qui est sélectionné dans la zone de liste déroulante dans le sous-formulaire.
Nous avons créé un module (que j'ai appelé «abrirmenu ') et collé le code suivant:
AtivarMenu Fonction publique (Combmenu Le ComboBox, subabrir Le sous-formulaire)
Abrirform As String Dim
= Abrirform Combmenu.Column (1)
subabrir.SourceObject = abrirform
subabrir.LinkChildFields = ""
subabrir.LinkMasterFields = ""
End Function
Après être allé à des propriétés de la zone de liste déroulante dans le menu forme et la mise à jour après l'événement mis la fonction créée: ativarmenu = ([Menu], [menuquadro]) que "Menu" est le nom de la zone de liste déroulante et «menuquadro 'l' nom du sous-formulaire.
Et enfin, le menu est prêt à l'emploi. Juste essayer et à utiliser. J'espère que vous avez apprécié cette astuce.
Télécharger: Menu
Ci-dessous une photo du menu.
Menu personnalisé
Publié dans Exemples , les formulaires , les modules | Les 12 Commentaires »
Mardi 6 mai 2008 |
Cet exemple montre comment un système de gestion pour la fourniture des paiements.
L'exemple montre que cela ne fait que créer et automatiquement avec un clic d'un bouton, les avantages d'un contrat de vente à travers les données saisies. C'est, nous introduisons le nom du client à la date de début du contrat et le montant total à payer. Ensuite, cliquez simplement sur «Calculer les paiements" qu'il génère automatiquement le nombre de versements et divise la valeur indiquée par chacun d'eux et calcule la date de chaque versement (un par mois). C'est aussi un exemple qui montre comment ajouter plusieurs enregistrements à la fois, parce que quand vous cliquez sur le bouton, il ajoute un enregistrement pour chaque prestation.
Téléchargement: insérer des enregistrements multiples
Publié dans Dates , les échantillons , les formulaires , les modules , les records | Les 17 Commentaires »
Saturday, Mars 29th, 2008 |
Ceci est un exemple des champs d'application que Sonia lecteur destinés à un enregistrement de données de base de données des animaux. Il s'agit d'une base de données simple avec juste un formulaire pour la saisie des données avec une photo de l'animal.
Télécharger: Animal Shelter
Tout changement vient de commenter ici.
Écrites les formes , les photos , les modules , les dossiers , les Tableaux | Les 11 Comments »
Wednesday, Février 20, 2008 |
Il ya plusieurs façons d'entrer un enregistrement, et la plus courante consiste à passer à travers une forme liée à une table. Une autre façon de faire est à travers les champs indépendants, c.-à-l'aide d'un formulaire avec des champs indépendants indépendante à la table. À
entrer les données que nous utilisons le «jeu d'enregistrements», c'est à dire par un code, qui dans le cas de cet exemple est comme suit:
Db As Database
Dim rs Comme Recordset
If MsgBox ("Voulez-vous écrire?" VbYesNoCancel, "Options") = vbYes Puis
"En appuyant sur est demandé si vous souhaitez sauvegarder l'enregistrement ou non, si c'est le cas le code continue jusqu'à la fin
Set db = CurrentDb ()
Set rs = db.OpenRecordset ("Données", dbOpenTable)
«Ouvrez la table pour insérer les données vous inscrire
rs.addNew
rs ("nom") = Me! INome
rs ("adresse") = Me! Imorada
rs ("age") = Me! Iidade
rs.Update 'envoie les données à la table
rs.Close 'Effacer les données et ferme le jeu d'enregistrements
Set rs = Nothing
Set db = Nothing
Me.INome = Null 'efface les champs du formulaire
Me.Imorada = Null
Me.Iidade = Null
MsgBox "Record sauvé", vbInformation, "Done" 'message de confirmation d'affichage
Me.INome.SetFocus 'Déplacez le curseur sur le premier champ
Exit Sub: Else
End If
Téléchargement: Placez indépendant
Publié dans Exemples , les formulaires , les modules , les dossiers , les tables | Les Pas de commentaires »
Tuesday, Février 19th, 2008 |
Cet exemple montre comment effectuer des calculs sur les heures. Il est utile pour ceux qui ont besoin de savoir combien de temps s'est écoulé entre l'heure de début et de fin des temps. Il ne suffit pas de faire la soustraction de l'heure de fin pour l'heure de début, parce que si l'heure de fin se déplaçant d'un jour à des comptes prochaines ne seront plus correcte, par exemple:
Heure de départ: 23:00:00
Heure de fin: 02:00:00
Heure de fin - Heure de début = 02:00:00-23:00:00 = -21:00:00
Évidemment, il n'est pas si simple de travailler avec le temps, parce que au lieu d'avoir trois heures pour résultat correct pouvait à tort -21 heures.
Pour contourner cette période qui va de jour en jour, nous avons d'abord vérifier si l'heure de fin est supérieure à l'heure de début, le plus élevé, puis le calcul est le suivant: Heure de fin - Heure de début.
Si vous êtes sous, puis nous avons à faire le calcul d'une autre manière, à savoir:
Heure de départ: 23:00:00
Heure de fin: 02:00:00
Temps total: 23:59:59
Hit: 00:00:01
Fondamentalement, ce que nous faisons, c'est ajouter à la valeur de la soustraction 24:00:00 pour nous donner les trois bonnes heures. C'est:
Heure de fin - Heure de début + nombre total d'heures + Hit = 02:00:00-23:00:00 + + 23:59:59 00:00:01 24:00:00 = = 03 + -21:00:00 : 00:00
Télécharger: Calcul avec Time
Publié dans Exemples , les formulaires , les heures , les modules | Les 20 Commentaires »
Wednesday, Février 6th, 2008 |
Cet exemple montre comment choisir une date dans un calendrier contextuel. C'est, en tant que module et peuvent former une sélection d'une date car il s'agit d'un calendrier. Dans l'exemple on peut choisir la date en cliquant sur le bouton à côté du champ de date ou de cliquer sur le bouton droit de la souris dans le champ de date. Cette façon d'entrer les dates est très pratique car il nous permet de voir un calendrier et de choisir la meilleure date que vous souhaitez.
Télécharger: PopUp Calendrier
Publié dans Dates , les échantillons , les formulaires , les modules | Les 1 Commentaire »
Sunday, Janvier 27, 2008 |
Habituellement, lorsque nous courons le bouton central de la souris sur un formulaire, changer le journal des accès. Dans certaines situations, il peut être utile que ne se produise pas.
Cet exemple utilise un module dans le cas de la forme à charger, pour empêcher l'utilisateur de naviguer à travers les enregistrements en utilisant le défilement de la souris. Pour tester, nous pouvons utiliser la molette de la souris (bouton du milieu) pour voir qui ne change pas l'enregistrement.
Télécharger ici: souris à molette
Publié dans Exemples , les formulaires , les modules , les souris , les dossiers | Les Pas de commentaires »
Monday, Janvier 21, 2008 |
Cet exemple utilise un module qui cache la fenêtre Microsoft Access principale, ne laissant que la forme de fenêtre visible.
Pour utiliser ce module, nous devons utiliser la commande suivante à l'événement d'ouverture de la forme: fsetAccessWindow appel (SW_HIDE).
Pour vérifier à titre d'exemple faire le downloa: Manipuler Accès fenêtre
Publié dans Exemples , les formulaires , les modules | Les 8 Commentaires »
