mijn ontwerpje afsluiten is steeds met een foutmelding en gegevens niet zien

Status
Niet open voor verdere reacties.
R

RonnyVDS

Gebruiker
Lid geworden
27 mei 2019
Berichten
16
Ik ben een leek in VBA en Excel

ik heb iets ontworpen met de hulp vanop deze website

maar ik heb een paar probjes, waar ik reeds lang naar op zoek ben:


-- 1 als ik in het FRMTitelBlad afsluit, krijg ik steeds een foutmelding

de foutmelding is steeds "het bovenste modale formulier meet eerst worden gesloten of verborgen"

-- 2 op de FRMHerstellingInvoer kan ik eventueel een medewerker toevoegen, dit lukt goed,

doch als ik terugkeer van medewerker in te voegen, kan ik deze niet selecteren in de combobox, ik moet steeds volledig afsluiten en dan lukt het wel.

-- 3 heb nog een paar probjes, maar eerst deze wel proberen op te lossen.


-- 4 als je nog foutjes ontdekt mag je ermee gerust helpen



Ik ga het bestand hierbij voegen zodat je het kan bekijken, het bestandje is nog niet volledig af moet nog veel bijkomen, hopelijk eens snelle helpende hand. :thumb:
 

Bijlagen

  • planing en opvolging test 21_05_2019 (2).xlsm
    429 KB · Weergaven: 36
Voor FRMTitelBlad afsluit
verander FRMTitelVoorblad.Hide in Unload Me
Voor CMDHerstellingInvoer
Aan de code van de knop invoeren dit op het einde net voor Me.CBNaam.set focus Me.CBNaam.List = xRg.Columns(1).Value invoegen.
 
Laatst bewerkt:
gast0660 zei:
Voor FRMTitelBlad afsluit
verander FRMTitelVoorblad.Hide in Unload Me
Voor CMDHerstellingInvoer
Aan de code van de knop invoeren dit op het einde net voor Me.CBNaam.set focus Me.CBNaam.List = xRg.Columns(1).Value invoegen.
Klik om te vergroten...

Eerst ie perfect gelukt, doch het tweede niet
ben wel een zeer erge leek hoor, mss doe ik wel iets verkeerd


het laatste van de code is nu bij mij

'verwijder gegevens

Me.CBLijn.Value = ""
Me.CBComponent.Value = ""
Me.TXTHerstellingDefect.Value = ""
Me.TXTHerstellingInvoer.Value = ""
Me.CBHerstellingUitgevoerd.Value = ""
Me.CBHerstellingOpvolgen.Value = ""

Me.CBNaam.List = xRg.Columns(1).Value

Me.CBNaam.SetFocus

End Sub
 
Ik had je vraag verkeerd begrepen, te snel gelezen.:eek:
Voeg volgende code toe aan het formulier FRMHerstellingInvoer
Code: 
Private Sub CBNaam_Enter()
Set xRg = Worksheets("Medewerker").Range("A2:F25")
Me.CBNaam.List = xRg.Columns(1).Value
End Sub
Deze mag je terug verwijderen in de code van de CMDHerstellingInvoer knop.
Code: 
Me.CBNaam.List = xRg.Columns(1).Value
 
Wauw amaai hartelijke dank
wat de code juist
want ja ik wil het wel leren
maar alvast enorme dank alvast



gast0660 zei:
Ik had je vraag verkeerd begrepen, te snel gelezen.:eek:
Voeg volgende code toe aan het formulier FRMHerstellingInvoer
Code: 
Private Sub CBNaam_Enter()
Set xRg = Worksheets("Medewerker").Range("A2:F25")
Me.CBNaam.List = xRg.Columns(1).Value
End Sub
Deze mag je terug verwijderen in de code van de CMDHerstellingInvoer knop.
Code: 
Me.CBNaam.List = xRg.Columns(1).Value
Klik om te vergroten...
 
In FRMHerstellingInvoer heb ik twee tekst boxen staan, wil daar tekst laten invullen, wat wel lukt, doch op het einde van de lijn blijft hij verder schrijven, kan ik dit niet oplossen door middel van scrollbars zodat je steeds de volledig tekst kan zien wat je getypt hebt.
 
In FRMHerstellingOverzicht zou ik graag een overzicht maken vanuit mijn excel bestand, in mijn excel heb ik een checkbox dat als het nog defect is en alsook als het hersteld is.
De bedoeling is een overzicht te kunnen krijgen van alle nog te doen 'herstellingen' en al opgeloste. En eventueel deze dan ook af te printen mss met een word doc.
 
Je moet in de eigenschappen van de twee textboxen multiline op true zetten.
Je kan eventueel ook EnterKeyBehavior op true zetten dan kan je halfweg een lijn met de entertoets naar de volgende regel gaan.
 
Hierbij ook een voorzetje (alleen voor de medewerkers) hoe ik tewerk zou gaan.
Morgen kijk ik wel eens hoe we de opgeloste en niet opgeloste herstellingen kunnen aanpakken.
 

Bijlagen

  • Intersig.xlsm
    55,8 KB · Weergaven: 35
Ammai zovlug


prachtig wel is waar

dank je reeds kan ik al eens wat proberen.:)


gast0660 zei:
Hierbij ook een voorzetje (alleen voor de medewerkers) hoe ik tewerk zou gaan.
Morgen kijk ik wel eens hoe we de opgeloste en niet opgeloste herstellingen kunnen aanpakken.
Klik om te vergroten...
 
Perfect gelukt

gast0660 zei:
Je moet in de eigenschappen van de twee textboxen multiline op true zetten.
Je kan eventueel ook EnterKeyBehavior op true zetten dan kan je halfweg een lijn met de entertoets naar de volgende regel gaan.
Klik om te vergroten...
 
Ronny,
Mooi zo.
Een kleine opmerking.
Hier op het forum hebben ze niet graag dat je onnodig quote.
Gebruik de knop Reageer op bericht.
 
sorry, maar dat is de knop reageer op bericht, maar dan moet je een nieuwe titel ingeven ofzo?
sorry hoor
ben vrij nieuw he
bedankt alvast
 
Ik heb de code en form ingevoegd van 'Intersig' in mijn huidig project 'plannig en opvolging...' (heb het nieuwe bestand even opgeladen) , maar krijg een foutmelding dat er een object verwacht word
ik probeer de medewerkers overzicht (nieuw) op te roepen in mijn FRMTitelVoorblad, knop medewerker nieuw

wat is er mis
 

Bijlagen

  • planing en opvolging test 21_05_2019 (2).xlsm
    453,2 KB · Weergaven: 37
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan