Una famiglia di sistemi di gestione per database relazionali di Microsoft progettati per semplificare l'uso.
Ciao Nicola,
sono ripartito dal Db che che tu avevi condiviso per ripetere tutte le operazioni e prenderne nota.
Sempre su una copia del tuo Db
- Elimina nelle relazioni quella che lega le tabelle TblTelefoni_Militare e TblTipo_Telefono.
- Nella tabella TblTelefoni_Militare sul campo Tipo_Telefono nelle proprietà "Ricerca" imposta casella di testo e sul tipo di dato del campo Numerico. Il sistema ti da un avviso che potresti perdere dei dati ma tu conferma e vai avanti.
- Su relazioni reimposta la relazione tra le tabelle TblTelefoni_Militare e TblTipo_Telefono.
- Sulla funzione Telefono sostituisci il codice Sql come di seguito Set myRst = CurrentDb.OpenRecordset("SELECT TblTelefoni_Militare.Numero_Telefono " & _
**"FROM TblTipo\_Telefono INNER JOIN TblTelefoni\_Militare ON TblTipo\_Telefono.ID\_telefono = TblTelefoni\_Militare.Tipo\_Telefono " & \_** **"Where Id\_Anagrafica = " & Id\_Anagrafica & " And TblTipo\_Telefono.Tipo = '" & Tipo & "'")**
Devi verificare le form preesistenti che nel Db trattavano i numeri di telefono .
Facci sapere
Mimmo