Planning overzicht, wie kan mij helpen?

[Verwijderd]

Ik ben momenteel bezig met het maken van een verhuurprogramma (voor vakantiewoningen), maar ik wil graag een formulier/rapport maken waarop de verhuurde eenheden zichtbaar op zijn per maand.
Voorbeeld:


MAAND AUGUSTUS
Bung.
nr: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 .......................

1 x x x x x x x x x x x x
2 x x x x
3
4
5
6
.
.

Bovenstaande voorbeeld heb ik dan x'jes neergezet, maar mooier zou natuurlijk zijn als dat
met kleuren aangegeven kan worden.

Ik heb aparte tabellen.

1.) Adresgegevens
2.) Bungalowgegevens (bung.nr, periode_van, periode_tot, gespecificeerde bedragen......)
3.) Reserveringsgegevens (via welke touroperator, betalinginfo.....)

Heeft iemand een idee hoe ik dat het beste zou kunnen maken?

Alvast bedankt voor jullie hulp!


Richard

[The_Savage]

Ik ga er even vanuit dat je dit met Mircosoft Access wilt gaan doen, neem dan database Noorderwind eens door (dit is de 'demo' database van Access waar alle functies gebruikt staan... een goeie collectie van voorbeelden dus).
Succes.

--edit:-------
vermeld dan volgende keer even in je startpost wat je wel en (nog) niet hebt gedaan/geprobeerd

[ Voor 27% gewijzigd door The_Savage op 10-08-2005 20:15 ]

[Verwijderd]

Ja, daar heb ik al naar gekeken, maar zit geen waarde bij die ik kan gebruiken.

[sanfranjake]

Wat heb je zelf verder allemaal al geprobeerd? Lijkt me dat dit met formatting van de cellen moet kunnen? Geef ook nog even aan wat je allemaal al hebt kunnen vinden. Dat vinden we hier op GoT erg belangrijk. Zie daarover ook nog even Officesuites en -software - Beleid
_{oja een vraagteken in de titel is wel genoeg, ik haal die andere er even uit.}

[ Voor 13% gewijzigd door sanfranjake op 10-08-2005 21:22 ]

[Verwijderd]

Wat ik gedaan heb is als volgt:

Ik heb een formulier aangemaakt (genaamd planbord), waarin ik een aantal tekstvakken heb aangemaakt (om precies te zijn per bungalow 31 stuks, die moeten corresponderen met de dag van de maand, bijv. A13-1; A13-2; A13-3 etc.etc.

Dan bij het openen van dat formulier maak ik twee variabelen aan, te weten:
dagaankomst
dagvertrek

Hieronder een voorbeeld van wat ik heb geschreven:

Dim dagaankomst As String, dagvertrek As String, Bung As String, BungDag1 As String, BungDag2 As String
Dim teller As String
dagaankomst = Left(Periode_Van, 2)
dagvertrek = Left(Periode_Tot, 2)
Bung = Bungalownr
BungDag = Bung + "-" + dagaankomst
teller = dagaankomst
Do Until teller = dagvertrek + 1
If Bung = "A13" And dagaankomst = "01" Or dagaankomst = "1" Then Me.[A13-1] = "X"
If Bung = "A13" And dagaankomst = "02" Or dagaankomst = "2" Then Me.[A13-2] = "X"
If Bung = "A13" And dagaankomst = "03" Or dagaankomst = "3" Then Me.[A13-3] = "X"
If Bung = "A13" And dagaankomst = "04" Or dagaankomst = "4" Then Me.[A13-4] = "X"
If Bung = "A13" And dagaankomst = "05" Or dagaankomst = "5" Then Me.[A13-5] = "X"
If Bung = "A13" And dagaankomst = "06" Or dagaankomst = "6" Then Me.[A13-6] = "X"
If Bung = "A13" And dagaankomst = "07" Or dagaankomst = "7" Then Me.[A13-7] = "X"
If Bung = "A13" And dagaankomst = "08" Or dagaankomst = "8" Then Me.[A13-8] = "X"
If Bung = "A13" And dagaankomst = "09" Or dagaankomst = "9" Then Me.[A13-9] = "X"
If Bung = "A13" And dagaankomst = "10" Then Me.[A13-10] = "X"
If Bung = "A13" And dagaankomst = "11" Then Me.[A13-11] = "X"
If Bung = "A13" And dagaankomst = "12" Then Me.[A13-12] = "X"
If Bung = "A13" And dagaankomst = "13" Then Me.[A13-13] = "X"
If Bung = "A13" And dagaankomst = "14" Then Me.[A13-14] = "X"
If Bung = "A13" And dagaankomst = "15" Then Me.[A13-15] = "X"
If Bung = "A13" And dagaankomst = "16" Then Me.[A13-16] = "X"
If Bung = "A13" And dagaankomst = "17" Then Me.[A13-17] = "X"
If Bung = "A13" And dagaankomst = "18" Then Me.[A13-18] = "X"
If Bung = "A13" And dagaankomst = "19" Then Me.[A13-19] = "X"
If Bung = "A13" And dagaankomst = "20" Then Me.[A13-20] = "X"
If Bung = "A13" And dagaankomst = "21" Then Me.[A13-21] = "X"
If Bung = "A13" And dagaankomst = "22" Then Me.[A13-22] = "X"
If Bung = "A13" And dagaankomst = "23" Then Me.[A13-23] = "X"
If Bung = "A13" And dagaankomst = "24" Then Me.[A13-24] = "X"
If Bung = "A13" And dagaankomst = "25" Then Me.[A13-25] = "X"
If Bung = "A13" And dagaankomst = "26" Then Me.[A13-26] = "X"
If Bung = "A13" And dagaankomst = "27" Then Me.[A13-27] = "X"
If Bung = "A13" And dagaankomst = "28" Then Me.[A13-28] = "X"
If Bung = "A13" And dagaankomst = "29" Then Me.[A13-29] = "X"
If Bung = "A13" And dagaankomst = "30" Then Me.[A13-30] = "X"
If Bung = "A13" And dagaankomst = "31" Then Me.[A13-31] = "X"

If Bung = "A14" And dagaankomst = "01" Or dagaankomst = "1" Then Me.[A14-1] = "X"
If Bung = "A14" And dagaankomst = "02" Or dagaankomst = "2" Then Me.[A14-2] = "X"
If Bung = "A14" And dagaankomst = "03" Or dagaankomst = "3" Then Me.[A14-3] = "X"
If Bung = "A14" And dagaankomst = "04" Or dagaankomst = "4" Then Me.[A14-4] = "X"
If Bung = "A14" And dagaankomst = "05" Or dagaankomst = "5" Then Me.[A14-5] = "X"
If Bung = "A14" And dagaankomst = "06" Or dagaankomst = "6" Then Me.[A14-6] = "X"
If Bung = "A14" And dagaankomst = "07" Or dagaankomst = "7" Then Me.[A14-7] = "X"
If Bung = "A14" And dagaankomst = "08" Or dagaankomst = "8" Then Me.[A14-8] = "X"
If Bung = "A14" And dagaankomst = "09" Or dagaankomst = "9" Then Me.[A14-9] = "X"
If Bung = "A14" And dagaankomst = "10" Then Me.[A14-10] = "X"
If Bung = "A14" And dagaankomst = "11" Then Me.[A14-11] = "X"
If Bung = "A14" And dagaankomst = "12" Then Me.[A14-12] = "X"
If Bung = "A14" And dagaankomst = "13" Then Me.[A14-13] = "X"
If Bung = "A14" And dagaankomst = "14" Then Me.[A14-14] = "X"
If Bung = "A14" And dagaankomst = "15" Then Me.[A14-15] = "X"
If Bung = "A14" And dagaankomst = "16" Then Me.[A14-16] = "X"
If Bung = "A14" And dagaankomst = "17" Then Me.[A14-17] = "X"
If Bung = "A14" And dagaankomst = "18" Then Me.[A14-18] = "X"
If Bung = "A14" And dagaankomst = "19" Then Me.[A14-19] = "X"
If Bung = "A14" And dagaankomst = "20" Then Me.[A14-20] = "X"
If Bung = "A14" And dagaankomst = "21" Then Me.[A14-21] = "X"
If Bung = "A14" And dagaankomst = "22" Then Me.[A14-22] = "X"
If Bung = "A14" And dagaankomst = "23" Then Me.[A14-23] = "X"
If Bung = "A14" And dagaankomst = "24" Then Me.[A14-24] = "X"
If Bung = "A14" And dagaankomst = "25" Then Me.[A14-25] = "X"
If Bung = "A14" And dagaankomst = "26" Then Me.[A14-26] = "X"
If Bung = "A14" And dagaankomst = "27" Then Me.[A14-27] = "X"
If Bung = "A14" And dagaankomst = "28" Then Me.[A14-28] = "X"
If Bung = "A14" And dagaankomst = "29" Then Me.[A14-29] = "X"
If Bung = "A14" And dagaankomst = "30" Then Me.[A14-30] = "X"
If Bung = "A14" And dagaankomst = "31" Then Me.[A14-31] = "X"
dagaankomst = dagaankomst + 1
teller = teller + 1
If teller = dagvertrek + 1 Then Exit Do
Loop
DoCmd.GoToRecord , , acNext


Ik weet alleen niet of dit goed is, wellicht dat een van jullie mij zou kunnen helpen.

Alvast bedankt voor de moeite.


RIchard