CurrentDb

[Stemdriller]

Hi all

I have created some code that creates a temp table in a db then deletes when required. This works fine on my local PC.

But I want to be able to specifiy a db on the network for the temp tables but as soon as I try the code just errors.

I am new to recordsets so it maybe something glaring obvious

I have attached the code.

Any help would be appreciated.

Dim DateFrom As Date
Dim DateTo As Date
Dim NoDays As Integer
Dim tmpDate As Date
Dim db As DAO.Database
Dim tdfNew As DAO.TableDef
Dim rst As Recordset


On Error Resume Next

DateFrom = Forms!frmAddPermit!DatePermitValidFrom
DateTo = Forms!frmAddPermit!DatePermitValidTo

NoDays = DateDiff("d", DateFrom, DateTo) + 1

tmpDate = DateFrom

Set db = CurrentDb 'Needs to be T:\Database Folder\Work Permit\2011 Edition\Back End\TempWPDatabase.accdb"

db.TableDefs.Delete "MyTempTable"
On Error GoTo 0

Set tdfNew = db.CreateTableDef("MyTempTable")
With tdfNew
.Fields.Append .CreateField("Date1", dbDate)
End With
db.TableDefs.Append tdfNew
Set rst = db.OpenRecordset("MyTempTable")

For x = 1 To NoDays
tmpDate = DateAdd("d", 1, tmpDate)
With rst
.AddNew
![Date1] = tmpDate
.Update
End With

Next x

rst.Close
db.Close
End Sub

Thanks

Gareth

 

[thechazm]

Try this.

Set db = OpenDatabase("T:\Database Folder\Work Permit\2011 Edition\Back End\TempWPDatabase.accdb", False, False)

 

[Stemdriller]

Thanks, work perfectly

Gareth