Si mi spiego meglio:
C'è una maschera principale che contiene una sottomaschera continua. In quest'ultima sono elencati dei record che contengono delle informazioni, tipo: committente, numero di campione, data, ecc. Ad ognuno di questi set di dati occorre associare dei valori d'analisi. Cliccando sui record della maschera continua si apre di una form contenete le textbox e combobox dove possibile immettere i dati. I dati sono immessi in una tabella attraverso la pressione di un pulsante che esegue delle sub del tipo:
Private Sub indice_viscosità() 'indice di viscosità
Dim db As DAO.Database
Dim strsql As String, Min As String, Max As String
Set db = CurrentDb
Min = DLookup("[Min]", "Q_Limiti", "[ID_Analisi_Campione_Lim]=17 And [Tipo_Campione] = '" & tcamp & "'")
Max = DLookup("[Max]", "Q_Limiti", "[ID_Analisi_Campione_Lim]=17 And [Tipo_Campione] = '" & tcamp & "'")
If DCount("*", "Valore_Analisi", "ID_Analisi_Campione=17 AND ID_Assegnazione=" & N_ID) = 0 Then
strsql = "INSERT INTO Valore_Analisi (ID_Analisi_Campione,ID_Assegnazione,Valore_Analisi,Min,Max)" & _
" values(17," & N_ID & ",'" & Me.txt_indvisc & "','" & Min & "','" & Max & "')"
db.Execute strsql
DoCmd.SetWarnings False
End If
If DCount("*", "Valore_Analisi", "ID_Analisi_Campione=17 AND ID_Assegnazione=" & N_ID) = 1 Then
strsql = "UPDATE Valore_Analisi SET ID_Analisi_Campione=17,ID_Assegnazione=" & N_ID & ",Valore_Analisi='" & Me.txt_indvisc & "',Min='" & Min & "',Max='" & Max & "'" & _
" WHERE ID_Analisi_Campione=17 AND ID_Assegnazione=" & N_ID
db.Execute strsql
DoCmd.SetWarnings False
End If
End Sub
Questo è un esempio ma per ogni dato da inserire ci sono altre sub analoghe.
Fino a che i dati siano prima immissione va bene, ma se i dati fossero stato già immessi come faccio a visualizzarli nella form?
Ovviamente i vari controlli nella form sono "non associati".