Page d'Accueil

Introduction aux fonctions intégrées

 

Fonctions et procédures accessoires

 

Introduction

En notre introduction aux procédures dans la leçon 5, nous différentes manières de scie ou fonctions modules de créer, secondaire-procédés et. Avant de créer une nouvelle fonction qui exécutent un détail charger, première découvrent si cette fonction existe déjà. La bibliothèque construite dans le Microsoft Access est très grande (un des plus grande que vous verrez jamais dans l'industrie) et fournit les fonctions qui couvrent beaucoup de sujets, y compris des matières, l'algèbre, la conversion, des finances, la comptabilité, la date, le temps, et des cordes généraux, etc. Les fonctions disponibles sont fortement fiables ainsi vous pouvez sans risque les employer.

 

Étude pratiqueÉtude pratique : Présentation des fonctions intégrées

  1. Commencer le Microsoft Access et créer une base de données blanche appelée
    Gestion de propriété de Solas
  2. Pour créer une nouvelle table, sur le menu principal, insertion de clic - > Tableau
  3. Dans la nouvelle zone de dialogue de Tableau, double-cliquer le magicien de Tableau
  4. Dans l'échantillon les Tableaux énumèrent, cliquent des factures
  5. Dans les domaines témoin énumérer, double-cliquer InvoiceID et InvoiceDate
  6. Cliquer après
  7. Accepter le nom de la table comme factures et cliquer après
  8. Cliquer la modification le bouton par radio de conception de Tableau et cliquer la finition
  9. Ajouter les champs suivants à la table :
     
    Nom de champ Type de données Taille de champ Format
    InvoiceID      
    InvoiceDate      
    ContractorName      
    ContractorPhoneNumber      
    ContractorAddress   80  
    ContractorCity      
    ContractorState      
    ContractorZIPCode      
    LaborAddress   80  
    LaborCity      
    LaborState      
    LaborZIPCode      
    Labor1   80  
    Labor2   80  
    Labor3   80  
    Labor4   80  
    Labor5   80  
    Item1Name      
    Item1UnitPrice Nombre Double Fixe
    Item1Quantity Nombre Byte  
    Item1SubTotal Nombre Double Fixe
    Item2Name      
    Item2UnitPrice Nombre Double Fixe
    Item2Quantity Nombre Byte  
    Item2SubTotal Nombre Double Fixe
    Item3Name      
    Item3UnitPrice Nombre Double Fixe
    Item3Quantity Nombre Byte  
    Item3SubTotal Nombre Double Fixe
    Item4Name      
    Item4UnitPrice Nombre Double Fixe
    Item4Quantity Nombre Byte  
    Item4SubTotal Nombre Double Fixe
    Item5Name      
    Item5UnitPrice Nombre Double Fixe
    Item5Quantity Nombre Byte  
    Item5SubTotal Nombre Double Fixe
    TotalLabor Nombre Double Fixe
    TotalItems Nombre Double Fixe
    Notes Note    
  10. Économiser et fermer la table
  11. En utilisant AutoForm, produire d'une forme pour la table de factures et la concevoir comme suit :
     
  12. Économiser la forme comme factures
  13. La commuter à la vue de forme à la prévision
     
  14. La commuter de nouveau à la vue de conception
  15. Économiser la forme

Évaluation d'expression

Pour vous aider avec évaluer une expression, le Microsoft Access fournit la fonction d'Eval (). Sa syntaxe est :

Eval(Expression)

L'argument est passé à cette fonction comme corde. L'argument peut être aussi simple qu'une opération arithmétique comme dans 12 * 11, qui seraient Eval (« 12*11 ») ou ce peut être une expression complexe. Quand la fonction reçoit l'argument, elle emploie son propre mécanisme intégré pour l'analyser et pour découvrir le type de la valeur qu'il devrait retourner. Si l'expression apparaît comme calcul, alors la fonction renverrait une valeur numérique. Autrement, la fonction peut renvoyer une corde.

 

Étude pratiqueÉtude pratique : Employer la fonction d'Eval ()

  1. Sur la forme, cliquer la boîte des textes sous l'étiquette de quantité
  2. Dans l'étiquette d'événements de la fenêtre de propriétés, double-cliquer sur le foyer perdu, puis cliquer ses ellipses boutonnent et mettent en application l'événement comme suit :
     
    Private Sub Item1Quantity_LostFocus()
        [Item1SubTotal] = Eval([Item1UnitPrice] * [Item1Quantity])
    End Sub
  3. Revenir au Microsoft Access et, sur la forme, cliquer la deuxième boîte des textes sous la quantité
  4. Dans l'étiquette d'événements de la fenêtre de propriétés, double-cliquer sur le foyer perdu et cliquer son bouton de points de suspension pour mettre en application l'événement comme suit :
     
    Private Sub Item2Quantity_LostFocus()
        [Item2SubTotal] = Eval([Item2UnitPrice] * [Item2Quantity])
    End Sub
  5. Revenir au Microsoft Access et, sur la forme, cliquer la troisième boîte des textes sous la quantité
  6. Dans l'étiquette d'événements de la fenêtre de propriétés, double-cliquer sur le foyer perdu et cliquer son bouton de points de suspension pour mettre en application l'événement comme suit :
     
    Private Sub Item3Quantity_LostFocus()
        [Item3SubTotal] = Eval([Item3UnitPrice] * [Item3Quantity])
    End Sub
  7. Revenir au Microsoft Access et, sur la forme, cliquer la quatrième boîte des textes sous la quantité
  8. Dans l'étiquette d'événements de la fenêtre de propriétés, double-cliquer sur le foyer perdu et cliquer son bouton de points de suspension pour mettre en application l'événement comme suit :
     
    Private Sub Item4Quantity_LostFocus()
        [Item4SubTotal] = Eval([Item4UnitPrice] * [Item4Quantity])
    End Sub
  9. Revenir au Microsoft Access et, sur la forme, cliquer la cinquième boîte des textes sous la quantité
  10. Dans l'étiquette d'événements de la fenêtre de propriétés, double-cliquer sur le foyer perdu et cliquer son bouton de points de suspension pour mettre en application l'événement comme suit :
     
    Private Sub Item5Quantity_LostFocus()
        [Item5SubTotal] = Eval([Item5UnitPrice] * [Item5Quantity])
    End Sub
  11. Revenir à la forme et la sauver

La valeur numérique d'une expression

Quand une expression est censée produire une valeur numérique, il est important de s'assurer vous obtenir cette valeur avant de l'impliquer dans une autre opération. Le Microsoft Office fournit une fonction qui peut être employée pour obtenir facilement la valeur numérique d'une expression. La fonction s'appelle Val et sa syntaxe est :

Val(Expression)

En réalité, cette fonction peut être considérée en tant que deux dans une. En d'autres termes, elle peut produire un nombre normal ou vrai. Cette fonction prend comme argument une valeur inconnue ou une expression, telle qu'un calcul algébrique. Dans la plupart des cas, ou autant que possible, vous devriez pouvoir prévoir le type d'expression passé comme argument. Par exemple, si vous passez une opération algébrique qui calcule la somme de deux nombres normaux, vous devriez pouvoir prévoir que la fonction renverrait un nombre normal. Dans ce cas-ci, vous pouvez rechercher le nombre entier que la fonction renvoie. Voici un exemple :

Private Sub cmdValue_Click()
    Dim intValue%
    
    intValue% = Val(145 + 608)
    txtValue = intValue%
End Sub

De la même manière, vous pouvez demander cette fonction pour effectuer une opération algébrique sur des nombres deux ou plus normaux, des nombres deux ou plus décimaux, deux nombres ou plus qui incluent au moins un nombre décimal. Si la fonction reçoit une opération qui implique deux nombres normaux, elle renverrait un nombre normal. Si la fonction reçoit une opération qui implique au moins un nombre décimal et un ou plusieurs nombres normaux, la fonction renverrait un nombre décimal. Si la fonction reçoit une opération qui implique des nombres décimaux, elle produirait un nombre décimal.

Indépendamment des types de nombres que cette fonction reçoit, vous pouvez encore imposer le type de valeur que vous voulez rechercher. Si la fonction reçoit une opération qui implique seulement des nombres normaux, vous pouvez préférer obtenir un nombre décimal de lui. Si la fonction reçoit une opération qui implique au moins un nombre décimal et un ou plusieurs nombres normaux, vous pouvez immobile rechercher seulement le nombre normal. Voici un exemple :

Private Sub cmdValue_Click()
    Dim intValue%
    
    intValue% = Val(455 + 1250.85 + 88)
    txtValue = intValue%
End Sub

Cet appel de la fonction de Val () retournerait un nombre décimal mais toi mange pour rechercher le nombre normal :

Étude pratiqueÉtude pratique : Employer la fonction de Val ()

  1. Revenir à de base visuel de Microsoft et changer les événements de LostFocus comme suit :
     
    Private Sub Item1Quantity_LostFocus()
        [Item1SubTotal] = Eval([Item1UnitPrice] * [Item1Quantity])
        [TotalItems] = Val(Nz([Item1SubTotal]) + Nz([Item2SubTotal]) + _
                           Nz([Item3SubTotal]) + Nz([Item4SubTotal]) + _
                           Nz([Item5SubTotal]))
    End Sub
    
    Private Sub Item2Quantity_LostFocus()
        [Item2SubTotal] = Eval([Item2UnitPrice] * [Item2Quantity])
        [TotalItems] = Val(Nz([Item1SubTotal]) + Nz([Item2SubTotal]) + _
                           Nz([Item3SubTotal]) + Nz([Item4SubTotal]) + _
                           Nz([Item5SubTotal]))
    End Sub
    
    Private Sub Item3Quantity_LostFocus()
        [Item3SubTotal] = Eval([Item3UnitPrice] * [Item3Quantity])
        [TotalItems] = Val(Nz([Item1SubTotal]) + Nz([Item2SubTotal]) + _
                           Nz([Item3SubTotal]) + Nz([Item4SubTotal]) + _
                           Nz([Item5SubTotal]))
    End Sub
    
    Private Sub Item4Quantity_LostFocus()
        [Item4SubTotal] = Eval([Item4UnitPrice] * [Item4Quantity])
        [TotalItems] = Val(Nz([Item1SubTotal]) + Nz([Item2SubTotal]) + _
                           Nz([Item3SubTotal]) + Nz([Item4SubTotal]) + _
                           Nz([Item5SubTotal]))
    End Sub
    
    Private Sub Item5Quantity_LostFocus()
        [Item5SubTotal] = Eval([Item5UnitPrice] * [Item5Quantity])
        [TotalItems] = Val(Nz([Item1SubTotal]) + Nz([Item2SubTotal]) + _
                           Nz([Item3SubTotal]) + Nz([Item4SubTotal]) + _
                           Nz([Item5SubTotal]))
    End Sub
  2. Revenir à la forme
  3. Droit-cliquer la forme et cliquer l'en-tête bas de page de forme
  4. De la boîte à outils, cliquer le bouton de commande et cliquer sous la barre de titre de bas de page de forme
  5. En utilisant le magicien, créer un bouton qui serait utilisé pour fermer la forme et pour l'appeler cmdClose 
  6. Créer quelques factures
  7. Économiser et fermer la forme

Évaluer la composition

Jusqu'ici, après exécution d'un calcul, nous montrions le résultat « comme est ». Pour montrer convenablement une valeur, de base visuel de Microsoft fournit la fonction de format (). Bien qu'il puisse être employé pour différents types de valeurs, la technique la plus fondamentale se compose lui passer une expression qui tient la valeur pour montrer. Dans ce cas-ci la syntaxe à employer serait :

FormatNumber(Expression [,NumDigitsAfterDecimal _
			[,IncludeLeadingDigit _
			[,UseParensForNegativeNumbers _
			[,GroupDigits]]]])

Pour composer une valeur ou une expression dans une devise ou une valeur monétaire, vous pouvez appeler la fonction de FormatCurrency (). Sa syntaxe est :

FormatCurrency(Expression[,NumDigitsAfterDecimal _
		         [,IncludeLeadingDigit _
			 [,UseParensForNegativeNumbers _
			 [,GroupDigits]]]])  

Le premier argument, expression, est exigé. Ce peut être une valeur ou une expression. Ce peut être un nombre normal ou une valeur décimale avec simple ou à double précision. Un exemple est :

FormatCurrency(12.5)

Ceci produirait $12.50 si l'application fonctionne sur un ordinateur de l'anglais des USA. L'argument peut également être passé comme expression. Voici un exemple :

FormatCurrency([Total Hours In Week] * [Hourly Salary])

Dans ce cas-ci, la valeur du premier opérande serait multipliée à celle du deuxième opérande de l'expression. Le résultat devrait être une valeur de devise.

Le deuxième argument, facultatif, est le nombre désiré de chiffres après le séparateur décimal. Dans l'anglais des USA, cette valeur devrait être 2. La majeure partie du temps, vous devriez l'ignorer.

Le troisième argument, aussi facultatif, te permet d'indiquer si montrer un zéro principal, tel que 012.55 au lieu des 12.55 réguliers.

le quatrième argument, aussi facultatif, te permet d'indiquer si le résultat, quand négatif, est montré entre les parenthèses. Normalement, dans les langues latines telles que l'anglais, une valeur négative est indiquée par a - signer vers sa gauche.

Le dernier argument, aussi facultatif, te permet de montrer les valeurs dans les milliers pour la rendre facile à facile. Par exemple, si vous ignorez cet argument, vous pouvez obtenir un nombre tel que 81047576.50 mais si vous passez cet argument comme vrai, ce nombre montreriez en tant que 81.047.576.50.

Fonctions statistiques

 

Introduction

Sans compter que le Val() et l'Eval() fonctionner que nous scie plus tôt, Microsoft Access est équipés des fonctions employées pour effectuer l'arithmétique courante et les opérations algébriques. Elle fournit également des fonctions utilisées dans les collections de valeurs. Quelques fonctions mettent en boîte le « balayage » une série de disques d'une table ou d'une forme et fournissent la valeur appropriée.

Employer des fonctions statistiques

Dans l'arithmétique, nous sommes habitués à calculer la somme d'une série de valeurs. Dans une base de données, vous pouvez également calculer la somme des valeurs qu'une certaine colonne tient. Cette opération peut être portée par la fonction de Sum(). Sa syntaxe est :

Sum(FieldName)

Cette fonction prend un argument. L'argument peut être le nom d'une colonne. S'il est, toutes valeurs tenues par cette colonne, dans tous les disques de la table, se résumeraient et cette fonction renverrait le résultat.

L'argument à cette fonction peut également être une expression. Ce peut même être une combinaison des colonnes.

Sans compter que la fonction de somme (), un autre fonction arithmétique-orientée que vous pouvez employer est compte () et il emploie la même syntaxe que la somme (). La fonction de compte () est employée pour compter le nombre d'entrées d'une colonne parmi les disques d'une table. Voici un exemple de l'employer :

=Count([InvoiceID])

Dans ce cas-ci, ceci renverrait le nombre de disques de la table.

La fonction d'Avg () est employée pour calculer la valeur moyenne des valeurs d'une colonne. Elle emploie la même syntaxe que la fonction de somme ().

Le minimum () (ou le maximum ()) la fonction est employée pour calculer le minimum (ou le maximum) des valeurs d'une colonne. Elle emploie la même syntaxe que la fonction de somme ().

Le premier () (ou le bout ()) la fonction est employée pour trouver la première (ou le bout) valeur d'une colonne parmi les disques d'une table.

Étude pratique : Employer des fonctions statistiques

  1. Dans la fenêtre de base de données, formes de clic.
    Droit-cliquer les factures et cliquer économiser comme…
  2. Entrer dans InvoicesSummaries comme nom de la forme et cliquer BIEN
  3. Droit-cliquer InvoicesSummaries et cliquer la vue de conception
  4. Changer la conception de la forme comme suit :
     
    Commander Légende Nom Commander la source
    Groupe d'option Résumé des factures    
    Boîte des textes Nbr des factures txtNumberOfInvoices =Count ([InvoiceID])
    Boîte des textes Dépenses de travail txtLaborExpenses =Sum ([TotalLabor])
    Boîte des textes Moyenne txtAverageLabor =Avg ([TotalLabor])
    Boîte des textes Dépenses de pièces txtPartsExpenses =Sum ([TotalItems])
    Boîte des textes Moyenne txtAverageExpenses =Avg ([TotalItems])
  5. Visionner la forme
     
  6. Économiser et fermer la forme

Dater et Temps-Baser les fonctions

 

Maintenant - date-time

Le Microsoft Access et la langue de base visuelle de Microsoft sont équipés de diverses fonctions employées pour manoeuvrer des valeurs de date et d'heure. Au niveau le plus fondamental, vous pouvez employer la date (), Heure (), et maintenant () des fonctions pour montrer leurs valeurs.

La fonction de date () est employée pour obtenir la date de système de l'ordinateur. Pour montrer la date de système dans une boîte des textes, vous pouvez écrire le =Date () dans sa propriété de source de commande.

La fonction de Temps () est employée pour obtenir la période de système de l'ordinateur. Pour montrer le temps de système dans une boîte des textes, vous pouvez écrire le =Time () dans sa propriété de source de commande.

Maintenant () fonctionnent les cartels la date de système et l'heure de l'ordinateur.

 

Étude pratique : Obtenir la date et Heure de système

  1. Sur le menu principal du Microsoft Access, outils de clic - > macro rédacteur de base visuel

  2. Sur le menu principal de de base visuel de Microsoft, vue de clic - > fenêtre immédiate

  3. La fenêtre immédiate, introduire au clavier ? Dater et la pression entrent

  4. Noter que la date de système est montrée

  5. Dans toujours la fenêtre immédiate, type ? Temps et pression entrent

  6. Encore, dans la fenêtre immédiate, type ? Maintenant et pression entrer

Jour - mois - année

La fonction de jour () est employée pour obtenir la valeur numérique qui représente un jour en mois. Elle s'étend de 1 à 31 inclus. La syntaxe de la fonction de jour () est

Day(DateValue)

La fonction de mois () montre le mois numérique d'une date. Elle s'étend de 1 à 12 inclus. La formule de la fonction de mois est

Month(DateValue)

La fonction d'année () renvoie l'année numérique d'une date. La syntaxe de cette fonction est

Year(DateValue)

Étude pratique : Obtenir le jour, le mois, et les valeurs d'année d'une date

  1. La fenêtre immédiate, introduire au clavier ? Le jour (#12/14/00#) et la pression entrent
  2. Noter que le résultat est 14 comme jour numéral de cette date
  3. Dans toujours la fenêtre immédiate, type ? Jour (date ()) et la pression entrent
  4. Noter que le résultat est le jour numérique de la date de système
  5. La fenêtre immédiate, introduire au clavier ? Le jour (date () +2) et la pression entrent
    Ceci montrerait le numéro de 2 jours d'aujourd'hui
  6. La fenêtre immédiate, introduire au clavier ? Le mois (le « 12 juin 1990 ») et la pression entrent
  7. Noter que le résultat dans 6, parce que juin représente le 6ème mois de l'année
  8. La fenêtre immédiate, introduire au clavier ? Le mois (#02/25/90#) et la pression entrent
    Ceci produit 2 depuis février est le 22eme jour de l'année
  9. La fenêtre immédiate, introduire au clavier ? Année (date ()) et la pression entrent
  10. Noter que ceci montre l'année en cours de la date de système.

Opérations à la date et aux valeurs de Temps

La fonction de DateAdd () peut être employée pour ajouter une valeur d'intervalle, telle qu'un certain nombre de jours, des semaines, des mois, ou des années à une autre date. Sa syntaxe est :

DateAdd(Interval, Number, date)

Requis, l'argument d'intervalle indique quel genre de valeur vous voulez en conséquence. Cet argument sera inclus entre de doubles citations et peut avoir une des valeurs suivantes :

Intervalle Obtenaient
s En second lieu
n Minute
h Heure
W Jour de la semaine numérique
ww Semaine de l'année
d Jour
y Jour numérique de l'année
m Mois
q Quart
yyyy Année

Requis également, l'argument de nombre indique le nombre d'unités que vous voulez s'ajouter. Si vous le placez en tant que positif, sa valeur sera ajoutée. Si vous voulez soustraire, la passer comme valeur négative. Le nombre représente combien d'unités de l'argument d'intervalle vous voulez ajouter.

L'argument de date est la date à l'où vous voulez ajouter le nombre.

Différence de date

La fonction de DateDiff () est employée pour trouver la différence entre deux dates ou valeurs de temps. Elle te permet de trouver le nombre d'en second lieu, les minutes, les heures, les jours, les semaines, les mois, ou les années où vous assurez deux valeurs reconnaissables. La fonction de DateDiff () prend 5 arguments, 3 sont exigés et 2 sont facultatifs. La syntaxe de la fonction de DateDiff () est

DateDiff(Interval, Date1, Date2, Option1, Option2)

Requis, l'argument d'intervalle indique quel genre de valeur vous voulez en conséquence. Cet argument sera inclus entre de doubles citations et peut avoir une des valeurs suivantes :

Intervalle Obtenaient
s En second lieu
n Minute
h Heure
W Jour de la semaine numérique
ww Semaine de l'année
d Jour
y Jour numérique de l'année
m Mois
q Quart
yyyy Année

Requis également, les arguments Date1 et Date2 indiquent les valeurs de date ou d'heure qui seront employées quand effectuant l'opération.

Par défaut, les jours d'une semaine sont commencer compté le dimanche. Si vous voulez commencer à compter ces jours un autre jour, passer l'argument Option1 en utilisant une des constantes suivantes : vbSunday, vbMonday, vbTuesday, vbWednesday, vbThursday, vbFriday, vbSaturday. Il y a d'autres désaccords à cet argument.

Si votre calcul implique des semaines ou conclusion du nombre de semaines, par défaut, les semaines sont commencer compté le 1er janvier. Si vous voulez compter vos semaines commençant une date différente, employer l'argument Option2 pour indiquer où le programme devrait commencer.

Le Win32 api

 

Introduction

Sans compter que les bibliothèques utilisées dans le Microsoft Access, le logiciel d'exploitation de Microsoft Windows fournit sa propre bibliothèque des fonctions et des objets. Cette bibliothèque s'appelle Win32 l'interface de programmation d'application ou Win32 api, ou simplement Win32. La bibliothèque Win32 est de façon ou d'autre disponible aux applications mais ses fonctions ne sont pas directement disponibles pour une base de données.

La bibliothèque Win32 est faite de procédures, fonctions, et des classes (la plupart du temps structures) ces vous pouvez employer pour compléter un projet. Il y a tellement plusieurs de ces fonctions et objets qu'il est difficile de savoir les la plupart ou tous. La meilleure manière de devenir au courant de eux est de vérifier sa documentation. Pour faire ceci, vous pouvez visiter le site Web de MSDN. Les fonctions sont stockées dans diverses secondaire-bibliothèques appelées les bibliothèques de lien dynamiques (DLLs).

Employer Win32

Avant d'employer une fonction Win32 en votre code, vous devez d'abord avoir deux informations : le DLL dans lequel la fonction a été créée et le nom réel de la fonction désirée dans cette bibliothèque. Les exemples de DLLs sont shfolder ou Kernel32. Une fois que vous savez le nom de la bibliothèque et le nom de la fonction que vous voulez employer, vous devez l'importer en votre code de base visuel. La formule de base à suivre est :

Private Declare Function Win32FunctionName Lib "LibraryName"
	Alias "CustomName" (Arguments) As DataType

Le facteur de Win32FunctionName est le nom de la fonction dans la bibliothèque Win32. Le LibraryName est le nom de la bibliothèque. Vous pouvez créer un nom fait sur commande pour la fonction comme facteur de CustomName. Dans les parenthèses, vous pouvez écrire les noms et les types des arguments. Si le procédé renvoie une valeur, vous pouvez indiquer son type après comme mot-clé.

Étude pratiqueÉtude pratique : Employer le Win32 api

  1. Ouvrir le département de la base de données de disques et de statistiques que vous avez créée dans la première leçon 
  2. Dans la fenêtre de base de données, cliquer les formes boutonnent et double-cliquent le jeu rouleau-tambour
  3. Commuter la forme à la vue de conception
  4. Droit-cliquer le bouton de base de données de créer et cliquer l'événement de construction…
  5. Dans la zone de dialogue de constructeur de choix, cliquer le constructeur de code et cliquer BIEN
  6. Changer le dossier comme suit :
     
    Option Compare Database
    Option Explicit
    
    Private Const MAX_PATH = 260
    Private Const CSIDL_PERSONAL = &H5&
    Private Const SHGFP_TYPE_CURRENT = 0
    
    ' We will use the Windows API to get the path to My Documents
    Private Declare Function SHGetFolderPath Lib "shfolder" _
        Alias "SHGetFolderPathA" _
        (ByVal hwndOwner As Long, ByVal nFolder As Long, _
        ByVal hToken As Long, ByVal dwFlags As Long, _
        ByVal pszPath As String) As Long
    
    Private Sub cmdCreateDatabase_Click()
        Dim strMyDocuments As String
        Dim strDbName As String
        Dim valReturned As Long
        Dim dbMVD As DAO.Database
        
        ' Initialize the string
        strMyDocuments = String(MAX_PATH, 0)
        
        ' Call the Shell API function to get the path to My Documents
        ' and store it in the strMyDocuments folder
        valReturned = SHGetFolderPath(0, CSIDL_PERSONAL, _
                                      0, SHGFP_TYPE_CURRENT, strMyDocuments)
        ' "Trim" the string
        strMyDocuments = Left(strMyDocuments, InStr(1, strMyDocuments, Chr(0)) - 1)
        ' Include the name of the database in the path
        strDbName = strMyDocuments & "\Motor Vehicle Division.mdb"
        
        ' Create the database
        Set dbMVD = CreateDatabase(strDbName, dbLangGeneral)
    End Sub
  7. Revenir au Microsoft Access et commuter la forme à la vue de forme
  8. Cliquer le bouton de base de données de créer et commuter la forme à la vue de conception
  9. Ouvrir une ma fenêtre de documents et noter qu'une base de données appelée Division de véhicule à moteur a été créée
  10. Fermer le Microsoft Access

 


Précédent Copyright © Yevol, 2007 Suivant