gibra ha scritto:
zio Ken ha scritto:
Cliccando sul pulsante affianco al gruppo, volevo poter accodare tutti gli articoli relativi al gruppo, per esempio 1 ma giustamente mi da errore...
Teoricamente è possibile eseguire la cosa?
Certamente.
Ma devi farlo a suon di codice.
Ti basta aprire un recordset sulla tabella Articoli applicando il filtro sul Gruppo selezionato (es. 1), e poi aggiungi record per record ai dettagli.
Stavo provando così, crando prima la funzione
Public Function AccodaGruppo(lngIDLav, lngIDGruppo As Long)
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("tblSottoScarichi")
With rs
.AddNew
!IDGruppo = lngIDGruppo
!ID_Articolo = lngIDGruppo
.Update
End With
rs.Close
Set rs = Nothing
End Function
e poi l'azione
Private Sub btnInserisci_Click()
Dim lngIDLav As Long
Dim lngIDGruppo As Long
Dim rs As Recordset
Set rs = Me.Recordset.Clone
rs.FindFirst "[Gruppo] = '" & Me![IDGruppo] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
lngIDLav = Forms![FormInserisciDocumenti]![FormInserisciDocumentiGruppiElenco].IDLavSost.Value
lngIDGruppo = Forms![FormInserisciDocumenti]![FormInserisciDocumentiGruppiElenco].IDGruppo.Value
Call AccodaGruppo(lngIDLav, lngIDGruppo)
End Sub
Ma mi da errore, mi dice che non riesce a trovare la form [FormInserisciDocumentiGruppiElenco] che è una sottomaschera contenuta nella Form principale..