Dringend hulp met userforms !

Status
Niet open voor verdere reacties.
Je titel is nietszeggend.
Het forum bestaat uit vrijwilligers, daar past geen tijdsruk bij.
Als iets dringend is bel je toch gewoon een commercieel softwarebedrijf ?!
 
Dat weet ik, maar ik heb echt hulp nodig een geen commentaar.

Dank u
 
Je zou een spinner op je formulier kunnen plaatsen die de ZOOM factor van het formulier aanpast. DIe kan lopen van 10 tot 400 (dat zet zich om in %, dus je moet de beginwaarde van de spinner op 100 zetten). Dan kan men indien nodig dit even met de hand doen.

Hmm, mijn reactie hoort niet bij dit draadje :-) Negeren svp.
 
Laatst bewerkt:
Beste SNB,

Ik wil u bij deze vragen om nietstoevoegende , en soms zelfs botte, reacties achterwege te laten.
Neem ook nog eens de huisregels van helpmij.nl door a.u.b

Beste jkpieterse,
Als u wilt kan ik uw reactie verwijderen / verplaatsen. Als u dat wilt laten doen stuur dan even een mailtje via mijn profiel.
 
Hoi,
Ik heb wel een paar voobeeldjes en ben met een vbtje bezig die past voor u, maar wat jij niet kan oplossen in x aantal dagen kan iemand anders ook niet in een uurtje, we zijn tenslotte allemaal vrijwilligers , trouwens je had al een postje die exact over hetzelfde bestandje gaat .
Uw vorig postje http://www.helpmij.nl/forum/showthread.php/872265-Database-in-excel-invulformulier?p=5614997#post5614997http://
Ik weet dat het dringend is (of anders vlieg je buiten?)
Maar, het minste dat je kan doen is eventjes antwoorden. (antwoord: alvast bedankt voor de moeite is al voldoende)
Dus, in het vervolg eventjes antwoorden, dan zal je een stuk meer hulp kijgen.
Greetz
 
Hoi, bij deze
een vbtje
De zoek knop pas ik nog aan.
Laat maar eens weten als je daar al verder mee kan, het kan natuurlijk niet de bedoeling zijn dat we uw volledig bestand gaan aanpassen, maar bij deze, ik hoop niet dat je buitenvliegt:o, maar je moet zelf wat werken en leren:), ik ook :o

Greetz
 

Bijlagen

is dit iets

Code: 
Dim currentrow As Long

Private Sub cmdClose_Click()
Unload Me

End Sub

Private Sub cmdGetNext_Click()
Dim NameFound As Range
fpath = ThisWorkbook.Path & "\"


Range("A2").Select
ActiveCell.End(xlDown).Select
lastrow = ActiveCell.Row

currentrow = currentrow + 1
If currentrow = lastrow + 1 Then
currentrow = lastrow
MsgBox "You have reached the last row"
End If

With Cells(currentrow, 1)
txtFirstName.Text = Cells(currentrow, 1).Value
Set NameFound = .Find(txtFirstName.Text)

With NameFound
On Error Resume Next
imgData.Picture = LoadPicture(fpath & "nopic.jpg")
imgData.Picture = LoadPicture(fpath & txtFirstName.Text & ".jpg")
End With
End With


txtFirstName.Text = Cells(currentrow, 1).Value
txtLastName.Text = Cells(currentrow, 2).Value
txtMobile.Text = Cells(currentrow, 3).Value

End Sub

Private Sub cmdGetPrevious_Click()
Dim NameFound As Range
fpath = ThisWorkbook.Path & "\"


currentrow = currentrow - 1
If currentrow > 1 Then
txtFirstName.Text = Cells(currentrow, 1).Value
txtLastName.Text = Cells(currentrow, 2).Value
txtMobile.Text = Cells(currentrow, 3).Value

With Cells(currentrow, 1)
txtFirstName.Text = Cells(currentrow, 1).Value
Set NameFound = .Find(txtFirstName.Text)

With NameFound
On Error Resume Next
imgData.Picture = LoadPicture(fpath & "nopic.jpg")
imgData.Picture = LoadPicture(fpath & txtFirstName.Text & ".jpg")
End With
End With

ElseIf currentrow = 1 Then
MsgBox "This is your first record"
currentrow = currentrow + 1
End If

End Sub

Private Sub cmdSend_Click()
Range("A2").Select
ActiveCell.End(xlDown).Select
lastrow = ActiveCell.Row
'MsgBox lastrow
Cells(lastrow + 1, 1).Value = txtFirstName.Text
Cells(lastrow + 1, 2).Value = txtLastName.Text
Cells(lastrow + 1, 3).Value = txtMobile.Text

Range("A2").Select
txtFirstName.Text = ""
txtLastName.Text = ""
txtMobile.Text = ""
End Sub


Private Sub UserForm_Initialize()
currentrow = 1

txtFirstName.Text = ""
txtLastName.Text = ""
txtMobile.Text = ""

End Sub

https://www.youtube.com/watch?v=yLyPe_M1sNc
 
Laatst bewerkt:
Bedankt iedereen om mij te willen helpen en inderdaad dotchijack ik had moeten antwoorden maar ik was er zo danig mee bezig dat ik de rest vergat. Ik ga ze straks allemaal eens uitproberen en ik antwoord vanavond terug wat ik heb. Ik wil het ook graag zelf leren want eigenlijk is het wel interessant om et te kunnen toepassen.

Mijn excuses alvast aan iedereen en heel erg bedankt voor alle reacties.


Tot straks!
 
Bedankt aan allen voor de hulp. Ik ben jullie zeer dankbaar.

Heb er wat aan gewerkt en enkele van de toepassingen gebruikt, maar het lukt mij niet perfect (zie bijlage)

1. De zoekfunctie heb ik via een aparte userform opgemaakt, maar probleem is dat die niet zoekt omdat er iets mis is met de codering..

2. Bij het invoegen van een dossier vraagt deze een bevestiging maar nog voor dat ik ja of nee klik, is deze al ingevoegd. Bestaat er geen codering om het antwoord ja of nee af te wachten. Bij ja: toevoegen en bij nee: annuleren en daarmee de veldjes leegmaken..

3. Het wijzigen van een dossier zou ik graag de gegevens willen oproepen uit de database en via het invulformulier wijzigen. De gegevens zouden eigenlijk automatisch opgeroepen moeten worden uit het bestand zodat ik die via dit formulier kan aanpassen.

Iemand nog zin om me verder te helpen? :)

Alvast bedankt!

Katja

Zie bijlage
 

Bijlagen

Geef al eens aan om welk userform het juist gaat want er staan er 13 in je bestand.
Waarop moet er gezocht worden in de database, Onderwerp, referentie, ....?
Zet eens wat fictieve gegevens in je bestand zodat we iets hebben om mee te werken.
 
Kijk eens naar je procedures, en vooral naar de volgorde waarin je iets doet. Je begint bijvoorbeeld op het formulier <UserFormAndereinvoegen> met:
Code: 
    Lastrow = Sheets("Opvolgingstabel").Range("A65536").End(xlUp).Row + 1
    'Wegschrijven v/d gegevens
    Cells(Lastrow, 1).Value = TextBox1
...
    Cells(Lastrow, 9).Value = TextBox8
    'Wegschrijven van Urgent Ja/Nee
    Cells(Lastrow, 3).Value = Eens
En daarna kom je met de vraag:
Code: 
    Response = MsgBox("Dossier invoegen in database?", vbYesNo)
    If Response = vbYes Then
Dan heb je de gegevens dus al inderdaad weggeschreven. Zou je, kortom, niet eerst de vraag stellen of het record bewaard moet worden, en daarna pas de gegevens wegschrijven als het antwoord Ja is?
 
Octafish heb het geprobeerd maar het blijft hetzelfde helaas.

De zoek en wijzigfunctie is nu wel in orde.

Ik zou graag bij deadlines enz. de data in de userform willen aanpassen, zodat ze enkel een datum kunnen invullen. Weet er iemand hoe dat werkt met datepicker?


MVG
 
Zoals ik al enkele posts geleden gevraagd heb, post een voorbeeldbestand met je laatste aanpassingen, zet er wat fictieve gegevens in en zeg erbij om welk userform het juist gaat (welk van de 13 UF)
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan