Newsgroup: it.comp.appl.access
Titolo: l'applicazione non risponde!

salve a tutti,
ho bisogno del vostro aiuto per risolvere un problema che riguarda il che
sto testando.
Si tratta di due recordset che ciclano l'uno sull'altro e al verificarsi
della condizione uno dei due recordset viene aggiornato con i valori
dell'altro.
Succede che quando lancio il comando dopo una serie di cicli, la procedura
si blocca ( o come dice task manager non risponde) e per riprendere il
controllo della situazione non posso fare altro che  terminare sempre da
task manager l'operazione.
Ho verificato che se la stessa procedura la eseguo dalla finestra di debug
(passo passo) funziona e non si arresta anzi sembra poter tranqullamente
arrivare alla fine.
Vorrei capire quole puņ essere il motivo di siffatto comportamento per
maggiori dettagli riporto anche il codice in oggetto:
Private Sub Form_Load()
On Error GoTo Err_gest_errori
Dim cnn As ADODB.Connection
Dim rs1 As ADODB.Recordset
Dim rs2 As ADODB.Recordset
Dim lngPagCodCnt As Long
Dim lngBolCodCnt As Long
Dim lngPagAnno As Long
Dim lngBolAnno As Long
Dim strPagRata As String
Dim strBolRata As String
Dim conta As Long
Set cnn = CreateObject("ADODB.Connection")
cnn.Open "Driver={Microsoft Access Driver (*.mdb)};" & _
    "Dbq=C:\TOS.MDB;" & _
    "Uid=Admin;Pwd=;"
Set rs1 = New ADODB.Recordset
rs1.ActiveConnection = cnn
rs1.Open "SELECT PAGAMENTI.DAT_ACC, PAGAMENTI.[IMP],
PAGAMENTI.DAT_COR,'20'&Mid(([dat_cor]),5,2) AS anno, Mid(([dat_cor]),9,6) AS
CODCNT, val(Mid(([dat_cor]),15,2)) AS RATA FROM PAGAMENTI where dat_ris
='000000' and tip_doc='896'", , , , adCmdText
Set rs2 = New ADODB.Recordset
rs2.Open "BOLLETTINI", cnn, adOpenDynamic, adLockOptimistic, adCmdTable
conta = 0
Do Until rs1.EOF
    Debug.Print lngPagCodCnt, lngPagAnno, strPagRata
    rs2.MoveFirst
    Do Until rs2.EOF
        lngPagCodCnt = CLng(rs1.Fields(4))
        lngPagAnno = CLng(rs1.Fields(3))
        strPagRata = rs1.Fields(5)
        If strPagRata = 0 Then
            strPagRata = "U"
        End If
        lngBolCodCnt = rs2.Fields(0)
        lngBolAnno = CLng(rs2.Fields(4))
        strBolRata = rs2.Fields(2)
        If lngPagCodCnt = lngBolCodCnt Then
            If lngPagAnno = lngBolAnno Then
                If strPagRata = strBolRata Then
                rs2.Fields(5) = rs1.Fields(0)
                rs2.Fields(6) = Val(rs1.Fields(1)) / 100
                rs2.Update
                conta = conta + 1
                Debug.Print conta; lngPagCodCnt, lngBolCodCnt, lngPagAnno,
lngBolAnno, strPagRata, strBolRata
                Exit Do
                End If
            End If
        End If
        rs2.MoveNext
    Loop
    rs1.MoveNext
Loop
MsgBox ("FINE")
Exit_Form_Load:
    Exit Sub
Err_gest_errori:
    MsgBox (" errore: " & Err.Number & " - " & Err.Description)
     Exit Sub
End Sub

ma squilla a vuoto o ti dice che non è raggiungibile?
ti prego di usare un subject appropriato.
Leggiti 
www.accessgroup.it/notiquette.htm
-- 
_ _
Ciao
MAssimiliano Amendola            
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:  
www.donkarl.com/it

> ma squilla a vuoto o ti dice che non è raggiungibile?
LOL!


Capisco che l'oggetto possa sembrare alquanto vago, ma in effetti è la sola
anomalia (o comunque quella che unicamente si appalesa) , che sono in grado
di segnalare.
Se avessi avuto qualche indizio specifico l'avrei sicuramente evidenziato,
comunque non era mia intenzione violare le regole del newsgroup.
In ogni caso porgo le mie scuse per l'uso inappropriato del subject e con
l'occasione vi rinnovo i saluti.
cervantes


Dai, cervantes...
Non te la prendere.
La risposta di MA era veramente esilarante.
Siamo nella stessa barca :)
Ciao

 LOL!
Riposta con un subject appropriato



[cut]
ciao,
quando l'applicazione non risponde, riesci a interompere l'esecuzione del 
codice con Ctrl+Pausa o no?
Mat.