Newsgroup: it.comp.appl.access
Titolo: [Novello] Presenza di un record in una tabella.

Sono un novello "programmatore" (anche se riferito a me è una gran parola)
in Access.
Ho una necessità.
Ho una maschera di inserimento dati, l'origine della mascherà è una tabella
temporanea:
C'è una casella combinata (della maschera) la cui origine riga è una query
dove ordino i campi "Cognome" in ordine alfabetico a sua volta l'origine
della query è una tabella chiamata "Anagrafica" dalla quale prelevo tutti i
Cognomi già inseriti.
L'origine controllo della caasella combinata è il campo "Cognome" della
tabella temporanea in questione.
In più dopo aver scelto il "Cognome" dall'elenco, grazie alla funzione
"Dlookup" completo le altre caselle combinate con gli altri dati del TIZIO
il cui cognome ho scelto nella casella combinata precedente, in modo da
semplificare il tutto.
Fin quì tutto ok.
Ho impostato la proprietà della casella combinata "Solo in elenco" a "NO"
perchè vorrei che se il campo "Cognome" non esiste nella tabella Anagrafica
me lo faccia inserire lo stesso (naturalmente non funzionerà più la Dlookup
per completare gli altri campi) e me  lo inserisca nella tabella temporanea
in cui la maschera "butta" i dati.
Non so se sono stato abbastanza chiaro.
Mi potete aiutare per favore?
Come risolvo questo probblema?
Grazie mille a tutti in anticipo.


---
Daniele

 ha
scritto nel messaggio
news:dEZDc.545449$rM4.22...@news4.tin.it...

Pippo, Pippo, Pippo, Pippo, Pippo, Pippo...  (con
la voce del Tenerone...)
Signori abbiamo Pippo Baudo con noi!!!!
ciao e benvenuto,
so di non essere stato originale, ma converrai che
non potevo esimermi.
Venendo al tuo problema.
In realtà devi risettare a sì la voce solo in
elenco e utilizzare l'evento notinlist
e poi lì addnew
guarda l'help, fattene un'idea e poi ne discutiamo
insieme.
Ciao, Pennellone
MAssimiliano

 la voce del Tenerone...)
Tu vedi troppa tv
Hehe hehe ehe eehehe
Antonio

 la voce del Tenerone...)
Così dai del materiale ("storico" con DriveIn) ad Antonio per sfotterti...
;-) ti sei ingabbiato da solo.
-- 
Pablitomf
Lentamente muore chi abbandona un progetto prima di iniziarlo, chi non fa
domande sugli argomenti che non conosce, chi non risponde quando gli
chiedono qualcosa che conosce. (P.Neruda)
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it


A parte che č una citazione dottissima, ma poi lui
le capisce tutte, significa che ne vede
altrettante


Riprendo ciň che ho inviato per errore
A quanto pare lui ne vede altrettanta...
cmq, voi nei miei panni, ve la sareste fatta
scappare una chicca del genere???
MAssimiliano

 insieme.
Non funge.
Mi dice "Il testo immesso non corrisponde ad una voce nell'elenco...... bla
bla" poi clikko si OK e si chiude la mashcera.

 ha
scritto nel messaggio
news:8OdEc.393059$hc5.16...@news3.tin.it...

Mi sa che non hai letto l'help
Ti allega una mia funzione (nel senso che la usa
in un mio programma)
Private Sub cliente_NotInList(NewData As String,
Response As Integer)
'Pippo allora, sull'evento non in elenco lui
gestisce due variabili
'il nuovo dato e la risposta all'errore, quello
che ti dice che non è in elenco
On Error GoTo err
Dim IntNuovo As Integer, strTitolo As String
Dim IntFinestraMsg As Integer, strMsg As String
strTitolo = "Nuovo Cliente"
strMsg = "Vuoi aggiungere" & Chr(13) & Chr(10) &
NewData & Chr(13) & Chr(10) & "come cliente?"
IntFinestraMsg = vbYesNo + vbQuestion
IntNuovo = MsgBox(strMsg, IntFinestraMsg,
strTitolo)
'Mi sono preparato la msgbox con le domande che
voglio
'Se risponde sì aggiungo il nuovo valore
If IntNuovo = vbYes Then
    Dim miorst As DAO.Recordset
    Set miorst =
CurrentDb.OpenRecordset("clientel")
    miorst.AddNew
    miorst!cliente = NewData
    Me.cliente = NewData
    miorst.Update
    miorst.Close
    Set miorst = Nothing
'Intercetto il msg di errore
    Response = acDataErrAdded
    Me.cliente.Requery
'altrimenti annullo tutto
Else
    strTitolo = "Attenzione inserimento errato"
    strMsg = NewData & " non è in elenco." &
Chr(13) & Chr(10) & "Seleziona un cliente
dall'elenco"
    IntFinestraMsg = vbOKOnly + vbExclamation
    IntNuovo = MsgBox(strMsg, IntFinestraMsg,
strTitolo)
    Response = acDataErrContinue
    Me.cliente.Undo
End If
exit_err:
    Exit Sub
err:
    MsgBox "Si è verificato un qualche errore,
verifica bene", vbCritical, "Attenzione"
    Resume exit_err
End Sub
Ciao Massimiliano
p.s. salutami Katia, e ricordati, Pablitomf  l'ho
inventato io!!
MAssimiliano