Newsgroup: it.comp.appl.access
Titolo: un record set capriccioso

ho creato un pulsante in una maschera"mMOVIMENTIBANCHE"
che ho chiamato "VaiAlRecord" e sull'evento on click mi apre la
maschera "mVAIALRECORD" composta da una casella di riepilogo (Elenco4)
e un pulsante "CMDMOSTRARECORD"
Dopo aver selezionato il record nella casella di riepilogo
attivando il pulsante "CMDMOSTRARECORD" si dovrebbe spostare sul record
cercato
della maschera "mMOVIMENTIBANCHE"
invece  mi da il il seguente errore:
1)errore di compilazione:
impossibile trovare il metodo o il membro dei dati.
oppure :
2)errore di run-time13
tipo non corrispondente
la procedura della form è la seguente
Option Compare Database
Dim FormMovimentiBancheAperto As Boolean
---------------------------
Private Sub CMDCHIUDI_Click()
DoCmd.Close
End Sub
--------------------------------------------
Private Sub CMDMOSTRARECORD_Click()
  Dim RecSet As Recordset
  If Not FormMovimentiBancheAperto Then
    DoCmd.OpenForm "mMOVIMENTIBANCHE"
    FormClientiAperto = True
  End If
  Set RecSet = Forms("mMOVIMENTIBANCHE").RecordsetClone
 'Set RecSet = Forms!CmMOVIMENTIBANCHE.RecordsetClone 'stile tradizionale
Access
  RecSet.Find "IDMOVIMENTI=" & Elenco4
  Forms("mMOVIMENTIBANCHE").Bookmark = RecSet.Bookmark
  DoCmd.Close acForm, "mVAIALRECORD"
End Sub
------------------------------------------------------------------------
Private Sub Elenco4_AfterUpdate()
CMDMOSTRARECORD.Enabled = True
End Sub
-----------------------------------------------------------
Private Sub Elenco4_DblClick(Cancel As Integer)
If Not IsNull(Elenco4) Then CMDMOSTRARECORD_Click
End Sub
------------------------------------------------------
Private Sub Form_Load()
Elenco4.Enabled = True
End Sub
-------------------------------------------------
 un grazie di cuore a tutti
resto fiducioso in aatesa di una soluzione.

 ha scritto nel messaggio
news:3d8d8...@news.dada.it...

Così, al volo...
Usa questo:
Set RecSet = Forms!CmMOVIMENTIBANCHE.RecordsetClone 'stile tradizionale
La colonna associata a Elenco4 restituisce IDMovimenti?
Ciao, Carlo





 -------------------------------------------------
--
Ciao :-)
Maurizio
--------
?SPQR(C)
 X
--------

 che vuoi dire spiegati meglio
    Per esempio:
        Private Function Pippo() As Boolean
            ' Fai questo e quello...
        End Sub
        Private TuoControllo_UnEvento()
            Pippo
        End Sub
        Private TuoAltroControllo_UnEvento()
            Pippo
        End Sub
    Invece di:
        Private TuoControllo_UnEvento()
            ' Fai questo e quello...
        End Sub
        Private TuoAltroControllo_UnEvento()
            TuoControllo_UnEvento
        End Sub


 Option Compare Database
Option Explicit
Dim FormMovimentiBancheAperto As Boolean
Private Sub CMDCHIUDI_Click()
DoCmd.Close
End Sub
Private Sub CMDMOSTRARECORD_Click()(in questo punto mi esce una riga
gialla)
  Dim RecSet As ADODB.Recordset
  If Not FormMovimentiBancheAperto Then
    DoCmd.OpenForm "mMOVIMENTIBANCHE"
    FormMovimentiBancheAperto = True
  End If
  Set RecSet = Forms!mMOVIMENTIBANCHE.RecordsetClone
 'stile tradizionale Access
  RecSet.FindFirst "[IDMOVIMENTI]=" & Elenco4    (se uso il metodo
FindFirst mi da il seguente errore:
Errore di compilazione_ "impossibile trovare il metodo o il membro dei
dati")
  RecSet.Find "[IDMOVIMENTI]=" & Elenco4    (se uso il metodo Find mi da
l'errore:
Errore di RunTime(13) tipo non corrispondente
Forms("mMOVIMENTIBANCHE").Bookmark = RecSet.Bookmark
  DoCmd.Close acForm, "mVAIALRECORD"
End Sub
Private Sub Elenco4_AfterUpdate()
CMDMOSTRARECORD.Enabled = True
End Sub
Private Sub Elenco4_DblClick(Cancel As Integer)
If Not IsNull(Elenco4) Then CMDMOSTRARECORD_Click
End Sub


 End Sub
--
