Newsgroup: it.comp.lang.visual-basic
Titolo: Rules in Access

Ciao a tutti,
ho il seguente problema: DB Access, una tabella in cui ho un campo (trai i
tanti) obbligatorio e non consente lunghezza zero; facendo un .AddeNew del
recordset su quel campo se non metto niente mi da', giustamente, un errore
(-2147467259
);
considerate che sto lavorando con la VsFlexGrid... 
dunque..se inserisco, ora, nella cella un valore e provo ad effettuare un
addnew, mi da' sempre errore (?!.. sempre lo stesso!); ho provato anche
con un DoEvents, ma niente... Chi puo' aiutarmi? .. (spero di essere stato
abbastanza chiaro)
TIA. Guly
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 ho provato anche con un DoEvents, ma niente...
Chi puo' aiutarmi? ..
Tu. Aiuteresti anche noi con un po' di codice.

 Tu. Aiuteresti anche noi con un po' di codice.
:)
Ecco:
With rsCaricoScarico_Dett
 For iRowFlex = 1 To vsFlexDett.Rows - 1
iColDett = 1
AddNew
 rsCaricoScarico_Dett("ID") = Trim$(txtNOperaz)
 rsCaricoScarico_Dett("ID_Dett") = iRowFlex
 
  vsFlexDett.Row = iRowFlex
  vsFlexDett.Col = iColDett
  rsCaricoScarico_Dett("ID_Prodotto") = Left$(Trim$(vsFlexDett.Text), 6)
 
  vsFlexDett.Row = iRowFlex
  vsFlexDett.Col = iColDett + 1
  codCont = Mid(vsFlexDett.Text, 1, 5)
 
' Questa bruttissima porzione di codice è gestita in questo modo
' al solo scopo di far fronte all' idea pazzesca di codificar
' i contenitori con codici di lunghezze e SPAZIATURE diverse!!!
Select Case codCont
    Case "BUSTA", "B 075"
 
    Case "BO Bo", "CF Co", "LA La", "SA Sa", "VV Va"
      codCont = Left$(codCont, 2)
 
    Case "BO 3 ", "PAC1 ", "PAC2 ", "VASO "
      codCont = Left$(codCont, 4)
 
    Case "BOT B", "CAS C", "VV1 V", "VV2 V"
      codCont = Left$(codCont, 3)
 End Select
 
rsCaricoScarico_Dett("ID_Contenitore") = codCont
 
vsFlexDett.Row = iRowFlex
vsFlexDett.Col = iColDett + 2
rsCaricoScarico_Dett("N_Confezioni") = vsFlexDett.Value
 
vsFlexDett.Row = iRowFlex
vsFlexDett.Col = iColDett + 3
rsCaricoScarico_Dett("ContxConf") = vsFlexDett.Value
 
 .Update
Next iRowFlex
End With
Quando vado ad eseguire l' update, mi da' l' errore prima segnalato; se
tolgo le rules dal campo ID_Prodotto della tabella l' errore sparisce; per
ogni riga, in questa porzione di codice, scandisco le colonne e le passo
ai campi del tabella, effettuando, alla fine, l' Update. Anche con un
DoEvents non riesco a cambiare le sorti...
Intercetto l' errore con il numero dello stesso (if err.number = -214
ecc...), riotrno in inserimento, ma quando completo il campo
(ID_Prodotto), mi ritrovo con lo stesso errore (!)... E' la prima volta
che uso la Flex, forse sara' per questo?


[Guglie = 
circa_gul...@hotmail.com
 in c5jbdl$l86$
1...@news.newsland.it
]
ha scritto:


 sparisce;
Cosa sono le Rules? Se Relazioni, ne conosci il significato e gli intrinseci
controlli?

[Lupo = 
circa_LupoOrm...@libero.it
 in
c5jblh$28vk9$
1...@ID-174464.news.uni-berlin.de
]
... ha premuto un invio di troppo...

 controlli?
Le Rules in questo caso sono i constraints, cmq le "limitazioni" che
impongo su quel campo (immissione obbligatoria, ecc...)


 ok, non l' ho trascritto ma c' e' nel mio codice...
Io mi fermo qui, come la Lilly...