Maschera con mix di tabelle

di
Anonimizzato18346
il
19 risposte

19 Risposte - Pagina 2

  • /
    Anonimizzato18346
    Utente anonimizzato

    Re: Maschera con mix di tabelle

    Codice VBA su pulsante "Nuova Riunion" su evento Click:
    Private Sub Comando73_Click()
    DoCmd.OpenQuery "AccodaAnagrafica"
    Me![Sottomaschera Riunioni (Visualizza presenze)].Requery
    End Sub
    SQL query di Accodamento:
    INSERT INTO Presenze ( IDRiunione, IDAnagrafica )
    SELECT Riunioni.ID, [Dati Anagrafici].ID
    FROM Riunioni, [Dati Anagrafici]
    WHERE (((Riunioni.ID)=[Maschere]![Riunioni]![ID]));
  • O
    OsvaldoLaviosa
    Super Famoso
    Iscritto da
    apr, 2012
    Messaggi:
    7519

    Re: Maschera con mix di tabelle

    Ma ti funziona?
    Io non so leggere bene l'SQL e preferisco la visualizzazione struttura: devi fare pari pari come ho scritto io. La tabella Presenze non deve comparire nella visualizzazione struttura, ma essere solo oggetto dell'accodamento.
    La tua sottomaschera si chiama davvero così?
  • P
    Philcattivocarattere
    Utente Famoso
    Iscritto da
    giu, 2014
    Messaggi:
    2250

    Re: Maschera con mix di tabelle

    LucaDemo ha scritto:

    ...
    SQL query di Accodamento: 
    INSERT INTO Presenze ( IDRiunione, IDAnagrafica )
SELECT Riunioni.ID, [Dati Anagrafici].ID
FROM Riunioni, [Dati Anagrafici]
WHERE (((Riunioni.ID)=[Maschere]![Riunioni]![ID]));
    E' sbagliata la query. Non accoda niente perché non c'è nessuna corrispondenza tra Riunioni.ID e [Maschere]![Riunioni]![ID] (quando sei in inserimento della nuova riunione)
    (ho cancellato il resto perché avevo preso una cantonata colossale)
  • O
    OsvaldoLaviosa
    Super Famoso
    Iscritto da
    apr, 2012
    Messaggi:
    7519

    Re: Maschera con mix di tabelle

    Philcattivocarattere ha scritto:

    Non accoda niente perché non c'è nessuna corrispondenza tra Riunioni.ID e [Maschere]![Riunioni]![ID] (quando sei in inserimento della nuova riunione)
    ...già, dimenticavo il particolare "quando sei in inserimento della nuova riunione".
    Vuol dire che occorre aggiungere al codice VBA 
    Private Sub NomePulsante_Click()
DoCmd.RunCommand acCmdSaveRecord 'così sei sicuro che anche il record "in corso di digitazione" entri a far parte della tabella Riunioni
DoCmd.OpenQuery "AccodaAnagrafica"
Me![Nome sottomaschera].Requery
End Sub
  • /
    Anonimizzato18346
    Utente anonimizzato

    Re: Maschera con mix di tabelle

    Funziona perfettamente!!!

    Grazie mille Scusate se ho rotto così tanto
Devi accedere o registrarti per scrivere nel forum
19 risposte