Newsgroup: it.comp.appl.access
Titolo: Help!! Principiante

Ho una tabella, DOCUMENTI
Da questa tabella ho generato una query che mi estrapola solo alcuni
documenti, la query si chiama BOLLE
Esiste, in tale query  un campo chiamato NUMERO
Ora, cosa dovrei fare:
verificare che i numeri (00001, 00002, 00003 ecc.) nel campo NUMERI della
query BOLLE siano progressivi.
Se non lo sono il mio magico programmino in access dovrebbe in qualche modo
avvisarmi.
Avevo pensato di crearmi una query che mi fa sto controllo e mi tira fuori
il numero che manca:
esempio nella query Bolle: 00001, 00002, 00003, 00005.
La query CONTROLLO mi visualizza 00004. Ma se esiste un altro sistema piú
veloce e simpatico, ...il massimo sarebbe creare un file di log....o, in
alternativa  un msg a video...su una maschera...
Grazie per chi mi dará una mano

 wrote in message
news:a3edaf$4uf$1...@serv1.iunet.it...

Partiamo da prima.
Perchè non fai in modo che i numeri siano FORZATAMENTE tutti
progressivi.
Tu mi dirai se capita di eliminare qualche fattura o Bolla...??
Allora io farei una Funzione che scorre il Recordset della Tabella
controllando che siano progressivi, nel caso non lo siano
salvi tutto in una StingaTemp e poi generi il File.
Se ti serve una mano per il Codice dillo...!
P.S.Cortesemente Dottore è quasi 1 anno che posti SOTTOLINEANDO
che sei principiante, io credo possa bastare....! ;-)
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

scrivo principiante perché confronto a Voi lo sono anche se é da un anno che
posto.
Ho capito molto e so fare diverse cosette ma non sono ancora alla Vostra
altezza ;-)
Non vorrei ora essere mieloso e fare le sviolinate peró il newsgroup mi ha
cambiato la vita, uno strumento FANTASTICO per un principiante smanettone
come me.
I progressivi li devo controllare in quanto devo controllare il database di
un programma di contabilitá che naturalmente non ho fatto io e non é stato
fatto con access (ha solo gli archivi in mdb)
"Se ti serve una mano per il Codice dillo...!"
SI, MI SERVE UNA MANO, ANZI DUE PER IL CODICE
Grazie!!

 Grazie!!
Andiamo per gradi:
Per fare una Ricerca sui Progressivi si può fare così:
Funzione Progressivi() as String
  dim rst as Recordset
  dim PrgAtt,PrgPrec as Long
  dim strPrg as string
  set rst=Currentdb.Openrecordset("TabellaOrigine")
  if rst.Eof AND rst.Bof then Exit Function
  rst.moveFirst
  do untill rst.Eof
    PrgAtt=cLng(rst.Filed("CampoProgressivo"))
    If prgAtt-1<>PrgPrec then StrPrg=strPrg & ";" &
rst.Filed("CampoProgressivo")
    prgPrec=prgAtt
    rst.Movenext
  loop
  Progressivi=strPrg
  rst.Close
  Set rst=nothing
End Function
Ora Chiamando la Funzione per stampare un File:
Evento Click
Dim StrNonProgressivi as String
StrNonProgressivi=Progressivi
If Not StrNonProgressivi=vbnullString then
   Open "C:\LOGFILE.Txt" For Append as#1
   Print #1, StrNonProgressivi
   Close #1
End if
Spero di non aver fatto confusione ....!
Alessandro.


Provo poi ti faccio sapere
Grazie

FUNZIONA !!!
Per la prima parte cerano degli errori di "Grammatica"....
una volta messi a posta funziona,
Grazie ancora

 wrote in message
news:a3ev4t$d1d$1...@serv1.iunet.it...

Scusa la mia grammatica ma ti giuro che l'ho scritto a memoria senza
l'ausilio di ACCESS...!
Perdo colpi.
Fortunatamente però in grammatica mi batti....!!!
Mi fa piacere che funzioni....!
Ciao Alessandro.


 End if
snifff sniff...
scusami, ho avuto un momento di commozione... mi capita sempre quando vedo
del Basica...
sicuro che non vada numerato?
;-)

 ;-)
Cosa.....????


 Cosa.....????
10  If Not StrNonProgressivi=vbnullString then
20    Open "C:\LOGFILE.Txt" For Append as#1
30    Print #1, StrNonProgressivi
40    Close #1
50   End if
cosi'....
ma era per scherzare...

 wrote in message
news:uYO68.5333$5M4.1...@twister2.libero.it...

In effetti č corretto anche come scrivi, il "Vecchio" Basic dal
Commodore
all'Amiga al Qbasic per non dimenticare il GWBasic era esattamente cosě.
Anche VBA puň inserire la numerazione, solo che di Default č soppressa,
ma c'č un Flag, mi pare per metterla.
Il problema č che non ha senso in un linguaggio con programmazione
ad oggetti, perchč non hai piů il vecchio TABULATO di 7/8 pagine
sequenziale.
Alcune volte ho nostalgia anch'io....!
Bei tempi, quelli in cui si programmava Assembler con dei
cicli For...Next e un sacco di Poke x,y nel Commodore...!
