| 28-03-2024 | 16:52
Navigatie
Sponsors Kernploeg
Gebruikers Online
· Gasten online: 5

· Leden online: 0

· Totaal aantal leden: 2,394
· Nieuwste lid: Asher
Onderwerp bekijken
 Onderwerp afdrukken
Digitale startlijst
TonS
#1 Bericht afdrukken
Geplaatst op 31-12-2009 17:11
Lid

Berichten: 566
Sinds: 08.10.08

Via onderstaande link is een handig startadministratiesysteem gebaseerd op Excel te downloaden



www.hph-benelux.nl/files




Gewijzigd 30-3-15 i.v.m. update naar versie 17
Gewijzigd door TonS op 30-03-2015 21:30
 
fixalot
#2 Bericht afdrukken
Geplaatst op 02-01-2010 09:49
Avatar van gebruiker

Lid

Berichten: 235
Sinds: 11.03.09

Bedankt Ton!, is het alleen geschikt voor office 2003 ?
Gewijzigd door fixalot op 02-01-2010 10:05
 
www.zvcvolkel.nl
Dinant
#3 Bericht afdrukken
Geplaatst op 02-01-2010 10:08
Lid

Berichten: 189
Sinds: 07.03.09

Ik probeerde de lijst net even te testen op m'n werk, maar kreeg een compileerfout "Kan het project of bibliotheek niet vinden"

Het woord "Method" bij de regel

Private Sub Store_Click()
If Lier = True Then
Method = "L"

Hebben anderen hier ook last van?
 
unen
#4 Bericht afdrukken
Geplaatst op 02-01-2010 10:17
Lid

Berichten: 65
Sinds: 03.09.08

Ziet er mooi uit!
Simpele bediening en eenvoudig wijzigingen door te voeren

Krijg nog wel een foutmelding als er een nieuwe vlucht aangemaakt wordt
en je kiest voor time (NU).

dan krijg ik onderstaande melding

Compile Error:

can't find find project or library


en verwijst vervolgens naar deze subroutine

Private Sub Nowbutton_Click()
Me.Time = Format(Now, "[H]H:MM")
End Sub
 
webmaster
#5 Bericht afdrukken
Geplaatst op 02-01-2010 12:10
Avatar van gebruiker

Superbeheerder

Berichten: 2421
Sinds: 21.08.08

Er in ieder geval op letten dat macrofunctie binnen Excel op AAN staat. Anders krijg je zeker een grote variatie aan foutmeldingen.
 
www.zweefportaal.nl
TonS
#6 Bericht afdrukken
Geplaatst op 02-01-2010 12:32
Lid

Berichten: 566
Sinds: 08.10.08

@fixalot
Ik heb het gebouwd met Excel 2007, maar het ook getest op 2003 en daar werkt het bij mij ook.

@Dinant
Vreemd. Het lijkt erop dat op jouw systeem het woord Method gereserveerd is voor een bibliotheek. Ik heb het in de broncode aangepast en de nieuwe versie ge-upload (downloaden via de link in mijn originele post hier) . Kijk eens of dit nu wel werkt.

@unen
Nog vreemder, maar lijkt een zelfde soort fout als hierboven. Voor de zekerheid heb ik de naam van de variabele Time aangepast in de nieuwe versie die nu online staat. Kijk maar eens of dit nu wel goed werkt.

PS: Thx voor het Beta-testen Wink
 
TonS
#7 Bericht afdrukken
Geplaatst op 02-01-2010 12:34
Lid

Berichten: 566
Sinds: 08.10.08

webmaster schreef:
Er in ieder geval op letten dat macrofunctie binnen Excel op AAN staat. Anders krijg je zeker een grote variatie aan foutmeldingen.


Uiteraard. Als het goed is signaleert Excel automatisch dat er macro's in zitten en vraagt dan of je die wilt inschakelen of niet. Antwoord dat je moet geven lijkt me dan wel helder Wink.
 
axel
#8 Bericht afdrukken
Geplaatst op 02-01-2010 12:50
Lid

Berichten: 24
Sinds: 01.09.08

Ziet er duidelijk en simpel uit, en dat is erg belangrijk op de startplaats. Werkt bij mij goed onder Excel 2003 engelstalige versie.

Wat suggesties voor uitbreidingen betreft:
Een startlijst op een club heeft meestal twee doelen: 1) registratie van de start voor vlieger en veld, en 2) financiële administratie voor de club. Oftewel - op wiens 'rekening(en)' staat deze start? Dit is afhankelijk van het soort vlucht, d.w.z. normale GPL-houder vlucht, DBO vlucht, passagiersvlucht, externe club, etc. Hiervoor zou nog wat uitbreiding nodig zijn.
Dit wordt natuurlijk al wel erg club-specifiek omdat elke club hier verschillend mee om zal gaan.
 
TonS
#9 Bericht afdrukken
Geplaatst op 02-01-2010 13:29
Lid

Berichten: 566
Sinds: 08.10.08

axel schreef:
Ziet er duidelijk en simpel uit, en dat is erg belangrijk op de startplaats. Werkt bij mij goed onder Excel 2003 engelstalige versie.

Wat suggesties voor uitbreidingen betreft:
Een startlijst op een club heeft meestal twee doelen: 1) registratie van de start voor vlieger en veld, en 2) financiële administratie voor de club. Oftewel - op wiens 'rekening(en)' staat deze start? Dit is afhankelijk van het soort vlucht, d.w.z. normale GPL-houder vlucht, DBO vlucht, passagiersvlucht, externe club, etc. Hiervoor zou nog wat uitbreiding nodig zijn.
Dit wordt natuurlijk al wel erg club-specifiek omdat elke club hier verschillend mee om zal gaan.


Meest eenvoudige is om de kolom opmerkingen ook gewoon in het invoerformulier op te nemen.

Hieronder de stappen:
- In de VB-module van Excel open het formulier "Newflight"
- Plaats een nieuw invoerveld met bv. de naam "Opmerkingen".
- Zet in het veld "Rowsource": Basisgegevens!B2:B300
- Zet op het blad basisgegevens in kolom B vanaf rij 2 de standaard opmerkingen
- In de programmacode in de routine Private Sub Store_Click() schrijf de input weg in een extra kolom via .Offset(, 5).Value = Me.Opmerkingen.Value

Er zijn natuurlijk onteblare andere mogelijkheden, maar door bestuderen van het inputfomulier en de code onder Private Sub Store_Click kun je het met een beetje fantasie ook zonder kennis van VB makkelijk zelf aanpassingen plegen.
Gewijzigd door TonS op 02-01-2010 13:30
 
Dinant
#10 Bericht afdrukken
Geplaatst op 02-01-2010 13:57
Lid

Berichten: 189
Sinds: 07.03.09

@TonS

Ik heb de nieuwe versie geprobeerd, maar krijg een vergelijkbare foutmelding. Mogelijk is excel op m'n werk beveiligd oid (we werken hier nogal veel met complexe excellijsten en macro's)

Optellen van handmatig ingevoerde starts doet ie wel goed, gegevens verversen levert geen problemen op. Zou ook leuk zijn als hij het totaal aantal lierstarts/sleepstarts/zelfstarts laat zien op de totalen pagina.



Ik probeerd het morgen wel ff op m'n eigen laptoppie.


Goed om te zien dat er al meerde mensen mee aan de gang gaan in ieder geval Smile
Gewijzigd door Dinant op 02-01-2010 14:03
 
TonS
#11 Bericht afdrukken
Geplaatst op 02-01-2010 14:52
Lid

Berichten: 566
Sinds: 08.10.08

Dinant schreef:
@TonS

Ik heb de nieuwe versie geprobeerd, maar krijg een vergelijkbare foutmelding. Mogelijk is excel op m'n werk beveiligd oid (we werken hier nogal veel met complexe excellijsten en macro's)



Ik denk niet dat het aan de beveiliging ligt. Ik heb nog een kleine wijziging doorgevoerd en een nieuwe versie online gezet. Probeer het nog eens...
 
Dinant
#12 Bericht afdrukken
Geplaatst op 02-01-2010 15:00
Lid

Berichten: 189
Sinds: 07.03.09

@TonS

Start invoeren werk nu inderdaad wel. Alleen de Nu knop geeft nog steeds foutmelding op het woord Format.

Bij Landing geeft ie ook foutmelding, maar dan op "Openflights"

uit stukje

Sub Land()
' Land Macro
' Sneltoets: CTRL+l
Dim c As Range, rngList As Range, lrow As Long
Landing.Openflights.Clear
lrow = Blad2.Cells(Rows.Count, 6).End(xlUp).Row
Set rngList = Blad2.Range("F8:F" & lrow)
With Openflights
On Error Resume Next
For Each c In rngList
If c.Offset(0, 1).Value = vbNullString Then
With Landing.Openflights
.AddItem c.Offset(0, -3).Value
End With
End If
Gewijzigd door Dinant op 02-01-2010 15:07
 
TonS
#13 Bericht afdrukken
Geplaatst op 02-01-2010 15:40
Lid

Berichten: 566
Sinds: 08.10.08

Erg irritant...:hmm

Dat probleem met het invullen van de huidige tijd moet op een of andere manier te maken hebben met de systeeminstellingen voor tijdnotatie denk ik.
Als je zelf een beetje thuis bent in VB dan zou je eens de volgende aanpassingen in Private Sub Nowbutton_Click() kunnen proberen:
Me.Starttime = Format(Time, "(H)H:MM")
Me.Starttime = Format(Now, "HH:MM")
Me.Starttime = Format(Time, "HH:MM")

Het probleem met het landingsformulier begrijp ik niet. Enige dat ik heb kunnen bedenken is de routines in de module macros allemaal public te maken. Test nog maar een keer... :bidden
Gewijzigd door TonS op 02-01-2010 15:41
 
unen
#14 Bericht afdrukken
Geplaatst op 02-01-2010 16:03
Lid

Berichten: 65
Sinds: 03.09.08

Het is een beetje vreemd, maar ik heb nog eens verder getest.

Met MS-Office 2007 (NL) werkt het prima
met MS-Office 2003 (NL) werkt het ook prima
met MS-Office 2003 (EN) krijg ik de foutmeldingen mbt tot de format

Beide MS-Office 2003 versies hebben SP 3

Nog eens verder gekeken.
Als ik de regel met:
Me.Starttime = Format(Now, "[H]H:MM")

verander in:
Me.Starttime = Strings.Format(Now, "[H]H:MM")

Dan werkt het allemaal wel.

Ik heb het al eens eerder meegemaakt met VBA applicaties die in een andere taal ineens niet blijken te werken. Soms pikt de VBA compiler de functies gewoon niet.
 
TonS
#15 Bericht afdrukken
Geplaatst op 02-01-2010 16:38
Lid

Berichten: 566
Sinds: 08.10.08

unen schreef:
Ik heb het al eens eerder meegemaakt met VBA applicaties die in een andere taal ineens niet blijken te werken. Soms pikt de VBA compiler de functies gewoon niet.


Hoi unen,
Bedankt voor het testen.
Je zou er toch vanuit moeten kunnen gaan dat het niet uitmaakt welke taalversie je gebruikt, maar daar laat Bill dus weer eens een steekje vallen. Debuggen wordt wel heel erg moeilijk als je ook nog een allerhande verschillende Excel versies moet gaan controleren :-(
Het statement Me.Starttime = Strings.Format(Now, "[H]H:MM") werkt in ieder geval ook in de Nederlandse versie, dus dan moeten we dat maar gebruiken.

Heb jij in geen van je Excel versies dat probleem met Openflights dat Dinant heeft?
 
unen
#16 Bericht afdrukken
Geplaatst op 02-01-2010 17:02
Lid

Berichten: 65
Sinds: 03.09.08


Heb jij in geen van je Excel versies dat probleem met Openflights dat Dinant heeft?


idem, alleen in de (EN) versie, ik ben daar nu ook mee aan het puzzelen.
Echter ben ik geen VBA expert en zie niet direct waar het nu mis gaat.

Verder vind ik het goed wel mooi werken!
Ik zie ook dat het Excel bestand direct opgeslagen wordt als er een wijziging/update plaats vindt.
Zo ben je dus nooit data kwijt als bv de stroom uitvalt of PC bijv vastloopt.

Ik heb nog wel een tip voor verbetering.
Kun je nog wat controles inbouwen?
Nu is het zo dat een toestel meerdere malen in de lucht kan zijn evenals de gezagvoerder of passagier.
Je kunt hem/ze nl meerdere malen starten zonder ze te laten landen.
Ik verwacht hier nl wel gebruikers fouten.

Het zal wel lastig worden om deze controles in te bouwen verwacht ik
 
TonS
#17 Bericht afdrukken
Geplaatst op 02-01-2010 17:11
Lid

Berichten: 566
Sinds: 08.10.08

OK, dan weten we in ieder geval wel dat het probleem van Dinant ergens in de taalversie gezocht moet worden. Ik ben ook geen VB-expert (twee weken geleden had ik er ook nog nooit mee gewerkt...).
Als je in debug-mode stap voor stap er doorheen loopt: op welke regel geeft ie dan een foutmelding?

Dat automatisch opslaan heb ik er inderdaad speciaal ingeprogrammeerd omdat het natuurlijk wel heel verveldn is als je alles kwijtraakt als de stroom uitvalt.

Controles dat dezelfde kist of dezelfde mensen meermalen in de lucht kan zijn is wel aardig, maar dat is inderdaad een forse klus. Ik denk dat we er eerst maar eens een seizoen mee moeten gaan werken en dan zien of dit de moeite waard is...
 
unen
#18 Bericht afdrukken
Geplaatst op 02-01-2010 17:33
Lid

Berichten: 65
Sinds: 03.09.08

Het probleem met openflightds lijkt nu opgelost als ik in de sub "Land"

With openflights verander in With Landing.Openflights

Maar dan heb ik weer een nieuw probleem nl als ik de vlucht selekteer en vervolgens op opslaan druk
krijg ik de foutmelding dat "lrow" niet gevonden kan worden.
 
TonS
#19 Bericht afdrukken
Geplaatst op 02-01-2010 18:08
Lid

Berichten: 566
Sinds: 08.10.08

Kijk, samen komen we er wel. Smile
Ik denk dat de Engelse versie problemen heeft met het ontbreken van declaraties van variabelen.
Ik heb dit veranderd en als nieuwe versie online gezet (inclusief jouw wijziging).
 
unen
#20 Bericht afdrukken
Geplaatst op 02-01-2010 18:12
Lid

Berichten: 65
Sinds: 03.09.08

TonS schreef:
Kijk, samen komen we er wel. Smile
Ik denk dat de Engelse versie problemen heeft met het ontbreken van declaraties van variabelen.
Ik heb dit veranderd en als nieuwe versie online gezet (inclusief jouw wijziging).


Inderdaad, ik wilde dit net nog even melden maar je was me al voor.
Laatste versie werkt nu probleemloos!

Keep up the good work
 
Deel onderwerp met:

Spring naar forum:
Verwerkingstijd: 0.16 seconden