CREAZIONE PANNALLO COMANDI DI ACCESS

Question

SALVE , VOLEVO SAPERE SE ERA POSSIBILE , DOPO AVER CREATO IL PANNELLO COMANDI DI ACCESS , PORTARE DA 8 PULSANTI IN ELENCO A N PULSANTI ( 10 O 12 ) INTERVENENDO E CAMBIANDO ALCUNE RIGHE DI CODICE VBA, DOPO LA CREAZIONE AUTOMATICA DEL PANNALLO COMANDI.

VI RINGRAZIO ANTICIPATAMENTE, CORDIALI SALUTI

Answer 1

Forse non ci siamo capiti

elencherò per ordine quello che ho fatto:

1. Cambiato il valore di Const conNumButtons = 8 messo a 12
2. aggiunto altre 4 opzioni alla struttura della maschera:

3. Rinominati i pulsanti aggiunti , guardando come sono chiamati nella proprietà "Nome elemento" e rinominandoli uno per uno da Option1 a Option12

4. Stessa cosa con le etichette da OptionLabel1 a OptionLabel12

5. Stessa cosa anche con la proprietà " Su Clic " sia sul pulsante che sulla sua etichetta

6. Salvato tutto, riavviato , non mi da piu nessun errore di sintassi però mi dice che non posso aggiungere piu di 8 Voci nel pannello quando provo ad aggiungerne la 9° voce :

GRAZIE MILLE

Answer 2

Ciao

Sono Sneha e sarei felice di aiutarti con la tua domanda. Ci scusiamo per l'inconveniente causato.

Nel codice fornito, la subroutine FillOptions è responsabile della compilazione del modulo del centralino con i pulsanti e le etichette per ogni opzione. La costante conNumButtons viene utilizzata per specificare il numero di pulsanti nel form e il ciclo For viene utilizzato per nascondere tutti i pulsanti tranne il primo.

In base all'errore visualizzato, sembra che il ciclo For stia tentando di accedere a un pulsante che non esiste nel form. Ciò potrebbe essere dovuto al fatto che il valore di conNumButtons è stato modificato in 12, ma il modulo ha solo 8 pulsanti. In questo caso, sarà necessario aggiungere i pulsanti mancanti al form oppure modificare il valore di conNumButtons su 8.

In alternativa, l'errore potrebbe essere dovuto a un errore di battitura nel nome di uno dei pulsanti. Assicurarsi che i nomi dei pulsanti nel form corrispondano ai nomi utilizzati nel ciclo For.

Per apportare le modifiche necessarie al modulo centralino, sarà necessario aprire il modulo in visualizzazione Struttura in Microsoft Access. Nella visualizzazione Struttura è possibile modificare le proprietà e il comportamento del form e dei relativi controlli.

Per aprire il modulo in visualizzazione Struttura, attenersi alla seguente procedura:

Aprire il database in Microsoft Access. Nel riquadro di spostamento, fare clic con il pulsante destro del mouse sul modulo del centralino e selezionare "Visualizzazione Progettazione" dal menu di scelta rapida. Il modulo verrà aperto in visualizzazione Struttura, mostrando il layout e la struttura del modulo. Da qui, è possibile apportare le modifiche necessarie al modulo. Ad esempio, se si desidera aggiungere altri pulsanti al modulo, è possibile trascinare un controllo "Pulsante" dal gruppo "Controlli" nella scheda "Strumenti progettazione moduli" della barra multifunzione. È quindi possibile impostare le proprietà del pulsante, come la didascalia e l'azione, utilizzando il riquadro "Finestra delle proprietà" sul lato destro dello schermo.

Se si desidera modificare il codice sottostante il form, è possibile farlo facendo doppio clic su un controllo nel form per aprire l'editor di codice. È quindi possibile modificare il codice in base alle esigenze.

In base al codice fornito, sembra che si sta tentando di modificare la subroutine FillOptions in un modulo di centralino in Microsoft Access. La subroutine FillOptions è responsabile del popolamento del modulo del centralino con i pulsanti e le etichette per ogni opzione.

Ci sono alcuni problemi con il codice che hai fornito:

La costante conNumButtons è impostata su 12, ma il form dispone solo di 8 pulsanti. Ciò potrebbe causare un errore quando il ciclo For tenta di accedere ai pulsanti che non esistono nel form. Per risolvere il problema, è possibile aggiungere i pulsanti mancanti al form o modificare il valore di conNumButtons su 8.

C'è un errore di battitura nel nome di uno dei pulsanti. Il ciclo For si riferisce ai pulsanti come "Opzione" seguito da un numero, ma i pulsanti sul modulo sono denominati "Opt" seguito da un numero. Per risolvere il problema, sarà necessario rinominare i pulsanti del modulo in modo che corrispondano ai nomi utilizzati nel ciclo For oppure modificare il ciclo For per utilizzare i nomi corretti dei pulsanti nel form.

Si è verificato un errore di sintassi nel ciclo For. Nella riga For intOption = 2 To conNumButtons mancano la parola chiave "step" e il valore step. Per risolvere questo problema, è necessario aggiungere "passaggio 1" alla fine della riga, in questo modo: Per intOption = 2 Per conNumButtons passaggio 1.

Se hai altre domande o hai bisogno di assistenza con qualsiasi cosa, non esitare a farmelo sapere. Sono qui per aiutare al meglio delle mie capacità.

Restituisci alla comunità. Aiuta la prossima persona che ha questo problema indicando se questa risposta ha risolto il tuo problema. Fai clic su Sì o No di seguito.

Migliori saluti Sneha

Questa risposta è stata tradotta automaticamente. Di conseguenza, potrebbero esserci errori grammaticali o espressioni strane.

Answer 3

Magari questo può aiutare, Il pannello comandi l'ho creato con Access 2007 Pro,

Magari, se vuoi provare a creare un Pannello comandi con questa versione e vedere tu stessa com'è stato creato in codice, poi mi potresti far vedere dove fare le dovute modifiche, Che ne pensi?

Answer 4

Ti ringrazio , ma il nome della routine non esisteva allora sono andato a intuito, Esiste una funzione privata che si chiama HandleButtonClick() ho provato in modalità struttura a copiare 4 opzioni e incollarle per farle diventare 12, ma mi dava come errore NON TROVO IL PULSANTE 9, allora ho detto " che stupido! devo rinominare le opzioni create con =HandleButtonClick(9, 10 ,11 ,12) . Facendo cosi la sub Privata riportata sotto:

Private Sub FillOptions()

' Fill in the options for this switchboard page.

' The number of buttons on the form. 

Const conNumButtons = 8           ho messo 12 al posto di 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 

ma non ha funzionato igualmente e non saprei come procedere , mi da errore:

Private Sub FillOptions()

' Fill in the options for this switchboard page.

' The number of buttons on the form. 

Const conNumButtons = 12 

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      Mi dice che non trova Option(9)***

    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 = "Nessuna voce per questa pagina pannello di comandi" 

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

Non saprei come fare

Answer 5

Ciao

Sono Sneha e sarei felice di aiutarti con la tua domanda. Ci scusiamo per l'inconveniente causato.

Sì, è possibile modificare il codice VBA per un pannello di comando in Microsoft Access per modificare il numero di pulsanti che contiene.

Per fare ciò, è necessario individuare il codice che crea i pulsanti per il pannello di comando e modificarlo per aggiungere o rimuovere pulsanti in base alle esigenze.

Ecco un esempio di come potresti farlo:

1. Innanzitutto, apri il modulo del pannello di comando nella vista Progettazione.
2. Quindi, vai alla finestra "Codice" per il modulo (premendo "Alt + F11" o andando al menu "Visualizza" e selezionando "Codice").
3. Nella finestra "Codice", individuare la sezione di codice che crea i pulsanti per il pannello di comando. Questo sarà in genere in una subroutine denominata "CreateButtons", che di solito viene chiamata quando il modulo viene caricato.
4. In questa subroutine, vedrai un ciclo che crea ogni pulsante e ne imposta le proprietà. È possibile modificare questo ciclo per aggiungere o rimuovere pulsanti in base alle esigenze. Ad esempio, per aggiungere un pulsante, è possibile copiare uno dei pulsanti esistenti e incollarlo all'interno del ciclo, quindi modificarne le proprietà per specificare una nuova didascalia, un nuovo nome e altre impostazioni in base alle esigenze. Per rimuovere un pulsante, è sufficiente eliminare la riga di codice corrispondente dal ciclo.
5. Dopo aver modificato il ciclo per aggiungere o rimuovere pulsanti secondo necessità, è possibile salvare le modifiche al modulo e testare il pannello di comando per vedere se funziona come previsto.

Se hai altre domande o hai bisogno di assistenza con qualsiasi cosa, non esitare a farmelo sapere. Sono qui per aiutare al meglio delle mie capacità.

Restituisci alla comunità. Aiuta la prossima persona che ha questo problema indicando se questa risposta ha risolto il tuo problema. Fai clic su Sì o No di seguito.

Migliori saluti Sneha

Questa risposta è stata tradotta automaticamente. Di conseguenza, potrebbero esserci errori grammaticali o espressioni strane.