Help!

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

Hulp bij posten

Recente topics

Auteur Topic: meerdere keuzes mogelijk maken in vervolglijst  (gelezen 51098 keer)

0 leden en 1 gast bekijken dit topic.

Offline adri

  • Ervaren lid
  • ***
  • Berichten: 421
  • Geslacht: Man
  • De Oplossing!
Re: meerdere keuzes mogelijk maken in vervolglijst
« Reactie #15 Gepost op: 05 november 2014, 08:37:35 »
ok
zal het nu proberen te integreren in mijn file.
bedankt voor de hulp.
Asus k750jb.
Windows 10 Home   NLD 64bit
Intel(R) Core(TM) i7-4700HQ CPU @ 2.40GHz 2401
X750JB
NVIDIA GeForce GT 740M        2048MB 1600 x 900
Realtek High Definition Audio
Nr: 1 Model: PLEXTOR PX-256M5S
C:\ NTFS 183,18GB 6,54GB 12 173MB
AV: AVG
FW: Windows Firewal Enabled: True

Offline adri

  • Ervaren lid
  • ***
  • Berichten: 421
  • Geslacht: Man
  • De Oplossing!
Re: meerdere keuzes mogelijk maken in vervolglijst
« Reactie #16 Gepost op: 16 november 2014, 10:51:46 »
hallo dizzl,
kan jij misschien nog eens verder ingaan op jouw oplossing, want dat is gewoon wat ik bedoel.
in een cel twee of drie keuzes invullen uit een lijst, gescheiden door ; of &.
Asus k750jb.
Windows 10 Home   NLD 64bit
Intel(R) Core(TM) i7-4700HQ CPU @ 2.40GHz 2401
X750JB
NVIDIA GeForce GT 740M        2048MB 1600 x 900
Realtek High Definition Audio
Nr: 1 Model: PLEXTOR PX-256M5S
C:\ NTFS 183,18GB 6,54GB 12 173MB
AV: AVG
FW: Windows Firewal Enabled: True

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.129
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: meerdere keuzes mogelijk maken in vervolglijst
« Reactie #17 Gepost op: 16 november 2014, 11:12:05 »
Hallo Adri,

Wat wil je precies weten? De aangereikte oplossing werkt, en doet precies wat je vroeg...

Groeten,

:) SoftAid :)             
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline pitufo

  • Ambassadeur
  • *****
  • Berichten: 1.343
  • Geslacht: Man
Re: meerdere keuzes mogelijk maken in vervolglijst
« Reactie #18 Gepost op: 16 november 2014, 17:06:12 »
Hallo,

Ik kon het niet laten om mij hier ook even over te buigen, en wel hierom : over de code die ergens door popipipo gevonden is, en hier verder uitgewerkt, kan worden gezegd dat ze mooi geschreven is, en vooral dat ze werkt, maar helaas ook dat ze nogal veel overbodig werk verricht. Ga bijvoorbeeld eens in kolom C staan en scroll naar boven of beneden, en dan wordt veel duidelijk.

En dus heb ik voor een alternatief gezorgd. Beter of slechter, dat kan enkel een subjectieve en dus nutteloze discussie worden, die we daarom beter niet voeren. Iedereen die iets dergelijks wil gebruiken moet maar naar eigen smaak oordelen welke manier de voorkeur krijgt.

Trouwens, ik ben de eerste om toe te geven dat ook deze werkwijze allicht nog voor verbetering vatbaar is  ;)

Mvg,
pitufo
"De computer doet wel degelijk wat je hem vraagt,
 maar NIET wat je DENKT dat je hem vraagt"

Offline adri

  • Ervaren lid
  • ***
  • Berichten: 421
  • Geslacht: Man
  • De Oplossing!
Re: meerdere keuzes mogelijk maken in vervolglijst
« Reactie #19 Gepost op: 16 november 2014, 17:25:03 »
zal nog eens een concreet voorbeeld bijvoegen.
bedoeling is in de respectievelijke cellen achter tussenstops, eindstop, deelnemers waarden in te vullen.
die moeten komen uit een lijst: zie blad 2 met de 3 respectievelijke kolommen.
meerdere keuzes moeten mogelijk zijn.
Asus k750jb.
Windows 10 Home   NLD 64bit
Intel(R) Core(TM) i7-4700HQ CPU @ 2.40GHz 2401
X750JB
NVIDIA GeForce GT 740M        2048MB 1600 x 900
Realtek High Definition Audio
Nr: 1 Model: PLEXTOR PX-256M5S
C:\ NTFS 183,18GB 6,54GB 12 173MB
AV: AVG
FW: Windows Firewal Enabled: True

Offline adri

  • Ervaren lid
  • ***
  • Berichten: 421
  • Geslacht: Man
  • De Oplossing!
Re: meerdere keuzes mogelijk maken in vervolglijst
« Reactie #20 Gepost op: 18 november 2014, 08:42:21 »
ok,
heb nu eindelijk iets voor mekaar met command buttons.
bedankt voor het geduld.
nu nog die keuzevakjes in de lijst voor meerdere keuzes brengen.
zit dat ergens bij eigenschappen?
Asus k750jb.
Windows 10 Home   NLD 64bit
Intel(R) Core(TM) i7-4700HQ CPU @ 2.40GHz 2401
X750JB
NVIDIA GeForce GT 740M        2048MB 1600 x 900
Realtek High Definition Audio
Nr: 1 Model: PLEXTOR PX-256M5S
C:\ NTFS 183,18GB 6,54GB 12 173MB
AV: AVG
FW: Windows Firewal Enabled: True

Offline pitufo

  • Ambassadeur
  • *****
  • Berichten: 1.343
  • Geslacht: Man
Re: meerdere keuzes mogelijk maken in vervolglijst
« Reactie #21 Gepost op: 18 november 2014, 13:01:33 »
Adri,

Dat zit inderdaad in de eigenschappen van je listbox.
Kies bij MultiSelect voor 1 (anders kan je maar één item kiezen, en dat wou je juist anders) en bij ListStyle eveneens voor 1 (zorgt voor de keuzevakjes)

Mvg,
pitufo
"De computer doet wel degelijk wat je hem vraagt,
 maar NIET wat je DENKT dat je hem vraagt"

Offline adri

  • Ervaren lid
  • ***
  • Berichten: 421
  • Geslacht: Man
  • De Oplossing!
Re: meerdere keuzes mogelijk maken in vervolglijst
« Reactie #22 Gepost op: 19 november 2014, 07:49:25 »
bedankt pitufo
voor sommigen misschien evident, maar hier heb ik lang naar gezocht.
de layout zal ik nu nog wat aanpassen en dan kan ik weer verder.

bedankt aan alle helpende handen.
Asus k750jb.
Windows 10 Home   NLD 64bit
Intel(R) Core(TM) i7-4700HQ CPU @ 2.40GHz 2401
X750JB
NVIDIA GeForce GT 740M        2048MB 1600 x 900
Realtek High Definition Audio
Nr: 1 Model: PLEXTOR PX-256M5S
C:\ NTFS 183,18GB 6,54GB 12 173MB
AV: AVG
FW: Windows Firewal Enabled: True

Offline adri

  • Ervaren lid
  • ***
  • Berichten: 421
  • Geslacht: Man
  • De Oplossing!
Re: meerdere keuzes mogelijk maken in vervolglijst
« Reactie #23 Gepost op: 20 november 2014, 14:53:35 »
nu we toch bezig zijn, nog een vraag.
kan je bij invullen van één van de items (tussenstop, eindstop...) ook de actieve cell gaan zoeken.
bv bij mijn knop tussenstops invullen, naar de eerste niet ingevulde cel naast tussenstops gaan en de gekozen waarde invullen.
Asus k750jb.
Windows 10 Home   NLD 64bit
Intel(R) Core(TM) i7-4700HQ CPU @ 2.40GHz 2401
X750JB
NVIDIA GeForce GT 740M        2048MB 1600 x 900
Realtek High Definition Audio
Nr: 1 Model: PLEXTOR PX-256M5S
C:\ NTFS 183,18GB 6,54GB 12 173MB
AV: AVG
FW: Windows Firewal Enabled: True

Offline pitufo

  • Ambassadeur
  • *****
  • Berichten: 1.343
  • Geslacht: Man
Re: meerdere keuzes mogelijk maken in vervolglijst
« Reactie #24 Gepost op: 23 november 2014, 10:18:17 »
Hallo Adri,

Met je laatste voorbeeld ben je op de goede weg, maar ik zie toch nog een aantal mogelijke verbeteringen.
Zal een beetje tijd vergen, maar wanneer ik die vind wordt het wel aangepakt...

Mvg,
pitufo
"De computer doet wel degelijk wat je hem vraagt,
 maar NIET wat je DENKT dat je hem vraagt"

Offline adri

  • Ervaren lid
  • ***
  • Berichten: 421
  • Geslacht: Man
  • De Oplossing!
Re: meerdere keuzes mogelijk maken in vervolglijst
« Reactie #25 Gepost op: 26 november 2014, 12:49:00 »
hallo,
heb nu een nieuw voorbeeld gemaakt.
bedoeling is nu om te starten op blad 1 met invullen van de waarden en daarna alles te kopieren naar een overzichtsblad.
alle data kopieren naar de desbetreffende tabellen is me gelukt.

op de invulpagina staan drie listboxen voor de drie in te vullen velden.
enkel selecteren vult de waarde direct in (eindstop).
multiselect lukt me niet.
bedoeling zou zijn om via de knop onder lijst de geselecteerde waarde in te vullen.
geraak er niet uit.

in lijst tussenstops zou ik ook graag 2 kolommen zien (naam + plaats).
invullen zelf mag alleen de eerste kolom zijn.

ps in blad stops heb ik lijsten benoemd.
kan ik die naam ook gebruiken ivm de listbox?
Asus k750jb.
Windows 10 Home   NLD 64bit
Intel(R) Core(TM) i7-4700HQ CPU @ 2.40GHz 2401
X750JB
NVIDIA GeForce GT 740M        2048MB 1600 x 900
Realtek High Definition Audio
Nr: 1 Model: PLEXTOR PX-256M5S
C:\ NTFS 183,18GB 6,54GB 12 173MB
AV: AVG
FW: Windows Firewal Enabled: True

Offline dizzl

  • Ambassadeur
  • *****
  • Berichten: 2.345
  • I've Upped my standards,now,up yours!
Re: meerdere keuzes mogelijk maken in vervolglijst
« Reactie #26 Gepost op: 27 november 2014, 07:14:21 »
Dit is wat quick & dirty maar mss heeft iemand er wat aan.
MsAccess  ipv excel
Systeem  : Intel Core i5-4440 3.1Ghz, 3.1GHz 16Giga Ram 64Bits
Software : Windows 10 professional, Avira, Office 2016 Professional

Offline adri

  • Ervaren lid
  • ***
  • Berichten: 421
  • Geslacht: Man
  • De Oplossing!
Re: meerdere keuzes mogelijk maken in vervolglijst
« Reactie #27 Gepost op: 27 november 2014, 08:58:54 »
dit is een mooie layout dizzl.
kan voor new record wel data invullen in de 'gewone velden', maar hoe selecteer je uit de 'lijstjes' voor tussenstops, eindstop, deelnemers?
of zal hier vba moeten achter komen?

hier nu eventueel ook kleine jpg's voor de knooppunten en een meteovista afdruk mogelijk?
of is dat beter iets voor een rapport.
Asus k750jb.
Windows 10 Home   NLD 64bit
Intel(R) Core(TM) i7-4700HQ CPU @ 2.40GHz 2401
X750JB
NVIDIA GeForce GT 740M        2048MB 1600 x 900
Realtek High Definition Audio
Nr: 1 Model: PLEXTOR PX-256M5S
C:\ NTFS 183,18GB 6,54GB 12 173MB
AV: AVG
FW: Windows Firewal Enabled: True

Offline adri

  • Ervaren lid
  • ***
  • Berichten: 421
  • Geslacht: Man
  • De Oplossing!
Re: meerdere keuzes mogelijk maken in vervolglijst
« Reactie #28 Gepost op: 27 november 2014, 11:21:17 »
heb ondertussen eindelijk de juiste code gevonden voor mijn cmndbutttons in excel:


Private Sub ListBox1_Change()

Dim lngCurrentItem As Long
Dim strCurrentItem As String
Dim strAllSelectedItems As String
Dim rngOutput As Range

Set rngOutput = [J1]

strAllSelectedItems = ""

For i = 0 To ListBox1.ListCount - 1
    strCurrentItem = ListBox1.List(i)

    If ListBox1.Selected(i) Then
        If strAllSelectedItems = "" Then
            strAllSelectedItems = strCurrentItem
        Else
            strAllSelectedItems = strAllSelectedItems & " - " & strCurrentItem
        End If
    End If

Next i

If strAllSelectedItems = "" Then
    rngOutput = "No Items Selected"
ElseIf InStr(1, strAllSelectedItems, " - ", vbTextCompare) > 0 Then
    rngOutput = strAllSelectedItems & " Are Selected"
Else
    rngOutput = strAllSelectedItems & " Is Selected"
End If

End Sub
Asus k750jb.
Windows 10 Home   NLD 64bit
Intel(R) Core(TM) i7-4700HQ CPU @ 2.40GHz 2401
X750JB
NVIDIA GeForce GT 740M        2048MB 1600 x 900
Realtek High Definition Audio
Nr: 1 Model: PLEXTOR PX-256M5S
C:\ NTFS 183,18GB 6,54GB 12 173MB
AV: AVG
FW: Windows Firewal Enabled: True

Offline dizzl

  • Ambassadeur
  • *****
  • Berichten: 2.345
  • I've Upped my standards,now,up yours!
Re: meerdere keuzes mogelijk maken in vervolglijst
« Reactie #29 Gepost op: 27 november 2014, 11:48:49 »
Zet je jouw versie dan eens hier adri?
Of mss start je best een nieuwe topic in Access?
Systeem  : Intel Core i5-4440 3.1Ghz, 3.1GHz 16Giga Ram 64Bits
Software : Windows 10 professional, Avira, Office 2016 Professional

 


www.combell.com