inserire record selezionati da form a sottomaschera presente in altra form

Question

ciao a tutti,

partendo dal click di un pulsante presente in una maschera, vorrei poter inserire in una sottomaschera, presente in un altra maschera, i record che risultano spuntati ed eliminarli.

In pratica del file in allegato, aprendo la form frm_ricevute_disponibili e cliccando su cmd_inserisci dovrei inserire (accodare) nella sottomaschera tbl_bollettari i valori dei record che risultano spuntati nella frm_ricevute_disponibili ed eliminarli.

Provo a postare il link https://1drv.ms/u/s!Ag4bLvhg0xNWbphSB2ucaPi36no

Grazie a voi tutti

Answer 1

ciao Peppinp38,

grazie Sandro,

certo che mi piace il cascading comboBoxes, ho avuto di applicarlo nella classica gestione di regione, provincie, comuni....

[...]

esattamente lo stesso concetto :-).

[...]

Per concludere è possibile poter visualizzare nella M_gestioneServizi all'interno della Sottomaschera T_raccordoServiziBolletta anche il tipo di bollettario dopo aver selezionato l'id_bollettario, così come avviene per il numero_bollettario?

[...]

è sufficiente rivedere il recordSource della sottomaschera ed inserire un controllo.

ho approfittato per eliminare qualche ridondanza nelle tabelle...

Credo inoltre che mostrando il numero bollettario direttamente nella comboBox che con la qualche selezioni il bollettario e non il suo id, che dice poco, può permetterti di eliminare il controllo numero_bollettario, come evidenziato nell'immagine che segue nel rettangolo rosso :

Scarica le modifiche al link postato in precedenza.

[...]

Infine tutte le risposte da te date sono state tutte super utili; resto a disposizione anche in altri modi per ringraziarti ed onorarti per quanto fai per il forum... Grazie

prego. La community è formata da volontari ed io sono un utente come te, quindi grazie è sufficiente.

Buona domenica.

Ciao!

Sandro.

Answer 2

grazie

con le mie poche conoscenze infatti ho creato una relazione 1 a M tra la tabella tbl_servizio e tbl_bollettari per idservizio.

Se così devi inserire prima una riga nella tabella servizi e copiare la chiave esterna sul lato molti, altrimenti i records figli non restano sincronizzati con il padre.

la riga, record???, penso di si, l'ho inserita ed idservizio viene inserito in relazione correttamente anche nella sottomaschera tbl bollettari. (ti riferisci a questo con il copiare???).

però resta il problema che su cmd_inserisci_click nella frm_ricevute_disponibili non aggancia l'idservizio

in pratica bisognerebbe dire al pulsante di inserire i record dell'idservizio presente nella frm_servizi?

Grazie ancora

Answer 3

ciao Peppino38,

forse ho capito meglio.

la tabella tbl_bollettario è il lato molti della relazione 1->M tra servizio e bollettari.

In pratica nel momento in cui cancelli i records spuntati e li trasferisci nella tabella bollettari, vuoi aprire la maschera servizi e vedere le righe cancellate/inserire collegate al servizio.

Se così devi inserire prima una riga nella tabella servizi e copiare la chiave esterna sul lato molti, altrimenti i records figli non restano sincronizzati con il padre.

Se ho intuito correttamente prova a perseguire questa strada e se incontri difficoltà fai sapere.

Gli errori che citi non sono riuscito a simularli...

Facci sapere.

Ciao, Sandro.

Answer 4

grazie davvero funzionante :-) e soprattutto per la professionalità offerta...

la tabella viene aggiornata, però la sottomaschera tbl_bollettari resta invariata.

Sicuramente dipende dal fatto che dovrebbe entrare in gioco anche idservizio in relazione.

Da diversi tentativi si nota che su cmd_inserisci_click a volte esce un errore di run-time 3167 oppure il primo record selezionato non viene inserito o cancellato

Grazie ancora Sandro

Answer 5

ciao Peppino38,

basta lanciare due action queries, accodamento e cancellazione.

Fai una copia prima di procedere e usa sempre option explicit.

ciao, Sandro.

Option Compare Database

Option Explicit

Private Sub cmd_inserisci_Click()

Dim strSql As String

strSql = "insert into tbl_bollettari  (bollettario, codice, n_bolletta) " & _

         "select bollettario, codice, n_bolletta from tbl_ricevute  where seleziona=-1"

DBEngine(0)(0).Execute strSql, 128

strSql = "delete * from tbl_ricevute as R where R.seleziona=-1 "

DBEngine(0)(0).Execute strSql, 128

Me.Requery

End Sub