Newsgroup: it.comp.appl.access
Titolo: Select case

Salve a tutti, su access 97 usavo il select case in questo modo:
Private Sub Comando128_Click()
Dim ricevuta As String
campo = Forms![prenota]![posto]
Select Case campo
   case1 "postomio"
   DoCmd.RunMacro "Stampa ricevuta1"
End Select
nella conversione al 2000 non gli piace "campo =" cosa posso usare??
grazie.

 ha scritto nel messaggio
news:j13dd.47939$H11.1...@twister1.libero.it...

Ciao Filippo,
probabilmente campo che in inglese fa Field in Access2K è diventata una
parola riservata, è successo anche ad altre parole italiane tipo Descrizione
usa qualsiasi altra parola: ilcampo, uncampo ....
Ciao
Cinzia

 ha scritto nel messaggio
news:cl2etb$v26$1...@lacerta.tiscalinet.it...

Grazie Cinzia, ho provato a chiamarlo ilcampo ma nulla, su blocca sempre sul
punto "Ilcampo =" non gli piace... non so che fare.

 ha scritto nel messaggio
news:Mf3dd.47189$N45.1...@twister2.libero.it...

Ciao Filippo
Se  posto è una casella di testo prova
Dim campo as string
 campo = Forms![prenota]![posto].value
oppure
 campo = Forms![prenota]![posto].text
Cinzia

 ha scritto nel messaggio
news:cl2fqp$vk0$1...@lacerta.tiscalinet.it...

Ho aggiunto la variabile Campo e sembra sia passato, si è ribloccato su
"case1" però con il seguente messaggio:
"Errore di compilazione:
Istruzioni ed etichette non valide tra Select Case e la prima composizione
Case".
Grazie ancora..

 ha scritto nel messaggio
news:7t3dd.47206$N45.1...@twister2.libero.it...

Pensavo avessi sbagliato a copiare e non te l'ho detto subito, non è case1
ma case e basta.
Select Case campo
   case  "postomio"
           DoCmd.RunMacro "Stampa ricevuta1"
End Select
Cinzia

 ha scritto nel messaggio
news:cl2gef$b9$1...@lacerta.tiscalinet.it...

Fatta anche questa, ora sembra che funzioni, solo in un ultimo punto su
blocca:
Private Sub Comando120_Click()
"On Error GoTo Err_Comando120_Click" su questa riga scrive:
Errore di compilazione: Etichetta non definita
Grazie

[CUT]

Ciao Filippo,
sicuro che su A97 funzionasse??
prima dell'end sub dovrebbe esserci :
Err_Comando120_Click:
Controlla se c'è e che sia scritto correttamente.
Cinzia

 punto "Ilcampo =" non gli piace... non so che fare.
Se "campo" o "ilCAmpo" è una variabile la devi dichiarare come hai fatto per
"ricevuta"...
Ciao.
-- 
Sergio MAZZA

 ha scritto nel messaggio
news:cl2i4k$1md$1...@lacerta.tiscalinet.it...

Ciao Cinzia,
precisamente c'è scritto:
Private Sub Comando120_Click()
On Error GoTo Err_Comando120_Click
   Dim stDocName As String
If Forms![prenota]![Posto] = "Prima fila" Then
  Call Comando113_Click
ElseIf Forms![prenota]![Posto] = "Seconda fila" Then
  Call Comando113_Click
  ElseIf Forms![prenota]![Posto] = "Terza fila" Then
  Call Comando113_Click
End If
Exit_Comando120_Click:
    Exit Sub
Err_Comando112_Click:
    MsgBox Err.Description
    Resume Exit_Comando120_Click
End Sub
Se modifico la terz'ultima riga da 112 a 120 funzionerebbe, ma...   in A97 è
scritto uguale, non è stato modificato dalla conversione.
Grazie mille.


Se in A97 funzionava, vuol dire che quella procedura non è più richiamata da
nessuno, e la versione A97 non era stata compilata!
Saluti
Cinzia

 ha scritto nel messaggio
news:cl2jil$2p6$1...@lacerta.tiscalinet.it...

Ciao Cinzia,
in effetti erano vecchi controlli non più utilizzati, ho fatto un po' di
pulizia, ora apparentemente funziona tutto correttamente, farò qualche
ulteriore prova.
Grazie per l'aiuto.
Filippo.

 ha scritto nel messaggio
news:s_3dd.57637$b5.29...@news3.tin.it...

Grazie sergio, in effetti non era stata dichiarata la variabile, ora
funziona correttamente.
Filippo.