T
Tom Olsen
ALL,
We have created a restricted folder on a Novell server
giving the users read only rights. The reports created
using VBA modifing the Querydef Crash the app (Access
2000). I understood that the querydef was modifyied in
memory. Why would it Crash the application it shouldn't be
writing to the directory. We also tested it on a NT server
and it crashed as well..
The code is below
All Responses Appreciated
Tom
DoCmd.Close
acQuery, "RPT_Contract_ActiveContract_ActiveAmendment_Enter
BIO"
Dim db As DAO.Database
Dim qdf As DAO.QueryDef
Dim Varitem As Variant
Dim strcriteria As String
Dim strsql_orig As String
Dim strsql As String
Set db = CurrentDb()
Set qdf = db.QueryDefs("qrymultiselect")
strsql_orig = qdf.SQL
strsql = Left(strsql_orig, Len(strsql_orig) - 1)
For Each Varitem In Me!List1.ItemsSelected
If Len(strcriteria) <> 0 Then
strcriteria = strcriteria & "," & Chr(34) & _
Me!List1.ItemData(Varitem) & Chr(34)
Else
strcriteria = Chr(34) & Me!List1.ItemData(Varitem)
& Chr(34)
End If
Next Varitem
strsql = "select * from bios " & _
"where Bio in(" & strcriteria & ");"
If Len(strcriteria) = 0 Then
GoTo lastline
Else
qdf.SQL = strsql
DoCmd.OpenReport "RPT_Contract_ActiveContract_ActiveAmendme
nt_EnterBIO", acViewPreview
' Forms!form1!List1 = " "
Forms!form3!Form1!List1 = " "
End If
qdf.SQL = strsql_orig
lastline:
End Sub
We have created a restricted folder on a Novell server
giving the users read only rights. The reports created
using VBA modifing the Querydef Crash the app (Access
2000). I understood that the querydef was modifyied in
memory. Why would it Crash the application it shouldn't be
writing to the directory. We also tested it on a NT server
and it crashed as well..
The code is below
All Responses Appreciated
Tom
DoCmd.Close
acQuery, "RPT_Contract_ActiveContract_ActiveAmendment_Enter
BIO"
Dim db As DAO.Database
Dim qdf As DAO.QueryDef
Dim Varitem As Variant
Dim strcriteria As String
Dim strsql_orig As String
Dim strsql As String
Set db = CurrentDb()
Set qdf = db.QueryDefs("qrymultiselect")
strsql_orig = qdf.SQL
strsql = Left(strsql_orig, Len(strsql_orig) - 1)
For Each Varitem In Me!List1.ItemsSelected
If Len(strcriteria) <> 0 Then
strcriteria = strcriteria & "," & Chr(34) & _
Me!List1.ItemData(Varitem) & Chr(34)
Else
strcriteria = Chr(34) & Me!List1.ItemData(Varitem)
& Chr(34)
End If
Next Varitem
strsql = "select * from bios " & _
"where Bio in(" & strcriteria & ");"
If Len(strcriteria) = 0 Then
GoTo lastline
Else
qdf.SQL = strsql
DoCmd.OpenReport "RPT_Contract_ActiveContract_ActiveAmendme
nt_EnterBIO", acViewPreview
' Forms!form1!List1 = " "
Forms!form3!Form1!List1 = " "
End If
qdf.SQL = strsql_orig
lastline:
End Sub