addition dans une bdd et gestion des erreurs

Question

bonjour



voila, je fais une appli de gestion d'un restaurant, li&#233;e &#224; une base access en dao. 

J'ai deux pb. je n'arrive pas &#224; calculer l'addition : je mets dans mon
controle data ma requete pour faire la somme de mes champs prix, sur un
crit&#232;re where, mais il ne me la prend pas. j'ai tellemnt chercher quee
je ne sais plus quoi faire, alors je vous mets mon coed, si vous savez,
pourriez vous m'&#233;crire le bon code?



private sub dataplat_addition_reposition()

me.dataplat_addition.caption = dataplat_addition.recordset.absoluteposition + 1

end sub



private sub form_activate()

with me.dataplat_addition

.recordsource="select sum(prix) as somme from plat_table where id_table=" & idtable&";"

;refresh

end with

endsub



d'autre part, quand j'ai des erreurs li&#233;es &#224; ma base de donn&#233;es, par
exemple, l'utilisateur clique sur un enregistrement, mais il n'y a pas
d'enregistrement connexe, ca maet une message d'erreur. mais le message
d'erreur arrive &#224; des moments que je ne sais pas d&#233;terminer. voyez vous
ou je pourrais savoir ou mettre mon message d'erreur? 



merci de votre aide

VBFranceBlub · Answer

Salut;


Essayes:


private sub form_activate()


    dataplat_addition.recordsource="select sum(prix) as somme from plat_table where id_table=" & idtable
    dataplat_addition.refresh


end sub

Perso, sous ma version de Vb, je dois faire comme &#231;a plut&#244;t:

private sub form_activate()
    Set dataplat_addition.recordset=OpenRecordset("select sum(prix) as somme from plat_table where id_table=" & idtable, dbOpenDynaset)
    dataplat_addition.refresh
end sub


Pour la gestion des erreurs, cherche dans les &#233;v&#232;nements de ton controle data, en g&#233;n&#233;ral, les erreurs se d&#233;clarent sur le Reposition ou le Validate.

<-Blub->

Tuning Max · Answer

Salut, pour ma part, je passe souvent par un recordset pour ce genre d'op&#233;ration, je trouve cela plus pratique

Dim sql As String, db As Database, rcd As Recordset
' L&#224; tu &#233;crit ta requ&#234;te SQL
sql =  " SELECT Sum(plat_table.prix) as Somme FROM plat_table WHERE ((plat_table.id_table)= '" & idtable & "'); "
' L&#224; tu ouvre le recordset en question
Set db = CurrentDb
Set rcd = db.OpenRecordset(sql)
' Enfin tu affecte la valeur de ton recordset        
With Me.dataplat_addition
                        .Value = rcd.Fields("Somme").Value
End With
' Et tu referme le tout
rcd.Close
Set db = Nothing
Set rcd = Nothing

Pour la gestion des erreurs, si j'ai bien compris tu souhaite changer le message d'erreur affich&#233; aux utilisateurs pour un type d'erreur pr&#233;cis.
Je pense que le plus simple est encore de mettre " On Error GoTo  " au debut de ton code pour intercepter les erreurs lorsqu'elles se produisent. enfin tu met en fin de code ton ettiquette de gestion d'erreurs

un truc du genre :

private sub form_activate()
On Error GoTo Err_form_activate

' *** Tu met tout le code que tu veut

Err_form_activate :

erreur:
    If err.Number  = "Tu met l&#224; le num&#233;ro de ton erreur" Then
    MsgBox "Ca ne marche pas !"
    Resume Next
    Else
    MsgBox err.Description
    Exit Sub
    
End Sub

Voil&#224; j'esp&#232;re que cela pourra t'aider un peu

titilechat001 · Answer

merci &#224; tous les deux



mais concernant la gestion des erreurs, le pb, c'est qu'elles
apparaissent quand l'enregistrement requis dans la table n'existe pas.
et ca, je ne sais pas le pr&#233;voir. est ce que vous savez sur quel
&#233;v&#233;nement je dois faire intervenir le code de gestion d'erreur de
tuning max??



merci beaucoup

Tuning Max · Answer

comme je te l'ai indiqu&#233;, tu met au debut de ton code un "On Error GoTo" pour intercepter toute les erreurs pendant l'execution du code

private sub form_activate()
On Error GoTo Err_form_activate

' *** Tu met tout le code que tu veut

Err_form_activate :

    If err.Number = "Tu met l&#224; le num&#233;ro de ton erreur" Then
    MsgBox "L'enregistrement sp&#233;cifi&#233; n'existe plus !"
    Resume Next
    Else
    MsgBox err.Number & err.Description
    Exit Sub
    
End Sub

il faut que tu fasse un test en condition pour r&#233;cup&#233;rer le num&#233;ro de cette erreur. Je ne connais malheuresement tout les codes erreurs par coeur

titilechat001 · Answer

merci, je vais essayer de ce pas. J'ai un autre pb sur une boucle, peux tu me dire ce qui ne fonctionne pas, si tu vois : 





Private Sub Form_Activate()

's&#233;lection de l'addition correspondant &#224; la table en cours

Dim id As Integer

Dim compteur As Integer

Dim add As Integer

id = 0

compteur = 0

add = 0



Do

Me.DataGrid1add.Row = compteur

Me.DataGrid1add.Col = 0

id = Val(Me.DataGrid1add.Text)

    If (id = idtable) Then

        Me.DataGrid1add.Row = compteur

        Me.DataGrid1add.Col = 1

        add = Val(Me.DataGrid1add.Text)

        Me.lbltotalht.Caption = add 'a  ffiche l'addition ht

        Me.lbltotalttc.Caption = (add * 0.196) + add

        Exit Do

    End If

compteur = compteur + 1

Loop Until Me.DataGrid1add.Row = -1

End Sub

dans un datagrid, j'essaye de balayer toutes les premi&#232;res cellules jusqu'&#224; la fin du datagrid, 

je compare ma premi&#232;re cellule (id) &#224; idtable, ma variable

je met ensuite dans lbltotalht.Caption le r&#233;sultat de la cellule deux de cette ligne



&#224; l'&#233;x&#233;cution, ca plante des fois en me mettant "en surcapacit&#233; &#224; la ligne  compteur = compteur + 1





merci si tu peux m'aider

Tuning Max · Answer

D&#233;sol&#233;, mais je ne comprend pas trop ce que tu cherche &#224; faire. Pourrait tu &#234;tre plus explicite

titilechat001 · Answer

en fait, je voudrais parcourir toutes les cellules de la premi&#232;re colonne de mon datadrid1add et les comparer &#224; idtable.

quand j'ai ma cellule =idtable, prendre la cellule de la colonne 2 correspondante et la mettre dans ma variable add



est ce que tu y vois plus clair?

Tuning Max · Answer

Je pense avoir compris. Voil&#224; ton code modifi&#233;.
test le car je viens de l'&#233;crire et comme on est vendredi soir, je suis d&#233;sol&#233; mais je n'ai pas le temps de le tester. De toute mani&#232;re, c'est l'id&#233;e que tu doit suivre &#224; mon avis pour ce test.
J'esp&#232;re que j'aurais put aider et bon week-end  

Private Sub Form_Activate()
's&#233;lection de l'addition correspondant &#224; la table en cours
Dim i As Integer
Dim Total As Double


    Total = 0
' cr&#233;er une boucle le nombre total de lignes fixes au sein du contr&#244;le en partant de la fin
    For i = DataGrid1add.FixedRows To DataGrid1add.Rows - 1
        If Trim(DataGrid1add.TextArray(DataGrid1add, i, 1)) = idtable Then ' test la valeur de la cellule de la ligne i et colonne 1
            Total = Total + (Val(DataGrid1add.TextArray(DataGrid1add, i, 2))) ' calcul de la somme des valeurs trouv&#233;es
        End If
    Next i
        Me.lbltotalht.Caption = Total ' Affiche la valeur calcul&#233; ci-dessus
        Me.lbltotalttc.Caption = (Total * 0.196) + Total ' Affiche et re-calcul la valeur de Total * 0.196
End Sub

Addition dans une bdd et gestion des erreurs

8 réponses

Discussions similaires