SQL Statement - Requery

[Mechele]

Private Sub NameofCompany_AfterUpdate()
Dim StrSQL As String
Dim QDF As QueryDef
Dim CurrentDB As Database

StrSQL = "SELECT * FROM GeneralInformationTable;"
Me.List1.RowSource = StrSQL
Me.List1.Requery

Set QDF = CurrentDB.QueryDefs(TempQuery)
QDF.SQL = StrSQL
QDF.Close
End Sub

The above code is giving me an error message:

Run Time 91

Object variable or with block variable not set.

What am I doing wrong? :O(

 

[ritchieroo]

No need to declare CurrentDB, try commenting out this line

Dim CurrentDB As Database

 

[simongallop]

CurrentDB is a reserved word in VBA. Also think that it will fall at Set QDF = CurrentDB.QueryDefs(TempQuery). If TempQuery exists then it should be in double quotes ie ...("TempQuery"). If TempQuery does not exist then you will need to create it. Look at the CreateQueryDef in help

HTH