*

Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Pagina's: [1]   Omlaag

Auteur Topic: access querry  (gelezen 2036 keer)

0 leden en 1 gast bekijken dit topic.

Offline smurfen

  • Oplosser
  • ****
  • Berichten: 526
  • Geslacht: Man
  • Hoe kun je iemand 3 sec beetnemen?? Wel zo!!
access querry
« Gepost op: 26 januari 2010, 12:09:24 »
Hi iedereen,

Ik ben bezig met een projectje maar ik zit met het volgende probleem:
ik heb een scrollmenu met daarin allemaal klanten nu wanneer men een klant aanklikt wordt het subforum (eronder) vernieuwd met alle informatie van die klant. Nu tot hiertoe gaat alles goed.

Nu had ik echter ook gewild dat ik alle informatie kan opvragen van alle klanten dus niet op een specifieke naam

momenteel is de rijbron van mijn scrollmenu dus een querry die alle namen gaat gaan opzoeken (geen dubbels)
hier zou ik dus nog een optie willen toevoegen die de waarde "Iedereen" heeft

Nu mijn 2de probleem is om dan de waarde "iedereen" te verwerken in het subform eronder.
de querry van dat subform haalt de waarde van de klant in het hoofdform d.m.v. forms.betalingen.naam
Nu dit werkt als ik een naam selecteer maar natuurlijk niet als ik met de naam "Iedereen" zit.  :(

Ik heb al geprobeerd met
Iif(forms.betalingen.naam="iedereen";Not Null;forms.betalingen.naam)

Maar access veranderd hier automatisch het deel "Not Null" waardoor het niet werkt.

Alvast bedankt
Smurfen
Gelogd
Groetjes smurfen

Offline smurfen

  • Oplosser
  • ****
  • Berichten: 526
  • Geslacht: Man
  • Hoe kun je iemand 3 sec beetnemen?? Wel zo!!
Re: access querry
« Reactie #1 Gepost op: 26 januari 2010, 18:37:51 »
Code: [Selecteer]
Private Sub Form_Load()
Me.jaar = Format(Date, "yyyy")
Me.maand = Format(Date, "mm")
Me.Naam.RowSource = "SELECT Id, Naam FROM Dossier ORDER BY Naam"
End Sub

Private Sub naam_AfterUpdate()
If Me.Naam = "Iedereen" Then
Me!lijstbetalingen.Form.RecordSource = "SELECT (voornaam & ' ' & familienaam) AS naam,* FROM Agenda WHERE format(datum,'yyyy') = forms.selectpatient.jaar AND format(datum,'mm') = forms.selectpatient.maand"
Else
Me!lijstbetalingen.Form.RecordSource = "SELECT (voornaam & ' ' & familienaam) AS naam,* FROM Agenda WHERE voornaam & ' ' & familienaam = forms.selectpatient.naam AND format(datum,'yyyy') = forms.selectpatient.jaar AND format(datum,'mm') = forms.selectpatient.maand"
End If
End Sub

Dit heb ik nu en het werkt perfect :P
Enkel moet ik in de dropdownlist (naam) de waarde "Iedereen" kunnen toevoegen


Iemand raad?
Gelogd
Groetjes smurfen

Offline dizzl

  • Ambassadeur
  • *****
  • Berichten: 2.346
  • I've Upped my standards,now,up yours!
Re: access querry
« Reactie #2 Gepost op: 28 januari 2010, 07:36:55 »
ofwel maak je een record aan in Dossier waar je Iedereen in zet. (lijkt me de eenvoudigste oplossing)


ofwel stop je '"SELECT Id, Naam FROM Dossier ORDER BY Naam" in een recordset en voeg je die regel per regel toe aan je dropdownList.

Naam krijgt dan geen tabel maar lijstmet waarden
naam.items.add("iedereen")
stel je rs in
zolang er records zijn
   naam.items.add(rs(Id);rs(Naam))
   rs.movenext
end while


Gelogd
Systeem  : Intel Core i5-4440 3.1Ghz, 3.1GHz 16Giga Ram 64Bits
Software : Windows 10 professional, Avira, Office 2016 Professional

Offline smurfen

  • Oplosser
  • ****
  • Berichten: 526
  • Geslacht: Man
  • Hoe kun je iemand 3 sec beetnemen?? Wel zo!!
Re: access querry
« Reactie #3 Gepost op: 29 januari 2010, 15:14:42 »
Hier zal ik eens naar kijken om dit laatste toe te passen.
Alvast bedankt
Gelogd
Groetjes smurfen
Pagina's: [1]   Omhoog
 


www.combell.com