Ciao a tutti, ho un problema con il codice vba in ACCESS 2007. Premetto che di VBA di ACCESS non ne so praticamente niente ma sono abbastanza bravetto sul vba di Excel.
Il database è formato nel seguente modo:
- ci sono tante tabelle di cui una si chiama _PARAMETRI_ESTRAZIONE che contiene una riga e 3 campi (ALFA, BETA, GAMMA);
- ci sono parecchie query che collegano le tabelle tra di loro e arrivano ad un output.
Le query dipendono dai parametri impostati in _PARAMETRI_ESTRAZIONE.
Di per sè ho già fatto il codice che lancia tutte le query ecc, ma per rendere "perfetto" il tutto mi piacerebbe anche mettere un messaggio di conferma nel quale sono riepilogati i parametri. Da qui nasce il problema: come faccio a prendere i valori presenti nella tabella _PARAMETRI_ESTRAZIONE e assegnarli ad una variabile?
Il codice che ho scritto è questo:
Codice:
Private Sub Comando20_Click()
DoCmd.OpenTable "_PARAMETRI_ESTRAZIONE", acViewNormal, acReadOnly
Conferma = MsgBox("I parametri impostati sono " & Chr(13) + Chr(10) & _
"ALFA=" & ALFA & Chr(13) + Chr(10) & _
"BETA=" & BETA & Chr(13) + Chr(10) & _
"GAMMA=" & GAMMA & Chr(13) + Chr(10) + Chr(13) + Chr(10) & _
"Vuoi aggiornare?", vbYesNo)
If Conferma = vbYes Then
DoCmd.SetWarnings False
DoCmd.OpenQuery "1 - QUERY 1"
DoCmd.OpenQuery "2 - QUERY 2"
DoCmd.SetWarnings True
End If
End Sub
Grazie mille.
Segnalibri