Hallo allemaal,
Ik zit in office 2010 in acces te werken. Ik gebruik de code Dim as Database maar die komt niet voor. Als ik As intyp en verder ga geeft de VBA een aantal keuze nmaar geen Database? Hoe kan dat?
Verder zit ik het misschien wel verkeerd te doen.
In een formulier heb ik een keuzelijst met invoervak gemaakt. Hieraan is een tabel gekoppelt met artikel nummers. Ik kan dus snel een artikel kiezen. De artikelnummers zijn de eerste kolom. In de betreffende tabel is de 3e kolom het BTW percentage. Die wil ik opzoeken om zo verder op in het formulier een ander vakje te berekenen.
Dim DBase As Database
Dim Uitvoer As Recordset
Maar dat werkt dus niet. Wie wil me een tip geven?
Groet,
Bas
Ik zit in office 2010 in acces te werken. Ik gebruik de code Dim as Database maar die komt niet voor. Als ik As intyp en verder ga geeft de VBA een aantal keuze nmaar geen Database? Hoe kan dat?
Verder zit ik het misschien wel verkeerd te doen.
In een formulier heb ik een keuzelijst met invoervak gemaakt. Hieraan is een tabel gekoppelt met artikel nummers. Ik kan dus snel een artikel kiezen. De artikelnummers zijn de eerste kolom. In de betreffende tabel is de 3e kolom het BTW percentage. Die wil ik opzoeken om zo verder op in het formulier een ander vakje te berekenen.
Dim DBase As Database
Dim Uitvoer As Recordset
Code:
locatie = "H:\Minas\Kostprijs.mdb"
Set DBase = OpenDatabase(locatie)
Set Uitvoer = DBase.OpenRecordset("UitvoerGegevensKostprijs")
On Error GoTo Fout1
Uitvoer.MoveFirst
Do
If Not Uitvoer.EOF Then
If (Uitvoer.Fields("GRASCODE SPEC") = [GRASCODE SPEC].Value) Then
Exit Do
Else
Uitvoer.MoveNext
End If
Else
GoTo Fout1
End If
Loop
BTW = Uitvoer.Fields("BTWPerc")
Maar dat werkt dus niet. Wie wil me een tip geven?
Groet,
Bas