Hi,
I have created a module, where based on various selections (form), the output is thrown in the table for editing various fields. This works fine with single user. But once I have placed the same database on the share drive for multiple users, the users are unable see the data in the text filters. I don't know what is the issue all about. Also if i use me.requery, the text filters becomes blank. Below is the code :
Further I have a command button which runs the query with the below code in the query :
Field : SelRec([Date],[ATMID],[City],[Depots],[Vendor])
Criteria : [Forms]![Find]![frmOptions]
Can anybody help me out.
Thanks in Advance.
I have created a module, where based on various selections (form), the output is thrown in the table for editing various fields. This works fine with single user. But once I have placed the same database on the share drive for multiple users, the users are unable see the data in the text filters. I don't know what is the issue all about. Also if i use me.requery, the text filters becomes blank. Below is the code :
Code:
Option Compare Database
Option Explicit
Public Function SelRec(shDate As Date, ATMID As String, City As String, Depots As String, Vendor As String) As Boolean
SelRec = False
If Not IsNull([Forms]![Find]![Start]) Then
If shDate < [Forms]![Find]![Start] Then Exit Function
End If
If Not IsNull([Forms]![Find]![End]) Then
If shDate > [Forms]![Find]![End] Then Exit Function
End If
If Not IsNull([Forms]![Find]![ID]) Then
If ATMID <> [Forms]![Find]![ID] Then Exit Function
End If
If Not IsNull([Forms]![Find]![Citycombo]) Then
If City <> [Forms]![Find]![Citycombo] Then Exit Function
End If
If Not IsNull([Forms]![Find]![Depotscombo]) Then
If Depots <> [Forms]![Find]![Depotscombo] Then Exit Function
End If
If Not IsNull([Forms]![Find]![vendorcombo]) Then
If Vendor <> [Forms]![Find]![vendorcombo] Then Exit Function
End If
SelRec = True
End Function
Further I have a command button which runs the query with the below code in the query :
Field : SelRec([Date],[ATMID],[City],[Depots],[Vendor])
Criteria : [Forms]![Find]![frmOptions]
Can anybody help me out.
Thanks in Advance.