Scorrere le righe di una sottomaschera

martedì 04 marzo 2008 - 14.13

patrikirk Profilo | Newbie

Ciao a tutti, il mio problema è il seguente:

Ho una maschera principale denominata Ordini e una sottomaschera (a maschere continue)chiamata SM_Righe_Ordini in cui ho la necessità di scorrere tutti i record calcolati in essa per poterne memorizzare il valore alla pressione del bottone Comando37:

Private Sub Comando37_Click()
Dim rst As Recordset
Set rst = Me!SM_Righe_Ordini.Form.RecordsetClone
rst.MoveFirst
Do Until rst.EOF
MsgBox [SM_Righe_Ordini].Form![CampoCalcolato]
rst.MoveNext
Loop
End Sub

Per il momento utilizzo il Msgbox perchè volevo capire se mi visualizzava il valore corretto contenuto in CampoCalcolato però ho notato che mi appare sempre il primo valore della sottomaschera. Potete dirmi dove poter mettere il valore di rst in modo da spostarmi correttamente nei vari record e visualizzare tutti i valori del CampoCalcolato?

Grazie

grancati Profilo | Newbie

Ciao,

il recrdsetclone non è sincronizzato con il recordset della maschera, contiene gli stessi dati ma lo spostamento tra i suoi records è autonomo e non influisce ne viene influenzato dallo spostamento dei records della maschera.

per sincronizzare lo spostamento tra i records della maschera fai così:
----
Private Sub Comando37_Click()
Dim rst As Recordset
Set rst = Me!SM_Righe_Ordini.Form.RecordsetClone
rst.MoveFirst
Do Until rst.EOF
Me![SM_Righe_Ordini].Form.Bookmark=rst.Bookmark
MsgBox [SM_Righe_Ordini].Form![CampoCalcolato]
rst.MoveNext
Loop
Set rst=Nothing
End Sub
----

dalla versione 2002 di Access puoi accedere direttamente al recordset della maschera o sottomaschera.
----
Set rst = Me!SM_Righe_Ordini.Form.Recordset
----

Ciao
Giorgio

patrikirk Profilo | Newbie

Grazie mi sei davvero stato di grande aiuto, sapevo cosa dovevo fare ma non trovavo la sintassi per farlo, grazie ancora!
Partecipa anche tu! Registrati!
Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !
Copyright © dotNetHell.it 2002-2024
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5