[VBA - ms-access] code werkt niet

[Verwijderd]

Ik weet niet echt hoe ik het volgende probleem moet noemen maar hier komt ie:

Met de volgende code verplaats ik gegevens van de ene
tabel naar de andere. Van veld "Postcode + plaats BPV"
moeten alleen de eerste 7 tekens worden overgezet.

ik gebruik Access 97 waarin dit niet werkt. Hij geeft aan
dat een variabele niet gedefinieerd. Currentdatabase is
hierbij blauwgekleurd. Wie weet hoe ik de code goed kan
krijgen.

Dim strSQL As String

Dim rstTabel As Recordset
Set rstTabel = CurrentDatabase.AllTables![BPVpergroep]

Dim strPostcode As String
strPostcode = Left$(rstTabel![Postcode + plaats BPV], 7)


strSQL = "Insert INTO tblBedrijf ( Naam, Adres,
telefoonnummer, postcode ) Select BPVpergroep.[Volledige
naam praktijkpl# org#], BPVpergroep.[Adres + Nadere Aand#
BPV], BPVpergroep.[Telefoonnummer], strPostcode From
BPVpergroep"

Alvast bedankt voor de moeite

[Verwijderd]

Ik ken wel het CurrentDb object maar van het CurrentDatabase object heb ik nog nooit gehoord.

Doe er je voordeel mee!

[Verwijderd]

hmm.. inderdaad, al een hele vooruit gang. Alleen nu geeft hij aan dat hij de methode of het gegevenslid niet kan vinden (AllTables is blauwgekleurd)...

mist hij wat.. of is er wat anders

[volgens mij kent hij de functie Alltables ook helemaal niet]

[Gerco]

Op donderdag 13 juni 2002 12:28 schreef pooky het volgende:
[volgens mij kent hij de functie Alltables ook helemaal niet]

gokje: probeer eens Tables ipv AllTables.

[Verwijderd]

Helaas... hij geeft dezelfde foutmelding

[Sjnirk]

kijk es bij extra ofzoiets en daarna verwijzingen, of hij wel verwijzingen naar vba en dao heeft

[Verwijderd]

Probeer eens:

code:

Set rstTabel = CurrentDB.OpenRecordset("tblTabel")

[Verwijderd]

daarbij geeft hij aan dat het

"Het argument is niet optioneel"

[DaRace]

Set rstTabel = CurrentDB.OpenRecordset("tblTabel", dbopendynaset)

[Blizard]

Normaal is het type wel optioneel ?
Set recordset = object.OpenRecordset (bron, type, opties, bewerkingenvergrendelen)
< waarbij enkel de bron _verplicht_ is.
Plak anders ff de volledige code ..

[Verwijderd]

msdn.microsoft.com is wel geduldig...

[Verwijderd]

Private sub knop21_Click()

Dim strSQL As String

Dim rstTabel As Recordset
Set rstTabel = CurrentDb.weet ik veel![BPVpergroep]

Dim strPostcode As String
strPostcode = Left$(rstTabel![Postcode + plaats BPV], 7)



strSQL = "Insert INTO tblBedrijf ( Naam, Adres, telefoonnummer, postcode ) Select BPVpergroep.[Volledige naam praktijkpl# org#], BPVpergroep.[Adres + Nadere Aand# BPV], BPVpergroep.[Telefoonnummer], strPostcode From BPVpergroep"

End sub

BPVpergroep is een tabel die geimporteerd wordt. De gegevens hiervan moeten worden ingevoerd in tblBedrijf.
Het veld "Postcode + Plaats BPV" moet worden gesplitst en de eerste 7 tekens van dat veld moeten in het veld postcode van tblBedrijf komen te staan

[Verwijderd]

dat is vaag... bij

Set rstTabel = CurrentDB.OpenRecordset("tblTabel", dbopendynaset)

doet hij helemaal niets.. geen foutmelding maar ook voert hij niets uit

[farlane]

code:

INSERT INTO [...] ([...],[...],...) SELECT Left$([...],7) ,[...],... FROM [...];

[Verwijderd]

Aarghh.. ook hier gebeurt er niets,

hij doet 't gewoon niet. terwijl, als ik de left functie niet gebruik en ik het postcode veld weglaat alles wel wordt overgeschreven

[farlane]

Voor non-resultset returning queries:

code:

CurrentDB.Execute(strSQL)

Dit staat ook in je vriend MSDN ...

[Verwijderd]

Er wordt een functie of variable verwacht.. (Execute is blauw gekleurd)

[farlane]

Op donderdag 13 juni 2002 14:39 schreef pooky het volgende:
Er wordt een functie of variable verwacht.. (Execute is blauw gekleurd)

Nog een keer dan ....

code:

    Call CurrentDB.Execute(strSQL)

danwel ...

code:

    CurrentDB.Execute strSQL

De eerste heeft mijn voorkeur eigenlijk.

Verder moet je zorgen dat je references naar DAO(of ADO) goed staan. En kijk eens een keertje in de helpfile.

[Verwijderd]

Dank je wel voor je hulp. Mijn kennis van sql is nog erg laag. Ik kijk echt wel in de helpfiles en in tutorials, alleen weet ik niet altijd wat en waar ik precies moet zoeken. Het is een stageopdracht die bijna af is vandaar dat ik 'm hier erin gooi.

[farlane]

Op vrijdag 14 juni 2002 08:17 schreef pooky het volgende:
Dank je wel voor je hulp. Mijn kennis van sql is nog erg laag. Ik kijk echt wel in de helpfiles en in tutorials, alleen weet ik niet altijd wat en waar ik precies moet zoeken. Het is een stageopdracht die bijna af is vandaar dat ik 'm hier erin gooi.

Np. Is het inmiddels gelukt?

[Verwijderd]

Nope .... maar ik probeer eerst iets te doen met de dingen die jullie aangegeven hebben

[Verwijderd]

Nou.. inmiddels is het gelukt. Ik heb het gedaan aan de hand van een toevoegquery waarin ik de left functie gebruik.