Newsgroup: it.comp.appl.access
Titolo: Richieste chiarimento a Sib

Scusa se mi rivolgo direttamente ma vorrei un chiarimento di tipo
"didattico"
In un precedente post mi avevi dato queste istruzioni per verificare se nel
recordset alla voce "filiale" esisteva una stringa indicata nella casella
combinata.
Però la funzione controlla solo il primo record.
Come si può modificare per verificare se in tutti i record esiste quella
stringa
Private Sub Comando3_Click()
On Error GoTo Err_Comando3_Click
Dim dbs As Database, rst As Recordset
Set dbs = OpenDatabase("C:\IMPORTA.mdb")
Set rst = dbs.OpenRecordset("IMMOBILI IN LOCAZIONE")
If rst!Filiale <> Me.CasellaCombinata0 Then
   MsgBox "La filiale non corrisponde"
  rst.Close
  Exit Sub
End If
rst.Close
    DoCmd.OpenQuery "ELIMINA ANCONA", acNormal, acEdit
    DoCmd.OpenQuery "Query1", acNormal, acEdit
Exit_Comando3_Click:
    Exit Sub
Err_Comando3_Click:
    MsgBox Err.Description
    Resume Exit_Comando3_Click
End Sub

 End Sub
Vorrei però dire che ha seconda dell'operazione da svolgere vi sono strade
più dirette e lineari, ad es: se devi eliminare dalla tabella "IMMOBILI IN
LOCAZIONE" tutti i record relativi alla filiale in questione ti conviene
creare una istruzionesql di eliminazione: "DELETE [IMMOBILI IN LOCAZIONE].*
WHERE filiale ='" & Combo &"'" o qualcosa del genere, verifica la sintassi
perchè essendo a casa con l'influenza non garantisco.
Ciao, Sib


Grazie dei suggerimenti e auguri di pronta guarigione.
Marco


 Ho riscritto il codice come consigliato ma appare questo messaggio
"Operation is not supported for this typo of objet"
Ho fatto delle prove e sono sicuro che non riconosca FindFirst.
Come mai?
  Dim dbs As Database, rst As Recordset
Set dbs = OpenDatabase("C:\IMPORTA.mdb")
Set rst = dbs.OpenRecordset("IMMOBILI IN LOCAZIONE")
rst.FindFirst "Filiale = '" & Me!CasellaCombinata0 & "'"
If rst.NoMatch Then


Non riesco a capire lanciando questo codice mi dice che FindFirst
errore di compilazione:argomento non facoltativo
Mi potete dare una mano?
ciao
Questo codice č giusto un esempio ma si blocca su findfirst
Private Sub Comando3_Click()
On Error GoTo Err_Comando3_Click
   Dim dbs As Database, rst As Recordset
Set dbs = OpenDatabase("C:\IMPORTA.mdb")
Set rst = dbs.OpenRecordset("IMMOBILI IN LOCAZIONE")
rst.FindFirst = "[FILIALE]='ANCONA'"
MsgBox "La filiale non corrisponde"
Exit_Comando3_Click:


 rst.Close...
Ciao, Sib
--
------------------------------------------------------
Non e' grave non capire; grave e' occuparsi di cio' che non si capisce.
Ma ricordate anche che il saggio egizio Ptahhotep scrisse:
"... perche' non esistono saggi per nascita."
------------------------------------------------------
Saturiamo ECHELON:
bomba saddam attentato medio oriente


Si perfetto cosě funziona perň mi č capitato piů volte di vedere esempi con
tabelle
uno di questi si trova sull'help di FindFirst
Sub TrovaRecord()
 Dim dbs As Database, rst As Recordset
 Dim strCriteri As String
 Set dbs = CurrentDb
 strCriteri = "[PaeseDestinatario] = 'UK' "
 Set rst = dbs.OpenRecordset("Ordini", dbOpenDynaset)
 rst.FindFirst strCriteri
If rst.NoMatch Then
  MsgBox "Impossibile trovare record."
 End If
 rst.Close
 Set dbs = Nothing
End Sub
Mi puoi dare maggiori notizie?
Ho molta voglia di imparare questo linguaggio ma ancora molta confusione.
Ancora una cosa come si fa a lanciare un SQL da codice come da te
consigliato io ho scritto quanto sotto riportato ma mi ha dato errore, non
riconosce l'asterisco ed altro.
DELETE *  FROM [IMMOBILI IN LOCAZIONE] WHERE Filiale=
"&[Forms]![selezione_aggiorna]![CasellaCombinata0]&";

MsgBox "La filiale non corrisponde"
Non puň funzionare perchč:
1 deve essere aperto in modo Dynaset
2 dopo FindFirtst non bisogna mettere =
Ciao, Carlo
--
Posted from 
ro...@www.paola.antares.it
 [195.216.145.2]
via Mailgate.ORG Server - 
http://www.mailgate.org

 "&[Forms]![selezione_aggiorna]![CasellaCombinata0]&";
Per questo mi pare che ti abbiano gia' risposto
Ciao, Sib