Ecco qui, due tabelle Ordini produzione e Anagrafica articolo.
Join su codice articolo per reperire la descrizione (che per quello che devo farci non mi serve, ma iuti chi deve entrre in maschera con numero commessa).
Query accodamento.
'INSERIAMO LE COMMESSE FILTRATE
DoCmd.SetWarnings False
DoCmd.OpenQuery "crea_testate_righe"
DoEvents
strSQL = "SELECT T1.ID, T1.ORDINE, T1.COMMESSA, T1.CODICE, T1.DESCRIZIONE, T1.QTA, T1.UNITA_MISURA, T1.BARCODE, T1.STAMPA, T1.NUMERO_ETICHETTE FROM T1;"
Dim NrRec As Integer
NrRec = DCount("*", "T1", "COMMESSA = " & Chr$(34) & Me!Testo16 & Chr$(34))
If NrRec = 0 Then
MsgBox "Non ci sono dati con il numero di commessa: " & vbCrLf & Me.Testo16, vbInformation, "Informazione"
Me.Testo16 = ""
Me.Testo16.SetFocus
Else
Me.Form.RecordSource = strSQL
Me.ID.Visible = True
Me.ORDINE.Visible = True
Me.COMMESSA.Visible = True
Me.CODICE.Visible = True
Me.DESCRIZIONE.Visible = True
Me.QTA.Visible = True
Me.STAMPA.Visible = True
Me.UNITA_MISURA.Visible = True
Me.NUMERO_ETICHETTE.Visible = True
Allegati: