Public listX As Integer
Private Sub cmdback_Click(Index As Integer)
If listX = 0 Then
MsgBox "Well, there is no more ingredient in the list!", vbOKOnly
Else
listX = listX - 1
Listing.Enabled = True
Listing.RemoveItem (listX)
End If
End Sub
Private Sub cmdGo_Click(Index As Integer)
Listing.Enabled = True
Listing.List(listX) = dataIngdts.Text
listX = listX + 1
End Sub
Private Sub combomenu_Click()
Dim data As ADODB.Recordset
Set data = New ADODB.Recordset
If DataEnvironment1.Connection1.State = adstateclose Then
DataEnvironment1.Connection1.Open
End If
If combomenu.Text = "Chicken Salad" Then
data.Open "SELECT tblmadewith.quantity,tblmadewith.unit, tblingredients.name FROM tblmadewith,tblingredients WHERE tblmadewith.itemid = 'CHKSD' and tblingredients.ingredientid = tblmadewith.ingredientid;", DataEnvironment1.Connection1, adOpenDynamic, adLockOptimistic
Set dataIngdts.DataSource = data
ElseIf combomenu.Text = "Chicken N Suds" Then
data.Open "SELECT tblmadewith.quantity,tblmadewith.unit, tblingredients.name FROM tblmadewith,tblingredients WHERE tblmadewith.itemid = 'CKSDS' and tblingredients.ingredientid = tblmadewith.ingredientid;", DataEnvironment1.Connection1, adOpenDynamic, adLockOptimistic
Set dataIngdts.DataSource = data
ElseIf combomenu.Text = "Fruit Plate" Then
data.Open "SELECT tblmadewith.quantity,tblmadewith.unit, tblingredients.name FROM tblmadewith,tblingredients WHERE tblmadewith.itemid = 'FRPLT' and tblingredients.ingredientid = tblmadewith.ingredientid;", DataEnvironment1.Connection1, adOpenDynamic, adLockOptimistic
Set dataIngdts.DataSource = data
ElseIf combomenu.Text = "Fruit Salad" Then
data.Open "SELECT tblmadewith.quantity,tblmadewith.unit, tblingredients.name FROM tblmadewith,tblingredients WHERE tblmadewith.itemid = 'FRTSD' and tblingredients.ingredientid = tblmadewith.ingredientid;", DataEnvironment1.Connection1, adOpenDynamic, adLockOptimistic
Set dataIngdts.DataSource = data
ElseIf combomenu.Text = "Garden Salad" Then
data.Open "SELECT tblmadewith.quantity,tblmadewith.unit, tblingredients.name FROM tblmadewith,tblingredients WHERE tblmadewith.itemid = 'GDNSD' and tblingredients.ingredientid = tblmadewith.ingredientid;", DataEnvironment1.Connection1, adOpenDynamic, adLockOptimistic
Set dataIngdts.DataSource = data
ElseIf combomenu.Text = "Millenium Salad" Then
data.Open "SELECT tblmadewith.quantity,tblmadewith.unit, tblingredients.name FROM tblmadewith,tblingredients WHERE tblmadewith.itemid = 'MILSD' and tblingredients.ingredientid = tblmadewith.ingredientid;", DataEnvironment1.Connection1, adOpenDynamic, adLockOptimistic
Set dataIngdts.DataSource = data
ElseIf combomenu.Text = "Soda" Then
data.Open "SELECT tblmadewith.quantity,tblmadewith.unit, tblingredients.name FROM tblmadewith,tblingredients WHERE tblmadewith.itemid = 'SODA' and tblingredients.ingredientid = tblmadewith.ingredientid;", DataEnvironment1.Connection1, adOpenDynamic, adLockOptimistic
Set dataIngdts.DataSource = data
ElseIf combomenu.Text = "Vegan Eatin'" Then
data.Open "SELECT tblmadewith.quantity,tblmadewith.unit, tblingredients.name FROM tblmadewith,tblingredients WHERE tblmadewith.itemid = 'VGNET' and tblingredients.ingredientid = tblmadewith.ingredientid;", DataEnvironment1.Connection1, adOpenDynamic, adLockOptimistic
Set dataIngdts.DataSource = data
ElseIf combomenu.Text = "Water" Then
data.Open "SELECT tblmadewith.quantity,tblmadewith.unit, tblingredients.name FROM tblmadewith,tblingredients WHERE tblmadewith.itemid = 'WATER' and tblingredients.ingredientid = tblmadewith.ingredientid;", DataEnvironment1.Connection1, adOpenDynamic, adLockOptimistic
Set dataIngdts.DataSource = data
End If
End Sub
