listbox vba probleem

[tobo100]

hallo allemaal ik vond op het inet een een tabel met een formulier om gegevens te veranderen ,toevoegen of deleten
nu zou ik graag er nog een kolom bij willen in de listbox na uren geploeter en van de regen in de drup gekomen
zou iemand die er Wel verstand van heeft er eens naar willen kijken
verder is het zo dat als ik op de Zoeken knop druk zonder iets ingevoerd te hebben alle gegevens er 3 maal in staan
zou iemand dat ook misschien kunnen veranderen

bvd vr groet tobo



Bekijk bijlage userform.xlsm

 

[Warme bakkertje]

Test deze eens.
Er staat een hoop overbodige code in, maar zo werkt het wel zoals jij het wil.

 

[tobo100]

het id zit idd in de lijst maar ik ben denk ik niet helemaal duidelijk geweest
ik zou het id samen met de rest ook graag willen aanpassen in het userform
ik heb het formulier iets aangepast zo dat er een ID tekstvak is
ook heb ik hier en daar in de macro n paar aanpassingen gemaakt en er ,Tobo bij gezet zo dat je kunt zien wat ik heb verandert
nu werkt het niet neer omdat er volgens mij n paar variabelen moeten worden gedeclareerd
ook moet ik nu 2maal op zoeken drukken voor er enig resultaat in de listbox komt
en dan staat alles er weer 3 x in
hoopt dat je nog ff tijd hebt om daar naar te zien

bvd vr groet Tobo


Bekijk bijlage userform1.xlsm

 

[Warme bakkertje]

Ik hoef maar 1 keer te klikken voor resultaat.
Je moet de naam v/d ID-textbox nog aanpassen op je formulier.

 

[tobo100]

textvak gevonden
maar nu variabel probleem
komt neem ik aan dat txtid niet is gedeclareerd ?

programma struikelt hier in iedergeval

Private Sub cmdReplace_Click()

Dim DatUitvRepl As Date
Dim NDatUitvRepl As Date
Dim NNMklantRepl As String
Dim NOmschrRepl As String
Dim r As Range
Dim NMklantRepl As String
Dim OmschrRepl As String
Dim OpdrnrRepl As Double
Dim faddress As String

If Trim(Me.txtOpdrnr.Value) = "" Then
Me.txtOpdrnr.SetFocus
MsgBox "Je bent vergeten het te wijzigen project te selecteren."
Exit Sub
End If

With Me
OpdrnrRepl = .Listbox1.Column(0)
DatUitvRepl = .Listbox1.Column(1)
NDatUitvRepl = .txtdatUitv
NMklantRepl = .Listbox1.Column(2)
NNMklantRepl = .txtNMklant
OmschrRepl = .Listbox1.Column(3)
NOmschrRepl = .txtOmschr
End With

 

[Warme bakkertje]

Zijn jouw opdrachtnummers in kolom A allemaal unieke nummers of komen deze meerdere malen voor ??
Anders heb je een heleboel overbodige code in jouw UF staan.
Test deze eens.

 

[tobo100]

bij mij maakt de nieuwe versie geen verschil
ik moet nog steeds 2maal op zoeken drukken voor er enig resultaat in de listbox komt
en dan staat alles er weer 3 x in tot ik zelf iets in het criteria vak invoer dan is het goed

kan dat aan m,n versie office2013 proff 64 bits liggen soms?
ook de knoppen toevoegen en verwijderen werken niet naar behoren
kolom a zijn unieke nummers idd
raar dat het bij jou wel goed werkt zo te lezen
codes die er volgens jou niet in horen mag je wel weghalen