+ Rispondi al Thread
Visualizzazione dei risultati da 1 a 6 su 6

Discussione: Casella Combinata

  1. #1
    gian1971 non è in linea Novello
    Post
    15

    Casella Combinata

    Ho creato una casella combinata ,non associata, dove nella prima colonna ci sono una serie di cognomi e nella seconda altrettanti nomi.

    Devo, una volta selezionato il cognome ed il nome che mi serve, e cliccato su un pulsante all'interno della maschera, inserirli automaticamente in due caselle di testo, una chiamata nome e l'altra cognome, che pero' si trovano in un'altra maschera, non in quella dove c'e' la casella combinata.

    Potete Aiutarmi.

    Grazie

  2. #2
    L'avatar di @Alex
    @Alex non è in linea Very Important Person
    Post
    16,456
    Non hai specificato se le 2 TextBox dell'altra maschera sono associate... io tuttavia scriverei un codice su Evento DopoAggiornamento della Combo, che verificata la reale apertura
    della Maschera(2) vada ad assegnare il valore alle 2 Caselle...
    codice:
    Private Sub NomeCombo_AfterUpdate()
       If Currentproject.AllForms("NomeMaschera2").IsLoaded then
          Forms("NomeMaschera2")!NomeTextNome.Value=Me!NomeCombo.Column(IndiceColonnaNome) 
          Forms("NomeMaschera2")!NomeTextCognome.Value=Me!NomeCombo.Column(IndiceColonnaCognome)
       End If
    End Sub
    @Alex
    Il CROSSPOST è VIETATO
    Mirror al vecchio sito WEB(salvare i Demo riassegnando l'estensione (.Zip/.Rar/.Exe in base all'icona...):
    http://mirror.masterdrive.it/alessandrobaraldi/
    Leggi il
    Regolamento del Forum e nel comprenderne la filosofia rispettalo.

  3. #3
    gian1971 non è in linea Novello
    Post
    15
    grazie Alex sei un grande

  4. #4
    gian1971 non è in linea Novello
    Post
    15
    Le 2 textbox non sono associate.
    Io ho provato cosi ma niente:
    Private Sub CasellaCombinata11_Click()
    If CurrentProject.AllForms("frm_ricerca").IsLoaded Then
    Forms("frm_ricerca")!Testo19.Value = Me!CasellaCombinata11.Column(IndiceColonnaNome)
    Forms("frm_ricerca")!Testo17.Value = Me!CasellaCombinata11.Column(IndiceColonnaCognome)
    End If
    End Sub

    al posto di IndiceColonnaNone cosa metto?

    Altrimenti io avevo provato ad inserire nella textbox cognome (Testo17) questo: =[Maschere]![login]![CasellaCombinata11]
    ma nel Testo19 non so che mettere

  5. #5
    L'avatar di @Alex
    @Alex non è in linea Very Important Person
    Post
    16,456
    Devi mettere l'indice della colonna da cui ricavare il dato.
    @Alex
    Il CROSSPOST è VIETATO
    Mirror al vecchio sito WEB(salvare i Demo riassegnando l'estensione (.Zip/.Rar/.Exe in base all'icona...):
    http://mirror.masterdrive.it/alessandrobaraldi/
    Leggi il
    Regolamento del Forum e nel comprenderne la filosofia rispettalo.

  6. #6
    gian1971 non è in linea Novello
    Post
    15
    ok risolto

+ Rispondi al Thread

Tag per questa discussione

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi