Forum - Φόρμες Κύριος πίνακας επιλογών

Forum (https://www.ms-office.gr/forum/)

- Access - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/)

- - [ Φόρμες ] Κύριος πίνακας επιλογών (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/3115-kirios-pinakas-epilogon.html)

Κύριος πίνακας επιλογών

Καλησπέρα σε όλους και καλή Ανάσταση
Ανοίγοντας όλες τις βάσης δεδομένων με πρωτεύον επιλογή τον πίνακα επιλογών μου εμφανίζει Error στον παρακάτω κώδικα στην υπογραμμισμένη σειρά.
Όπια Βοήθεια δεκτή.

Κώδικας:

Private Sub FillOptions()

' Fill in the options for this switchboard page.

    ' The number of buttons on the form.

    Const conNumButtons = 8

 

    Dim con As Object

    Dim rs As Object

    Dim stSql As String

    Dim intOption As Integer

 

    ' Set the focus to the first button on the form,

    ' and then hide all of the buttons on the form

    ' but the first.  You can't hide the field with the focus.

    Me![Option1].SetFocus

    For intOption = 2 To conNumButtons

        Me("Option" & intOption).Visible = False

        Me("OptionLabel" & intOption).Visible = False

    Next intOption

 

    ' Open the table of Switchboard Items, and find

    ' the first item for this Switchboard Page.

    Set con = Application.CurrentProject.Connection

    stSql = "SELECT * FROM [Switchboard Items]"

    stSql = stSql & " WHERE [ItemNumber] > 0 AND [SwitchboardID]=" & Me![SwitchboardID]

    stSql = stSql & " ORDER BY [ItemNumber];"

    Set rs = CreateObject("ADODB.Recordset")

    rs.Open stSql, con, 1   ' 1 = adOpenKeyset

 

    ' If there are no options for this Switchboard Page,

    ' display a message.  Otherwise, fill the page with the items.

    If (rs.EOF) Then

        Me![OptionLabel1].Caption = "Äåí õðÜñ÷ïõí óôïé÷åßá ãéá áõôÞí ôç óåëßäá ðßíáêá åðéëïãþí"

    Else

        While (Not (rs.EOF))

            Me("Option" & rs![ItemNumber]).Visible = True

            Me("OptionLabel" & rs![ItemNumber]).Visible = True

            Me("OptionLabel" & rs![ItemNumber]).Caption = rs![ItemText]

            rs.MoveNext

        Wend

    End If

    ' Close the recordset and the database.

    rs.Close

    Set rs = Nothing

    Set con = Nothing

End Sub

Δοκιμασε αυτο σε μενα δουλευει
Private Sub FillOptions()
' Fill in the options for this switchboard page.

' The number of buttons on the form.
Const conNumButtons = 8

Dim con As Object
Dim rs As Object
Dim stSql As String
Dim intOption As Integer

' Set the focus to the first button on the form,
' and then hide all of the buttons on the form
' but the first. You can't hide the field with the focus.
Me![Option1].SetFocus
For intOption = 2 To conNumButtons
Me("Option" & intOption).Visible = False
Me("OptionLabel" & intOption).Visible = False
Next intOption

' Open the table of Switchboard Items, and find
' the first item for this Switchboard Page.
Set con = Application.CurrentProject.Connection
stSql = "SELECT * FROM [Switchboard Items]"
stSql = stSql & " WHERE [ItemNumber] > 0 AND [SwitchboardID]=" & Me![SwitchboardID]
stSql = stSql & " ORDER BY [ItemNumber];"
Set rs = CreateObject("ADODB.Recordset")
rs.Open stSql, con, 1 ' 1 = adOpenKeyset

' If there are no options for this Switchboard Page,
' display a message. Otherwise, fill the page with the items.
If (rs.EOF) Then
Me![OptionLabel1].Caption = "Δεν υπάρχουν στοιχεία για αυτήν τη σελίδα πίνακα επιλογών"
Else
While (Not (rs.EOF))
Me("Option" & rs![ItemNumber]).Visible = True
Me("OptionLabel" & rs![ItemNumber]).Visible = True
Me("OptionLabel" & rs![ItemNumber]).Caption = rs![ItemText]
rs.MoveNext
Wend
End If

' Close the recordset and the database.
rs.Close
Set rs = Nothing
Set con = Nothing

End Sub