Private Sub Cmd_Enregistrer_Click()
Dim GF
With [Tbl_Liste_Fleurs]
If ActiveSheet.Name <> .Parent.Name Then .Parent.Activate
' on vérifie l'existence de la fleur (Catégorie + Nom + Couleur + type bouton)
If Get_Fields(GF, _
" select * from " & Get_Table([Tbl_Liste_Fleurs]) & _
" where " & Sqleq("Catégorie", Me.Cbx_Catégorie) & _
" and " & Sqleq("Nom", Me.Cbx_Noms) & _
" and " & Sqleq("Couleur", Me.Cbx_Couleurs) & _
" and " & Sqleq("Type Bouton", Me.Cbx_TypBouton)) Then
' la fleur existe, on met à jour les champs secondaires (Fournisseur + Prix/Botte + Nbre Tige/Botte)
Update_Fields _
" Update " & Get_Table([Tbl_Liste_Fleurs]) & _
" Set `Fournisseurs`='" & Me.Cbx_Fournisseurs & "', " & _
" `Prix/Botte`='" & Me.Tbx_PrixBotte & "', " & _
" `Nom`='@" & Me.Cbx_Noms & "', " & _
" `Nbre Tige/Botte`='" & Me.Tbx_NbrTigeBot & "' " & _
" where " & Sqleq("Catégorie", Me.Cbx_Catégorie) & _
" and " & Sqleq("Nom", Me.Cbx_Noms) & _
" and " & Sqleq("Couleur", Me.Cbx_Couleurs) & _
" and " & Sqleq("Type Bouton", Me.Cbx_TypBouton)
[Tbl_Liste_Fleurs[Nom]].Find("@*", LookIn:=xlValues).Select
Selection = Mid(Selection, 2)
ActiveWindow.ScrollRow = Selection.Row
MsgBox ("Element modifié")
Else
' la fleur n'existe pas, on l'ajoute
.ListObject.ListRows.Add 1 ' ici on rajoute une ligne en haut du tableau
.Rows(0).Resize(, 7).Value = Array(Me.Cbx_Catégorie, _
Me.Cbx_Noms, _
Me.Cbx_Couleurs, _
Me.Cbx_TypBouton, _
"@" & Me.Cbx_Fournisseurs, _
CCur(Tbx_PrixBotte), _
CDbl(Me.Tbx_NbrTigeBot))
' CCur(Me.Tbx_PrixTige)) la cellule comporte déjà la formule de calcul via Ts
Trier_Fleurs
[Tbl_Liste_Fleurs[Fournisseurs]].Find("@*", LookIn:=xlValues).Select
Selection = Mid(Selection, 2)
ActiveWindow.ScrollRow = Selection.Row
MsgBox ("Nouvel élément Ajouté au Tableau")
End If
End With
End Sub
