Newsgroup: it.comp.appl.access
Titolo: Codice Aiutooooooo

Salve a tutti,
ho un problema che da Foxpro era semplice, ma con access un pň meno.
Ho una tabella con vari campi, sul primo campo ho sia valori che campi null,
riporto un esempio:
809903456A         BIDONE          1       23,45
                                                      1        24,45
809903457B          SECCHIO        3       18,21
ecc. ecc.
adesso, per poter fare una query a campi incrociati, devo riempire il primo
campo vuoto con lo stesso valore di quello che lo precede, in questa maniera
riesco a fare la query ed a stampare poi l'inventario.
Quindi quello che occorre (secondo me) č un codice che parta dal primo
record, verifica se il secondo č vuoto, se lo č copia il valore dal record
precedente e lo incolla nel campo vuoto, poi verifica di nuovo il record
successivo, se contiene dati, va avanti fino a quando non trova un altro
campo vuoto, allora, prende il valore del campo nel record precedente e lo
incolla in quello vuoto, e cosě fino alla fine della tabella.
Non essendo molto pratico di programmazione, chiedevo se qualche anima
gentile mi poteva aiutare.
La Tabella si chiama [Lifo2001] ed il campo in questione si chiama
[Particolare].
Vi ringrazio anticipatamente.
ThaiChi

incolla in quello vuoto, e così fino alla fine della tabella.
Potresti fare un ciclo del tipo
do until .eof
 if isnull(!codice) then
  .edit
  !codice = appo
  .update
 end if
 appo = !codice
 .movenext
loop
--
Lorenzo Coronati
--
<<cazzo ma come siamo "simpatici " eh ?>>
(Enrico Virginio, 17/03/2002)
--

"Lorenzo Coronati" <lorenzo.coronati@liberopuntoit> ha scritto nel messaggio
news:3ca4694f...@news.edisontel.com...

Ho provato a scrivere questo codice Su Click su Access 2000 piattaforma win
2k pro ma l'esecuzione si blocca al momento di fare l'Edit del record vuoto,
si può dare un'occhiata al codice per vedere se va bene e cosa inserire al
posto di
.Edit
o
rst.Edit
che non vengono accettati ???
Grazie
Private Sub AggiornaRighe_Click()
Dim db As DAO.Database
Dim rst As Recordset
Dim appo As String
Set db = CurrentDb()
Set rst = db.OpenRecordset("Lifo2001")
'Set rst = db.OpenRecordset("Lifo2001", dbOpenTable)
'Set tbl = DAO.dbOpenTable("Lifo2001")
Do Until rst.EOF
If IsNull(rst!Particolare) Then
        rst.MovePrevious
        appo = rst!Particolare
        rst.MoveNext
        '.Edit
        'rst.Edit
   ' CHE DEVO INSERIRE AL POSTO DI .EDIT CHE NON VIENE ACCETTATO ?????
        rst!Particolare = appo
        rst.Update
    End If
        rst.MoveNext
Loop
rst.Close
Set dbs = Nothing
End Sub

che non vengono accettati ???
l'uso delle forme abbreviate .edit ecc. e' conseguenza
dell'uso di with: vedi l'help per i dettagli
es:
rst.movefirst
do until rst.eof
 rst.edit
 rst!campo = valore
 rst.update
 rst.movenext
loop
equivale a:
with rst
 .movefirst
 do until .eof
  .edit
  !campo = valore
  .update
  .movenext
 loop
end with
Bai


"Lorenzo Coronati" <lorenzo.coronati@liberopuntoit> ha scritto nel messaggio
news:3caad62f...@news.edisontel.com...

Volevo sapere qual'è il codice esatto, non ho capito il perchè il mio codice
mi dà errore, puoi aiutarmi ????
GRazie
ThaiChi

mi dà errore, puoi aiutarmi ????
Riporta l'errore esatto.
--
Lorenzo Coronati
--
<<Io studio ing gestionale e dei non laureati 
che mi sputano in faccia mi faccio beffe.>>
(Andrea "Mr Bad Guy", 10/07/2000)
--

"Lorenzo Coronati" <lorenzo.coronati@liberopuntoit> ha scritto nel messaggio
news:3cac2d8f...@news.edisontel.com...

Riferimento non valido o qualificato.
Praticamente, quando vado a mettere rst.Edit, non lo trovo nell'elenco che
mi presenta lui, allora provo a mettere .Edit senza rst e mi dà questo
errore.
Qual'è la procedura esatta ???
Grazie
ThaiChi

errore.
controlla di avere nei riferimenti il dao, e che stia sopra
ado
inoltre, prova a dichiarare rst as dao.recordset
fammi sapere, perche' e' molto strano quello che ti capita
bai
-- 
Lorenzo Coronati
--
<<Ragazzi, sapete indicarmi una utility in 
internet che sia in grado di recuperare le 
password da un database access e da un system mdw?
intendevo, gratuita...>>
(Marco Tullio Bisoli, 27/04/2001)
--

"Lorenzo Coronati" <lorenzo.coronati@liberopuntoit> ha scritto nel messaggio
news:3cad5b34...@news.edisontel.com...

non avevo inserito rst as DAO.Recordset
Adesso funziona perfettamente.
Grazie
ThaiChi