Exemples d'accès

Mise à jour système de vente

Après un certain temps sans mettre à jour le blog, j'ai finalement obtenu un certain temps pour mettre à jour le système de vente. Beaucoup de lecteurs ne pouvaient pas obtenir à cause du mot de passe de connexion du système demandé. Donc, j'ai enlevé le système de connexion pour un accès facile.
En dehors de ce changement apporté les modifications suivantes:

V 0.5.0 (2010-08-19)
- Suppression de la connexion et les utilisateurs.
- Les champs ajoutés (famille, iva et de l'unité) dans le tableau des produits.
- J'ai créé une table de la TVA.
- Modification de la forme des produits. (Nouveaux champs, regard, nouvelle façon de trouver des enregistrements).
- J'ai créé la famille de table (des produits).
- Changement de la forme d'achats: un seul produit a été inséré à la fois. Je mets sous la forme d'un sous-formulaire d'achat où vous pouvez entrer plusieurs produits achetés chez un fournisseur donné.

Télécharger: 2010 Chiffre d'affaires

Tous les commentaires dans un nouvelle mise à jour pour corriger ou ajouter des fonctionnalités.

Dans l'avenir, je pense à changer l'emplacement de l'endroit où sont les téléchargements de fichiers, car si il ya une activité dans un fichier depuis un certain temps, le fichier est supprimé. Je vais donc chercher une alternative à Easy-Share pour que cela ne se produise.

Dans le prochain post je vais mettre une version de la façon de calculer les avantages similaires à ce qui est déjà ici, dans ce poste , mais au lieu d'avoir des paiements mensuels ne peut choisir le nombre de jours écoulés entre chaque tranche. Cet exemple servira également à répondre à une question d'un lecteur ( Marcelo ).

Publié dans Exemples , les formulaires , les système complet | Les 14 Commentaires »

Comment faire pour empêcher une forme ouverte si aucun enregistrement à montrer?

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 »

Comment attribuer des actions aux touches?

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 »

Menu personnalisé

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 »

Mesurer le temps qu'elle consacre à un opérateur d'insérer un enregistrement

Ce fut certainement un joueur Elton Rueb et il a même réussi à résoudre avant que je vous aider. Ce que le lecteur a été destiné à mesurer le temps nécessaire à un utilisateur d'insérer un enregistrement et il comporte trois champs: l'un pour l'heure de début quand il ouvre le formulaire, pour la première fois à la fin qui est inséré lorsque vous cliquez sur le enregistrer et un champ touche de calculer la différence. Il s'agit d'un exemple simple, mais peut faire défaut à ceux qui veulent pour calculer la différence entre deux temps. Ainsi, le Rueb Elton (Rio de Janeiro - RJ - Brésil) a donné l'exemple qui pourrait aider quelqu'un d'autre.

Télécharger: l'heure du test

Publié dans Dates , les échantillons , les exemples transférés , les expressions , les formulaires , les temps | Les 2 Commentaires »

Répondez à la question: le format de date

Le lecteur de Jacinto poser une question ici sur la façon de modifier le format d'une date du 12/06/2008 pour 2 0 0 8 0 6 1 2, la réponse comme il est expliqué dans les commentaires est aussi simple que une zone de texte avec le l'expression suivante:

= Format ([nom du champ date], "mm jj aaaa")

et les propriétés du champ de mettre les mots suivants dans le masque de saisie: 0 \ 0 \ 0 \ 0 \ 0 \ 0 \ 0 \ 0 \ 0

Assez simple et facile. Suivez l'exemple pour le téléchargement: le format de date

Publié dans Dates , les exemples , les expressions , les formulaires | Les 1 Commentaire »

Exemple de prestations de gestion

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 »

Changer la couleur de fond d'un champ de texte qui a le focus

Pour ceux qui veulent donner un effet différent sur les formes, plus particulièrement lorsque nous entrons dans les données, nous pouvons changer la couleur du champ où le curseur. C'est, tous les champs de saisie de données sont dans le blanc que le terrain où nous écrivons qui est d'une autre couleur.

Pour ce faire, il est très facile, il suffit de sélectionner les champs et de choisir la couleur de fond que vous souhaitez voir apparaître lorsque le curseur est dans le domaine, puis modifier la couleur de transparence.

Télécharger: Changer la couleur de champ de données

Publié dans Couleurs , des échantillons , des formes | Les 10 Commentaires »

Point

À la demande du joueur Joao Cabrita a développé cette forme de point de contrôle qui s'applique à une caserne de pompiers, plus précisément aux besoins du lecteur.

Il est un exemple de base, mais avec quelques détails plus avancés sur ce qu'il est destiné à rendre le contrôle des entrées et sorties des employés, de vérifier qui a travaillé un quart de 12 heures et ajouter des heures travaillées et les heures travaillées à moins.

Tout cela pour un rapport mensuel de fréquentation de chaque employé.

Télécharger: Point de

Rédigé consultation , les dates , les exemples , les expressions , les formes , les heures , les rapports | Les 9 Commentaires »

Saisie d'un champs de l'enregistrement par le biais indépendante

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 »