Newsgroup: it.comp.appl.access
Titolo: aggiunta  su Combo e casella di testo non in elenco

Salve ragazzi,
ho questo problema, ho creato una maschera Anagrafica Clienti, su questa 
ho creato un combo ciamata Selcomune con i seguenti origini dati
(SELECT tbl_CAP.Città, tbl_CAP.Provincia, tbl_CAP.CAP, tbl_CAP.Nazione 
FROM tbl_CAP;
dove vi sono l'elenchi di tutte le città d'italia con provincia e cap. 
quindi quando seleziono un città dall'elenco va a mettermi in automatico 
i valori sulle caselle di testo corrispondenti con il seguente evento su 
dopo aggiornamento
Private Sub SelComune_AfterUpdate()
Me.ProvinciaCliente.Value = Me.SelComune.Column(1)
Me.CAPCliente.Value = Me.SelComune.Column(2)
Me.Nazione.Value = Me.SelComune.Column(3)
End Sub
  provincia capClienente e  nazione. sono delle caselle di testo con 
origine regod sulla Tabella Anangrafica
Ora vorrei avere la possibilità di aggiungere un valore non in elenco ed 
ho trovato  la segunte runtime
Private Sub SelComune_NotInList(NewData As String, Response As Integer)
Dim db As DAO.Database, rs As DAO.Recordset
Dim strMsg As String
strMsg = "'" & NewData & "' non è un comune disponibile"
strMsg = strMsg & vbCrLf & " Desidera aggiungerlo all'elenco dei Comuni?"
strMsg = strMsg & vbCrLf & " Clic su Si per aggiungerlo,  su No " & _
          "per selezionare uno esistente."
  If MsgBox(strMsg, vbQuestion + vbYesNo, _
     "Aggiungere un nuovo Comune?") = vbNo Then
     Response = acDataErrContinue
     Else
  Set db = CurrentDb
  Set rs = db.OpenRecordset("tbl_CAP", dbOpenDynaset)
  rs.AddNew
  rs!Città = NewData
  rs.Update
  rs.Close
  Response = acDataErrAdded
  End If
  End Sub
ma questa mi permette solo di aggiungere nella combo solo la città che 
non è presente nell'elenco, lasciando vuote i campi cap e provincia e 
nazione.
come posso fare ad aggiornare anche questi campi cioè campo prov  cap e 
nazione.
Tipo esempio voorei poter inserire città estere.
Grazie in anticipo.


Invece di aggiungere via codice ti apri la maschera basata su quella tabella
e aggiungi quello che vuoi
poi un bel requery sul controllo che stavi imputando e stai a posto
-- 
_ _
Ciao
MAssimiliano Amendola            
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:  
www.donkarl.com/it

MA ha scritto:

Grazie Ma  ma lo mi devo complicare la vita....
cmq ho risolto cosi
Private Sub SelComune_NotInList(NewData As String, Response As
  Integer) Dim db As DAO.Database, rs As DAO.Recordset
  Dim strMsg As String> strMsg = "'" & NewData & "' non è un comune 
disponibile"
  strMsg = strMsg & vbCrLf & " Desidera aggiungerlo all'elenco dei
  Comuni?" strMsg = strMsg & vbCrLf & " Clic su Si per aggiungerlo,  su
           No " & _ "per selezionare uno esistente."
   If MsgBox(strMsg, vbQuestion + vbYesNo, _
       "Aggiungere un nuovo Comune?") = vbNo Then
       Response = acDataErrContinue
       Else
    Set db = CurrentDb
   Set rs = db.OpenRecordset("tbl_CAP", dbOpenDynaset)
    rs.AddNew
    rs!Città = NewData
    rs!Cap = [Froms]![MiaFrom]![NomeControllo]
    rs!Nazione = [Froms]![MiaFrom]![NomeControllo]
    rs!Provincia = [Froms]![MiaFrom]![NomeControllo]
    rs.Update
    rs.Close
    Response = acDataErrAdded
    End If
    End Sub
ma ho il lieve problema di dover inserire prima cap prov e nazione e poi 
il nome della città
comq funziona......
Grazie

 ha scritto nel messaggio 
news:OwGLf.6634$PR2.1...@twister2.libero.it...

Cos'é quel [Froms]? Non sarà [Forms]?
E poi; se l'evento è nella stessa form puoi scrivere:
...
 rs!Cap = Me![NomeControllo]
...
Ciao.
-- 
Sergio MAZZA 

Sergio MAZZA ha scritto:

si scusa Sergio sono stanchissimo

 si scusa Sergio sono stanchissimo
E di che ti devi scusare?
Ciao.
-- 
Sergio MAZZA 

Sergio MAZZA ha scritto:

Vorrei capire e se c'è una soluzion , perche funziona solo se immetto 
valori prima del cap prov e nazione, poi vado sulla casella combinata e 
immetto il valore non in elenco allora tutto funzioa liscio.
Ma se faccio diversamente cioè metto prima il comune non in elenco mi 
compare la scritta vuoi aggiungerlo ma non mi registrare nella mia 
tabelle aner record corriporndente i valorei di cap , prov e nazione?.
CIao

 CIao
Non sono certo le uniche tre vie d'uscita ma quelle "meno fantasiose" forse sě...
Ciao.
-- 
Sergio MAZZA