Newsgroup: it.comp.appl.access
Titolo: tipo non corrispondente ecc

ho problemi con questo codice
 
Private Sub Form_AfterDelConfirm(Status As Integer)
On Error GoTo Form_AfterDelConfirm_Err
 
If CurrentProject.AllForms("Maschera1").IsLoaded Then
    Dim lngStore As Long
    lngStore_1 = Forms![Maschera1]![Fatture1].Form.IDFattura
 
    Forms![Maschera1]![Fatture1].Form.Requery
 
    Forms![Maschera1]![Fatture1].Form.RecordsetClone.FindFirst 
"Fatture.IdFattura = " & lngStore
 
    If IsNull (Forms![Maschera1]![Fatture1].Form.Bookmark = 
Forms![Maschera1]![Fatture1].Form.RecordsetClone.Bookmark) Then GoTo 
Form_AfterDelConfirm_Exit:
 
 
Form_AfterDelConfirm_Exit
End If
 
Form_AfterDelConfirm_Exit:
    Exit Sub
 
Form_AfterDelConfirm_Err:
    MsgBox Error$
    Resume Form_AfterDelConfirm_Exit
 
End Sub
 
quando elimino i records
ho i seguenti errori:
1-tipo non corrispondente
e sull'ultimo
2-nessun record corrente
 
come posso risolvere?
grazie 
 
 

 "Fatture.IdFattura = " & lngStore
.....
 
 
Salvi il valore in lngStore_1 ma poi per la ricerca usi lngStore.
Metti un Option Explicit in testa ad ogni modulo e non avrai più questo
tipo di problemi.
Si può impostare anche in automatico: tra le opzioni del database dovresti
trovare una spunta che dice più o meno "Dichiarazione variabili
obbligatoria", ti consiglio di abilitarla.
In realtà non ho mai capito perchè da una certa versione in poi Microsoft
l'abbia tolta di default.
Ciao.
-Marco-
 
 
 
-- 
 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it
 
 
 

 "Fatture.IdFattura = " & lngStore
 
 
Salvi il valore in lngStore_1 ma poi per la ricerca usi lngStore, che
presumo contenga sempre zero.



grazie Marco
ma ho ancora gli stessi errori 
 
 

 End If
 
==================================


 
"Geppo" <c...@tin.it.invalid> ha scritto nel messaggio 
news:jmk8uq$ne$1...@speranza.aioe.org...

ciao Geppo
è sull'evento dopo eliminazione 
 
 

>> "Fatture.IdFattura = " & lngStore
 
qui sopra la varibile lngStore dovrebbe essere lngStore_1
 
-- 
Ciao
Geppo 
 

 
"Geppo" <c...@tin.it.invalid> ha scritto nel messaggio 
news:jmke3f$evj$1...@speranza.aioe.org...

ciao Geppo
si giusto, ma l'errore rimane
 
 
 

 Form_AfterDelConfirm_Exit:
 
questa dovrebbe essere scritta cosi, se l'obiettivo è quello di ritornare 
sul record trovato con il metodo findfirst:
 
IsNull (Forms![Maschera1]![Fatture1].Form.Bookmark = 
Forms![Maschera1]![Fatture1].Form.RecordsetClone.Bookmark)
 
senza nessuna IF non serve.
 
-- 
Ciao
Geppo
 

 Form_AfterDelConfirm_Exit:
 


 
"Geppo" <c...@tin.it.invalid> ha scritto nel messaggio 
news:jmkfpr$jon$1...@speranza.aioe.org...

grazie Geppo
cosi' ho errore '13' tipo non corrispondente
 
 

 ha scritto nel messaggio 
news:4f8e6c52$0$1377$4faf...@reader2.news.tin.it...

con goto ora ho solo il messaggio quando elimino l'ultimo record
"nessun record corrente"
 
 

 "nessun record corrente"
 
cioč? Spiegati meglio.
 
 
-- 
Ciao
Geppo
 

....puoi provare ad intercettare l'errore in questo modo:
 
Form_AfterDelConfirm_Err:
 
  Select Case Err.Number
           Case 3021
           Resume Form_AfterDelConfirm_Exit
           Case Else
           MsgBox Error$ & " / " & Err.Number
           Resume Form_AfterDelConfirm_Exit
    End Select
 
-- 
Ciao
Geppo

 
"Geppo" <c...@tin.it.invalid> ha scritto nel messaggio 
news:jmm2hk$3hv$1...@speranza.aioe.org...

grazie Geppo
 
ora ho capito il motivo dell'errore
 
Il problema è che utilizzando il metodo di Donkarl stesso record dopo
la requery, eliminando l'ultimo record ho questi problemi
 
 

 la requery, eliminando l'ultimo record ho questi problemi
 
 
che puoi aggirare con la gestione errori che ti ho proposto.
 
-- 
Ciao
Geppo
 
 

 
"Geppo" <c...@tin.it.invalid> ha scritto nel messaggio 
news:jmm9eq$m9j$1...@speranza.aioe.org...

grazie 
 
 

 ha scritto nel messaggio 
news:4f8eaa43$0$1391$4faf...@reader1.news.tin.it...

ciao Geppo
con case ho quest'errore circolare
resume sebza Error/20
ok
/0 ok
e poi ripete di nuovo
resume senza Error/20
 
e non mi fa uscire
 
 
 
 

 e non mi fa uscire
 
Fai un copia incolla del codice che hai scritto.
 
-- 
Ciao
Geppo 
 

 
"Geppo" <c...@tin.it.invalid> ha scritto nel messaggio 
news:jmn5im$m07$1...@speranza.aioe.org...

ciao Geppo
al momento sembra andare bene,
se si riblocca ti chiedo aiuto di nuovo
Ancora grazie