inserire record selezionati da form a sottomaschera presente in altra form

Grazie Sandro,

nella form servizi ci saranno altri campi oltre alla data, come ad esempio cognome, nome, indirizzo...

Per ogni servizio potranno essere compilati diverisi bollettari.

Alla fine sarà possibile creare un report per ogni servizio conoscendo il tipo di bollettario usato con il relativo codice, numero di bollettario e numero bolletta.

Non conoscendo il numero esatto di bollettari da utilizzare, penso che inizilmante possa andar bene un impostazione, funzionante, anche se ridondante.

Immagino che sicuramente possa essere implementato e progettato secondo i criteri della giusta programmazione. Il risultato che sto cercando di ottenere è quello che in ogni servizio possano essere abbinati diverse bollette di differenti bollettari...

Dal link del db spero possa capirsi :-)

Grazie ancora

ciao Peppino38,

il fatto che le tabelle servizio e bollettari fossero la prima il lato 1 della relazione 1 a M tra servizi e bollettari e la seconda il lato molti era, in un certo senso, facile intuirlo.

Meno facile capire come siano in relazione la tabella servizio e le altre.

[...]

E' possibile svincolare la data e poter inserire nuovi record provenienti da altre tabelle sempre nello stesso servizio?

Con le aggiunte da me effettuate il vincolo della data comporta automaticamente l'inserimento di un nuovo servizio, invece per lo stesso servizio possono essere presenti piu record provenienti da altre tabelle.

In pratica per ogni servizio possono essere presenti piu record provenienti da tabelle differenti.

[...]

in linea di massima si ma è la chiave primaria della tabella servizio che deve diventare la chiave esterna della relazione lato molti come nello scenario già citato ed impostato tra servizio e bollettario.

( nota, bene che non hai impostato lookup fields).

Il campo data nell'esempio del post precedente l'ho utilizzato per inserire un nuovo idServizio perché non ci sono altri campi a disposizione...quindi disponendo di altri campi puoi utilizzare quelli al posto della data, la data può restare anche non compilata.

definire il servizio con la sola chiave primaria e un campo data credo sia poco significativo per descrivere il servizio.

[...]

Grazie per la tua immensa professionalità.

[...]

prego, ma credo che per esserti di aiuto dovresti darci qualche ragguaglio su come il db deve lavorare....magari tutti questi accodamenti ed inserimenti via action query possono anche essere evitati con un'impostazione diversa.

Ho scaricato il db ma senza le indicazioni che ti ho chiesto non credo sia possibile capire come proseguire :-((.

Facci sapere!

Ciao, Sandro.

Grazie Sandro,

ho cercato di capire il codice commentato, spettacolare il funzionamento.

ho creato altri comandi per inserire altri record nella Sottomaschera tbl_bollettari al fine di poter accodare altri record provenienti da altre tabelle

Ad esempio seguendo il funzionamento iniziale della tabella ricevute, vorrei poter inserire sempre nello stesso servizio altri record, ad esempio da tbl_fatture.

E' possibile svincolare la data e poter inserire nuovi record provenienti da altre tabelle sempre nello stesso servizio?

Con le aggiunte da me effettuate il vincolo della data comporta automaticamente l'inserimento di un nuovo servizio, invece per lo stesso servizio possono essere presenti piu record provenienti da altre tabelle.

In pratica per ogni servizio possono essere presenti piu record provenienti da tabelle differenti.

Spero il link riesca a semplificare https://1drv.ms/u/s!Ag4bLvhg0xNWcLdud6t\_88lmFXw

Grazie per la tua immensa professionalità.

ciao Peppino38,

ok, prova questa soluzione, ho commentato il codice per renderlo facilmente comprensibile.

Facci sapere.

Ciao, Sandro.

Option Compare Database

Option Explicit

Private Sub cmd_inserisci_Click()

Dim strSql     As String

Dim lngService As Long

' inserisco prima una nuova data corrispondente alla data odierna per un nuovo servizio

' memorizzo nella variabile lngService la chiave primaria appena inserita

strSql = "insert into tbl_servizio (data) values (" & CLng(Date) & ")"

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

lngService = DMax("idservizio", "tbl_servizio")

' inserisco ora le righe lato molti nella tabella bollettari

' agganciandola a lato 1 servizi copiando la chiave primaria idservizio

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

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

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

' ora sono pronto ad eliminare le righe appena copiate

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

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

' aggiorno la form

Me.Requery

End Sub

Private Sub seleziona_AfterUpdate()

' forzo il salvataggio del record

Me.Dirty = False

End Sub