|
Digitale startlijst
|
| TonS |
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 |
Geplaatst op 02-01-2010 09:49
|
Lid
Berichten: 236
Sinds: 11.03.09
|
Bedankt Ton!, is het alleen geschikt voor office 2003 ?
Gewijzigd door fixalot op 02-01-2010 10:05 |
| |
|
|
| Dinant |
Geplaatst op 02-01-2010 10:08
|
Lid
Berichten: 188
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 |
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 |
Geplaatst op 02-01-2010 12:10
|
Superbeheerder
Berichten: 2422
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. |
| |
|
|
| TonS |
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  |
| |
|
|
| TonS |
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 . |
| |
|
|
| axel |
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 |
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 |
Geplaatst op 02-01-2010 13:57
|
Lid
Berichten: 188
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 
Gewijzigd door Dinant op 02-01-2010 14:03 |
| |
|
|
| TonS |
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 |
Geplaatst op 02-01-2010 15:00
|
Lid
Berichten: 188
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 |
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 |
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 |
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 |
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 |
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 |
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 |
Geplaatst op 02-01-2010 18:08
|
Lid
Berichten: 566
Sinds: 08.10.08
|
Kijk, samen komen we er wel.
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 |
Geplaatst op 02-01-2010 18:12
|
Lid
Berichten: 65
Sinds: 03.09.08
|
TonS schreef:
Kijk, samen komen we er wel.
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 |
| |
|
