Condividi tramite

Utilizzo ME.recordsetclone

Anonimo
2012-05-23T15:13:30+00:00

Scusate tanto...

sto utilizzando questa sub:

Private Sub Nessuno_Click()

Dim Tabella As DAO.Recordset

Set Tabella = Me.RecordsetClone

Do Until Tabella.EOF

Tabella.Edit

Tabella.Fields("Corso" & Glcodiceprodotto) = 0

Tabella.Update

Tabella.MoveNext

Loop

Tabella.Close

Me.Requery

End Sub

Da perfetto ignorante.... e' giusta questa roba???

Spiego meglio, maschera con query seleziona dei record.

I record estrapolati li invio sulla maschera dove c'e' un [campo testo] con dei nomi ed un campo [Casella di controllo] per selezionarli.

In cima alla maschera ho creato due pulsantini uno per seleziona tutti e l'altro per nessuno.

Ho letto un po in giro e mi sembrava che questa fosse la cosa giusta.

Ma con il codice che ho riportato funziona alla prima selezione.

Successivamente mi svuota la [maschera continua] e non funziona piu'.

Se chiudo e riapro funziona.

Il problema vero e' la mia ignoranza.

Grazie.

Microsoft 365 e Office | Accesso | Per la casa | Windows

Domanda bloccata. Questa domanda è stata eseguita dalla community del supporto tecnico Microsoft. È possibile votare se è utile, ma non è possibile aggiungere commenti o risposte o seguire la domanda.

0 commenti Nessun commento

Risposta accettata dall'autore della domanda

  1. Anonimo
    2012-05-24T07:34:02+00:00

    Se il campo della Selezione è in tabella devi effettuare il test su questo

    Select tb-preventiviformazione.Id FROM tb-preventiviformazione

    Where tb-preventiviformazione.Selezione = -1

    Mimmo

    La risposta è stata utile?

    0 commenti Nessun commento

9 risposte aggiuntive

Ordina per: Più utili
  1. Anonimo
    2012-05-23T16:07:05+00:00

    SELECT [Cognome] & " - " & [Nome] AS [Cognome Nome], [tb-preventiviformazione].*, [tb-preventiviformazione].ID_preventivi, [tb-preventiviformazione].ID_Tipologia, [tb-adettitipologia].Tipologia

    FROM ([tb-preventiviformazione] INNER JOIN [tb-addetti] ON [tb-preventiviformazione].ID_addetti = [tb-addetti].Id) INNER JOIN [tb-adettitipologia] ON [tb-preventiviformazione].ID_Tipologia = [tb-adettitipologia].ID

    WHERE ((([tb-preventiviformazione].ID_preventivi)=[Forms]![PREVENTIVIAVANZATI]![id]));

    La risposta è stata utile?

    0 commenti Nessun commento
  2. Eliminata

    Questa risposta è stata eliminata a causa di una violazione del codice di comportamento. La risposta è stata segnalata manualmente o identificata tramite il rilevamento automatizzato prima dell'esecuzione dell'azione. Per ulteriori informazioni, fai riferimento al codice di comportamento.


    I commenti sono stati disattivati. Ulteriori informazioni

  3. Anonimo
    2012-05-23T16:00:59+00:00

    Intanto grazie per la risposta.

    Sulla Maschera ho questo codice:

    Private Sub Form_Open(Cancel As Integer)

    Me.NCorso.ControlSource = "Corso" & Glcodiceprodotto

    End Sub

    La tabella sulla quale vado a fare la modifica ha 100 campi corso.

    Con la sub form_open gli dico quale campo visualizzarmi nella maschera continua.

    Ho provato con [Me.Recordset] ed e' qui (avevo sbagliato) che mi scompaiono i record.

    Con recordsetclone invece, mi funziona una volta ma poi non funziona.

    Funziona solo se chiudo e riapro la form.

    Forse devo salvare i dati se uso recordsetclone?????

    La risposta è stata utile?

    0 commenti Nessun commento
  4. Anonimo
    2012-05-23T15:31:32+00:00

    Ciao,

    l'aggiornamento lo devi fare sulla tabella reale e non su una copia del recordsetclone.

    Probabile che sulla form hai come filtro il campo che vai ad aggiornare?

    Mimmo

    La risposta è stata utile?

    0 commenti Nessun commento