Solved bible database

[WaldinTheAnalyst]

Hi I'm developing my first access database, which is a bible database. So on my Books Form, I have a combobox "Book Name" from here I get to choose a book, thereafter I will click on a button "Open Verses" which will open a form "Verses" which is a split form, tabular ontop and datasheet at the bottom. this "Verses Form" should display the chapter number, verse number and text from the book I selected in the combobox in my "Books Form", however it only displays Genesis properties no matter which book I select in my combobox. below I've provided my buttons onclick event procedure. I have also attached 3 images of my 2 forms for visual clarity.

what I would like assistance on is how do I get my "Verses Form" to display results based on the Book I selected in the combobox every time.

Private Sub btnOpenBooksVerses_Click()
' Ensure the combo box is not empty
If Not IsNull(Me.comboSelectBook) Then
' Use Nz() to avoid errors with null values and pass the second column (book name)
Dim strBookName As String
strBookName = Nz(Me.comboSelectBook.Column(1), "")

' Open the Verses form and pass the selected book name in OpenArgs
If strBookName <> "" Then
DoCmd.OpenForm "frmVerses", , , , , , strBookName
Else
MsgBox "No book name found."
End If
Else
MsgBox "Please select a book."
End If
End Sub

 

[bob fitz]

Can you post a copy of the db

 

[theDBguy]

The WhereCondition argument of the OpenForm method is only three commas away, which is what I would suggest using here. As it is, your code seems to be using the OpenArgs argument, but you haven't shown us how you're using it in the Open event of the Verses form.

 

[WaldinTheAnalyst]

yes sure, at the logon page username = waldin, password = userone
please keep in mind my database is still under construction

thanks for your speedy response Bob

 

[WaldinTheAnalyst]

The WhereCondition argument of the OpenForm method is only three commas away, which is what I would suggest using here. As it is, your code seems to be using the OpenArgs argument, but you haven't shown us how you're using it in the Open event of the Verses form.

hi thank you, please see below

Private Sub Form_Load()
' Check if OpenArgs contains a value
If Not IsNull(Me.OpenArgs) Then
' Display the value from OpenArgs in the textbox
Me.SelectedBook.Value = Me.OpenArgs
End If
End Sub

Private Sub SelectedBook_Click()
Private Sub btnOpenVerses_Click()
' Ensure the combo box is not empty
If Not IsNull(Me.cmbBookName) Then
' Use Nz() to avoid errors with null values and pass the second column (book name)
Dim strBookName As String
strBookName = Nz(Me.cmbBookName.Column(1), "")

' Open the Verses form and pass the selected book name in OpenArgs
If strBookName <> "" Then
DoCmd.OpenForm "VersesForm", , , , , , strBookName
Else
MsgBox "No book name found."
End If
Else
MsgBox "Please select a book."
End If
End Sub
End Sub

 

[bob fitz]

yes sure, at the logon page username = waldin, password = userone
please keep in mind my database is still under construction

thanks for your speedy response Bob

I thought you might have spoilt us and included the tables

 

[MajP]

You need
OPTION EXPLICIT
at the top of every module then try to compile your code

Come on now. You ever seen code like this? Not going to work.

Private Sub SelectedBook_Click()
Private Sub btnOpenVerses_Click()

    ' Ensure the combo box is not empty
    If Not IsNull(Me.cmbBookName) Then
        ' Use Nz() to avoid errors with null values and pass the second column (book name)
        Dim strBookName As String
        strBookName = Nz(Me.cmbBookName.Column(1), "")

        ' Open the Verses form and pass the selected book name in OpenArgs
        If strBookName <> "" Then
            DoCmd.OpenForm "VersesForm", , , , , , strBookName
        Else
            MsgBox "No book name found."
        End If
    Else
        MsgBox "Please select a book."
    End If

End Sub
End Sub

 

[theDBguy]

Private Sub Form_Load()
' Check if OpenArgs contains a value
If Not IsNull(Me.OpenArgs) Then
' Display the value from OpenArgs in the textbox
Me.SelectedBook.Value = Me.OpenArgs
End If
End Sub

As I said, using the WhereCondition is probably simpler, but I think the above should probably be more something like:

If Not IsNull(Me.OpenArgs) Then
    Me.Filter = "BookID=" & Me.OpenArgs
    Me.FilterOn = True
End If

However, please note that the OpenArgs value is only assigned, I think, when the form first opens. So, if you don't close the form first and select a different book name from the main form, the OpenForm method won't update the OpenArgs vaue.

 

[WaldinTheAnalyst]

I thought you might have spoilt us and included the tables

ive attached my db with tables yes

 

[MajP]

Again you have to compile the code because it does not make sense. You reference controls that do not exist as well as having procedures inside procedures. No such thing as "cmbBookName"

Private Sub SelectedBook_Click()
    ' Ensure the combo box is not empty
    If Not IsNull(Me.cmbBookName) Then
        ' Use Nz() to avoid errors with null values and pass the second column (book name)
        Dim strBookName As String
        strBookName = Nz(Me.cmbBookName.Column(1), "")

        ' Open the Verses form and pass the selected book name in OpenArgs
        If strBookName <> "" Then
            DoCmd.OpenForm "VersesForm", , , , , , strBookName
        Else
            MsgBox "No book name found."
        End If
    Else
        MsgBox "Please select a book."
    End If
End Sub

 

[bob fitz]

ive attached my db with tables yes

Your posted db uses LINKED tables but there's no tables in the db file

 

[WaldinTheAnalyst]

Your posted db uses LINKED tables but there's no tables in the db file

how could i include the tables so that you may assis me

 

[bob fitz]

how could i include the tables so that you may assis me

Create a new db, then import the tables from the backend db that your frontend db is linked to.

 

[WaldinTheAnalyst]

Create a new db, then import the tables from the backend db that your frontend db is linked to.

and then i import the forms too?

 

[bob fitz]

and then i import the forms too?

You could do, but you've already posted everything (forms, queries and modules) from the frontend db

 

[WaldinTheAnalyst]

here it is with tables

 

[bob fitz]

here it is

I see nothing attached to your post

 

[WaldinTheAnalyst]

You could do, but you've already posted everything (forms, queries and modules) from the frontend db

it says the attached file is too large

 

[WaldinTheAnalyst]

there it is

 

[bob fitz]

it says the attached file is too large

You could zip it and then post the zip file