Newsgroup: it.comp.appl.access
Titolo: Immissione Nuovo Nominativo

Dim dbs As database
Dim rcs As Recordset
Set dbs = OpenDatabase("IlNomeDelDatabase")
Set rcs = dbs.OpenRecordset("LaTabella", dbOpenDynaset)
if If MsgBox("Aggiungo?", vbOKCancel + vbQuestion) = vbOK Then
 Response = acDataErrAdded
 with rcs
  .addnew
   !IlCampo = me.Ilcontrollo
  .update
 end with
else
  response = acdataerrcontinue
end if
Questo č quanto mi ha dato Basjlio;
Tenendo presente che :
il DB si chiama (AMB.mdb)
la tabella dei nominativi č (TbPazientiAmbulatorioEsterno)
il campo in cui inserire il nome si chiama (Nominativo)
come si andrebbe a riscrivere il tutto?? e se poi lo scrivo con testo
minuscolo, come farlo registrare in maiuscolo??
.....di vero cuore
    Cataldo Formaro

 minuscolo, come farlo registrare in maiuscolo??
   Cioe'... 'n che sssenzo? :-)
   (Access non fa distinzione tra maiuscole e minuscole per quanto riguarda
i nomi delle tabelle e dei db)
   Ciao.

    Cataldo Formaro
...allora...
questa č una funzioncina che ho scritto un mesetto fa. Ho tolto le
cose che non ti servono.
Public Function AddToList(Tabella As String, Campo As String, Dati As
String) As Integer
On Error GoTo Slipups:
Dim db As Database
Dim strSQL As String
 
strSQL = "Insert into " & strTable & " (" & strField & ") Values " & _
"(" & """" & strData & """" & ")"
    Set db = CurrentDb
    db.Execute strSQL
NoSlipups:
  AddToList = acDataErrAdded
  Exit Function
Slipups:
  AddToList = acDataErrDisplay
End function
Nella sezione moduli del tuo DB, crea un nuovo modulo e incollaci
dentro questa cosa (da Private... fino a End Function). Poi ti sposti
sull'evento non in elenco della casella combinata e ci incolli:
Dim DataNew As String
Dim MexString As String
DataNew = UCase(NewData) 'Questo rende maiuscolo il testo inserito
MexString = "Aggiungere" & vbNewLine & vbNewLine
MexString = MexString & NewData & vbNewLine & vbNewLine
MexString = MexString & "all'elenco dei nominativi dei pazienti
dell'ambulatorio esterno?"
If MsgBox(MexString, vbYesNo + vbQuestion) = vbYes Then
    Response = AddToList("TbPazientiAmbulatorioEsterno", "Nominativo",
DataNew)
Else
  Response = acDataErrContinue
End If
Adesso questa funzione di aggiungere a mezzo caselle combinate la puoi
usare in tutte le maschere del tuo DB. Studiati un pņ la senconda
parte di codice e vedrai che non č difficile. 
NewData č il testo non compreso nell'elenco, non importa quale sia la
casella combinata, funziona sempre. La funzione addtolist ha bisogno
di tutte le informazioni (tabella dove aggiungere, in quale campo
aggiungere, che testo aggiungere(in genere newdata o un suo derivato
come in questo caso)).
L'unico limite č che puoi aggiungere solo in un campo... ma questa č
un'altra storia...
Ci siamo?
Ciao
Basjlico

 L'unico limite è che puoi aggiungere solo in un campo... ma questa è


per SimonenomiS
ho incollato la tua funzione cos' come mi hai scritto sostituendo solo il
nome del DB ed il nome della tabella. Andava forse cambiato altro ???? Nella
speranza che riusciate ad evitarmi uno stato ansioso depressivo ecc....
attendo posta
ciao Cataldo Formaro


invio i saluti a Basjlio
.... che non gli avevo mandato prima
ciao Cataldo Formaro