Newsgroup: it.comp.appl.access
Titolo: Funzione da richiamere in tre sottomaschere

ciao a tutti
 
con questo codice vorrei creare una funzione se e' possibile.
 
Grazie per l'aiuto
 
    If IsNull(Me!CboConfezione) Then
 
        Me!LstProdotto.Requery
 
        If Not IsNull(Me!LstProdotto.Column(2)) Or _
            Me!LstProdotto.Column(2) <> "" Then
 
            If Me!LstProdotto.Column(3) <> "" Then
                Me!CboPallet = Me!LstProdotto.Column(3)
            Else
                Me!CboPallet = 1
 
            End If
 
            Me!CboConfezione = Me!LstProdotto.Column(4)
 
            If Me!LstProdotto.Column(5) <> "" Then
                Me!CboUnitàMisura = Me!LstProdotto.Column(5)
            Else
                Me!CboUnitàMisura = 1
 
            End If
 
        Else
 
            If Me!CboProdotto.Column(2) <> "" Then
                Me!CboPallet = Me!CboProdotto.Column(2)
            Else
                Me!CboPallet = 1
 
            End If
 
            If Me!CboProdotto.Column(3) <> "" Then
                Me!CboConfezione = Me!CboProdotto.Column(3)
 
            End If
 
            If Me!CboProdotto.Column(4) <> "" Then
                Me!CboUnitàMisura = Me!CboProdotto.Column(4)
            Else
                Me!CboUnitàMisura = 1
 
            End If
 
            If Aperta("M_Ordini") Then
                If Forms("M_Ordini")!LstCliente.Column(7) <> "" Then
                    Me!CboPallet = Forms("M_Ordini")!LstCliente.Column(7)
 
                End If
 
                If Forms("M_Ordini")!LstCliente.Column(8) <> "" Then
                    Me!CboUnitàMisura = Forms("M_Ordini")!LstCliente.Column(8)
 
                End If
            Else
                If Forms("M_GestioneOrdini")!CboClienticonOrdini.Column(3) <> "" Then
                    Me!CboPallet = Forms("M_GestioneOrdini")!CboClienticonOrdini.Column(3)
 
                End If
 
                If Forms("M_GestioneOrdini")!CboClienticonOrdini.Column(4) <> "" Then
                    Me!CboUnitàMisura = Forms("M_GestioneOrdini")!CboClienticonOrdini.Column(4)
 
                End If
 
            End If
 
        End If
 
    End If


Function pincopallo(myForm)
 
 
ci sbatti il codice sostituendo Me con myform (o qualsiasi nome tu 
voglia dare al parametro). La funzione dovrebbe essere pubblica o 
comunque visibile nell'ambito che ti interessa.
 
 
la richiami come [call] pincopallo(Me)
 
-- 
ac (x=y-1)
Aborro il Killfile
(La violenza e' l'ultimo rifugio degli incapaci -Salvor Hardin-)
 
---
Questa e-mail è stata controllata per individuare virus con Avast antivirus.
http://www.avast.com
 
 


grazie Alessandro


ciao Alessandro
 
 
posso semplificare
questo codice nella Funzione
visto che si ripete anche se le maschere non sono le stesse?
grazie
 
 If Aperta("M_Ordini") Then
 
            If Forms("M_Ordini")!LstCliente.Column(7) <> "" Then
                myForm!CboPallet = Forms("M_Ordini")!LstCliente.Column(7)
 
            End If
 
            If Forms("M_Ordini")!LstCliente.Column(8) <> "" Then
                myForm!CboUnitàMisura = Forms("M_Ordini")!LstCliente.Column(8)
 
            End If
 
        ElseIf Aperta("M_ChiusuraOrdini") Then
 
            If Forms("M_ChiusuraOrdini")!LstCliente.Column(7) <> "" Then
                myForm!CboPallet = Forms("M_ChiusuraOrdini")!LstCliente.Column(7)
 
            End If
 
            If Forms("M_ChiusuraOrdini")!LstCliente.Column(8) <> "" Then
                myForm!CboUnitàMisura = Forms("M_ChiusuraOrdini")!LstCliente.Column(8)
 
            End If
        Else
            If Forms("M_GestioneOrdini")!CboClienticonOrdini.Column(3) <> "" Then
                myForm!CboPallet = Forms("M_GestioneOrdini")!CboClienticonOrdini.Column(3)
 
            End If
 
            If Forms("M_GestioneOrdini")!CboClienticonOrdini.Column(4) <> "" Then
                myForm!CboUnitàMisura = Forms("M_GestioneOrdini")!CboClienticonOrdini.Column(4)
 
            End If
 
        End If
 
 


Nella vita ed in access si puo' fare quasi tutto.
A occhio dovresti passare l'oggetto che contiene column e l'indice di 
column (nel terzo caso e' 3 e 4 mentre nei primi due e' 7,8
Se nelle forms (quelle che cerchi nella collezione Forms) l'oggetto con 
la proprieta' column avesse  lo stesso nome sarebbe piu' semplice.
Per come sono messe le cose e non conoscendo (io) la struttura della tua 
applicazione ti direi lascia perdere le if agiscono su forms e controlli 
con nome diverso.



grazie