Log in

No account? Create an account
Previous Entry Share Next Entry
Just so I don't forget this code..
Sub Tets()

  Dim db As Database
  Dim r As Recordset
  Set db = DBEngine.OpenDatabase("o:\ub0r.mdb")
  Set r = db.OpenRecordset("Reports", dbOpenDynaset)
  Dim i
  i = 1
  Do Until r.EOF
    Range("A" & i).Value = r!Version
    i = i + 1

End Sub

  • 1
You get paid for such trivia, then?

Note the name of my database.. everything at work is either ub0r, or l33t, or whatever :o)

And yes, I do get paid for it. That function is my test at accessing access databases without bothering to open access.. And it worked. So now I can build access backends, without having to train any of the users on how to use access.

In any case, it all saves more money for the company than I cost, so that'll do :o)

  • 1