@Alex ha scritto:
Ma.non devi passarlo... passa solo il valore PK come ti ho detto... ed il recordset lo ricavi così:
Dim rs as Dao.recordset
Set rs=CodeContextObject.RecordsetClone
Dovrebbe fare quello che serve...
funziona e con qualche altra modifica e` andato tutto come hai detto tu ,.. non sapevo che la formattazione condizionale potesse usare una public function ,, grazie mille
se dovesse servire ad altri questo e` quanto
in un modulo di access creare una funzione public nel quale passate un paramento per ricercare il record , per accedere al dataset visualizzato utilizzare le seguenti righe di codice
Dim rst As Dao.Recordset
Set rst = CodeContextObject.RecordsetClone
e poi con un findFIrst cercare il record
alla funzione far restituire un valore che poi ci servira` nella formattazione condizionale come parametro..
questo e` il codice della mia function
Public Function AlleDalleDifference(Pk As Long) As Integer
Dim deltaT As Integer
Dim rst As Dao.Recordset
Set rst = CodeContextObject.RecordsetClone
deltaT = 0
strCriteria = "ID_Ril = " & Pk
rst.FindFirst strCriteria
If Not rst.NoMatch Then
tmpDalle = rst!Dalle
rst.MovePrevious
If (rst.BOF = False) Then
deltaT = DateDiff("s", rst!Alle, tmpDalle)
'deltaT = Abs(deltaT)
End If
End If
AlleDalleDifference = deltaT
End Function
Grazie Ancora