5/5 (14 avis)
Snippet vu 11 814 fois - Téléchargée 38 fois
Private Sub flex_KeyDown(KeyCode As Integer, Shift As Integer) If flex.Text <> "" Then Select Case KeyCode Case 8 'backspace flex.Text = Left(flex.Text, (Len(flex.Text) - 1)) Case 46 'suppr flex.Text = "" End Select End If End Sub Private Sub flex_KeyPress(KeyAscii As Integer) If KeyAscii > 28 Then 'av cette condition on peut restreindre les entrées utilisateurs en autorisant seulement les chiffres par ex. la on interdit juste les caracteres non gérés par windows flex.Text = flex.Text & Chr(KeyAscii) End If End Sub
6 déc. 2005 à 10:54
en tous cas il est très claire, très facile à utiliser, il m'a aidé dans mon projet. Bon travail, et bon courage
10/10
12 juil. 2005 à 11:23
15 févr. 2003 à 19:02
14 févr. 2003 à 00:14
Puisque tu te proposes ..
Combien tu prends pour faire les codes suivant : ?
1er code :
Avec une base access 2000, je veux pouvoir imprimer
soit un contact, (une ligne ) soit tous les contacts, ( toutes les lignes )en selectionnant dans une liste deroulante ( combo ), le numero du contact ou tous les numeros contacts ou le nom ou tous les noms.
Impression avec l'imprimante par defaut.
2eme code :
Faire une recherche dans la base access 2000 d' un contact par son numero de contact ou par le nom d' un contact, et afficher le resultat de la recherche dans un datagrid.
3eme code :
exporter un contact avec un choix deroulant de : soit un format Word soit en Excel soit en Txt windows soit en PDF.
6 févr. 2003 à 10:18
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.