Risultati da 1 a 6 di 6

Discussione: Combo Box o Elenco con possibilitÓ di aggiunta dati



  1. #1
    ProgrammD69
    Ospite L'avatar di ProgrammD69

    Combo Box o Elenco con possibilitÓ di aggiunta dati

    Vi riporto un codice VBA che uso su Access.
    Vi chiedo se Ŕ possibile adattarlo anche su Excel.
    In pratica da la possibilitÓ di inserire nuove voci in una combo box.

    Il codice VBA:
    Codice: 
    Private Sub cboIDProdotti_NotInList(NewData As String, Response As Integer)
    Dim Db As DAO.Database
    Dim Rs As DAO.Recordset
    Dim Msg As String
    Dim NewID As String
    If NewData = "" Then Exit Sub
             Msg = "'" & NewData & "' is not in the list." & vbCr & vbCr
                Msg = Msg & "Do you want to add it?"
            If MsgBox(Msg, vbQuestion + vbYesNo) = vbNo Then
                    Response = acDataErrContinue
                    MsgBox "Please try again."
    Else
                    Set Db = CurrentDb
                    Set Rs = Db.OpenRecordset("PRODOTTI", dbOpenDynaset)
                    Msg = "Please enter a NomeProdotto" & vbCr & "IDProdotto"
    NewID = InputBox(Msg)
    Rs.FindFirst BuildCriteria("NomeProdotto", dbText, NewID)
                    Do Until Rs.NoMatch
                       NewID = InputBox("IDProdotto " & NewID & " already exists." & _
                            vbCr & vbCr & Msg, NewID & " Already Exists")
                    Rs.FindFirst BuildCriteria("IDProdotto", dbText, NewID)
                Loop
                    Rs.AddNew
                    Rs![NomeProdotto] = NewData
                    Rs.Update
                    Response = acDataErrAdded
            End If
    Exit_cboIDProdotto_NotInList:
            Exit Sub
    Err_cboIDProdotto_NotInList:
    MsgBox Err.Description
               Response = acDataErrContinue
    End Sub

    A Voi la tastiera !!

    Buona giornata.

  2. #2
    L'avatar di Gerardo ZuccalÓ
    Clicca e Apri
    Data Registrazione
    May 2015
    LocalitÓ
    Milano, Italy
    EtÓ
    49
    Messaggi
    4916
    Versione Office
    2013
    Likes ricevuti
    1117
    Likes dati
    1126

    Re: Combo Box o Elenco con possibilitÓ di aggiunta dati

    Ciao programmD69
    Credo che la tu richesta non Ŕ stata presa in considerazione fino adesso perche molti non hanno Access e quind non hanno il modo di provarlo, io ti consiglio di inserire un file di excel con i dati che hai a disposizione e prova a dare una descrizione del risultato finale che vuoi ottnere
    Un saluto
    Gerardo

  3. I seguenti utenti hanno dato un "Like"


  4. #3

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    LocalitÓ
    Sardegna
    EtÓ
    37
    Messaggi
    4024
    Versione Office
    2013
    Likes ricevuti
    1229
    Likes dati
    923

    Re: Combo Box o Elenco con possibilitÓ di aggiunta dati

    Citazione Originariamente Scritto da Gerardo ZuccalÓ Visualizza Messaggio
    Ciao programmD69
    Credo che la tu richesta non Ŕ stata presa in considerazione fino adesso perche molti non hanno Access e quind non hanno il modo di provarlo, io ti consiglio di inserire un file di excel con i dati che hai a disposizione e prova a dare una descrizione del risultato finale che vuoi ottnere
    Un saluto
    Gerardo
    Io ad esempio ho sempre "ignorato" Access (conosco giusto le cose elementari), anche se, dopo aver visto qualche tutorial, credo potrebbe essere molto pi¨ "veloce" per alcuni miei "lavori".

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno pu˛ immaginare."

  5. #4
    ProgrammD69
    Ospite L'avatar di ProgrammD69

    Re: Combo Box o Elenco con possibilitÓ di aggiunta dati

    Riformulo la domanda:

    E' possibile inserire in un elenco (creato con Convalida Dati) nuove voci ?

  6. #5
    L'avatar di Raffaele_53
    Clicca e Apri
    Data Registrazione
    Dec 2015
    LocalitÓ
    Binasco
    EtÓ
    64
    Messaggi
    506
    Versione Office
    2007
    Likes ricevuti
    85
    Likes dati
    7

    Re: Combo Box o Elenco con possibilitÓ di aggiunta dati

    Edit
    Scusate della risposta, non ho capito bene il post

  7. #6

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    LocalitÓ
    Cosenza
    EtÓ
    45
    Messaggi
    2814
    Versione Office
    Excel 2013
    Likes ricevuti
    1024
    Likes dati
    981

    Re: Combo Box o Elenco con possibilitÓ di aggiunta dati

    prova con questa routine:
    Codice: 
    Private Sub cboIDProdotti_NotInList(NewData As String, Response As Integer)
    Dim Rs As Range
    Dim Msg As String
    Dim NewID As String
    
    
    If NewData = "" Then Exit Sub
    
    
    Msg = "'" & NewData & "' is not in the list." & vbCr & vbCr
    Msg = Msg & "Do you want to add it?"
    
    
    If MsgBox(Msg, vbQuestion + vbYesNo) = vbNo Then
        Response = acDataErrContinue
        MsgBox "Please try again."
    Else
        Set Rs = Range("PRODOTTI")
        Msg = "Please enter a NomeProdotto"
        NewID = InputBox(Msg, , NewData)
        For i = 1 To Rs.Count
            If Rs(i) = NewID Then
                NewID = InputBox("IDProdotto " & NewID & " already exists." & _
                    vbCr & vbCr & Msg, NewID & " Already Exists")
                    GoTo Exit_cboIDProdotto_NotInList
            End If
        Next
        Rs(i) = NewData
        Rs.Resize(i).Name = "Prodotti"
    
    
    End If
    Exit_cboIDProdotto_NotInList:
            Exit Sub
    Err_cboIDProdotto_NotInList:
    MsgBox Err.Description
               Response = acDataErrContinue
    End Sub
    dove il Range("Prodotti") sarÓ una selezione dei prodotti con "Nome" (Inserisci/Nome/Definisci)
    Naturalmente Excel non ha gli indici ID e la verifica del duplicato va fatta direttamente sul nome prodotto

  8. I seguenti utenti hanno dato un "Like"


Discussioni Simili

  1. [Risolto] Confronta Colonne e aggiunta dati mancanti
    Di Barchetta nel forum Domande su Excel VBA e MACRO
    Risposte: 13
    Ultimo Messaggio: 29/12/16, 18:50
  2. Risposte: 13
    Ultimo Messaggio: 04/11/16, 12:11
  3. Combo Box copiare
    Di Caffeone nel forum Domande su Excel in generale
    Risposte: 16
    Ultimo Messaggio: 24/09/16, 11:18
  4. [Risolto] PossibilitÓ di stampare pi¨ grafici in pdf in una volta sola
    Di Catwoman nel forum Domande sui Grafici di Excel
    Risposte: 13
    Ultimo Messaggio: 08/08/16, 15:08
  5. PossibilitÓ di fare filtri dinamici con OR
    Di maverick69net nel forum Domande su Excel in generale
    Risposte: 7
    Ultimo Messaggio: 05/07/16, 18:53

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •