<meta http-equiv= "Content-Type" content="text/html;charset=UTF-8" /><title>support</title><caption> support </caption>----
nom |----
baquet en plastique, ----
cornet, ----
gaufrette, ----
panier en biscuit, <tfoot></tfoot>
Tous les supports sauf la gaufrette peut accueillir de la crème fraiche :
<meta http-equiv ="Content-Type" content= "text/html;charset=UTF-8" /><title>support</title><caption> support </caption>----
id |nom |nappage_possible |creme_fraiche_possible |----
1, baquet en plastique, -1, 0, ----
2, cornet, 0, -1, ----
3, gaufrette, 0, 0, ----
4, panier en biscuit, -1, -1, <tfoot></tfoot>
Je remplis donc la combobox suppléments pour ceux qui peuvent accueillir la crème fraiche et les autres ingrédients :
Private Sub supplements() sql "SELECT id, nom, creme_fraiche_possible FROM support WHERE ID " & comboTypeSupport.ItemData(comboTypeSupport.ListIndex)
Set rsTable = BDOuvrirTable(sql, True)
If rsTable(2) = True Then
sql = "SELECT id, nom FROM supplement ORDER BY nom asc"
BDRemplirListe sql, listSupplement
Else
listSupplement.Clear
End If
End Sub
Public Sub BDRemplirListe(ByVal sql As String, ByRef Liste As Control, Optional plus As Boolean = False)
Dim rsTable As Recordset
If (TypeOf Liste Is ListBox) Or (TypeOf Liste Is ComboBox) Then
Set rsTable = BD.OpenRecordset(sql, dbOpenSnapshot)
Liste.Clear
While Not rsTable.EOF
Liste.AddItem rsTable(1)
Liste.ItemData(Liste.NewIndex) = rsTable(0)
rsTable.MoveNext
Wend
rsTable.MoveFirst
End If
End Sub
Mais comment faire pour le support qui n'accepte pas de crème fraiche ?
Voici la table qui contient les suppléments (au cas où ça peut aider) :
Salut,
Attention dans tes tables il semblerai que baquetteplastique ne puisse pas recevoir de la creme fraiche aussi!
sur un test de condition
si cremefraichepossible=-1 alors
Nappagecremefraiche
sinon
NoNappageCremeFraiche
fin si
En esperant que ca te mette sur la voie...
En tout cas moi tu m'a donné faim! De a crème fraiche, du nappage, des gaufrettes... Hummmm.....
