meerdere checkboxen van form gevolgd door inputbox

Status
Niet open voor verdere reacties.
M

MarcBrood

Gebruiker
Lid geworden
21 jul 2009
Berichten
7
Om de aangevinkte artikelen uit de Kataloog een aantal te kunnen meegeven per gekozen artikel heb ik een inputbox gebruikt.
Nu met één geselecteerd artikel is dit geen probleem.
Als ik meerdere artikels selecteer, verdwijnt de pop-up inputbox echter en moet ik ergens op de form klikken om deze zichtbaar te krijgen.
Ik heb al van alles geprobeerd en gedurende 3 dagen het www doorgebladerd en krijg het helaas niet voor mekaar.

Misschien wat voer voor de specialisten ter zake...
gemaakt in MOP2010
 

Bijlagen

  • Kataloog test inputbox.xlsm
    57,8 KB · Weergaven: 36
Laatst bewerkt:
Vervang de Checkboxes door TextBoxes, dan kan men daar direct het aantal ingegeven.
 
edmoor zei:
Vervang de Checkboxes door TextBoxes, dan kan men daar direct het aantal ingegeven.
Klik om te vergroten...

Dat is natuurlijk een mogelijke oplossing, maar het originele startscherm heeft voorlopig 2 tabbladen, 9 rubrieken/afbeeldingen/Buttons.
Als je doorklikt op één van de rubrieken, kom je op een formulier met 12 tabbladeren en elk blad heeft +/- 50 checkboxen, dit is een hele hoop werk, want dan moet ik deze ook allemaal gaan benoemen/linken toch?
Kataloog.jpg
 
Laatst bewerkt:
Het is een bewuste keuze dus.
Wat je als probleem noemt zie ik hier echter niet gebeuren.
De inputbox komt voor ieder geselecteerd artikel keurig in beeld.

Als bij jou de Inputbox hardnekkig blijft weigeren kan je proberen of het bijgevoegde voorbeeld met een zelf gemaakte "InputBox" wel doet wat je wilt.
Deze voorkomt ook meteen dat men iets anders dan cijfers kan ingeven en dat het venstertje wordt gesloten door op het kruisje te klikken.

Bekijk bijlage Kataloog test inputbox.xlsm
 
Laatst bewerkt:
Fantastisch, Uw voorbeeldje werkt zoals ik het hoopte! :thumb:
Alvast bedankt, nu ga ik de schermpositie nog even uitzoeken.
 
De schermpositie van die zelf gemaakte inputbox bedoel je?
Dat kan zo:
Code: 
ActiveCell.Offset(0, 5).Value = Aantal(ctrl.Caption, 10, 10)
 
Private Function Aantal(Artikel As String, pLeft As Integer, pTop As Integer) As Integer
    With frmAantal
        .lblArtikel = Artikel
        .txtAantal = ""
        .txtAantal.SetFocus
        .StartUpPosition = 0
        .Top = pTop
        .Left = pLeft
        .Show
    End With
    
    Aantal = IIf(frmAantal.txtAantal = "", 0, frmAantal.txtAantal)
    Unload frmAantal
End Function
 
Nice!

ActiveCell.Offset(0, 5).Value = Aantal(ctrl.Caption, 10, 10) -> voor wat staat de ,10 ,10) ?
Hij geeft hierdoor een foutmelding, na deze te hebben verwijderd werkt hij perfect en word hij getoond zoals bij een default StartUpPosition(3)

nogmaals bedankt ;)
 
Die 10 mag je zelf wijzigen, die staan for de Left en Top positie van die inputbox.
Die worden doorgegeven aan de parameters pLeft en pTop in de functie:
Private Function Aantal(Artikel As String, pLeft As Integer, pTop As Integer) As Integer

Het werkt hier zonder enige foutmelding.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan