Zoek en bewerkfunctie in VBA via Userform

[Kevinw01]

Goedemorgen,

Ik heb een probleem met een zoekfunctie in mijn userform in vba. Ik heb mijn vraag ook in het bijgevoegd document geplaatst op het voorblad.

Ik wil dus een zoekfunctie die via een id de gegevens terug ophaalt in mijn userform, waarna ik deze kan bewerken en uiteindelijk terug kan opslaan onder hetzelfde id.

Daarnaast wil ik nog een zoekfunctie op het voorblad die deze gegevens ook weer ophaalt.
Zie het document voor verheldering. Wie kan mij op weg helpen?

Alvast bedankt :thumb:

 

[snb]

Had je deze niet gevonden ?

 

[Kevinw01]

Had je deze niet gevonden ?

Ja die was ik wel tegengekomen, maar kan het niet echt lekker bewerken. Maar ik ga ff puzzelen, alvast bedankt.!

 

[Kevinw01]

Snb, ik kom er niet helemaal aan uit, jij gebruikt comboboxen om je nummers op te halen, maar ik wil gewoon handmatig via mijn zoekscherm doen. Ik weet dus ook niet wat voor code ik moet gebruiken en waar te plaatsen. Kan je me verder helpen toevallig?

 

[Warme bakkertje]

Probeer het eens met deze

 

[Kevinw01]

Rudi,

Precies wat ik bedoel :thumb: super!!

Heb alleen nog een vraagje, dat stukje van de textboxen leegmaken nu, hoe werkt dat?

En nog een klein vraagje, op tabblad Voorblad, werk de zoekfunctie goed!

Maar is het mogelijk wanneer een id nog niet bestaat dat er dan een melding komt met "deze id bestaat nog niet"?

Want nu krijg ik een foutmelding, wanneer een id intype die niet bestaat.

Groeten Kevin

 

[Kevinw01]

Ik weet niet of ik dit hier gelijk bij kan doen. Maar ik heb nog een probleem omtrent het zoeken op het tabblad voorblad. Als mijn opdrachtomschrijving groter is dan een aantal karakter dan haalt hij deze niet op. Ik heb dit probleem ook met het invullen in mijn formulier in het textbox opdrachtomschrijving.

Hoe zou dit opgelost kunnen worden?

Zou het te maken kunnen hebben met die variabele sq? kan daar maar een x-aantal karakters is bewaard worden?

 

[Warme bakkertje]

Textbox is beperkt tot 255 characters

 

[Kevinw01]

Hoe kan ik dat oplossen Rudi? of gaat dat niet?

Daarnaast heb ik ook nog het probleem met het ophalen van de id's op het tabblad "voorblad" want als ik een id intype die er niet is krijg ik een foutmelding. Kan ik door middel van een messagebox zeggen dat deze id dan nog niet bestaat?

Groeten Kevin

 

[Warme bakkertje]

Zie bijlage

 

[Kevinw01]

Hoi Rudi,

Zie bijlage, nu krijg ik bij elk nummer wat ik invoer die melding?
En wist jij toevallig nog een oplossing voor mijn textbox meer karakters te geven of iets daarvoor in de plaats

Alvast bedankt voor alle goede hulp :thumb:

 

[Warme bakkertje]

'-- Zoekbutton op het tabblad "Voorblad"
Private Sub CommandButton3_Click()
On Error Resume Next
    With Sheets("Adhoc-Data").Columns(1)
        sq = .Find(TextBox1.Value, , xlValues, xlWhole).Resize(, 12)
    End With
    If Not IsEmpty(sq) Then
        [D4].Resize(12) = WorksheetFunction.Transpose(sq)
    Else
        MsgBox "Dit nummer is niet aanwezig in de database", vbInformation, "Onbekend nummer"
    End If
End Sub

 

[Kevinw01]

Dank je wel Rudi, werkt perfect!!!

Nog een oplossing voor het aantal karakters van de textbox? Of weet iemand daar een handig truucje voor?