• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Nummer naar text

Status
Niet open voor verdere reacties.
E

Excelvbas01

Gebruiker
Lid geworden
7 apr 2020
Berichten
165
Ik gebruik Combobox1 om gegevens in te laden vanuit kolom 3 blad "Klanten".
In kolom 3 heb ik nummers staan.
Het probleem is dat onderstaande formule geen nummers herkend. Geeft fouten.
Text lukt wel maar nummers niet. Een of ander manier worden nummers niet herkend.
Weet iemand een oplossing.

Foutmelding verwijst naar: Set rs = con.Execute(sql)

Code: 
Dim con As Object
Dim rs As Object
Dim sql As String

Code: 
sql = "select * from [Klanten$A2:G] Where F1 is not null"
If ComboBox1.Text <> "" Then sql = sql & " and f3 = '" & ComboBox1.Value & "'"
Set rs = con.Execute(sql)
ListBox1.ColumnCount = rs.Fields.Count
ListBox1.Column = rs.GetRows(rs.RecordCount)
TextBox34.Value = ListBox1.ListCount
 
Je gebruikt ComboBox1.Text en ComboBox1.Value?
Zou geen probleem moeten zijn, maar maak ze eens gelijk.
 
Waarom via een SQL-opdracht ?

deze regel ziet er nogal moeizaam uit:

XML Code:
[TABLE="class: xml"]
[TR="class: li1"]
[TD="align: right"]
1
[/TD]
[TD]sql = "select * from [Klanten$A2:G] Where F1 is not null"[/TD]
[/TR]
[/TABLE]
​
 
#edmoor: Ik heb ze gelijk getrokken en het probleem blijft. Alleen als ik Kolom waar getallen staan eigenschap verander en dubbelklik op de cel dan pakt combobox de getallen. Dit is omslachtig.

#SNB: hoort bij de code die ik gebruik. Ik zou t willen veranderen maar dan krijg nog meer problemen.

Op zich werk combobox prima zoals ik t wil.
Alleen problemen met getallen. Ik moet nu elke keer als ik iets toevoeg celeigenschap gaan veranderen in tekst.

Het zou mooi zijn als oplossing zou vinden voor getallen probleem.
 
Getallen in een combobox zijn gewoon tekst.
Plaats dus eens een voorbeeld documentje.
 
Laat bij het gebruik van getallen de enkele quotes uit de query weg.
 
Laatst bewerkt:
Zie https://www.snb-vba.eu/VBA_Fill_combobox_listbox.html
Zo dus:

Code: 
Private Sub UserForm_Initialize()
  Sheet1.Columns(4).AdvancedFilter 2, , Cells(1, 10), True
  ComboBox2.List = Cells(1, 10).CurrentRegion.Offset(1).SpecialCells(2).Value
  Cells(1, 10).CurrentRegion.Clear
End Sub

Code: 
Private Sub ComboBox2_Change()
  If ComboBox2.ListIndex > -1 Then
    With Sheet1.Cells(1).CurrentRegion
      .AutoFilter 4, ComboBox2
      .Offset(1).Copy Sheet1.Cells(1, 10)
      ListBox1.List = Sheet1.Cells(1, 10).CurrentRegion.Value
      Sheet1.Cells(1, 10).CurrentRegion.Clear
      .AutoFilter
    End With
  End If
End Sub
 
edmoor: Weet je ook welke quotes ik moet weghalen.

Snb: bedankt voor het meedenken. Ik wil eerst het probleem waar ik nu tegen aanloop oplossen.
Ik heb je formule gebruik krijg foutmelding. Object vereist
 
Er staan maar 2 enkele quotes, dat lijkt me eenvoudig.
Dus dit:
Code: 
If ComboBox1.Text <> "" Then sql = sql & " and f3 = '" & ComboBox1.Value & "'"
Wijzigen in:
Code: 
If ComboBox1.Text <> "" Then sql = sql & " and f3 = " & ComboBox1.Value
 
Laatst bewerkt:
Hier werkt het goed in je eigen voorbeeld document.
In je voorbeeld document moet het zo:
Code: 
If ComboBox2.Text <> "" Then sql = sql & " and f4 = " & ComboBox2.Value
Maar kijk ook naar wat snb liet zien, dus zonder SQL.
 
Ik dacht dat het probleem was opgelost. Ik loop helaas tegen een probleem aan.
Ik kan nu filteren op nummers en niet in combinatie van tekst en nummers.
Op het moment dat er tekst in de kolom voorkomt dat gebeurt iets raars. Dan wordt die cel niet in de combobox getoond. Ik zie dan leeg ruimte in de combobox.
Is het mogelijk om deze formule zodanig aan te passen dat ie op nummers en op tekst zoekt.

Code: 
If ComboBox2.Text <> "" Then sql = sql & " and f4 = " & ComboBox2.Value

Ik heb dit zelf geprobeerd op te lossen zonder resultaat.
 
Voor tekst moeten dus die enkele quotes er weer bij.
Als je het voorbeeld van snb gebruikt heb je daar geen omkijken naar.
 
Ik vind deze makkelijk uit te bereiden naar meerdere comboboxen en ben heel ver mee.
Als ik die van SNB ga gebruiken, wat ook goed is, moet ik alles omgooien en opnieuw beginnen.
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan