Newsgroup: it.comp.appl.access
Titolo: aggiungere un articolo non in lista

ecco il codice correttamente "succhiato" da sitocomune per aggiungere un
articolo non in elenco subito in elenco.
Siccome ho bisogno di recuperare anche il codice isbn del libro e qualcuno
lo dovrebbe digitare da tastiera, avrei bisogno di una finestrella al punto
contrassegnato con ******* che mi chieda all'utente il codice. Mi rendo
conto che sono ai fondamentali ma abbiate pazienza non l'ho trovato
sull'help e sono alle prime armi col vb. In definitiva vorrei che foste così
gentili da indicarmi qual è il comando per l'input da tastiera tramite vb.
GRazie mille ecco il codice
Private Sub AUTOREeTITOLO_NotInList(NewData As String, Response As Integer)
   Dim IntNuovo As Integer, strTitolo As String
   Dim IntFinestraMsg As Integer, strMsg As String
   strTitolo = "Prodotto 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 stDocName As String
       stDocName = "inserisciarticolo"
       DoCmd.OpenForm stDocName, , , , acFormAdd
       Dim miorst As Recordset
       Set miorst = CurrentDb.OpenRecordset("Elenco Articoli")
       miorst.AddNew
       miorst![ARTICOLO] = NewData
       miorst![NOTA] =                           **********input da tastiera
**********
       Me![AUTOREeTITOLO] = miorst![ID]
       miorst.Update
       miorst.Close
       strTitolo = "Inserimento nuovo Prodotto 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
       Me![AUTOREeTITOLO].Requery
   Else
       strTitolo = "Nome del prodotto errato"
       strMsg = NewData & " non è in elenco." & Chr(13) & Chr(10) &
"Seleziona un prodotto dall'elenco"
       IntFinestraMsg = vbOKOnly + vbExclamation
       IntNuovo = MsgBox(strMsg, IntFinestraMsg, strTitolo)
       Response = acDataErrContinue
       Me![AUTOREeTITOLO].Undo
   End If
End Sub

 ha scritto nel messaggio news:435540c1$0$8496$5fc...@news.tiscali.it...

Prova con:
miorst![NOTA] = inputbox("Inserisci codice ISBN","Codice ISBN","(valore di default)")
Comunque vedi help alla voce funzione InputBox...
Ciao.
-- 
Sergio MAZZA 

 ha scritto nel messaggio
news:dj5051$4o0$1...@area.cu.mi.it...

Grazie mille. Ma lo sai che l'ho cercato per ore nell'help ieri? L'ho
cercato anche oggi che sapevo il nome: ed infatti non c'è!!!
OT sapete consigliarmi un libro per "avventurarmi" nel linguaggio vb per
access?
Ho già programmato in altri ambienti.

 Ho già programmato in altri ambienti.
Quindi hai già la "scimmia sulla spalla"...
Ciao.
-- 
Sergio MAZZA 

 Ciao.
No Sergio, te lo ripeto ancora...
la puoi togliere quella scimmia dalla spalla ogni volta che programmi...
è solo un modo di dire...
dai non fare così!!
p.s. ridatemi Biso, vi prego un pochetto... ANtonioooo......
-- 
_ _
Ciao
MAssimiliano Amendola            
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:  
www.donkarl.com/it

 Info:  
www.donkarl.com/it
Ciao.
-- 
Sergio MAZZA 

 Se la tolgo chi programma? Iooo?
ROTFL...
