Application developed with Access 2002, Part 1. |
Initial Step, Beginning....
1st Step, MainForm Form..
Operations:
|
MainForm design:.
|
|
![]() |
Type in Application Title box =
KJV2002
Type in DisplayForm/Page box = MainForm
Option Compare Database Private Sub Form_Load() Image1.Picture = Application.CurrentProject.Path & "\res\ingraphic1.gif" End Sub Private Sub CmdContinue_Click() On Error GoTo Err_CmdContinue_Click ' Label10 = One moment... Me.Label10.Visible = True ' Open Book form. DoCmd.OpenForm ("Book") If (CurrentProject.IsConnected) Then ' Closes mainform form. DoCmd.Close acForm, "mainForm", acSaveNo End If '********************************* Exit_CmdContinue_Click: Exit Sub Err_CmdContinue_Click: MsgBox Err.Description Resume Exit_CmdContinue_Click End Sub '********************************* Private Sub CmdExit_Click() On Error GoTo Err_CmdExit_Click DoCmd.Close Exit_CmdExit_Click: Exit Sub Err_CmdExit_Click: MsgBox Err.Description Resume Exit_CmdExit_Click End Sub |
the new text Code to be
add is red.
Option Compare Database Option Explicit Public ChapterStr As String Public VerseStr As String ' SQL Public Const SQLStr = "select Book,BookTitle,Chapter,Verse,TextData from BibleTable WHERE (BibleTable.Chapter <> '000') ORDER BY BibleTable.Book, BibleTable.Chapter, BibleTable.Verse" |