Help!

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

Hulp bij posten

Recente topics

Auteur Topic: ComboBox meerdere gegevens  (gelezen 7583 keer)

0 leden en 1 gast bekijken dit topic.

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.277
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: ComboBox meerdere gegevens
« Reactie #15 Gepost op: 07 februari 2021, 15:12:37 »
Dit is alvast het antwoord op vraag 1... (de VAL functie om de waardes heen)
Private Sub txtAantal_Change()
      If frmStockUIT.txtAantal.Value = True Then
      txtStockUIT.Value = "UIT"
      'MsgBox "Artikel is uitgeboekt", vbOKOnly + vbExclamation, "Waarschuwing"
      Else
      txtStockUIT.Value = ""
       'MsgBox "Checkbox has UnChecked", vbOKOnly + vbExclamation, "Waarschuwing"
       
       End If
       
      If Val(txtAantal.Value) >= Val(txtStock.Value) Then
      MsgBox "Je hebt meer afgeboekt dan de stock toelaat !" & vbCrLf & "" & vbCrLf & _
      "Geef de aantallen opnieuw in !", vbOKOnly + vbCritical, "Waarschuwing"
      End If

End Sub
______________________________

Groet, Leo

Offline Jempje

  • Lid
  • *
  • Berichten: 54
  • Geslacht: Man
  • Wil veel bijleren !
Re: ComboBox meerdere gegevens
« Reactie #16 Gepost op: 07 februari 2021, 16:28:59 »
Hey Leo, Het werkt niet helemaal goed.  bv: Stock artikel 1 is 765, als ik 765 afboek krijg ik toch de melding "te veel..." als ik 764 afboek gaat hij verder, maar nadat ik op "OK Stock UIT" heb geklikt, krijg ik eveneens de melding. Als ik al bv een 1 begin te typen krijg ik ook al een melding Artikel is uitgeboekt, typ ik achter de 1 nog een 1 hetzelfde, oook een melding "artikel is afgeboekt. Zou je de code eens in de voorbeeldfile kunnen toevoegen aub?
Dat het aantal ook afgaat van de stock tabel was je zeker nog mee bezig, dit was onduidelijk omdat je zei dat dit een antwoord was op vraag 1.
Grtjs Jacky

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.277
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: ComboBox meerdere gegevens
« Reactie #17 Gepost op: 07 februari 2021, 23:06:07 »
Jempje, ik snap je niet echt wat je bedoelt met dit deel in je reactie...
Citaat
maar nadat ik op "OK Stock UIT" heb geklikt, krijg ik eveneens de melding. Als ik al bv een 1 begin te typen krijg ik ook al een melding Artikel is uitgeboekt, typ ik achter de 1 nog een 1 hetzelfde, oook een melding "artikel is afgeboekt.
Kan je dat nog 'ns verduidelijken?

Het feit dat 765 niet wordt geaccepteerd, had je zelf natuurlijk ook kunnen zien. Je zet in je eigen code ">=" in de vergelijking in het If-statement. Dat moet natuurlijk alleen maar ">" zijn. Dan ziet het codeblokje er zo uit....
Private Sub txtAantal_Change()
      If frmStockUIT.txtAantal.Value = True Then
      txtStockUIT.Value = "UIT"
      'MsgBox "Artikel is uitgeboekt", vbOKOnly + vbExclamation, "Waarschuwing"
      Else
      txtStockUIT.Value = ""
       'MsgBox "Checkbox has UnChecked", vbOKOnly + vbExclamation, "Waarschuwing"
       
       End If
       
      If Val(txtAantal.Value) > Val(txtStock.Value) Then
      MsgBox "Je hebt meer afgeboekt dan de stock toelaat !" & vbCrLf & "" & vbCrLf & _
      "Geef de aantallen opnieuw in !", vbOKOnly + vbCritical, "Waarschuwing"
      End If

End Sub
Het is daarnaast natuurlijk ook handig om deze eis óók af te vangen als je de boel gaat muteren, dus hierbij ook dat code blokje van jou met daarin extra die afvanging...
Private Sub cmdStockUIT_Click()

'Zorgt er vor dat alle verplichte velden zijn ingevuld
If Trim(Me.cboArtikel.Value) = "" Then
Me.cboArtikel.SetFocus
MsgBox "Gelieve een ARTIKEL in te geven !", vbOKOnly + vbExclamation, "Waarschuwing"
Exit Sub
End If

If Trim(Me.txtAantal.Value) = "" Then
Me.txtAantal.SetFocus
MsgBox "Gelieve de AANTALLEN in te geven !", vbOKOnly + vbExclamation, "Waarschuwing"
Exit Sub
End If

If Trim(Me.txtAantal.Value) = "0" Then
Me.txtAantal.SetFocus
MsgBox "Een 0 ingeven is niet toegestaan !", vbOKOnly + vbExclamation, "Waarschuwing"
Exit Sub
End If

      If Val(txtAantal.Value) > Val(txtStock.Value) Then
      Me.txtAantal.SetFocus
      MsgBox "Je hebt meer afgeboekt dan de stock toelaat !" & vbCrLf & "" & vbCrLf & _
      "Geef de aantallen opnieuw in !", vbOKOnly + vbCritical, "Waarschuwing"
      Exit Sub
      End If

If Trim(Me.cboNaamOrderGemaakt.Value) = "" Then
Me.cboNaamOrderGemaakt.SetFocus
MsgBox "Gelieve NAAM AANGEMAAKT in te geven !", vbOKOnly + vbExclamation, "Waarschuwing"
Exit Sub
End If

'Plaatst de gegevens in de Tabel
   Sheets("INenUIT").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 13).Value = Array(cboArtikel, txtOmschrijving, txtLocatie, txtEenheid, _
   CDbl(txtAantal), txtStockUIT, cboNaamOrderGemaakt, "", txtDatumUur, txtDatum, txtJaar, txtOpmerkingen, "", "", "")
      ' Plaatst dit ergens tussen en het wordt afgevinkt - ChrW(&H2713)
     
'Verwijderd alle gegevens
Me.cboArtikel.Value = ""
Me.txtAantal.Value = ""
Me.cboNaamOrderGemaakt.Value = ""
Me.txtDatumUur.Value = ""
Me.txtDatum.Value = ""
Me.txtJaar.Value = ""
Me.txtOpmerkingen.Value = ""
Me.txtStockUIT.Value = ""
Me.txtStock.Value = ""
 
'Zorgt ervoor dat de datums terug komen na wissen alle velden, als de datums niet eerst gewist worden blijft de tijd staan !
  txtDatumUur = Format(Now, "dd/mm/yyyy - hh:mm")
  txtDatum = Format(Date, "dd/mm/yyyy")
  txtJaar = Format(Date, "yyyy")
 
ThisWorkbook.Sheets("Opstartblad").Activate

    MsgBox " ARTIKEL IS" & vbCrLf & "" & vbCrLf & "UITGEBOEKT !", vbOKOnly + vbExclamation, "Waarschuwing"

End Sub
Je moet dus beide blokjes vervangen voor wat jij al hebt.

Laat dus weten wat je met dat andere deel van je antwoord bedoelde en dan kijk ik daar nog wel naar. Het hele tweede punt van je vraag is wat ingewikkelder en heb ik verder nog niet naar gekeken. Als niemand anders dat doet, zal ik er deze week nog wel een keertje induiken.
______________________________

Groet, Leo

Offline Jempje

  • Lid
  • *
  • Berichten: 54
  • Geslacht: Man
  • Wil veel bijleren !
ComboBox meerdere gegevens en Stockbeheer met Orders
« Reactie #18 Gepost op: 08 februari 2021, 10:12:28 »
Inderdaad, de code voor "Je hebt meer...." , reageert dan ook nog eens als je de aantallen wil afboeken, wat goed is.  Bedankt, werkt prima zover.
Hopelijk gaat het lukken voor iemand om de aantallen in de tabel "Stock" af te boeken en via "frmStockIN" bij te boeken.

Misschien kan je me ondertussen al helpen met andere vragen ;).  Hoe komt het dat onderstaande code niet juist reageert op het feit als je niet de juiste "Naam aangemaakt" kiest in het formulier "frmStockUIT" ?  Werkt wel prima bij "Artikel".  Als je een foute naam typt komt er de melding,  "Ongeldige eigenschappenwaarde" ipv diegene hieronder.  Wat is hier de reden van en hoe pas ik dit aan.

Private Sub cboNaamOrderGemaakt_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If cboNaamOrderGemaakt.ListIndex = -1 Then
        MsgBox "Dit is geen Naam uit de lijst." & vbCrLf & "" & vbCrLf & "Kies een andere Naam!", vbOKOnly + vbExclamation, "Waarschuwing"
        Cancel = True
    End If
End Sub

Dan wil ik dat in het formulier "frmPartList" ook dat de leverancier gegevens verschijnen als ik een artikel kies, de lev. code staat in de tabel "PSCSTotaallijst" maar al de rest staat in de tabel "Leveranciers.  Onderstaande code doet het niet krijg de melding "Compileerfout, kan de methode of het gegevenslid niet vinden"

    With Sheets("Leveranciers").ListObjects("Tbl_Leveranciers").DataBodyRange
        Me.txtLeverancierNaam.Text = .Cells(txtLeverancier.ListIndex + 1, 2).Value
    End With

Is het ook mogelijk om in het formulier "frmPartlist" een foto van het part te laten zien?  Foto's staan in de tabel "PSCSTotaalijst"  deze foto's nemen praktisch geen geheugen in, zijn gecomprimeerd.

De aangepaste file is er in bijlage, merci alvast !

Grt Jacky
Grtjs Jacky

Offline Warme bakkertje

  • Volledig lid
  • **
  • Berichten: 215
  • Geslacht: Man
Re: ComboBox meerdere gegevens
« Reactie #19 Gepost op: 09 februari 2021, 11:52:02 »
Heb getracht zoveel mogelijk aan je vragen tegemoet te komen.

Test alles eens uit en laat ons weten waar het nog misgaat.

Wat betreft de afbeeldingen, een Image-control heeft een volledig pad naar een afbeelding nodig dus laden vanuit een worksheet gaat niet makkelijk

zijn en zal een hele hoop extra code vragen.

Je zal dus een directory met alle afbeeldingen moeten hebben waaruit dan de juiste geselecteerd kan worden
Windows 10 Home   NLD 64bit

Microsoft Office Professional Plus 2016 US

Offline Jempje

  • Lid
  • *
  • Berichten: 54
  • Geslacht: Man
  • Wil veel bijleren !
Re: ComboBox meerdere gegevens
« Reactie #20 Gepost op: 10 februari 2021, 08:35:38 »
Hallo warme Bakkertje, alvast bedankt voor de tijd die je er in gestoken hebt.  Wat betreft de "frmPartList" deze werkt nog steeds niet, ik zie dat je de code hebt aangepast.  Ik zie ook dat je achter "Me.txtLeverancierNaam.Text" .Text hebt gezet maar achter al de volgende Niet.  Ik heb achter al die andere ook even .Text gezet maar werkt nog steeds niet.  De bedoeling is dat in het formulier "frmPartlist" al de gegevens van de leverancier verschijnen als ik een artikelnummer kies.
    With Sheets("Leveranciers").ListObjects("Tbl_Leveranciers").DataBodyRange
        fRow = Application.Match(Me.txtLeverancier, .Columns(1), 0)
        If Not IsError(fRow) Then
            Me.txtLeverancierNaam.Text = .Cells(fRow, 2).Value
            Me.txtAdres1 = .Cells(fRow, 3).Value
            Me.txtAdres2 = .Cells(fRow, 4).Value
            Me.txtPostcode = .Cells(fRow, 5).Value
            Me.txtPlaats = .Cells(fRow, 6).Value
            Me.txtTelefoon = .Cells(fRow, 7).Value
            Me.txtGSM = .Cells(fRow, 8).Value
            Me.txtContactNaam = .Cells(fRow, 9).Value
            Me.txtEMail = .Cells(fRow, 10).Value
        End If
Grtjs Jacky

Offline Jempje

  • Lid
  • *
  • Berichten: 54
  • Geslacht: Man
  • Wil veel bijleren !
Re: ComboBox meerdere gegevens
« Reactie #21 Gepost op: 10 februari 2021, 08:46:57 »
Hey Warme Bakkertje, waar heb je nog ergens aan gewerkt.  Mijn eerste gedeelte van de vorige vraag is niets gewijzigd denk ik.  Dat was deze "Hoe komt het dat onderstaande code niet juist reageert op het feit als je niet de juiste "Naam aangemaakt" kiest in het formulier "frmStockUIT" ?  Werkt wel prima bij "Artikel".  Als je een foute naam typt komt er de melding,  "Ongeldige eigenschappenwaarde" ipv diegene hieronder.  Wat is hier de reden van en hoe pas ik dit aan.
Grtjs Jacky

Offline Warme bakkertje

  • Volledig lid
  • **
  • Berichten: 215
  • Geslacht: Man
Re: ComboBox meerdere gegevens
« Reactie #22 Gepost op: 10 februari 2021, 10:09:00 »
Wat betreft je 1ste vraag, als je een artikel kiest en de Leverancier kan niet gevonden worden in de Leverancierslijst komt er uiteraard ook geen informatie

betreffende die leverancier. Heb de lijst aangepast dus kies maar eens artikel 1 uit de Part lijst.

Je 2de vraag heb ik ook aangepakt.
Windows 10 Home   NLD 64bit

Microsoft Office Professional Plus 2016 US

Offline Jempje

  • Lid
  • *
  • Berichten: 54
  • Geslacht: Man
  • Wil veel bijleren !
Re: ComboBox meerdere gegevens
« Reactie #23 Gepost op: 10 februari 2021, 10:19:03 »
Ok, Artikel 1 kiest hij juist, maar als ik dan artikel 2 kies, blijft alles staan van artikel 1.  We zijn er bijna.
Grtjs Jacky

Offline Jempje

  • Lid
  • *
  • Berichten: 54
  • Geslacht: Man
  • Wil veel bijleren !
Re: ComboBox meerdere gegevens
« Reactie #24 Gepost op: 10 februari 2021, 10:28:11 »
Hey Warme Bakkertje, Sorry, mijn fout, Ik had niet de juiste leveranciercodes in de tabel "PSCSTotaallijst" staan, Bedankt ! Zover zijn we.
Grtjs Jacky

Offline Warme bakkertje

  • Volledig lid
  • **
  • Berichten: 215
  • Geslacht: Man
Re: ComboBox meerdere gegevens
« Reactie #25 Gepost op: 10 februari 2021, 10:31:08 »
Dat zou mijn antwoord geweest zijn. :)

Ik ging uit van de veronderstelling dat voor elk artikel in de artikellijst de leverancier ook zou voorkomen in de leverancierslijst.
Windows 10 Home   NLD 64bit

Microsoft Office Professional Plus 2016 US

Offline Jempje

  • Lid
  • *
  • Berichten: 54
  • Geslacht: Man
  • Wil veel bijleren !
Re: ComboBox meerdere gegevens
« Reactie #26 Gepost op: 10 februari 2021, 10:33:25 »
Misschien nog ff iets anders.  Ik heb wel in een access database de codes staan hoe daar stock wordt afgeboekt, hebben jullie hier soms iets aan.  Misschien ga je de vraag stellen waarom ik het dan niet maak in access, maar dat is een lang verhaal.  Ik moet het doen met Excel.
Grtjs Jacky

Offline Warme bakkertje

  • Volledig lid
  • **
  • Berichten: 215
  • Geslacht: Man
Re: ComboBox meerdere gegevens
« Reactie #27 Gepost op: 10 februari 2021, 10:59:40 »
Maar dat werkt nu toch al ???
Windows 10 Home   NLD 64bit

Microsoft Office Professional Plus 2016 US

Offline Jempje

  • Lid
  • *
  • Berichten: 54
  • Geslacht: Man
  • Wil veel bijleren !
Re: ComboBox meerdere gegevens
« Reactie #28 Gepost op: 10 februari 2021, 11:10:56 »
Aaah, ik zal dan straks eens kijken.  \o/
Grtjs Jacky

Offline Jempje

  • Lid
  • *
  • Berichten: 54
  • Geslacht: Man
  • Wil veel bijleren !
Re: ComboBox meerdere gegevens
« Reactie #29 Gepost op: 14 februari 2021, 17:42:50 »
Inderdaad, Warme Bakkertje, werkt prime, merci dusver !!  Mijn volgend vraagje gaat nu over het "frmTeBestellen" Dit formulier gaat me dan laten zien welke artikelen moeten worden besteld.  Gemakshalve, althans vind ik zelf, heb ik in de tabel "Stock" rechts "bestellen" laten verschijnen als mijn veilige stock te laag is.  Wat ik graag zou klaar krijgen met jullie hulp uiteraard,  is als ik in het formulier "frmTeBestellen" navigeer met de pijltjes, ik alle artikelen zie waar "Bestellen" achter staat en zodra ik op een artikel sta en klik op "Printen" de pagina die je op dat moment ziet uit print.
Tevens zou ik graag in het "frmOpstartblad" een melding krijgen vanaf dat er 1 artikel open staat om te bestellen.  In bijlage mijn file tot dusver klaar.
Grtjs Jacky

 


www.combell.com