Msgbox (Message box)

[Risk]

Forum,

Nog driftig een oplossing verwerkend uit een andere vraag, kreeg het idee van de messagebox.

Ik kan er een maken (hoera eindelijk eens iets zelf), maar de opmaak vind ik zo vreselijk. Er komt te staan: Microsoft Access en dat in mijn gepersonificeerde database. Normaal pas je dat aan in eigenschappen, maar gelet op het feit dat dit geen formulier is in de zin van, hoe pas ik dat aan?

Ooit zag ik in een database een grijsvlakje verschijnen met een boodschap er in dat na een paar seconden weer verdwijnt (fade in, fade out). Natuurlijk in mijn archiefje niet meer te vinden.

Wie weet raad?

Risk

 

[OctaFish]

Dan heb je blijkbaar achter de melding in de msgbox nog geen komma getypt Dan kun je namelijk nog wel een paar parameters instellen. Fade in en Fade out zitten daar overigens niet bij.

MsgBox ActiveDocument.InlineShapes.Count, vbOKOnly, "Eigen titel"

 

[Risk]

Michel,

Snel even geprobeerd, maar dze werkt niet:

Private Sub Knop433_Click()

Dim stDocName As String, sVelden As String
Dim i As Integer
    
    stDocName = "Rapport3"
  
    For i = 0 To 1
        If i > 0 Then sVelden = sVelden & "|"
        sVelden = sVelden & Me("txtInput" & i)
    Next i
 
[COLOR="#FF0000"]MsgBox ActiveDocument.InlineShapes.Count, vbOKOnly, "Eigen titel"[/COLOR]
 
    DoCmd.OpenReport stDocName, acPreview, OpenArgs:=sVelden
    



End Sub

Helaas.

Risk

 

[OctaFish]

Je moet de msgbox uiteraard wel aanpassen. Deze komt toevallig uit Word, omdat ik daarin nu aan het klooien ben

 

[Risk]

Michel,

Dit is er van gemaakt:

 MsgBox " HIER DE EERSTE REGEL " & _
  "" & vbCrLf & _
           vbCrLf & "HIER DE TWEEDE REGEL" & _
 "" & vbCrLf & _
  "" & vbCrLf & _
           "HIER NOG EEN", _
           vbOKOnly Or vbExclamation Or vbDefaultButton2, _
                   "- EN HIER JE EIGEN NAAM OF WAT JE WILT-"

Heb er een extra blanco regel tussen gezet.

Voorlopig tevreden.

Dank voor het aan het denken zetten.

Risk

 

[OctaFish]

Nodeloos ingewikkeld neergepend...

 MsgBox " HIER DE EERSTE REGEL " & vbCrLf & vbCrLf _
    & "HIER DE TWEEDE REGEL" & vbCrLf & vbCrLf _
    & "HIER NOG EEN", _
    vbOKOnly Or vbExclamation Or vbDefaultButton2, _
    "- EN HIER JE EIGEN NAAM OF WAT JE WILT-"

 

[Risk]

Bedankt.

Niet meer doen.