+ Rispondi al messaggio
Pagina 2 di 2 primaprima 12
Visualizzazione dei risultati da 11 a 12 su 12

Passare un riferimento form ad un modulo

  1. #11
    bertelli.davide non è in linea Scolaretto
    Buonasera Alex,

    Questa sarebbe la funzione definitiva.
    ....Sarebbe perchè sulla new form_Varianti_Dettaglio, dopo l'aggiornamento (DoCmd.RunCommand acCmdSaveRecord) o su allulla modifiche (Me.Undo) non mi ritrovo lo stesso record ma si posiziona al primo.
    Public Function OpenForm(ByVal FormToOpen As String, ByVal ModeToOpen As FormMode, Optional ByVal RecordFilter As String = vbNull) As Long
         
        Dim frm As Form
      
        On Error GoTo FormToOpen_Err
        
        Select Case True
            Case FormToOpen = "Form_Varianti":  Set frm = New Form_Varianti
            Case FormToOpen = "Form_Varianti_Dettaglio":  Set frm = New Form_Varianti_Dettaglio
        End Select
        
        Select Case ModeToOpen
            Case Is = formModeRead
                frm.AllowAdditions = False
                frm.DataEntry = False
                frm.AllowDeletions = True
                frm.AllowEdits = False
            Case Is = formModeEdit
                frm.AllowAdditions = False
                frm.DataEntry = False
                frm.AllowDeletions = False
                frm.AllowEdits = True
                frm.Filter = RecordFilter
                frm.FilterOn = True
            Case Is = formModeAdd
                frm.AllowAdditions = True
                frm.DataEntry = True
                frm.AllowDeletions = False
                frm.AllowEdits = False
        End Select
    
        frm.Visible = True
        
        'Aggiunge la nuova istanza alla collection.
        clnForms.Add Item:=frm, Key:=CStr(frm.Hwnd)
        
        OpenForm = frm.Hwnd
    
        Set frm = Nothing
        
    FormToOpen_Exit:
    
        Exit Function
    
    FormToOpen_Err:
    
        MsgBox Error$
        Resume FormToOpen_Exit
        
    End Function
    
    Ho provato anche a salvare il filtro in una variabile myFilter as string e sull'evento:
    Private Sub Form_Activate()
        myFilter = Me.Filter
    End Sub
    
    Per riutilizzarla dopo il salvataggio o l'annullamento ma non funziona.

    Some idea?

    Grazie
    Ultima modifica di @Alex; 13-08-2021 07:35 

  2. #12
    L'avatar di @Alex
    @Alex non è in linea Moderatore Globale
    Come vedi applichi il Filtro solo in caso di [formModeEdit]... quindi verifica quello... e verifica che abbia reale efficacia, conta o verifica che il Numero dei Record/s sia coerente con il criterio.
    Potrebbe anche essere che qualche altra parte del tuo codice scritta nella Form vada a compromettere il filtro...?

    Avrei tenuto invece del Parametro FormToOpen as String, l'oggetto ma magari dipende da come la chiami...
    ℹ️ Leggi di più su @Alex ...

+ Rispondi al messaggio
Pagina 2 di 2 primaprima 12

Potrebbero interessarti anche ...

  1. Fare riferimento a checkbox di una form in stringa sql query
    Da Fedeciprova nel forum Visual Basic .Net
    Risposte: 11
    Ultimo Post: 29-04-2016, 14:54
  2. Riferimento ad un UserControl da un modulo di classe
    Da John Hawk nel forum Visual Basic 6
    Risposte: 2
    Ultimo Post: 27-04-2012, 19:58
  3. Risolto: Passare form ad una sub
    Da giuseppe88 nel forum Visual Basic .Net
    Risposte: 13
    Ultimo Post: 07-10-2010, 13:33
  4. [VB6]Passaggio variabile da form a modulo
    Da Drake88 nel forum Visual Basic 6
    Risposte: 12
    Ultimo Post: 19-05-2008, 21:02
  5. Riferimento a Form con variabile
    Da blackrabbit nel forum Microsoft Word
    Risposte: 2
    Ultimo Post: 20-04-2007, 15:53