Access 2000 -





9b.


 

, Access. , .

, , , .

 

Public Function funCreateAssistant()

Dim bln As Balloon, s As String

With Application.Assistant '

.Visible = True '

.Animation = msoAnimationAppear '

Set bln = .NewBalloon '

With bln

.Heading = " " '

.Labels(1).Text = " " ' 1

.Labels(2).Text = " " ' 2

.BalloonType = msoBalloonTypeButtons '

.Button = msoButtonSetNone '

Select Case .Show '

Case 1: s = "23-456/35" ' 1

Case 2: s = "sin(0.5)" ' 2

End Select '

End With

Set bln = .NewBalloon '

With bln

.Heading = " " '

.Text = s ' , .

.Button = msoButtonSetOK ' OK

.Show '

End With

End With

End Function