Moderatori: Anthony47, Flash30005
Private Sub cmb_MaterialeBriglia_Click()
Me.cmb_SerialeBriglia.RowSource = DLookup("SerialeBriglia", "tbl_AnagraficaBriglie", "MaterialeBriglia=" & Me.cmb_MaterialeBriglia)
Me.cmb_SerialeBriglia.Requery
End Sub
oz85 ha scritto:Ciao a tutti ragazzi,
Cerco di descrivere parte del database che ho impostato.
>Tabella → tbl_AnagraficaBriglie
COLONNA 1 → MaterialeBriglia [valore Testo]
COLONNA 2 → SerialeBriglia [valore Testo]
>Maschera → m_msk_AnagraficaCablaggi
combobox → cmb_MaterialeBriglia
combobox → cmb_SerialeBriglia
>Maschera Spostamento → msk_Anagrafiche
tab1 → m_AnagraficheCablaggi
Dato questo scenario, quello che vorrei è inserire un valore dalla combobox cmb_MaterialeBriglia che attinge i valori da una query [cosa che riesco a fare tranquillamente] e poi sulla successiva combobox [cmb_SerialeBriglia] visualizzare tutti i valori che sono frutto da una query che prende il valore della prima combobox [cmb_MaterialeBriglia] e cerca all'interno della tabella appartenente a tbl_AnagraficaBriglie e restituisca i valori presenti nel campo SerialeBriglia. Vi allego un parziale di codice e qualche screen per aiutare a capire. Non riesco a capire come modificare li codice per adattarlo alla mia esigenza. Potete aiutarmi??? Grazie!
https://postimg.cc/gallery/1mjdddk9c/
oz85 ha scritto:Ho un aggiornamento, un messaggio d'errore dopo aver associato il codice vba sotto riportato al click sulla combo box cmb_MaterialeBriglia. Riesco a trovare il valore da inserire, ma non voglio inserirlo, vorrei che andasse a popolare i valori che posso inserire tramite elenco a cascata della combobox, questo perchè potrei avere più valori come risultato e vorrei che fosse un operazione manuale di scelta.
- Codice: Seleziona tutto
Private Sub cmb_MaterialeBriglia_Click()
Me.cmb_SerialeBriglia.RowSource = DLookup("SerialeBriglia", "tbl_AnagraficaBriglie", "MaterialeBriglia=" & Me.cmb_MaterialeBriglia)
Me.cmb_SerialeBriglia.Requery
End Sub
https://postimg.cc/gallery/edjo20t6/oz85 ha scritto:Ciao a tutti ragazzi,
Cerco di descrivere parte del database che ho impostato.
>Tabella → tbl_AnagraficaBriglie
COLONNA 1 → MaterialeBriglia [valore Testo]
COLONNA 2 → SerialeBriglia [valore Testo]
>Maschera → m_msk_AnagraficaCablaggi
combobox → cmb_MaterialeBriglia
combobox → cmb_SerialeBriglia
>Maschera Spostamento → msk_Anagrafiche
tab1 → m_AnagraficheCablaggi
Dato questo scenario, quello che vorrei è inserire un valore dalla combobox cmb_MaterialeBriglia che attinge i valori da una query [cosa che riesco a fare tranquillamente] e poi sulla successiva combobox [cmb_SerialeBriglia] visualizzare tutti i valori che sono frutto da una query che prende il valore della prima combobox [cmb_MaterialeBriglia] e cerca all'interno della tabella appartenente a tbl_AnagraficaBriglie e restituisca i valori presenti nel campo SerialeBriglia. Vi allego un parziale di codice e qualche screen per aiutare a capire. Non riesco a capire come modificare li codice per adattarlo alla mia esigenza. Potete aiutarmi??? Grazie!
https://postimg.cc/gallery/1mjdddk9c/
Me.cmb_SerialeBriglia.RowSource = "SELECT MaterialeBriglia, SerialeBriglia " & "FROM tbl_AnagraficaBriglie " & _
"WHERE MaterialeBriglia = " & Me.cmb_MaterialeBriglia
archimede ha scritto:http://www.fmsinc.com/MicrosoftAccess/forms/combo-boxes/cascading.html
https://www.fontstuff.com/access/acctut10.htm
https://www.utteraccess.com/wiki/Cascading_Combo_Boxes
ecc. ecc.
HTH.
Alessandro
Probabilmente perchè MaterialeBriglia e' testuale, non numerico.oz85 ha scritto:Con il codice seguente non viene fuori nulla. Non capisco il perchè.
Me.cmb_SerialeBriglia.RowSource = "SELECT MaterialeBriglia, SerialeBriglia FROM tbl_AnagraficaBriglie WHERE MaterialeBriglia = '" & Me.cmb_MaterialeBriglia & "'"
archimede ha scritto:Probabilmente perchè MaterialeBriglia e' testuale, non numerico.oz85 ha scritto:Con il codice seguente non viene fuori nulla. Non capisco il perchè.HTH.
- Codice: Seleziona tutto
Me.cmb_SerialeBriglia.RowSource = "SELECT MaterialeBriglia, SerialeBriglia FROM tbl_AnagraficaBriglie WHERE MaterialeBriglia = '" & Me.cmb_MaterialeBriglia & "'"
Alessandro
oz85 ha scritto:Ciao Archimede e buona domenica,
Grazie, hai ragione è un discorso di tipo dati. Ho impostato il tutto in Numerico sia sulla tabella tbl_AnagraficaBriglie, sia sulla tabella dove scrivo tramite Maschera tbl_AnagraficaCablaggi. La Maschera non ha un formato dati impostato sulle combobox. Nonostante tutto ho cancellato e inserito nuovamente le combo box e dopo il codice inserito sulla prima combobox [cmb_MaterialeBriglia] dopo evento aggiornamento, la seconda combobox [cmb_SerialeBriglia] mi restituisce quest'errore:
"Tipo di dati non corrispondenti nell'espressione criterio."
Non capisco però dove ho impostato un valore non numerico... ho controllato le tabelle e la maschera ma mi sembra tutto ok.
Screenshot:
https://postimg.cc/gallery/2iyxfgt0a/archimede ha scritto:Probabilmente perchè MaterialeBriglia e' testuale, non numerico.oz85 ha scritto:Con il codice seguente non viene fuori nulla. Non capisco il perchè.HTH.
- Codice: Seleziona tutto
Me.cmb_SerialeBriglia.RowSource = "SELECT MaterialeBriglia, SerialeBriglia FROM tbl_AnagraficaBriglie WHERE MaterialeBriglia = '" & Me.cmb_MaterialeBriglia & "'"
Alessandro
Me.cmb_SerialeBriglia.RowSource = "SELECT MaterialeBriglia, SerialeBriglia FROM tbl_AnagraficaBriglie WHERE MaterialeBriglia = '" & Me.cmb_MaterialeBriglia & "'"
Me.cmb_SerialeTavola.RowSource = "SELECT MaterialeTavola, Serialetavola FROM tbl_AnagraficaTavole WHERE MaterialeTavola = '" & Me.cmb_MaterialeTavola & "'"
archimede ha scritto:Non ho capito gran che sinceramente, ma se il dato e' numerico NON devi metterci gli apici inforno.
Alessandro
Torna a Applicazioni Office Windows
Inserire valore di una cella in altra cella con testo Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 17 |
Inserire in colonna dati presi da altra colonna Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 4 |
scrivere una parola in ComboBox e caricarla filtrando i dati Autore: ricky53 |
Forum: Applicazioni Office Windows Risposte: 3 |
Inserimento valore di una cella in testo di altra cella Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 7 |
Access 2003: creare maschera per inserire dati su più tabell Autore: gamma_ray |
Forum: Applicazioni Office Windows Risposte: 1 |
Visitano il forum: Nessuno e 14 ospiti