excel alarm

[ericroodhooft]

Geen Probleem,misschien iemand van je medehelpers, Alvast bedankt voor de moeite!
Eric

 

[edmoor]

Eric,

De foutmelding krijg je omdat de API alleen voor 32-bit Office is gedeclareerd en kennelijk heb je nu ineens weer een 64-bit Office.

 

[edmoor]

Edmoor,
Is dat verwerkbaar in mijn bestand maar zonder knop en bij opstarten bestand?
Thanks , Eric
Leuk dat je de tekst kan kiezen!!

Uiteraard.
Je kan de code lezen toch?
Die kan je overal gebruiken.

 

[ericroodhooft]

Edmoor,
Kunnen we dat veranderen? of terug 32bits instaleren,
Wat betreft code lezen maar kan hem niet veranderen hé

 

[edmoor]

Als je de mogelijkheid hebt zou ik 32-bit Office installeren.
Je kan de declaratie ook wjzigen in dit om beide edities te ondersteunen:

#If Win64 Then
    Private Declare PtrSafe Function PlaySound Lib "winmm.dll" _
     Alias "PlaySoundA" (ByVal lpszName As String, _
     ByVal hModule As Long, ByVal dwFlags As Long) As Long
#Else
    Private Declare Function PlaySound Lib "winmm.dll" _
     Alias "PlaySoundA" (ByVal lpszName As String, _
     ByVal hModule As Long, ByVal dwFlags As Long) As Long
#End If

 

[ericroodhooft]

Waar plaats ik die? kwestie van een oplossing te vinden hé

 

[edmoor]

Je kan in je document toch zien waar die declaratie staat?
Die vervang je dan in z'n geheel door wat ik plaatste.

 

[ericroodhooft]

Wel, heb die code's geplaatst, maar doet het niet ook met de knop op userform werkt niet?



Bekijk bijlage Resterende dagen alarm.xlsm

 

[edmoor]

Je speelt ook nergens in dat document een geluid af
Tevens heb je van alles door elkaar staan en op plekken waar het niet thuis hoort.
Ook bevat het userform totaal geen code dus nogal logisch dat die knop niks doet.

Ik zou zeggen, ga dat eers eens leren want zo heb je niks aan wat hier ook maar aangeboden omdat je het niet in je eigen document weet te verwerken.

 

[ericroodhooft]

he Edmoor,
Kan je aub deze code's juist plaatsen in mijn bestand zodat het werkt, als ik ze dan bekijk begrijp ik het beter en maak ik printscreen voor de toekomst?
Alvast Bedankt, Eric

 

[gast0660]

Je krijgt die foutmelding omdat je met een 64 bits office werkt, iets dat Microsoft zelf nog altijd afraadt.
Verander de code eens naar

Private Declare Function PlaySound Lib "winmm.dll" _
 Alias "PlaySoundA" (ByVal lpszName As String, _
 ByVal hModule As Long, ByVal dwFlags As Long) As LongPtr

Const SND_SYNC = &H0
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000

Ik kan het zelf niet testen.

 

[ericroodhooft]

Waar plaats ik die code ,in workbook?

 

[edmoor]

he Edmoor,
Kan je aub deze code's juist plaatsen in mijn bestand zodat het werkt, als ik ze dan bekijk begrijp ik het beter en maak ik printscreen voor de toekomst?
Alvast Bedankt, Eric

Vooruit nog maar een keer dan. Volledig opgeschoond en met dingen op de juiste plek.
Aan een simpele schermafdruk zal je niet voldoende omdat voor wat je wil meerdere secties worden gebruikt.
Het is niet zo simpel als een aangeboden stukje code kopiëren en zomaar ergens plakken.

Bekijk bijlage Kopie van Resterende dagen alarm.xlsm

 

[edmoor]

Waar plaats ik die code ,in workbook?

Dat heb ik je eerder ook al verteld en dat bedoel ik dus met dat je maar erg moeilijk te helpen bent.

Overigens is die 64-bit declaratie van dotchie onjuist.

 

[ericroodhooft]

He Edmoor , prachtig gedaan, ben ik heel erg blij mee, duizend maal dank en sorry boor al de last :thumb:

 

[edmoor]

Op zich is het geen last hoor, maar je hebt er zelf zo weinig aan als je niet weet hoe om te gaan met de aangeboden oplossingen.

 

[ericroodhooft]

Hey Edmoor,
Nu zit ik al uren te zoeken naar mijn fout, vind ze niet!
Heb de naam van de klok spreek veranderd en nu doet hij het niet meer?
Kan je eens kijken, heb echt mijn best gedaan om het op te lossen.
mvg, Eric
Bekijk bijlage Resterende dagen alarm.xlsm

 

[SjonR]

Je moet geen label voor een knop plaatsen, maar pas de naam van de knop aan bij de eigenschap Caption.

 

[ericroodhooft]

Weet jij hoe , ik niet! kan je het rechtzetten,
mvg, Eric

 

[SjonR]

ik zeg je net waar je dat moet doen. Je hebt er ook een label op kunnen zetten, dus de VB-editor ken je.

Klik op dat label dat je er voor hebt gezet en verwijder deze ( met delete ). klik vervolgens op de knop en kijk linksonder in je scherm. Daar staan de eigenschappen.

Bij Caption staat nu "Spreek A1 uit". Hier kan je neerzetten wat je maar wilt.