D
David Whitaker
I have got a little problem with a combobox, when you select the combobox to
view the contents of a field, the field is listed as expected, but when you
keep the dropdown open(just keep you mouse over the top of the selection
without selecting anything), Access pops up an error, wanting to send the
error info to microsoft. It then tries to do a backup and repairs the
database without any errors, then reopens the program, but when you try it
again it does the same thing over and over.
The combobox's properties are as follows
no format set
column count 1
no column heads
bound cloumn 1
limit to list yes
row source of SELECT c1.item FROM c1;
row source type is set to table/query
there is no control souurce set for the combo
code as follows
Private Sub Combo75_AfterUpdate()
Me.Combo78 = Me.Combo99
If Me.Frame60 = 1 Then
Me.Filter = "stock = 'inventory' And dim = """ & Me.Combo75.Value &
""""
Me.FilterOn = True
Me.Text72.Value = "Total Cost Of Inventory"
Me.Requery
End If
If Me.Frame60 = 2 Then
Me.Filter = "stock = 'non-inventory' And dim = """ &
Me.Combo75.Value & """"
Me.FilterOn = True
Me.Text72.Value = "Total Cost Of Non-Inventory"
Me.Requery
End If
If Me.Frame60 = 3 Then
Me.Filter = "dim = """ & Me.Combo75.Value & """"
Me.FilterOn = True
Me.Text72.Value = "Total Combined Cost"
Me.Requery
End If
End Sub
Any ideals as to what is happening?
Thanks,
David
view the contents of a field, the field is listed as expected, but when you
keep the dropdown open(just keep you mouse over the top of the selection
without selecting anything), Access pops up an error, wanting to send the
error info to microsoft. It then tries to do a backup and repairs the
database without any errors, then reopens the program, but when you try it
again it does the same thing over and over.
The combobox's properties are as follows
no format set
column count 1
no column heads
bound cloumn 1
limit to list yes
row source of SELECT c1.item FROM c1;
row source type is set to table/query
there is no control souurce set for the combo
code as follows
Private Sub Combo75_AfterUpdate()
Me.Combo78 = Me.Combo99
If Me.Frame60 = 1 Then
Me.Filter = "stock = 'inventory' And dim = """ & Me.Combo75.Value &
""""
Me.FilterOn = True
Me.Text72.Value = "Total Cost Of Inventory"
Me.Requery
End If
If Me.Frame60 = 2 Then
Me.Filter = "stock = 'non-inventory' And dim = """ &
Me.Combo75.Value & """"
Me.FilterOn = True
Me.Text72.Value = "Total Cost Of Non-Inventory"
Me.Requery
End If
If Me.Frame60 = 3 Then
Me.Filter = "dim = """ & Me.Combo75.Value & """"
Me.FilterOn = True
Me.Text72.Value = "Total Combined Cost"
Me.Requery
End If
End Sub
Any ideals as to what is happening?
Thanks,
David