• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Hoe kan ik mensen laten zien dat het formulier verzonden is? Na verzendbutton

Status
Niet open voor verdere reacties.

Martijn76

Gebruiker
Lid geworden
12 jan 2007
Berichten
60
Hoi,

Ik heb een goed werkend formulier gemaakt (dacht ik) wat mensen kunnen invullen en dan verzenden met een verzendbutton die ik met VBA heb gemaakt. Echter zijn er dus mensen die op de een of andere manier het prachtig vinden om die button heel vaak aan te klikken. Ik ben dus op zoek naar een scriptje wat een melding geeft van: Bericht is verzonden, of iets dergerlijks, i.i.g. iets dat die melding weergeeft.

Wie kan en wil me hier mee/aan helpen?

Al vast heel erg bedankt!

Groetjes,
Martijn
 
Als laatste actie van de verzendbutton de verzendbutton Hide'en ?
buttonname.visible=false
 
Hoe implementeren

Hallo Martijn,

Dit kun je doen door voor end sub

buttonname.visible=false te plaatsen

voorbeeld:

Private Sub CommandButoon1_Click()

[je code die zorgt dat het opgeslagen wordt]

buttonname.visible=false

End Sub

zoiets nu is je knop niet meer zichtbaar na het uitvoeren van:
[je code die zorgt dat het opgeslagen wordt]
 
Hallo Martijn,

Dit kun je doen door voor end sub

buttonname.visible=false te plaatsen

voorbeeld:

Private Sub CommandButoon1_Click()

[je code die zorgt dat het opgeslagen wordt]

buttonname.visible=false

End Sub



zoiets nu is je knop niet meer zichtbaar na het uitvoeren van:
[je code die zorgt dat het opgeslagen wordt]

Hoi,

Bedankt voor je hulp, maar dit werkt dus niet, vandaar mijn vraag...
 
Hoi,

dit is het omplete script

Sub Macro1()
ActiveWorkbook.SendMail _
Recipients:=Sheets("Blad2").Range("B1"), _
Subject:="Test"
End Sub
 
Excuus,

de knop heet Verstuur (ik hoop dat je dat bedoeld?)
 
Laatst bewerkt:
Zet dan in de code van het Click event van de knop Verstuur onderaan deze code bij:

Code:
Verstuur.Enabled = False

Wigi
 
Zet dan in de code van het Click event van de knop Verstuur onderaan deze code bij:

Code:
Verstuur.Enabled = False

Wigi

Hoi,

Sorrie, maar ik heb geen flouw benul wat ik nu dus moet doen.

Als ik in het werkblad op <alt><F11> druk, komt slechts dit: naar boven:

Sub Macro1()
ActiveWorkbook.SendMail _
Recipients:=Sheets("Blad2").Range("B1"), _
Subject:="Test"
End Sub

Hier kan ik het niet invullen..

Wat moet ik preciesdoen?
 
Ik heb een goed werkend formulier gemaakt (dacht ik) wat mensen kunnen invullen en dan verzenden met een verzendbutton die ik met VBA heb gemaakt. Echter zijn er dus mensen die op de een of andere manier het prachtig vinden om die button heel vaak aan te klikken.

Dit formulier, en tevens deze button heb je nodig.
 
Aha, volgens mij bedoel je dus of ik het formulier hier neer wil zetten?

Niet noodzakelijk. Ga naar de code achter het formulier.

Zet bij de code van de Verstuur knop de extra regel code die ik je gegeven heb.
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan