Access probleempje

Pagina: 1
Acties:

  • compubink
  • Registratie: September 2000
  • Laatst online: 15-09 23:04

compubink

...====...

Topicstarter
Hallo,

Ik probeer het volgende te maken:

Ik wil een form hebben waar je twee invoervelden hebt. Deze velden worden opgeslagen in de variabelen: invoernaam en invoerpass. Voor deze variabelen moet worden gekeken of ze kloppen met gegevens in de database.

Ik heb een tabel genaamd klant, waarin zich de volgende velden bevinden: klantnaam en klantpass. Klantnaam is een uniek veld en tevens de sleutel.

Hoe is dit te maken?

Verwijderd

Beginning Access 2000 VBA (with CD-ROM)
by David Sussman, Robert Smith

  • jelmervos
  • Registratie: Oktober 2000
  • Niet online

jelmervos

Simple user

Op dinsdag 04 december 2001 09:42 schreef KingGeorge het volgende:
Beginning Access 2000 VBA (with CD-ROM)
by David Sussman, Robert Smith
Hehe, idd.

Probeer eerst es wat, loop je tegen een probleem aan, vraag deze hier dan.

"The shell stopped unexpectedly and Explorer.exe was restarted."


  • Crazy D
  • Registratie: Augustus 2000
  • Laatst online: 19:13

Crazy D

I think we should take a look.

Door eerst een tutorialtje door te werken?

1. leer hoe je de tekstboxjes kan uitlezen als er op een knop wordt gedrukt
2. leer hoe je een database queriet
3. zie 2, maar dan met variabele invoer
4. combineer eerdere punten

En kom dan terug als je op 1 specifiek punt er niet uitkomt.

(en eigenlijk 0. probeer een duidelijke titel te geven. Access probleempje is net zo veel zeggend als "het werkt niet"

Success :)

Exact expert nodig?


  • compubink
  • Registratie: September 2000
  • Laatst online: 15-09 23:04

compubink

...====...

Topicstarter
1. leer hoe je de tekstboxjes kan uitlezen als er op een knop wordt gedrukt

Lukt

2. leer hoe je een database queriet

Ik ken SQL

3. zie 2, maar dan met variabele invoer

Dit lukt niet

4. combineer eerdere punten

Lukt niet door punt 3

Ik weet niet hoe ik in vba een query uit kan voeren die een variabele gebruikt.

Ik heb het volgende gedaan:
Dim invoernaam As String
Dim invoerpass As String

Form_inloggen.inlogstnr.SetFocus
invoernaam = Form_inloggen.inlogstnr.Text
Form_inloggen.inlogstww.SetFocus
invoerpass = Form_inloggen.inlogstww.Text

MySQL = " SELECT count(*D FROM student WHERE (([klant]!klantnaam)=invoernaam);"
resulttext.Text = CurrentDb.Execute(MySQL)

Verwijderd

[Preek-modus]
Gezien je opmerking bij puntje 3 lijkt het me toch zeer verstandig om het boek even te lezen...

Daarbij is dit zo elementair dat je dit heeeeel erg makkelijk op had kunnen zoeken (Search, Google)...

Maar goed, misschien een tip voor de volgende keer dan...

Begrijp me niet verkeerd, ik vindt het helemaal niet erg mensen te helpen, maar een beetje eigen initiatief kan geen kwaad. (En een goede topic-titel ook niet, for that matter.)
[/Preek-modus]
code:
1
MySQL = " SELECT count( FROM student WHERE (([klant]!klantnaam)='" & invoernaam & "');"

  • compubink
  • Registratie: September 2000
  • Laatst online: 15-09 23:04

compubink

...====...

Topicstarter
Ik heb de search al doorlopen, al voorbeelden geprobeert, maar het wil niet werken.

Bij de regel:
CurrentDB.execute Mysql

Geeft hij een foutmelding dat hij een aantal parameters mist.

Maar heel simpel:
Hoe kan ik een query maken om de waarde van een veld in de waarde van een variabele te zetten en omgekeerd.

  • compubink
  • Registratie: September 2000
  • Laatst online: 15-09 23:04

compubink

...====...

Topicstarter
Kan er nog een post komen?

Weet niemand hier iets van?

  • Lister
  • Registratie: September 2001
  • Laatst online: 15-02-2022
In de post van KingGeorge staat het juiste voorbeeld alleen klopt het count stukje niet helemaal omdat er een smiley van gemaakt wordt.
Het moet " COUNT( * ) AS lngAantal " zijn.
En een SELECT statement hoor je volgens mij niet te gebruiken met een CurrentDB.Execute maar je moet een recordset declareren en dan zoiets:
code:
1
2
3
4
5
6
rstResult = Currentdb.OpenRecordset(MySQL)
if Not(rstResult.EOF) Then
    lngKlantAantal = rstResult.Fields("lngAantal").Value
Else
    lngKlantAantal = 0
End If

  • compubink
  • Registratie: September 2000
  • Laatst online: 15-09 23:04

compubink

...====...

Topicstarter
thnx
Pagina: 1