Newsgroup: it.comp.appl.access
Titolo: Forse mi ero spiegato male ..... era A2000-->SqlServer

Sono mica OT ??  Provo a riformulare la domanda
Ho un DB (FE) con tab collegate a SQLServer e uno identico però con tab
"formato" Access.
Nel DB collegato a SQLServer non riesco ad aggiungere record . Il codice è
identico per tutti e due i db .
*****************************
    DIM Miodatabase as database
    Dim rst as recordset
    Set Miodatabase = CurrentDb
    Set rst = Miodatabase.OpenRecordset("Q_Gravidanze", dbOpenDynaset)
    rst.FindFirst Criterio ' che ho preparato prima ...
 If rst.NoMatch Then Record_Si = False Else Record_Si = True
    Response = acDataErrAdded
    Form.AllowAdditions = True
    rst.AddNew
    rst!ID_Madre = Forms!M_Madre!ID_Madre
    rst!Num_Gravidanza = DCount("*", "Q_Gravidanze",
"Id_Madre=forms!M_madre!Id_Madre") + 1
    rst.Update                         '  In questa riga si blocca e con la
classica finestra di errore mi porta in debug .
*************************
Non ho esperienza di SQLServer e non saprei da dove cominciare , ho però
anche la necessità di levarmi da questo casino e capirci qualcosa
Grazie a tutti
MArce

 identico per tutti e due i db .
La tabella sul Server ha chiave primaria?

 classica finestra di errore mi porta in debug .
La 'classica finestra di errore' cosa dice?
Francamente non so come si comporti Access con tabelle collegate di SQL, di
certo ti posso dire che con un progetto di Access (ovvero una applicazione
nativa collegata a SQL Server) DAO te lo devi proprio scordare mentre
adesso, a giudicare dal codice che hai postato, stai utilizzando proprio
quello...
--
Matteo Palmieri
Cybercreations - 
www.cybercreations.it

 quello...
Supponevo questa mia ignoranza .Ti stai riferendo a ADO ?? Come varieresti ,
se non chiedo troppo, il codice ???
    DIM Miodatabase as database
    Dim rst as recordset
    Set Miodatabase = CurrentDb
    Set rst = Miodatabase.OpenRecordset("Q_Gravidanze", dbOpenDynaset)
    rst.FindFirst Criterio ' che ho preparato prima ...
 If rst.NoMatch Then Record_Si = False Else Record_Si = True
    Response = acDataErrAdded
    Form.AllowAdditions = True
    rst.AddNew
    rst!ID_Madre = Forms!M_Madre!ID_Madre
    rst!Num_Gravidanza = DCount("*", "Q_Gravidanze",
"Id_Madre=forms!M_madre!Id_Madre") + 1
    rst.Update
e ,scusa, ma ho provato anche a creare un progetto ( .ADP ??) ma ho notato
che devo ricreare le query (in un ADP sono le visualizzazioni ??) etc etc ..
mi sembra un po' un casino , anche perchè l'applicazione sarebbe
praticamente al 70 % pronta ... non vorrei dovermela riscrivere
Cosa ne pensi ?
Grazie ancora
MArce



Si , un ID_qualcosa int di 4 . Il mess d'errore è "modifica contemporanea di
record". Per essere precisi ho una mask con sottomask . Se aggiungo un rec
me lo lascia fare , poi però se voglio modificarne anche un campo (sempre in
maschera) appare l'errore "Modifica contemporanea di records, salvando ...."
mi si presentano tre pulsanti di cui solo due attivi 1)copia in appunti e
2)Non salvare le modifche. Il record nuovo è stato creato ma non si riescono
a modificarne i valori nei campi.
Grazie
marce

 praticamente al 70 % pronta ... non vorrei dovermela riscrivere
I tuoi sembrano problemi di connessione ODBC: cosa succede se modifichi
direttamente i valori nelle tabelle?
Hai provato a connetterti con altro Client?
Hai provato ad aprire il recordset con la costante Dbseechanges (vedi help)?
Ciao.

 Ciao e grazie , Marce


GRazie Marce

 se non chiedo troppo, il codice ???
Forse mi sono spiegato male: ODBC funziona benissimo e normalmente problemi
come i tuoi non s'incontrano ... ma visti i mille casini legati a Win e
registro esistono eccezioni.
Se tu potessi collegare le tabelle da un altro Client molto probabilmente
non avresti questi problemi _ne avresti altri ;-))_.
Procediamo a spanne (prima di formattare il PC e reinstallar tutto) e
vediamo che succede.
Prova a effettuare una riorganizzazione del DB sul Server: shrink database.