vraag op zoeken , tonen medewerker naar uitbreiding bestelbon

grema · 14 jan 2007

heb nog even verder geprutst en bij volgende deze editie wenste ik de stok en back orders te kunnen raadplegen .

Dus vooegde enkele kolommen bij . Zie info bestellingen .

De bedoeling ervan is dat bij raadpleging men kan zien of de bestelling volledig is en wat er nog moet binnen komen.

Maar t loopt weer vast .

Iemand een hint ???

Demeter · 14 jan 2007

Je hoeft deze enkel alleen onder het kopje Private Sub UserForm_Initialize() aan te passen

Code:

Private Sub UserForm_Initialize()
'hier komt de code welke wordt uitgevoerd als het userform wordt geladen

'zet de cursus in vakje Naam
txbVoornaam.SetFocus

'maak de keuze vakjes leeg
chbLijst1 = False
chbLijst2 = False

'maak alle textboxen leeg
txbVoornaam.Text = ""
txbReferentie.Text = ""
txbTelefoonnummer.Text = ""
txbGSM.Text = ""
txbArtikel1.Text = ""
txbArtikel1aantal.Text = ""
txbArtikel2.Text = ""
txbArtikel2aantal.Text = ""
txbArtikel3.Text = ""
txbArtikel3aantal.Text = ""
txbArtikel4.Text = ""
txbArtikel4aantal.Text = ""
txbKlantnummer.Text = ""
txbBTWnummer.Text = ""
txbBesteldata.Text = Format(Now(), "dd mmmm yyyy")

End Sub

In je opslaan code laat je het staan zoals het is.

Code:

MyRange.Range("O" & legeregel) = txbBesteldata.Text
en
MyRangeII.Range("O" & legeregel) = txbBesteldata.Text

Groet,
Ferenc

ps.
tevens helpt het ook om je kolom de juiste cel eigenschappen mee te geven

grema · 14 jan 2007

Fijn : :thumb: datum probleem opgelost .

Nu nog 't vervolg met "STOK " en " BACK ORDERS "

Kijk je daar nog even naar aub

grema

Demeter · 14 jan 2007

Je vervalt in dezelfde fout als eerder in deze thread.
In je code benoem je je textbox als:
txbStokartikel1
Terwijl je deze in je eigenschappen de naam:
Stokartikel1
hebt gegeven.
Verander deze voor je nieuw toegevoegde textboxen en hij zal werken

.

Groet,
Ferenc

grema · 14 jan 2007

Ferenc,

Had het moeten zien .. ( maar dacht dat de "txb" stond voor "tekstbox" en dus niet moest worden overgenomen.)

Het resultaat mag er zijn .

Kijk met spanning uit naar het antwoord op uw (onze vraag ) naar cijfers en letters .

Hou me even mee op de hoogte aub.

Alvast bedankt voor al de hulp .:thumb: :thumb: :thumb:

( misschien probeer ik het nog wat uit te breiden naar leverancier en besteldata bij leverancier -- Stok plaats in magazijn ea. )

met deze versie ben ik al heel erg geholpen ; maar het geeft me nieuwe ideen. ( dus waarschijnlijk ook nieuwe problemen )

beschouw deze topic als gesloten ; nogmaals dank
grema :thumb:

Demeter · 14 jan 2007

Graag gedaan.
Zo helpen we elkaar om ver te komen.

txb wordt er vaak voor gezet om in de code makkelijk te kunnen zien om wat voor soort inputbox het is.
cmb staat bv weer voor combobox.

Groet,
Ferenc

Wigi · 14 jan 2007

Demeter zei:
txb wordt er vaak voor gezet om in de code makkelijk te kunnen zien om wat voor soort inputbox het is.
cmb staat bv weer voor combobox.

Idd, al zijn er geen regels voor. Je kan zelf kiezen wat je gebruikt, maar wees consistent. Besef wel dat er vrij veel verschillende elementen zijn die je kan gebruiken, dus wijs de afkortingen een beetje slim toe.

Wigi

grema · 14 jan 2007

wil nog even terugkomen op : verplichte velden.

Bij blad list 2 = bedrijf vraagt hij steeds naar alle verplichte velden

Waar staan die : ik haalde reeds alles weg behalve Naam en Refentie
Dit schiet over . Kan toch niet opslaan op blad 2
Waarom ???

Code:

  'als er moet worden opgeslagen in lijst2
    ElseIf chbLijst2 = True Then
    
        'Plaats eerst een popup schermpje om te vragen of de gegevens echt opgeslagen dienen te worden
        response = MsgBox("Weet u zeker dat u deze gegevens wilt opslaan op blad 2?", vbYesNo, Title:="Gegevens opslaan?")
        'is het antwoord nee verlaat dan het scherm
        If response = vbNo Then

            Exit Sub
            
        'is het antwoord ja, voer dan de volgende code uit
        Else
            'waar gaan we opslaan
            legeregel = MyRangeII.Range("A" & Rows.Count).End(xlUp).Row + 1
            
            If txbVoornaam <> "" And txbReferentie.Text <> "" Then
                MyRangeII.Range("A" & legeregel) = txbVoornaam.Text
                MyRangeII.Range("B" & legeregel) = txbReferentie.Text
                MyRangeII.Range("C" & legeregel) = txbTelefoonnummer.Text
                MyRangeII.Range("D" & legeregel) = txbGSM.Text
                MyRangeII.Range("E" & legeregel) = txbArtikel1.Text
                MyRangeII.Range("F" & legeregel) = txbArtikel1aantal.Text
                MyRangeII.Range("G" & legeregel) = txbStokartikel1.Text
                MyRangeII.Range("H" & legeregel) = txbBOartikel1.Text
                MyRangeII.Range("I" & legeregel) = txbArtikel2.Text
                MyRangeII.Range("J" & legeregel) = txbArtikel2aantal.Text
                MyRangeII.Range("K" & legeregel) = txbStokartikel2.Text
                MyRangeII.Range("L" & legeregel) = txbBOartikel2.Text
                MyRangeII.Range("M" & legeregel) = txbArtikel3.Text
                MyRangeII.Range("N" & legeregel) = txbArtikel3aantal.Text
                MyRangeII.Range("O" & legeregel) = txbStokartikel3.Text
                MyRangeII.Range("P" & legeregel) = txbBOartikel3.Text
                MyRangeII.Range("Q" & legeregel) = txbArtikel4.Text
                MyRangeII.Range("R" & legeregel) = txbArtikel4aantal.Text
                MyRangeII.Range("S" & legeregel) = txbStokartikel4.Text
                MyRangeII.Range("T" & legeregel) = txbBOartikel4.Text
                MyRangeII.Range("U" & legeregel) = txbKlantnummer.Text
                MyRangeII.Range("V" & legeregel) = txbBTWnummer.Text
                MyRangeII.Range("W" & legeregel) = txbBesteldata.Text
                MsgBox "Vul alle verplichte velden in?"
                Exit Sub
            End If

Wigi · 14 jan 2007

Gewoon een opmerking over de code, voor de rest is Demeter heel goed bezig in deze topic. :thumb:

Code:

If txbVoornaam <> "" And txbReferentie.Text <> "" Then
                MyRangeII.Range("A" & legeregel) = txbVoornaam.Text
                MyRangeII.Range("B" & legeregel) = txbReferentie.Text
                MyRangeII.Range("C" & legeregel) = txbTelefoonnummer.Text
                MyRangeII.Range("D" & legeregel) = txbGSM.Text
                MyRangeII.Range("E" & legeregel) = txbArtikel1.Text
                MyRangeII.Range("F" & legeregel) = txbArtikel1aantal.Text
                MyRangeII.Range("G" & legeregel) = txbStokartikel1.Text
                MyRangeII.Range("H" & legeregel) = txbBOartikel1.Text
                MyRangeII.Range("I" & legeregel) = txbArtikel2.Text
                MyRangeII.Range("J" & legeregel) = txbArtikel2aantal.Text
                MyRangeII.Range("K" & legeregel) = txbStokartikel2.Text
                MyRangeII.Range("L" & legeregel) = txbBOartikel2.Text
                MyRangeII.Range("M" & legeregel) = txbArtikel3.Text
                MyRangeII.Range("N" & legeregel) = txbArtikel3aantal.Text
                MyRangeII.Range("O" & legeregel) = txbStokartikel3.Text
                MyRangeII.Range("P" & legeregel) = txbBOartikel3.Text
                MyRangeII.Range("Q" & legeregel) = txbArtikel4.Text
                MyRangeII.Range("R" & legeregel) = txbArtikel4aantal.Text
                MyRangeII.Range("S" & legeregel) = txbStokartikel4.Text
                MyRangeII.Range("T" & legeregel) = txbBOartikel4.Text
                MyRangeII.Range("U" & legeregel) = txbKlantnummer.Text
                MyRangeII.Range("V" & legeregel) = txbBTWnummer.Text
                MyRangeII.Range("W" & legeregel) = txbBesteldata.Text
                MsgBox "Vul alle verplichte velden in?"
                Exit Sub
            End If

Kan je beter vervangen door

Code:

If txbVoornaam <> "" And txbReferentie.Text <> "" Then
                With MyRangeII.Range("A" & legeregel)
                     .Offset(,0) = txbVoornaam.Text
                     .Offset(,1) = txbReferentie.Text
                     .Offset(,2) = txbTelefoonnummer.Text
                     .Offset(,3) = txbGSM.Text
                     '...
                     'al de rest
                     MsgBox "Vul alle verplichte velden in?"
                     Exit Sub
                End With
            End If

Wigi

grema · 14 jan 2007

wigi

geeft dit ( offset ...... ) een oplossing over het probleem naar opslaan op blad 2 ??

grema

Wigi · 14 jan 2007

Ik heb niet geantwoord op een evt. vraag, ik zag gewoon die code staan en vind dat die wel wat beter kan. Vandaar.

grema · 14 jan 2007

ok no problem

dacht dat het een antwoord was , ( leer bij en vraag dus maar op)

indien je toch een antwoord weet ..'t zou me helpen
Kijk iets over het hoofd

grema

grema · 14 jan 2007

terug naar vraag 28

opslaan op blad 2 gaat niet terwijl het programma zegt dat het is opgeslagen

Waar dan ??

Demeter · 15 jan 2007

Kijk eens naar de onderste regels in je code in post #28:
Waarom staan deze daar:

Code:

               MsgBox "Vul alle verplichte velden in?"
                Exit Sub

?

Haal deze weg en het zal werken.

Groet,
Ferenc

ps.
Hang volgende keer een nieuwe file aan zat met versie 8 te werken en hierin staan de txb benamingen nog verkeerd

.
thanks

Demeter · 15 jan 2007

Antwoord op vraag 3 (de gene welke ik zelf ook nog heb gepost):
http://www.helpmij.nl/forum/showthread.php?p=1834836&posted=1#post1834836

let wel op de code die daar staat heb ik een stuk uitgekleed ivm posten.
Kijk alleen naar het rode gedeelte.

Groet,
Ferenc

grema · 15 jan 2007

Aan Ferenc

In bijlage nog even het probleem van opslaan .

item ; vraag 3 Bekijk ik straks even

Eerst eerst probleem van opslaan op blad 2 opgelost krijgen .Op Blad 1 slaat hij alles normaal op op blad 2 zegt dat ie heeft opgeslagen maar zie niks op lijsten

Heb waarschijnlijk teveel geknipt en geplakt .

In bijlage nog even bestand (nr 10 )

grema · 15 jan 2007

de bijlage vergeten

oeps !!

nu erbij !!

Demeter · 15 jan 2007

Kijk eens op rij 340 of iets dergelijks.
Weet niet hoe het kan maar hij is hier op een gegeven moment gaan opslaan.
Misschien heb je er een keer formules ingevoerd oid.
Maak deze rijen leeg en hij zal weer werken.

Groet,
Ferenc

Demeter · 15 jan 2007

Kijk ook eens naar je formules in kolom H.
Deze kan je ook met VBA er in zetten:

Code:

MyRange.Range("H" & legeregel) = "=F" & legeregel & "-G" & legeregel

Misschien niet de mooiste code, maar werkt als een paard

.

Groet,
Ferenc

grema · 15 jan 2007

item 39

voor sevens

eerst nog afsluitprobleem op blad 2

Code:

         'end if response is no lijst2
    End If

MsgBox "bestelling is toegevoegd!"

response = MsgBox("Wilt u nog een nieuwebestelling toevoegen?", vbYesNo, Title:="Gegevens opslaan?")
    If response = vbNo Then
        Me.Hide
        Unload Me
        
    Else
        
        UserForm_Initialize
        
    End If

'tegen flikkeren van beeldscherm
Application.ScreenUpdating = True

Exit Sub
End Sub

vraag op zoeken , tonen medewerker naar uitbreiding bestelbon

Gebruiker

Verenigingslid

Gebruiker

Verenigingslid

Gebruiker

Verenigingslid

Inventaris

Gebruiker

Inventaris

Gebruiker

Inventaris

Gebruiker

Gebruiker

Verenigingslid

Verenigingslid

Gebruiker

Gebruiker

Verenigingslid

Verenigingslid

Gebruiker

Wij waarderen jouw privacy