[VB] vba VS vb

[Verwijderd]

Ik ben met Visual basic bezig en VBA, VB is uitgebreider ... ik heb nu een VB code die werkt en wil hem in VBA voegen. Alleen dan heb je weer andere codes nodig ... Ik heb al heel lang gezohct maar weet het antwoord niet. Weet iemand misschien hoe ik deze code hieronder goed werkend krijg in VBA?

Dim dbs As DAO.Database
Dim rstTable As DAO.Recordset
Dim rstQuery As DAO.Recordset
Dim strFilePath As String
Dim strWachtwoord As String

strFilePath = "C:\Documents and Settings\" & _
"\Informatica\gebruikers.mdb"

Set dbs = OpenDatabase(strFilePath)
Set rstTable = dbs.OpenRecordset("GEBRUIKERS")
strWachtwoord = "SELECT WACHTWOORD FROM GEBRUIKERS" & _
"WHERE GEBRUIKERSNAAM = '" + txtgebruikersnaam.Text + "'"

Set rstQuery = dbs.OpenRecordset(strWachtwoord)
If txtwachtwoord.Text = rstQuery Then
UserForm1.Show
Unload UserForm2

Else

Unload UserForm2
Unload UserForm1

End If

End Sub


Het gaat dan vooral om de declaraties zoals:

Dim dbs As DAO.Database
Dim rstTable As DAO.Recordset
Dim rstQuery As DAO.Recordset

Deze laatste 3 heb ik problemen mee, hopelijk iemand die weet hoe ik ze juist kan declareren in VBA.

Ik moet het in VBA doen om een of andere reden, het liefst had ik natuurlijk maarja .. het moet VBA!

[Gerco]

Op vrijdag 12 april 2002 22:57 schreef j3nz het volgende:
Het gaat dan vooral om de declaraties zoals:

Dim dbs As DAO.Database
Dim rstTable As DAO.Recordset
Dim rstQuery As DAO.Recordset

Hiervoor moet je een reference zetten naar de bijhorende libraries, in dit geval naar de Microsoft DAO Object Library". Ergens in een menu kun je dat doen bij "References...".

[Verwijderd]

OK, maar in VB werkt deze code prima.

Volgens jou moet ik dus ook ff in VBA een reference plaatsen? Ik zal ff kijken.

//edit

Volgens mij gaat het gewoon erom dat hij op de juist manier wordt gedeclareerd. Dus zoals het in VB klopt als je dit declareert met DAO.Recordset meot je het hier anders declareren met iets van .Recordset ofzo ..

[Lister]

Zoals Gerco al zei, je moet die reference zetten.
En in jouw VB project moet ook een reference naar die library hebben staan anders zou die code ook niet werken.
Kijk maar eens bij de references van het VB project.

[Verwijderd]

waar vind ik die referentie dan in VBA in word? kan hem echt niet vinden hier

[Lister]

In de Visual Basic editor via Tools->References en dan de Microsoft DAO v3.51 Object Library aanvinken.

Het versienummer is afhankelijk van welke Access versie is geinstalleerd. Access of de MDAC moet natuurlijk wel geinstalleerd zijn anders kan je ze niet gebruiken.