Hi I am trying to build a program and have a small problem. The main problem
is that my program is Too slow. is there a better way to do this ? I am
using an MS Access Database with one table.
Thanks for any help:
Here is the code.
Private Sub Command1_Click()
Dim strSQL As String

strSQL = "SELECT Vender,PartNumber,FGNumber FROM cross_references " & _
"WHERE (PartNumber = """ & Text1 & """);"

Me.Data1.RecordSource = strSQL
Me.Data1.Refresh
MSFlexGrid1.ColWidth(0) = 1575
MSFlexGrid1.ColWidth(1) = 1575
MSFlexGrid1.ColWidth(2) = 960
Call Command2_Click
End Sub

Private Sub Command2_Click()
strSQL = "SELECT Vender,PartNumber,FGNumber FROM cross_references " & _
"WHERE (FGNumber = """ & Text2 & """);"
Me.Data1.RecordSource = strSQL
Me.Data1.Refresh
MSFlexGrid1.ColWidth(0) = 1575
MSFlexGrid1.ColWidth(1) = 1575
MSFlexGrid1.ColWidth(2) = 960
End Sub