Newsgroup: it.comp.appl.access
Titolo: combo

Ciao a tutti,
ho un piccolo problema....ho una maschera (Magazzino) con due campi: una
combox (COD e Articolo in cascata) e un campo (CAMPO1), ed una tabella
Articoli (record: COD e Articolo);
la combox proviene dalla tabella Articoli che dopo aggiornamento manda la
seconda colonna (Articolo) dentro  CAMPO1....fin qui tutto bene.Io vorrei
che dopo aggiornamento del CAMPO 1 il valore si andasse a scrivere nel campo
Articolo della Tabella Prodotti dove però il COD della maschera è lo stesso
della tabella....
In sostanza ho creato un codice per l'aggirnamento dei dati fatto cos nel
caso non sia presente in elenco alla combox:
 Private Sub NomeProdotto_NotInList(NewData As String, Response As Integer)
Dim IntNuovo As Integer, strTitolo As String
Dim IntFinestraMsg As Integer, strMsg As String
strTitolo = "Articolo digitato non in elenco"
strMsg = "Vuoi aggiungere" & Chr(13) & Chr(10) & NewData & Chr(13) & Chr(10)
& "in elenco?"
IntFinestraMsg = vbYesNo + vbQuestion
IntNuovo = MsgBox(strMsg, IntFinestraMsg, strTitolo)
If IntNuovo = vbYes Then
    Dim miorst As Recordset
    Set miorst = CurrentDb.OpenRecordset("Articoli")
    miorst.AddNew
    miorst!COD = NewData
    Me![COD] = miorst![IDArticolo]
    miorst.Update
    miorst.Close
    Set miorst = Nothing
    strTitolo = "Inserimento nuovo Articolo in elenco"
    strMsg = "Inserimento in elenco di" & Chr(13) & Chr(10) & NewData &
Chr(13) & Chr(10) & "con successo"
    IntFinestraMsg = vbOKOnly + vbExclamation
    IntNuovo = MsgBox(strMsg, IntFinestraMsg, strTitolo)
    Response = acDataErrAdded
Else
    strTitolo = "Nome dell'articolo  errato"
    strMsg = NewData & " non è in elenco." & Chr(13) & Chr(10) & "Seleziona
un articolo dall'elenco"
    IntFinestraMsg = vbOKOnly + vbExclamation
    IntNuovo = MsgBox(strMsg, IntFinestraMsg, strTitolo)
    Response = acDataErrContinue
    Me![NomeProdotto].Undo
End If
End Sub
Vorrei crearne un che però aggiunto il nuovo COD a seconda di quello che
scrivo in CAMPO 1 nella maschera vada ad aggiornare il campo Articolo della
Tabella Articoli dove però il COD corrisponde al COD della maschera.
Si può?Spero di essermi spiegato bene...è un pò complicato spiegarlo a
parole...
Grazie a tutti coloro che mi potranno aiutare!
Robby

 parole...
Non è stato chiaro:
tu stai dicendo che, se viene inserito un nuovo codice articolo tramite la
combo, vuoi che venga salvato anche la descrizione?
Se è così, perchè su not in list non apri una form dove inserisci la
descrizione e quindi salvi il tutto, riportando poi il codice nella combo e
la desc nel controllo CAMPO1?
Antonio

 ha scritto nel messaggio
news:eraka.14152$iy5.4...@twister2.libero.it...

Avrei voluto fare tutto da codice....ed evitare di fare una maschera per
inserire i due campi...
E modificare il mio codice? Ora inserisce il nuovo COD, ma la DESCRIZIONE
relativa la vorrei aggiornare dopo.Potrei modificare il mio codice in modo
che digitata la descrizione nella maschera vada ad aggiornare la descrizione
del record relativo?
Il codice è questo:


P.s Non riesco a trovare il modo di posizionarmi sul record relativo della
tabella...
Grazie cmq....
Robby

 ha scritto nel messaggio
news:2ahka.15504$iy5.4...@twister2.libero.it...

Su dopo aggiornamento della casella descrizione lanci una query di
aggiornamento sulla tabella che aggiorni con [forms]![tuaform]![descrizione]
il campo descrizione e criterio
[forms]![tuaform]![combo] sotto il campo COD
Antonio