Scusate, ma non essendo pratico di codice VBA, mi sono affidato a quello che sono riuscito a trovare su internet.
Fatta questa premessa, nella Form_Avvio è presente la seguente chiamata alla Form_Ricerca Master Sequence
DoCmd.OpenForm "Ricerca Master Sequence", acNormal, , "SEQUENCE like '*" & Me.TestoRicercaMasterSequence & "*'", acFormEdit, acWindowNormal
Nella Form_Ricerca Master Sequence oltre ad altro codice che gestisce i pulsanti e che non credo c'entri nulla su questa problematica c'è:
Option Compare Database
Option Explicit
Private rs As DAO.Recordset
Private Inizio As Boolean
Private Sub Form_Load()
Dim i As Integer
Inizio = True
Set rs = Me.RecordsetClone
If rs.EOF Then
MsgBox "Nessuna corrispondenza trovata", vbCritical
rs.Close
Set rs = Nothing
DoCmd.Close
Exit Sub
Else
DoCmd.Maximize
rs.MoveFirst
Do Until rs.EOF
For i = 1 To rs.Fields.Count - 1
Me.Controls(rs.Fields(i).Name).ColumnWidth = -2
Next i
rs.MoveNext
Loop
End If
End Sub
Una volta aperta la maschera, oltre a mostrare i record eventualmente trovati, vorrei avere la possibilità di editare (oltre che inserire o cancellare) i record presenti nel set di dati.
Se avete bisogno di altre info chiedete pure.
Grazie.