informer

Généralement une erreur arrête l'exécution du code et j'ai donc ce modèle

Code vba :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
public function myFunction ()
 
 On Error GoTo Err_
     ... Code
 
Exit_:
 
Exit function
 
Err_:
 
    sMsg = Err.Number & char(13) & Err.Description
    Goto Exit_
 
End function

Quand je clos/quite/ libére des objets après Exit_: naïf que je suis, je pensais que la ...

Bonjour à tous,

La syntaxe proposée par l'aide en ligne MS est :

Switch(expr-1, value-1, [ expr-2, value-2..., [ expr-n, value-n ]])

Switch renvoie une valeur Null dans le cas suivants :

• Aucune expression n’a la valeur True.
• La première expression ayant une valeur True a une valeur correspondante Null

Mais rien d'explicite sur comment avoir l'équivalent de ELSE

Très simple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SELECT Switch(..., True, 'ValueByDefault'

...

Tout a commencé par une banale connexion à une base SQL SERVER pour faire des requêtes. J'avais donc déclaré une chaîne de connexion comme suit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Public Const ADODB_STRINGCNX = "Driver={SQL Server};SERVER=LeServer;DATABASE=LaBDD;Trusted_Connection=Yes;"

Ensuite j'ai créé une fonction pour lier les tables SQL Server avec bien sûr la commande DoCmd.TransferDatabase et toujours la même chaîne de connexion ADODB_STRINGCNX. Et c'est là que mon désarroi ...

Je partage

Pré-requis:

• Le répertoire source (vRepSource) contenant les fichiers Zip est sélectionné via une boite de dialogue (Application.FileDialog(msoFileDialogFolderPicker)
• Le répertoire cible dans lequel sont décompressés les fichiers Zip (vRepCible) écrit en dur
• Le niveau d'arborescence provoque un décalage de colonne
• Les données sont ensuite copiées dans un autre fichier pour les afficher dans un treeView
• Le traitement est lancé sur l'événement click

...

Objectif

J'ai un formulaire avec X boutons qui tous appellent la même fonction sous l’événement

• OnClick -> la fonction appelée a comme paramètre le nom du bouton

Je veux éviter la déclaration de l'événements Click pour chaque bouton

Contexte

Table
TableInfos

Formulaire

• 2 formulaires
  
  • frmXA

...