Auteur Topic: even en oneven getallen in Access 97 (gelezen 6600 keer)

krabberke · « **Gepost op:** 17 augustus 2004, 15:08:27 »

Hallo. Ik probeer in Access 97 een selectie te maken tussen records met even en oneven getallen (volgnrs). Liefst in een query maar in een rapport zou ook goed zijn voor mij...
Heeft iemand een idee hoe dit moet???

bobey · « **Reactie #1 Gepost op:** 17 augustus 2004, 18:52:50 »

Hallo,

Ik heb heel eventjes met acces gewerkt, maar ik ga toch even proberen te helpen. Als je een getal door 2 kunt delen en de rest is 0 is het een even getal. Misschien kan je dit in je querry gebruiken.

Groetjes
Bobey

powerkite · « **Reactie #2 Gepost op:** 17 augustus 2004, 21:23:30 »

Om de methode van bobey uit te werken:
In de query plaats je dan volgende code bij:
Rest: [volgnr] Mod 2

en bij criteria zet ge dan 1 of 0

(heb dit wel niet getest maar zou wel moeten werken)

spyder · « **Reactie #3 Gepost op:** 17 augustus 2004, 21:35:04 »

Hoi krabberke,

Ik kom ook eens een poging wagen. Er zijn wellicht kortere en betere , maar de mijne werkt ook.

Zet bij criteria: Like "*1" Or Like "*3" Or Like "*5" Or Like "*7" Or Like "*9"

groetjes

krabberke · « **Reactie #4 Gepost op:** 18 augustus 2004, 17:35:25 »

Beide mogelijkheden werken goed! Bedankt allemaal!!!

(ik vind het wel raar dat in de help van Access dit blijkbaar niet terug te vinden is... kent er iemand een site met veel info over functions???)

Krabberke

krabberke · « **Reactie #5 Gepost op:** 19 augustus 2004, 13:43:37 »

Er is nog een probleempje opgedoken...

De selectie tussen even en oneven nrs werkt goed maar dat gebeurt eigenlijk op de (auto)nrs uit de tabel waar alle data instaan. Dus als 20 van de 100 records in deze qry staan moeten deze bv de nrs 1 t/m 20 krijgen. De selectie zou eigenlijk moeten gebeuren ALS ze reeds in een selectiequery staan!

In een rapport is dat blijkbaar mogelijk met de functie Control Source = 1, Running Sum Over All.

Is zoiets mogelijk in een query? Of kan de selectie op even/onven in het rapport zelf gebeuren. Beiden zouden hetzelfde resultaat geven denk ik en uiteindelijk is het rapport het belangrijkste...

StriKe · « **Reactie #6 Gepost op:** 22 augustus 2004, 14:20:02 »

Hello,

Er 'moet' ergens een oplossing te vinden zijn door wat programmeerwerk in VBA.

Ik weet niet direct hoe maar mijn eerste gedacht is om aan elk record uit je tabel (of query te zeggen) een nieuw nummer te geven.

Als je dan alles overloopt (met een do loop) dan kan je even/oneven van elkaar scheiden door ze bijvoorbeeld een appart kleurtje te geven.

'k Ga me daar eens mee bezig houden en laat je dan zeker nog iets weten!

UPDATE

Misschien is er iemand die effe mee kan brainstormen.
Ik heb voorlopig al volgende code:

Code: [Selecteer]

Public Sub oef01()

Dim cnn As New ADODB.Connection
Dim r As New ADODB.Recordset
Dim num As Integer

Set cnn = CurrentProject.Connection
num = 1
r.Open "qry1", cnn, adOpenDynamic, adLockPessimistic

Do
    Debug.Print r!NaamEnVoornaam
    num = num + 1
Loop Until r.EOF

End Sub

Probleem is echter dat hij 'valt' over het feit dat ik debug.print wil doen terwijl ik al eof/bof zou bereikt hebben ...
Ik vermoed dat dat te maken heeft met het feit dat ik via r.open een query ipv een tabel wil openen, mijn vraag is dus: hoe krijg ik die query op een andere manier geopend?

Groeten,
StriKe

krabberke · « **Reactie #7 Gepost op:** 22 augustus 2004, 17:02:02 »

Oeioei... zal het toch via VB moeten...
Daar was ik al bang voor! Ik heb daar namelijk nog nooit mee gewerkt en ik weet niet hoe er aan te beginnen...

Mijn doelstelling is eigenlijk om in een rapport (gebaseerd op selectiequery) de even en oneven regels inderdaad een ander kleurtje te geven, zoals jij als voorstelde.
Ik had een voorbeeld gedownload van deze site https://www.access-programmers.co.uk/forums/showthread.php?t=62697
maar ik weet niet goed wat ik er moet mee aanvangen. Ik dacht dat het dan gemakkelijker was om te werken met 2 subrapporten onder elkaar met verschillende kleuren, en dan te sorteren op het volgnummer. Maar dat was waarschijnlijk wat te simplistisch van mij...

StriKe · « **Reactie #8 Gepost op:** 23 augustus 2004, 16:08:04 »

Hallo,

Als ik je goed begrijp heb je reeds een rapport aangemaakt (op basis van die selectiequery) maar is je enige probleem om de oneven en even rijen anders weer te geven?

Groeten,
StriKe

krabberke · « **Reactie #9 Gepost op:** 24 augustus 2004, 23:36:55 »

Inderdaad... de even en oneven lijnen zouden een verschillende layout moeten hebben, zoals in de voorbeeld db met frmAltReport mogelijk is.
Alleen weet ik niet hoe ik deze Form kan toepassen! Volgens mij moet er toch een eenvoudigere mogelijkheid zijn, of is dat toch niet voor "beginners"?

powerkite · « **Reactie #10 Gepost op:** 25 augustus 2004, 01:19:03 »

Een nieuwe aaneensluitende nummering kan je bekomen door volgende code een beetje aan te passen

SELECT DCount("productid","producten","productID <= " & productID) AS MyTeller
FROM producten
ORDER BY producten.ProductID;

je hebt dan een kolom met nummers in. Je plaatst dan een tekstvak dat even groot is als de detailsectie in het rapport. vervolgens pas je hier voorwaardelijke opmaak op toe je kiest voor expressie: ([nr] Mod 2)=1
vervolgens kan je dan 2 verschillende opmaken toepassen (op de even en voor de oneven waarbij [nr] mod 2 = 1)

krabberke

Ondertussen zijn we weeral een maand verder en zit ik nog altijd te knoeien... Probleem is dat ik nog niet veel weet van SQL zodat die code maar niet wil lukken.
Voorlopig heb ik een tussenoplossing bedacht via Excel waar ik een aparte nummering heb gemaakt en dan het geheel kan plakken in een Access tabel zodat de queries voor even en oneven juist werken. Die code zal ik dan later nog wel proberen...
Het belangrijkste is nu echter dat ik in een rapport een weergave zou krijgen met kleurverschillen tussen de even/oneven lijnen. Van die voorwaardelijke opmaak vind ik echter niks terug! Hoe dat moet gebeuren. Ik werk met Access97 en in de (Engelse) help vind ik niks terug. Weet je hoe dat hier zou kunnen heten? Ik dacht conditional format of zoiets maar blijkbaar niet...
Mijn eerste idee van de subrapporten schijnt dus ook niet mogelijk te zijn zodat voorwaardelijke opmaak dus wel de enige oplossing moet zijn...

powerkite · « **Reactie #12 Gepost op:** 02 oktober 2004, 12:54:31 »

In access 97 is er geen voorwaardelijke opmaak aanwezig.
Ik heb wel ergens een oplossing gevonden om alternerend een andere kleur weer te geven.
Maar stel dat je per ongeluk enkel de records : 1,2,4 hebt dan zal 1 en 4 dezelfde kleur hebben ook al is het ene even en het andere niet.
Maar misschien heb je er wat aan:

Private Sub Details_Format(Cancel As Integer, FormatCount As Integer)
If Me.Detail.BackColor = vbRed Then
Me.Detail.BackColor = vbGreen
Else
Me.Detail.BackColor = vbRed
End If
End Sub

Deze code is wel toegepast in Access2003, misschien dat je ze hier en daar nog wat moet wijzigen (ik heb "details" moeten gebruiken omdat in de originele code "detail" stond.)

Ik hoop dat je weer een stapje dichter bij de oplossing gekomen bent

Help!

Menu

Hulp bij posten

Zoeken

Recente topics

Auteur Topic: even en oneven getallen in Access 97 (gelezen 6600 keer)

krabberke

even en oneven getallen in Access 97

bobey

Re:even en oneven getallen in Access 97

powerkite

Re:even en oneven getallen in Access 97

spyder

Re:even en oneven getallen in Access 97

krabberke

Re:even en oneven getallen in Access 97

krabberke

autonummer in query mogelijk?

StriKe

Re:even en oneven getallen in Access 97

krabberke

Re:even en oneven getallen in Access 97

StriKe

Re:even en oneven getallen in Access 97

krabberke

Re:even en oneven getallen in Access 97

powerkite

Re:even en oneven getallen in Access 97

krabberke

Re:even en oneven getallen in Access 97

powerkite

Re:even en oneven getallen in Access 97