- The About, Form
Properties:
default
View:
Auto Center:
Min
Max Buttons:
Navigation Buttons:
Pop Up:
Modal:
On Load: |
Single
Form
Yes
None
No
Yes
Yes
(Event Procedure)
|
|
- Add the file
From
the ...\A2002
Html\Pic folder (downloaded ...) copy the (BMP Image) diam1.bmp file to the folder C:\A2002\ res.
- Add the
following controls,
from the
Toolbox :
One Image, three Labels,
one Line control and one
Command Button
- Add
the Image -
Image1 Properties:
Use the Image
control to display a graphic. An Image
control can display a graphic
from a bitmap, icon, or metafile,
as well as enhanced metafile,
JPEG, or GIF files.
Name:
Picture:
Visible: |
Image1
(none)
Yes
|
|
Note:
The image1 displays
the file diam1.bmp
, stored in the folder C:\A2002\res
- Add
the Label
- LbKJV2002 Properties:
A Label control
is a graphical control you can
use to display text that a user
can't change directly.
Name:
Caption:
Font: |
lbKJV2002
KJV database Access 2002,
Info
Times New Roman, Bold,
Und..., size = 9 |
|
- Add
the Label
- lintroduction1 Properties:
A Label control
is a graphical control you can
use to display text that a user
can't change directly.
Name:
Caption:
Font: |
lintroduction1
Introduction1...
Times New Roman, Bold,
size = 9 |
|
- Add
the Label
- lintroduction2 Properties:
A Label control
is a graphical control you can
use to display text that a user
can't change directly.
Name:
Caption:
Font: |
lintroduction2
Introduction2 ...
Times New Roman, Bold,
size = 9 |
|
- Add
the Line
- Line1 Properties:
Use on a form or report,
for example, to emphasize related
or especially important
information.
Name:
Border Width: |
Line1
2pt |
|
- Add
the Command Button
-CmdClosee Properties:
Use a CommandButton
control to begin, interrupt, or
end a process. When chosen, a CommandButton
appears pushed in and so is
sometimes called a push button.
Name:
Caption:
On Click |
CmdClose
Close
(Event Procedure)
|
|
|
- About Form,The
Codes
the new text Code
to be add is red.
Option Compare
Database
'************************************
Private Sub CmdClose_Click()
On Error GoTo Err_CmdClose_Click
DoCmd.Close
Exit_CmdClose_Click:
Exit Sub
Err_CmdClose_Click:
MsgBox Err.Description
Resume Exit_CmdClose_Click
End Sub
'************************************
Private Sub Form_Load()
Dim cn1 As ADODB.Connection
Dim rsTableBible1 As ADODB.Recordset
' Load the picture -
diam1.bmp
Image1.Picture = CurrentProject.Path
& "\res\diam1.bmp"
' Open connection.
Set cn1 = New ADODB.Connection
Set cn1 = Application.CurrentProject.Connection
' Open RecordSet
Set rsTableBible1 = New ADODB.Recordset
rsTableBible1.Open "select
Book,TextData from BibleTable ", cn1,
adOpenStatic, adLockOptimistic
With rsTableBible1
.Move (0) ' First record
'lintroduction.Caption
displays the information about the file
KJV.mdb, stored in the 1st KJV database
record.
lintroduction1.Caption = .Fields(1).Value
End With
'lintroduction.Caption
displays the information about Created
all Forms.
lIntroduction2.Caption = ."All forms created by Chucri
Simon Zouein"
End Sub
|
|