GESTION SIMPLE D'UNE BASE DE DONNÉES ACCESS EN ADO POUR DÉBUTANT

Commentaire de Zlub le 26/07/2005 03:49:35

C'est pas mal... déjà ça marche, y'a de bonnes idées et fonctionnalitées. Un peu léger en commentaires quoi que çareste clair... Coté interface, c'est propre (c'est comme un bon point)
Un autre bon point pour les Set xx = Nothing. Un bon point à nouveau, tes controles sont nommés proprement... et ça perso Z'aime beaucoup. Gestion des ereeurs On error, plutôt bien (voir On Error goto )

Bon now critique :

1) Identation: pourquoi vous alignez tous vos codes à gauche ... c'est pas lisible, faites des tabulations, des sauts de lignes ... sinon si on suit votre logique pourquoi ne pas tapper le code sur une ligne !! (bon ça c'est dit, mais t'es loin d'être la seule) Le pire c'est cmdrecherche_Click avec des If imbriqués ... qui appartient à qui ?

2) à la place de Dim tb1 As New ADODB.Recordset, tu devrais faire
Dim tb1 As ADODB.Recordset
Set tb1 = New ADODB.Recordset
faire deux choses à la fois déclarer et instancier c'est pas top. D'autant que tu ne peux pas tester si l'objet est bien instancier..

3) select case :
Select Case msg1
Case vbYes
Unload Me
Case vbNo
Cancel = 1
End Select

c'est un peu abusif, tu peux tout remplacer par un If (et pour te faire plaisir en une ligne)
If msg1 = vbNo Then Cancel = 1

voir même

If MsgBox("Voulez-vous vraiment fermer le carnet d'adresses ?", vbQuestion + vbYesNo)= vbNo Then Cancel = 1

4) Pour le confort, tu devrais mettre Tabstop à True pour tout les elements où tu veux donner acces avec TAB et définir TabIndex (permet de définir l'endroit où le focus doit aller lors d'un TAB. La valeur du Tabindex doit être unique.) Genre txtNom (tabindex = 0) txt txtprenom (tabindex = 1) ... Du coups une fois que tous est bien numéroté sur les KeyPress tu peux faire appel à Call Sub Next_tab(KeyAscii) au lieu de nommer explicitement les textbox + setfocus

Public Sub Next_tab(KeyAscii As Integer)
    If KeyAscii = vbKeyReturn Then
        SendKeys "{TAB}" ' simuler le TAB
        KeyAscii = 0 'supprimer le TAB lorsque le focus est arrivé
    End If
End Sub

5) Dim msg1, msg2 As String    
En public pourquoi faire ? autant définir là où tu en as vraiement besoin (unload et cmdrecherche_Click) ou au pire si tu veux laisser en l'état une seule variable suffit.

6) Tes tests à deux états tu peux les écrire plus simplement :
txtdep.Text = IIf( IsNull(tb![Département]) , "", tb![Département])
IIf( test, valeur_renvoyé_si_test_true,valeur_renvoyé_si_test_false)

J'aurais mis 6.5 mais bon va pour un 7/10 :)

voilà, j'espere que ça va t'aider ... Tu es en bonne voie, donc continues et bon dev

++

Zlub

Commentaire de doro81079 le 26/07/2005 11:10:00

salut zlub,
pas tres flatteur mais venant de toi je peux l'accepter sinon
pour
1-fainéantise(c'est pas bien je sais)
2 et 3- tu as raison mais je savais pas (débutante)
4- je n'ai pas mis tabstop a true pour que les textbox soit gérer par la touche entrer (je préfère)et les boutons par tab
5- pour éviter de les mettres dans chaques procédures(voir 1)
6- voir 2 et 3
et merci pour les appréciations et pour la note
et petite précision quand je dis derniere dans mon premier commentaire je parle des critiques gratuite et pas du post de zlub
voilà
salut doro

Commentaire de Zlub le 26/07/2005 18:26:12

Salut Doro

"Pas tres flatteur" si au contraire : d'une maniere générale j'ai pas le compliment facil, j'suis un peu trop critique :) Mais je ne pense pas critiquer pour "casser", j'espere que c'est au contraire constructif.... Pour un début c'est bien (hou là je me lâche)

Bon dev,

Zlub

Commentaire de doro81079 le 26/07/2005 19:39:10

salut
pour eps32hay je suis contente que ça puisse t'aider et je le rappelle je tiens ce code (la requete) de jeff

et pour zlub je sais que tu as la critique facile c'est pour cela que j'ai dit :
"mais venant de toi je peux l'accepter "
a+
doro

Commentaire de doro81079 le 26/07/2005 20:36:35

salut,
je prend note c'est mieux merci
a+
doro

Commentaire de infostr le 08/08/2005 23:10:40

Salut,

Je n'arrive pas à trouver la méthode par laquelle
je pourrai remplir le MSFlexGrid manuellement,  enregistrer et imprimer les pages sans apparition d'aucun objet sur mon imprimé.  

                                        infostr

Commentaire de ridaafi le 17/09/2005 16:50:18

merci

Commentaire de doro81079 le 22/09/2005 07:06:15

ben... de rien

salut
doro

Commentaire de doro81079 le 25/10/2005 20:44:40

bonsoir,

merci pour les appréciations et
j'avais penser à intercepter les données saisies
par l'utilisateur mais je n'ais pas encore pris le temps de le faire...(prochaine mise à jour)

et merci aux personnes qui ont mis une note

Salut
Doro

Commentaire de zogade le 14/03/2006 15:21:43

si je suprime tout les enregistrements le programme plante