title: esportare record concatenati in file txt su unica riga senza ritorno a capo

text:
Salve a tutti, avrei un problema (almeno per me) da sottoporvi, che nonostante la buona volontà e le varie ricerche fatte nei forum di programmazione vba per access, non riesco a venirne a capo, spero di essere conciso e chiaro nella spiegazione: Ho necessità, per lavoro, di trasferire i records contenuti nella tabella che chiamerò TblTurnazione, in un file .Dat, tutti questi record che contengono il codice azienda, la matricola del dipendente, la data ed il codice turno (formato da due lettere) sono così formattati ; Codice azienda 6 caratteri (000101 es.), Matricola dipendente 7 caratteri (0000202 es.), la data in formato gg/mm/aaaa (29/08/2016 es.) il codice di turnazione 2 caratteri (BX es.) quindi il record alla fine dovrebbe essere qualcosa del genere :000101000020229/08/2016BX , consideriamo che di questa stringa se ne contano da un minimo di 28 ad un massimo di 31 (durata in giorni del mese) e moltiplicata per da un minimo di 10 ad un massimo di 50 dipendenti, il Software che elabora le presenze accetta solo file che chiama TURNI.Dat e vuole tutte queste sequenze di caratteri solo su un'unica riga senza ritorni a capo o spazi , altrimenti si blocca e non elabora, fino ad oggi i colleghi incaricati dell'immissione dei codici orari lo fanno manualmente pur avendo la possibilità di importare un file.dat, ma purtroppo nessuno era in grado di implementare un db che riuscisse a fare questo, io sono riuscito a concatenare i records attraverso una query ed ad esportarlo in un file .dat ma nonostante ciò non riesco a far si che venga esportato tutto in un'unica riga, ad un certo punto va sempre a capo, credo che, se non mi sbaglio, una riga può contenere 93500 caratteri , qui non si arriva neanche alla metà o quasi, 25 (caratteri) x 31 (giorni del mese) x 50 (massimo dei dipendenti) = 38750 caratteri, qualcuno può darmi un'aiuto su come poter risolvere?

posto il codice che ho usato :
grazie anticipatamente a tutti quelli che vorranno darmi una mano

    Dim Miodb As Database
    Dim TabRighe As Recordset
    Dim strSQL As String
    Dim strRitorno As String
    Set Miodb = CurrentDb
    strSQL = "SELECT TblTurnazione.CodAz & TblTurnazione.Matricola &   TblTurnazione.Data & TblTurnazione.Turno AS Riepilogo FROM TblTurnazione WHERE ((Format(TblTurnazione.Data,""m"")= " & Chr(34) & Me.testomes & Chr(34) & ")) ORDER BY TblTurnazione.Matricola"

    Set TabRighe = Miodb.OpenRecordset(strSQL, dbOpenDynaset)

    strRitorno = ""
    If Not TabRighe.EOF Then
        TabRighe.MoveFirst
        strRitorno = Nz(TabRighe.Fields("Riepilogo")) 'Nz() evita errori quando si cerca di concatenare campi con valori Null
        TabRighe.MoveNext
        Do Until TabRighe.EOF
        strRitorno = strRitorno & Nz(TabRighe.Fields("Riepilogo"), "")
        TabRighe.MoveNext
        Loop

    End If
    ConcatenaRighe = strRitorno
    Open "H:\Tutto\DB orario dip\Prova\" & "TURNI " & Format(Date, "dd_mm_yyyy") & ".dat " For Output As #1
    Print #1, ConcatenaRighe
    Close #1
    TabRighe.Close
    Miodb.Close
    Set TabRighe = Nothing
    Set Miodb = Nothing


author: Marco Pizzamiglio

text:

1. perché copi la stringa strRitorno nella variabile ConcatenaRighe che tra l'altro non è dichiarata e quindi sarà un variant? Puoi fare il print #1 di strRitorno. Ti consiglio di abilitare nell'editor VBA l'opzione "Dichiarazione variabili obbligatoria", evita noiosi problemi in caso scrivessi male un nome di variabile. Nel tuo modulo basta andare all'inizio e aggiungere una riga "Option Explicit"

2. Perchè concateni tutti i dati in una variabile? Puoi mettere il print dentro al ciclo e scrivere direttamente sul file. Unica accortezza metti alla fine un punto e virgola così non va a capo:

<loop>
print #1, Nz(TabRighe!Riepilogo, "");
.movenext
<end loop>

Ciao.
-Marco-


text:
Ciao Marco e grazie per il tuo intervento,io ho modificato la routine in base al tuo suggerimento, e sai che mi va in stallo si riavvia e mi crea una copia di backup?
ti posto il codice:

Function ConcatenaRighe()
    Dim Miodb As Database
    Dim TabRighe As Recordset
    Dim strSQL As String
    Set Miodb = CurrentDb
    strSQL = "SELECT TblTurnazione.CodAz & TblTurnazione.Matricola & TblTurnazione.Data & TblTurnazione.Turno AS Riepilogo "
    FROM TblTurnazione WHERE ((Format(TblTurnazione.Data,""m"")= " & Chr(34) & Me.testomes & Chr(34) & ")) ORDER BY TblTurnazione.Matricola"
    Set TabRighe = Miodb.OpenRecordset(strSQL, dbOpenDynaset)
        Open "F:\Tutto\DB orario dip\Prova\" & "TURNI " & Format(Date, "dd_mm_yyyy") & ".dat " For Output As #1
    If Not TabRighe.EOF Then
        TabRighe.MoveFirst
        Do Until TabRighe.EOF
         Loop
         Print #1, Nz(TabRighe!Riepilogo, "");
        TabRighe.MoveNext
      Close #1
      TabRighe.Close
      Miodb.Close
      Set TabRighe = Nothing
      Set Miodb = Nothing
    End If
End Function


text:

Il LOOP va DOPO al MoveNext!

Altrimenti lo scrivi così:

   With TabRighe
     If not .EOF then .MoveFirst
     While Not .EOF
         Print #1, Nz(!Riepilogo, "");
         .MoveNext
     Wend
   End With

Ciao.
-Marco-


text:
Ti ringrazio molto

ciao
Diego


title: aiuto.. serialnumber!!!

author: marino domenico

text:
ciao a tutti....
finalmente sono riuscito a trovare l'OCX Activelock 1.5 .... ma
adesso????
io sinceramente sono molto scarso in programmazione... mi occupo
principalmente di sistemi e reti ... mi hanno obbligato a creare un
database in Access.... e volevo salvaguardarmi da usi illeciti.....
vorrei creare un programma demo in cui ci possa essere la possibilità
di contare il numero di volte che viene eseguita la maschera
principale... in modo tale da far provare all'utente l'applicativo per
un numero fissato di volte..... come spiegazioni d'uso ho trovato solo
questo codice:
If (ActiveLock1.Counter > 10) Then
  MsgBox "You have used this program 10 times."
  End
ho applicato il controllo alla maschera principale e adesso ???? ho
provato a inserire il seguente codice su attivazione maschera (nel
pannello proprietà della maschera):
Private Sub Form_Activate()
Dim Counter As nslock
If (ActiveLock1.Counter > 3) Then
  MsgBox "You have used this program 3 times."
  End
End If
End Sub
ma... errori .....
aiutatemi...
grazie


title: aiuto.. serialnumber!!!

author: Aries

text:
marino domenico <
DMAR...@LIBERO.IT
> wrote in message
P6MXOn1xnHMY0KSkJ=JHBEo...@4ax.com...
> ho applicato il controllo alla maschera principale e adesso ???? ho
> provato a inserire il seguente codice su attivazione maschera (nel
> pannello proprietą della maschera):
>
> Private Sub Form_Activate()
> Dim Counter As nslock
> If (ActiveLock1.Counter > 3) Then
>   MsgBox "You have used this program 3 times."
>   End
> End If
> End Sub
>
> ma... errori .....
Beh, a questo punto l'If potrebbe essere ad esempio:
If (ActiveLock1.Counter > 3) Then
    MsgBox "You have used this program 3 times"
    docmq.Quit
End If
Un'altra cosa: io ho aggiunto una variabile booleana globale che viene
inizializzata a true nel Form_Activate della maschera principale ed ho fatto
sģ che ogni altra maschera verifichi quella variabile all'apertura e nel
caso sia false chiuda l'applicazione: tutto questo per evitare che l'utente,
tenendo premuto Shift all'avvio, aggiri la protezione dell'ocx.
--
Aries
e-mail:
seren.f...@iol.it
icq: 56640169
www.sereninformatica.it


title: aiuto.. serialnumber!!!

text:
On Sun, 19 Nov 2000 15:59:03 GMT, "Aries"
<seren.f...@NOSPAMiol.it> wrote:
>Dim Counter As nslock
ho aggiunto quello che mi hai scritto:
Private Sub Form_GotFocus()
Dim Counter As nslock
If (ActiveLock1.Counter > 3) Then
  MsgBox "You have used this program 3 times."
  docmq.Quit

 End If
End Sub
ma niente... il programma si apre tranquillamente dopo tre volte!!!
ciao


title: Esiste la possibilità di un controllo "Ovale" tipo quello "Rettangolo" ?

author: GA

text:
Gent.mo NG
c'è qualcuno che sa come inserire in una maschera un oggetto tipo il
rettangolo, cioè una figura geometrica con proprietà modificabili tipo left,
top, width, backcolor ecc. ?
Un grazie anticipato
GA


author: Alessandro Baraldi

text:
GA ha scritto:

L'ovale non sò, ma a me basterebbe un Cerchio...!
Nelle Forms non è possibile(solo nei Reports), se è indispensabile
devi creartelo con
Segmenti o con Punti implementando la funzione matematica dell'Ellise:
aX^2+bY^2+c=0  (ovviamente Ellisse centrata nel piano)
se ti crei un ciclo realizzi l'ellisse o il cerchio....
@Alex


text:
Ti ringrazio, ma l'ovale era solo un esempio.In realtà ho bisogno di
disegnare e colorare in base a stati diversi delle figure geometriche
irregolari. Speravo di farlo senza ricorrere alle bitmap.
GA
"Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:1154604110.3...@75g2000cwc.googlegroups.com...



text:
GA ha scritto:
> Ti ringrazio, ma l'ovale era solo un esempio.In realtà ho bisogno di
> disegnare e colorare in base a stati diversi delle figure geometriche
> irregolari. Speravo di farlo senza ricorrere alle bitmap.
> GA
Speranza vana, in VB si può fare, ma in VBA l'unica è proprio fare
BMP...
@Alex


text:
In realtà ho trovato qualcosa, ma le premesse sono scoraggianti...
http://www.mvps.org/access/api/api0053.htm
GA
"Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:1154605802.8...@75g2000cwc.googlegroups.com...



text:
GA ha scritto:
> In realtà ho trovato qualcosa, ma le premesse sono scoraggianti...
>
>
http://www.mvps.org/access/api/api0053.htm
>
> GA
Ero a conoscenza di quella FAQ, ma non l'ho volutamente menzionata.
Per capire sfrutta la Client Area della Form di cui ricava l'Hdc,
nell'Area(HDC) ci disegna
come si farebbe in VB in una PictureBox, il problema è che l'Area Hdc
in Access
non viene aggiornata, se provi il codice ti accorgerai subito del
difetto Video generato.
Per risolvere il problema, come dice il testo della Faq, serve
subclassare la Form
intercettando il messaggio di Paint ed aggiornare la posizione
dell'area Hdc.
Personalmente ti sconsiglio questa tecnica se non hai una buona
conoscenza di quanto
stai facendo, ricordati che SubClassare in Access è un pò più
rischioso che farlo in VB.
Purtroppo non disponendo di un controllo PictureBox hai molte
limitazioni.
L'alternativa sarebbe usare un OCX tipo la PictureBox che funzioni in
Access.
Ce ne sono, ma sono abbastanza costosi, ed in ogni caso il disegno
andrebbe fatto
sempre via API.
@Alex


author: cidi

text:
"GA" <
aul...@libero.it
> ha scritto nel messaggio
news:44d1e20f$0$995$5fc...@news.tiscali.it...
> Ti ringrazio, ma l'ovale era solo un esempio.In realtà ho bisogno di
> disegnare e colorare in base a stati diversi delle figure geometriche
> irregolari. Speravo di farlo senza ricorrere alle bitmap.
> GA
>
Ciao GA
Quando rispondi scrivi alla fine del messaggio, è una delle poche
regole di questo NG.
Oltre i consigli di Alex puoi prendere in considerazione l'opportunità
di utilizzare delle etichette.
>
> "Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
> news:1154604110.3...@75g2000cwc.googlegroups.com...
> L'ovale non sò, ma a me basterebbe un Cerchio...!
ti stai esercitando per la quadratura? :))
hai letto la posta?
> @Alex
>
Ciao, Daniele


text:
cidi ha scritto:
[CUT]
>
> Ciao GA
> Quando rispondi scrivi alla fine del messaggio, è una delle poche
> regole di questo NG.
>
> Oltre i consigli di Alex puoi prendere in considerazione l'opportunità
> di utilizzare delle etichette.
Ciao Daniele.
Come fà con le etichette a realizzare immagini...?
Mi sà che il sole della campagna ti ha fatto male..!
Fatti sentire più spesso.
[CUT]>
> Ciao, Daniele
@Alex


text:
"Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:1154677123.6...@m79g2000cwm.googlegroups.com...
cidi ha scritto:
[CUT]
>
> Ciao GA
> Quando rispondi scrivi alla fine del messaggio, è una delle poche
> regole di questo NG.
>
> Oltre i consigli di Alex puoi prendere in considerazione l'opportunità
> di utilizzare delle etichette.
Ciao Daniele.
Come fà con le etichette a realizzare immagini...?
avevo capito che GA volesse "COLORARE"  alcune parti irregolari.
tipo : regioni o provincie.
potrebbe mettere una etichetta in modo da coprire la parte che vuole
colorare.
Mi sà che il sole della campagna ti ha fatto male..!
...forse perchè non avevo le treccine come te! :<)))
Fatti sentire più spesso.
sono on-line
[CUT]>
> Ciao, Daniele
@Alex
Ciao, Daniele


text:
cidi ha scritto:
> [CUT]
> Mi sà che il sole della campagna ti ha fatto male..!
>
> ...forse perchè non avevo le treccine come te! :<)))
Quelle RASTA intendi...?
> Fatti sentire più spesso.
>
> sono on-line
Non riesco Daniele in questi gg sono un pò impiccato, lo vedi anche
dalla riduzione dei miei post nei NG.... i miei colleghi sono in ferie
ed ho un carico di lavoro anomalo..
;-)
Buona continuazione.

> [CUT]>
> > Ciao, Daniele
Ciao
@Alex


title: Inserimento scadenza ed eventuali rate

author: Giorgia

text:
Buongiorno a tutti,
sono a riproporre un mio vecchio e antipatico problema che nonostante varie
manipolazioni non sono ancora riuscita a risolvere.
Al momento sono arrivata a questo punto: con l'evento click qui di seguito,
riesco a non avere un errore solo se non modifico nulla dei valori
predefiniti della sottomaschera [SCADENZARIO DETTAGLI] che vengono prelevati
dalla maschera [SCADENZARIO INTESTAZIONE] e quindi mi diventa impossibile
rateizzare una fattura in più scadenze. Per farlo, devo andare nelle tabelle
di riferimento e inserire a mano i valori dei campi PROTOCOLLO e PROTOCOLLO
NUMERICO.
Qui, (tenetevi forte...) il mio evento click:
Private Sub SALVA_Click()
On Error GoTo myError
Me.Form.Requery
    Dim Db As DAO.Database
    Set Db = CurrentDb
    Dim Rs As DAO.Recordset
    Set Rs = Db.OpenRecordset("SCADENZARIO INTESTAZIONE")
    With Rs
        .AddNew
        ![ORIGINE] = Me.ORIGINE
        ![PROTOCOLLO NUMERICO] = Me.PROTOCOLLO
        ![PROTOCOLLO] = Format(Me.ORIGINE & "." & Me.PROTOCOLLO & "." &
Me.ANNO)
        ![NUMERO] = Me.DOC_NUMERO
        ![DATA EMISSIONE] = Me.DATA_DOC
        !IMPORTO = Me.IMPORTO
        ![RAGIONE SOCIALE] = Me.RAGIONE_SOCIALE
        .Update
        .Close
    End With
    Set Rs = Nothing
    Set Db = Nothing
Me.Form.Requery
    Set Db = CurrentDb
    Set Rs = Db.OpenRecordset("SCADENZARIO DETTAGLI")
    With Rs
        .AddNew
        !ORIGINE = Forms![INSERISCI SCADENZA]![SCADENZARIO
DETTAGLI]![ORIGINE]
        !ID = Forms![INSERISCI SCADENZA]![SCADENZARIO DETTAGLI]![ID]
        ![PROTOCOLLO NUMERICO] = Me.PROTOCOLLO
        ![PROTOCOLLO] = Format(Me.ORIGINE & "." & Me.PROTOCOLLO & "." &
Me.ANNO)
        !IMPORTO = Forms![INSERISCI SCADENZA]![SCADENZARIO
DETTAGLI]![IMPORTO]
        !SCADENZA = Forms![INSERISCI SCADENZA]![SCADENZARIO
DETTAGLI]![SCADENZA]
        ![MODALITA' PAGAMENTO] = Forms![INSERISCI SCADENZA]![MOD PAGAMENTO]
        .Update
        .Close
    End With
   DoCmd.Close
myExit:
  Exit Sub
myError:
    Select Case Err.Number
        Case 3022
            MsgBox "SCADENZA GIA' INSERITA PER QUESTA FATTURA!"
            Resume myExit
        Case Else
            MsgBox "Piccola eccezione " & vbCrLf & _
                Err.Number & " " & Err.Description
         Resume myExit
    End Select
End Sub
Dove sta il malefico inghippo?
Giorgia


title: Inserimento scadenza ed eventuali rate

author: pablitomf

text:
On 26 Lug, 10:10, "Giorgia" <
tabatin...@yahoo.it
> wrote:
> Buongiorno a tutti,
Ciao
> Dove sta il malefico inghippo?
ma cos'e' sta [[INSERISCI SCADENZA] ???
e poi
>     Set Rs = Nothing
>     Set Db = Nothing
perche' li chiudi in mezzo poi li riapri e poi non li richiudi piu'?


title: Inserimento scadenza ed eventuali rate

author: Antonio Biso

text:
"pablitomf" <
pabl...@virgilio.it
> ha scritto nel messaggio
news:68e09be2-ca8e-44df...@dp9g2000vbb.googlegroups.com...
> On 26 Lug, 10:10, "Giorgia" <
tabatin...@yahoo.it
> wrote:
>> Buongiorno a tutti,
>
> Ciao
>
>> Dove sta il malefico inghippo?
>
> ma cos'e' sta [[INSERISCI SCADENZA] ???
Ho come la sensazione che sia il vecchio nome di SCADENZA INTESTAZIONE
:-D
>
> e poi
>
>>     Set Rs = Nothing
>>     Set Db = Nothing
>
> perche' li chiudi in mezzo poi li riapri e poi non li richiudi piu'?
Ma questi sono tocchi di classe, dei simpatici calembour, quei vezzi
artistici che si concedono ai geni...
:-PPPP *grin*
Antonio


title: Inserimento scadenza ed eventuali rate

text:
"pablitomf" <
pabl...@virgilio.it
> ha scritto nel messaggio
news:68e09be2-ca8e-44df...@dp9g2000vbb.googlegroups.com...

[INSERISCI SCADENZA] č la form che mi serve per prelevare i dati che mi
servono per inserire le scadenze in maniera piů veloce.
In particolare:
Private Sub Form_Open(Cancel As Integer)
If CurrentProject.AllForms("NUOVA FATTURA ACQUISTO").IsLoaded Then
Me.ORIGINE = Forms![NUOVA FATTURA ACQUISTO]![ORIGINE]
Me.ANNO = Year(Forms![NUOVA FATTURA ACQUISTO]![REGISTRAZIONE IVA])
Me.PROTOCOLLO = Forms![NUOVA FATTURA ACQUISTO]![PROTOCOLLO]
Me.DOC_NUMERO = Forms![NUOVA FATTURA ACQUISTO]![FATTURA NUMERO]
Me.DATA_DOC = Forms![NUOVA FATTURA ACQUISTO]![DATA FATTURA]
Me.IMPORTO = Forms![NUOVA FATTURA ACQUISTO]![TOTALE FATTURA]
Me.RAGIONE_SOCIALE = Forms![NUOVA FATTURA ACQUISTO]![CONTO FORNITORE]
Me.SCADENZA = Forms![NUOVA FATTURA ACQUISTO]![SCADENZA]
Me.MOD_PAGAMENTO = Forms![NUOVA FATTURA ACQUISTO]![MODALITA' PAGAMENTO]
ElseIf CurrentProject.AllForms("NUOVA FATTURA VENDITA").IsLoaded Then
Me.ORIGINE = Forms![NUOVA FATTURA VENDITA]![ORIGINE]
Me.PROTOCOLLO = Forms![NUOVA FATTURA VENDITA]![PROTOCOLLO]
Me.ANNO = Year(Forms![NUOVA FATTURA VENDITA]![REGISTRAZIONE IVA])
Me.DOC_NUMERO = Forms![NUOVA FATTURA VENDITA]![FATTURA NUMERO]
Me.DATA_DOC = Forms![NUOVA FATTURA VENDITA]![DATA FATTURA]
Me.IMPORTO = Forms![NUOVA FATTURA VENDITA]![TOTALE FATTURA]
Me.RAGIONE_SOCIALE = Forms![NUOVA FATTURA VENDITA]![CONTO CLIENTE]
Me.SCADENZA = Forms![NUOVA FATTURA VENDITA]![SCADENZA]
Me.MOD_PAGAMENTO = Forms![NUOVA FATTURA VENDITA]![MODALITA' PAGAMENTO]
ElseIf CurrentProject.AllForms("NUOVA RICEVUTA FISCALE").IsLoaded Then
Me.ORIGINE = Forms![NUOVA RICEVUTA FISCALE]![ORIGINE]
Me.ANNO = Year(Forms![NUOVA RICEVUTA FISCALE]![REGISTRAZIONE IVA])
Me.PROTOCOLLO = Forms![NUOVA RICEVUTA FISCALE]![PROTOCOLLO]
Me.DOC_NUMERO = Forms![NUOVA RICEVUTA FISCALE]![RICEVUTA NUMERO]
Me.DATA_DOC = Forms![NUOVA RICEVUTA FISCALE]![DATA RICEVUTA]
Me.IMPORTO = Forms![NUOVA RICEVUTA FISCALE]![TOTALE RICEVUTA]
Me.RAGIONE_SOCIALE = Forms![NUOVA RICEVUTA FISCALE]![CONTO CLIENTE]
Me.SCADENZA = Forms![NUOVA RICEVUTA FISCALE]![SCADENZA]
Me.MOD_PAGAMENTO = Forms![NUOVA RICEVUTA FISCALE]![MODALITA' PAGAMENTO]
Else
    MsgBox "Non esiste una form aperta da cui prendere i dati"
End If
End Sub
Mi piace scrivere....lo so lo so


title: Inserimento scadenza ed eventuali rate

text:
"Giorgia" <
tabat...@yahoo.it
> ha scritto nel messaggio
news:j0lspl$f1n$1...@speranza.aioe.org...

In particolare non riesco a capire perchè il record venga effettivamente
aggiunto, anche se rateizzato o modificato ma non vengono valorizzati i
campi [PROTOCOLLO] E [PROTOCOLLO NUMERICO]  e di conseguenza non possono
essere associati alla fattura corrispondente relazionata tramite relazione
tra i campi PROTOCOLLO delle tabelle...
Non appena vado a provare a inserire un nuovo valore per l'importo, mi
compare "è possibile che si stia inserendo un valore non valido per il
campo", ma poi me lo accetta...
Buch
Giorgia


title: Inserimento scadenza ed eventuali rate

text:
"Giorgia" <
tabat...@yahoo.it
> ha scritto nel messaggio
news:j0m2jl$tgj$1...@speranza.aioe.org...
>
> "pablitomf" <
pabl...@virgilio.it
> ha scritto nel messaggio
> news:68e09be2-ca8e-44df...@dp9g2000vbb.googlegroups.com...
>> On 26 Lug, 10:10, "Giorgia" <
tabatin...@yahoo.it
> wrote:
>>> Buongiorno a tutti,
>>
>> Ciao
>>
>>> Dove sta il malefico inghippo?
>>
>> ma cos'e' sta [[INSERISCI SCADENZA] ???
>>
>> e poi
>>
>>>     Set Rs = Nothing
>>>     Set Db = Nothing
>>
>> perche' li chiudi in mezzo poi li riapri e poi non li richiudi piu'?
>
ho sistemato anche questa questione dei Set non chiusi, ho provato a
ricontrollare le relazioni tra le form e le tabelle, i formati
dei campi IMPORTO e PROTOCOLLO ma non ne vengo a capo...qualcuno ha avuto
voglia di dare uno sguardo alla mia stringa logorroica ? =_=
Giorgia


title: Inserimento scadenza ed eventuali rate

text:
"Giorgia" <
tabat...@yahoo.it
> ha scritto nel messaggio
news:j0ogu6$or8$1...@speranza.aioe.org...
>
> ho sistemato anche questa questione dei Set non chiusi, ho provato a
> ricontrollare le relazioni tra le form e le tabelle, i formati
> dei campi IMPORTO e PROTOCOLLO ma non ne vengo a capo...qualcuno ha avuto
> voglia di dare uno sguardo alla mia stringa logorroica ? =_=
Consiglio generale:
restringi il tuo post alla sola parte dove si genera l'errore, all'inizio �
pi� leggibile
consiglio specifico:
se non citi che tipo di errore ti d� e dove e quando, sar� molto dura...
Antonio


title: Inserimento scadenza ed eventuali rate

author: Alessandro Cara

text:

Per rateizzare qualcosa c'e' necessita' di modificare la data di
scadenza in base a un numero che rappresenta la quantita' di rate o un
importo che rappresenta la singola rateizzazione e l'intervallo fra rate
(sec,min,ore,gg,mesi,anni,eoni insomma un qualcosa). In quello che
scrivi non vedo cicli che si occupano della cosa, questo per fare le
cose in automatico.
Va bene riportare il codice ma scrivere quello che si vorrebbe,
descrivendo prima ambiente e risorse, non sarebbe male.
Guardando quello che hai scritto la prima cosa che mi e' venuta in mente
e' "e te credo" per il motivo scritto sul mio primo periodo.
Comunque meglio cosi' secondo la logica "tutti, maledetti e subito".
Ohhhh.....naturalmente questo secondo la "mia" logica se poi tu fai un
click dopo aver cambiato scadenza e importo su form questa e' ben altra
storia e il codice "potrebbe/dovrebbe" funzionare.
--
ac (x=y-1)


title: Inserimento scadenza ed eventuali rate

text:
Il 27/07/2011 10.48, Alessandro Cara ha scritto:
P.S. Quel codice agisce contemporaneamente su Testata e Dettaglio, nella
gestione con click susseguenti la testata dovrebbe risultare duplicata.
In finale non si capisce bene qual'e' la logica che stai usando (o
vorresti usare)
Magari se ci metti qualche "iif" o "if....then....else..." va meglio
;-{))))))))
--
ac (x=y-1)


title: Inserimento scadenza ed eventuali rate

text:
"Alessandro Cara" <
alessan...@ay-1anetwork.it
> ha scritto nel messaggio
news:LoQXp.56414$GZ3....@tornado.fastwebnet.it...

Giusto consiglio, non c'� che da dire, per� attenzione Giorgia, perch� la
complessit� del tuo algoritmo di calcolo potrebbe crescere esponenzialmente
e magari un ricalcolo ti passa da 0,23 secondi a 0,38, e non so se hai tutto
quel tempo da perdere...
Antonio


title: Inserimento scadenza ed eventuali rate

text:
"Alessandro Cara" <
alessan...@ay-1anetwork.it
> ha scritto nel messaggio
news:0jQXp.56412$GZ3....@tornado.fastwebnet.it...

Ciao Alessandro, le rate le inserirei io manualmente non chiedo che mi
vengano calcolate ed inserite automaticamente.
Quello che mi capita per� � che se procedo a modificare un qualsiasi campo,
prima si attiva l'error 3022 ma poi effettivamente se vado nella tbl
SCADENZARIO_DETTAGLI, vedo le scadenze ma con i campi PROTOCOLLO  e
PROTOCOLLO NUMERICO valorizzati a 0.
Inoltre, se vado a modificare il campo IMPORTO mi compare il messaggio
errore (mi sembrava di averlo gi� postato ma in effetti non lo vedo) "�
stato immesso un valore non valido per il campo" ma poi, sempre nella tbl
SCADENZARIO DETTAGLI, gli importi sono stati inseriti correttamente.
Ho verificato che il campo IMPORTO abbia lo stesso formato in tutte le
maschere da cui viene prelevato (per es.: Me.IMPORTO = Forms![NUOVA FATTURA
ACQUISTO]![TOTALE FATTURA]) ed � tutto a posto.
A meno che, proprio perch� � un valore che viene prelevato da altra form,
perda la propriet� "numerica" e diventi automaticamnete "testo"....??
Giorgia


title: Inserimento scadenza ed eventuali rate

text:
"Antonio Biso" <
ab...@libero.it
> ha scritto nel messaggio
news:j0ok94$180$1...@speranza.aioe.org...

Daaaaiiii, il tempo lo perderei volentieri sapessi come impiegarlo per�!
Uff!!
Giorgia


title: Inserimento scadenza ed eventuali rate

text:
"Giorgia" <
tabat...@yahoo.it
> ha scritto nel messaggio
news:j0okpf$2m8$1...@speranza.aioe.org...
>
> Daaaaiiii, il tempo lo perderei volentieri sapessi come impiegarlo per�!
> Uff!!
>
> Giorgia
Te lo dico io
Cenetta insieme?
Antonio


title: Inserimento scadenza ed eventuali rate

text:

> Quello che mi capita perï¿œ ï¿œ che se procedo a modificare un qualsiasi campo,
> prima si attiva l'error 3022 ma poi effettivamente se vado nella tbl
> SCADENZARIO_DETTAGLI, vedo le scadenze ma con i campi PROTOCOLLO  e
> PROTOCOLLO NUMERICO valorizzati a 0.
Chi ti da la certezza che l'errore sia sul dettaglio e non sulla testata?
in questi casi si fa cosi':
on error resume next
.....blabla
if err.number <> 0 then
	msgbox "Orrore per questo motivo.....", vbcritical
	exit
endif
.....ariblabla
if err.number <> 0 then
	msgbox "Orrore per quest'altro  motivo....." ,vbcritical
	exit
endif
......ariariblabla......
Msgbox "Fiuuuuuuuuuuuu.....!? Stavolta mi sono salvato/a", vbinformation
end
P.S. A che ti servono quelle resume myexit, simili al mio personale UCAS?
P.P.S. Dovresti imparare a usare il Debug cosi' dove va in errore lo
"pizzichi" subito e puoi anche fare variazioni o rieseguire "inline"
--
ac (x=y-1)


title: Inserimento scadenza ed eventuali rate

text:
Il 27/07/2011 11.03, Antonio Biso ha scritto:
> "Alessandro Cara"<
alessan...@ay-1anetwork.it
>  ha scritto nel messaggio
> news:LoQXp.56414$GZ3....@tornado.fastwebnet.it...
>> Il 27/07/2011 10.48, Alessandro Cara ha scritto:
>> P.S. Quel codice agisce contemporaneamente su Testata e Dettaglio, nella
>> gestione con click susseguenti la testata dovrebbe risultare duplicata.
>> In finale non si capisce bene qual'e' la logica che stai usando (o
>> vorresti usare)
>>
>> Magari se ci metti qualche "iif" o "if....then....else..." va meglio
>> ;-{))))))))
>>
>> --
>>
>> ac (x=y-1)
>
>
> Giusto consiglio, non c'ï¿œ che da dire, perï¿œ attenzione Giorgia, perchï¿œ la
> complessitï¿œ del tuo algoritmo di calcolo potrebbe crescere esponenzialmente
> e magari un ricalcolo ti passa da 0,23 secondi a 0,38, e non so se hai tutto
> quel tempo da perdere...
>
Biso, mi sa che hai passato l'infanzia sul mondo Duplex di NemboKid
(Superman per i piu' giovani)
--
ac (x=y-1)


title: Inserimento scadenza ed eventuali rate

text:
"Alessandro Cara" <
alessan...@ay-1anetwork.it
> ha scritto nel messaggio
news:31RXp.56436$GZ3....@tornado.fastwebnet.it...
> Il 27/07/2011 11.03, Antonio Biso ha scritto:
>> Giusto consiglio, non c'� che da dire, per� attenzione Giorgia, perch� la
>> complessit� del tuo algoritmo di calcolo potrebbe crescere
>> esponenzialmente
>> e magari un ricalcolo ti passa da 0,23 secondi a 0,38, e non so se hai
>> tutto
>> quel tempo da perdere...
>>
> Biso, mi sa che hai passato l'infanzia sul mondo Duplex di NemboKid
> (Superman per i piu' giovani)
Non tutti i frequentatori di questo NG sono tuoi coetanei...
Antonio


title: Inserimento scadenza ed eventuali rate

text:
On 27 Lug, 11:03, "Antonio Biso" <
ab...@libero.it
> wrote:
> "Alessandro Cara" <
alessandro.c...@ay-1anetwork.it
> ha scritto nel messaggionews:LoQXp.56414$GZ3....@tornado.fastwebnet.it...
>
> > Il 27/07/2011 10.48, Alessandro Cara ha scritto:
> > P.S. Quel codice agisce contemporaneamente su Testata e Dettaglio, nella
> > gestione con click susseguenti la testata dovrebbe risultare duplicata.
> > In finale non si capisce bene qual'e' la logica che stai usando (o
> > vorresti usare)
>
> > Magari se ci metti qualche "iif" o "if....then....else..." va meglio
> > ;-{))))))))
>
> > --
>
> > ac (x=y-1)
>
> Giusto consiglio, non c'è che da dire, però attenzione Giorgia, perchè la
> complessità del tuo algoritmo di calcolo potrebbe crescere esponenzialmente
> e magari un ricalcolo ti passa da 0,23 secondi a 0,38, e non so se hai tutto
> quel tempo da perdere...
>
> Antonio
uhauhauhauhauhauhauhauhauhauhauha
1-0 per Antonio... :D


title: Inserimento scadenza ed eventuali rate

text:
On 27 Lug, 11:35, Alessandro Cara <
alessandro.c...@ay-1anetwork.it
>
wrote:
> Il 27/07/2011 11.05, Giorgia ha scritto:
>
>
>
>
>
>
>
>
>
> > "Alessandro Cara"<
alessandro.c...@ay-1anetwork.it
>  ha scritto nel messaggio
> >news:0jQXp.56412$GZ3....@tornado.fastwebnet.it...
> >> Il 27/07/2011 10.06, Giorgia ha scritto:
> >>> "Giorgia"<
tabatin...@yahoo.it
>   ha scritto nel messaggio
> >>>news:j0m2jl$tgj$1...@speranza.aioe.org...
>
> >>>> "pablitomf"<
pablit...@virgilio.it
>   ha scritto nel messaggio

> > Quello che mi capita però è che se procedo a modificare un qualsiasi campo,
> > prima si attiva l'error 3022 ma poi effettivamente se vado nella tbl
> > SCADENZARIO_DETTAGLI, vedo le scadenze ma con i campi PROTOCOLLO  e
> > PROTOCOLLO NUMERICO valorizzati a 0.
>
> Chi ti da la certezza che l'errore sia sul dettaglio e non sulla testata?
> in questi casi si fa cosi':
> on error resume next
> .....blabla
> if err.number <> 0 then
>         msgbox "Orrore per questo motivo.....", vbcritical
>         exit
> endif
> .....ariblabla
> if err.number <> 0 then
>         msgbox "Orrore per quest'altro  motivo....." ,vbcritical
>         exit
> endif
> ......ariariblabla......
> Msgbox "Fiuuuuuuuuuuuu.....!? Stavolta mi sono salvato/a", vbinformation
> end
>
> P.S. A che ti servono quelle resume myexit, simili al mio personale UCAS?
>
> P.P.S. Dovresti imparare a usare il Debug cosi' dove va in errore lo
> "pizzichi" subito e puoi anche fare variazioni o rieseguire "inline"
Lo vedi che gli IF non li sai usare?...
 if err.number <> 0 then lo devi mettere 1 volta, non 2... :D


title: Inserimento scadenza ed eventuali rate

text:
> P.P.S. Dovresti imparare a usare il Debug cosi' dove va in errore lo
> "pizzichi" subito e puoi anche fare variazioni o rieseguire "inline"
>
In effetti s�, lo so usare solo se parte automaticamente.....
se uso f8, non mi segnala nulla....
Giorgia


title: Inserimento scadenza ed eventuali rate

text:
On 27 Lug, 11:25, "Antonio Biso" <
ab...@libero.it
> wrote:
> "Giorgia" <
tabatin...@yahoo.it
> ha scritto nel messaggionews:j0okpf$2m8$1...@speranza.aioe.org...
>
>
>
> > Daaaaiiii, il tempo lo perderei volentieri sapessi come impiegarlo però!
> > Uff!!
>
> > Giorgia
>
> Te lo dico io
> Cenetta insieme?
Azzzzzzzz... altro che ICAA... qua ci manca solo Marta Flavi :D


title: Inserimento scadenza ed eventuali rate

text:

>>> Quello che mi capita per� � che se procedo a modificare un qualsiasi campo,
>>> prima si attiva l'error 3022 ma poi effettivamente se vado nella tbl
>>> SCADENZARIO_DETTAGLI, vedo le scadenze ma con i campi PROTOCOLLO  e
>>> PROTOCOLLO NUMERICO valorizzati a 0.
>>
>> Chi ti da la certezza che l'errore sia sul dettaglio e non sulla testata?
>> in questi casi si fa cosi':
>> on error resume next
>> .....blabla
>> if err.number<>  0 then
>>          msgbox "Orrore per questo motivo.....", vbcritical
>>          exit
>> endif
>> .....ariblabla
>> if err.number<>  0 then
>>          msgbox "Orrore per quest'altro  motivo....." ,vbcritical
>>          exit
>> endif
>> ......ariariblabla......
>> Msgbox "Fiuuuuuuuuuuuu.....!? Stavolta mi sono salvato/a", vbinformation
>> end
>>
>> P.S. A che ti servono quelle resume myexit, simili al mio personale UCAS?
>>
>> P.P.S. Dovresti imparare a usare il Debug cosi' dove va in errore lo
>> "pizzichi" subito e puoi anche fare variazioni o rieseguire "inline"
>
> Lo vedi che gli IF non li sai usare?...
>
>   if err.number<>  0 then lo devi mettere 1 volta, non 2... :D
Era per la didattica.
Io ne metto sempre e solo 1 all'inizio, piu' o meno fatto cosi':
if 1=2 then
	quit
else
	quit
endif
Ti posso assicurate che funziona sempre tutto perfettamente.
--
ac (x=y-1)


title: Inserimento scadenza ed eventuali rate

text:
Il 27/07/2011 12.46, Giorgia ha scritto:
>> P.P.S. Dovresti imparare a usare il Debug cosi' dove va in errore lo
>> "pizzichi" subito e puoi anche fare variazioni o rieseguire "inline"
>>
> In effetti sï¿œ, lo so usare solo se parte automaticamente.....
Bene piglia la prima istruzione eseguibile di cui hai certezza di
esecuzione e usa un potente <F9> (bada e di tipo on/off) sulla medesima
poi fai correre l'applicativo e vedi che succede.
> se uso f8, non mi segnala nulla....
Questo dice semplicemente "esegui la istruzione successiva" (se c'e')
--
ac (x=y-1)


title: Inserimento scadenza ed eventuali rate

text:
"Alessandro Cara" <
alessan...@ay-1anetwork.it
> ha scritto nel messaggio
news:fbSXp.56475$GZ3....@tornado.fastwebnet.it...
> Ti posso assicurate che funziona sempre tutto perfettamente.
> ac (x=y-1)
sei decisamente un ragazzo fortunato allora...
Antonio


title: Inserimento scadenza ed eventuali rate

text:
Il 27/07/2011 12.43, pablitomf ha scritto:
[cut]
> Lo vedi che gli IF non li sai usare?...
>
>   if err.number<>  0 then lo devi mettere 1 volta, non 2... :D
Ci ho ripensato.
Ho risposta a celia con celia.
Ma se dicevi sul serio, bene, quella struttura e' corretta.
--
ac (x=y-1)


title: Inserimento scadenza ed eventuali rate

text:
"Alessandro Cara" <
alessan...@ay-1anetwork.it
> ha scritto nel messaggio
news:B4TXp.56513$GZ3....@tornado.fastwebnet.it...

Quando gli faremo la lezione sul select switch?
Mi sembra sufficientemente skillata ora
e cos� posso fargli "ripetizioni" nella cenetta...
Antonio


title: Inserimento scadenza ed eventuali rate

text:
On 27 Lug, 13:58, Alessandro Cara <
alessandro.c...@ay-1anetwork.it
>
wrote:
> Il 27/07/2011 12.43, pablitomf ha scritto:
> [cut]
>
> > Lo vedi che gli IF non li sai usare?...
>
> >   if err.number<>  0 then lo devi mettere 1 volta, non 2... :D
>
> Ci ho ripensato.
> Ho risposta a celia con celia.
certo figurati scherzavo...
> Ma se dicevi sul serio, bene, quella struttura e' corretta.
ehmmmm... no che non lo e'...
if err.number<>  0 then
....
e' uguale all'altro
if err.number<>  0 then
...
;)...


title: Inserimento scadenza ed eventuali rate

text:
Il 27/07/2011 14.03, Antonio Biso ha scritto:
> "Alessandro Cara"<
alessan...@ay-1anetwork.it
>  ha scritto nel messaggio
> news:B4TXp.56513$GZ3....@tornado.fastwebnet.it...
>> Il 27/07/2011 12.43, pablitomf ha scritto:
>> [cut]
>>> Lo vedi che gli IF non li sai usare?...
>>>
>>>    if err.number<>   0 then lo devi mettere 1 volta, non 2... :D
>>
>> Ci ho ripensato.
>> Ho risposta a celia con celia.
>> Ma se dicevi sul serio, bene, quella struttura e' corretta.
>>
>
> Quando gli faremo la lezione sul select switch?
> Mi sembra sufficientemente skillata ora
>
> e cosï¿œ posso fargli "ripetizioni" nella cenetta...
>
Se intendi la select case, li non va bene.
Ma forse non si e' capito proprio il senso vero?
on error resume next
.....qui puo' essere generato un errore che deve essere "trappato"
if err.number <> 0 then
     msgbox "Orrore per questo motivo.....", vbcritical
     exit
endif
.....qui puo' essere generato un errore che deve essere "chewable"
if err.number <> 0 then
     msgbox "Orrore per quest'altro  motivo.....ma -the show must go
on-" ,vbexclamation
endif
err.clear
.....qui puo' essere generato un errore inaspettato
if err.number=0 then
	Msgbox "Fiuuuuuuuuuuuu.....!? Per stavolta l'ho " & chr(34) & "
sfangata" & chr(34), vbinformation
else
	Msgbox "E dire che ce l'avevo quasi fatta." & vbcrlf &
"Porc...pupazza", vbexclamation
endif
end
P.S. E tu all'altro sesso "on a date" fai lezioni di programmazione?
Capisco.
--
ac (x=y-1)


title: Inserimento scadenza ed eventuali rate

text:
"Alessandro Cara" <
alessan...@ay-1anetwork.it
> ha scritto nel messaggio
news:6STXp.56543$GZ3....@tornado.fastwebnet.it...
> Il 27/07/2011 14.03, Antonio Biso ha scritto:
> P.S. E tu all'altro sesso "on a date" fai lezioni di programmazione?
> Capisco
Non capisci! (senilit�?)
ognuno ha la propria tipologia di stampe cinesi o collezioni di farfalle no?
Antonio


title: Inserimento scadenza ed eventuali rate

text:

Direi proprio di no. Il tempo, lo spazio, e i puntini (...), sono una
cosa seria (anche le "," ehhhh). ;-{)
--
ac (x=y-1)


title: Inserimento scadenza ed eventuali rate

text:
> > if err.number<>   0 then
> Direi proprio di no. Il tempo, lo spazio, e i puntini (...), sono una
> cosa seria (anche le "," ehhhh). ;-{)
No no, e' proprio uguale... puntini, ehhhhhh, blablabla  e ","
inclusi ;);)


title: Inserimento scadenza ed eventuali rate

author: MA

text:
"Antonio Biso"  ha scritto nel messaggio
news:j0olho$4l3$1...@speranza.aioe.org...


Antonio
_____________Risposta:
;-)
Meraviglioso Anto', gli anni passano, ma l'istinto rapace resta
MA


title: Inserimento scadenza ed eventuali rate

text:
"MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
news:j0p8tb$31j$1...@tdi.cu.mi.it...

ora e sempre
;-P
A


title: Inserimento scadenza ed eventuali rate

text:

Ohhh....my gosh. Allora dici sul serio!
Guarda la mia ultima risposta a Biso e poi confermami che sono uguali o,
meglio, che con un solo test si ottiene lo stesso risultato.
Anche solo i primi due test, l'altro e l'Err.Clear li ho aggiunti per
buon peso
--
ac (x=y-1)


title: Inserimento scadenza ed eventuali rate

text:
"Antonio Biso" <
ab...@libero.it
> ha scritto nel messaggio
news:j0oure$s8d$1...@speranza.aioe.org...

s�, cenetta virtuale come le lezioni vba....siam distanti Anto'!;-)
Giorgia


title: Inserimento scadenza ed eventuali rate

text:
"Giorgia" <
tabat...@yahoo.it
> ha scritto nel messaggio
news:j0r503$uf8$1...@speranza.aioe.org...
>
>> Quando gli faremo la lezione sul select switch?
>> Mi sembra sufficientemente skillata ora
>>
>> e cos� posso fargli "ripetizioni" nella cenetta...
>>
>> Antonio
> s�, cenetta virtuale come le lezioni vba....siam distanti Anto'!;-)
>
> Giorgia
Quando c'� un motivo pi� che valido le distanze si azzerano...
a che ora ci vediamo e dove?
A


title: Inserimento scadenza ed eventuali rate

author: Pablitomf

text:
> >> Direi proprio di no. Il tempo, lo spazio, e i puntini (...), sono una
> >> cosa seria (anche le "," ehhhh). ;-{)
> >
> > No no, e' proprio uguale... puntini, ehhhhhh, blablabla  e ","
> > inclusi ;);)
> >
> Ohhh....my gosh. Allora dici sul serio!
> Guarda la mia ultima risposta a Biso e poi confermami che sono uguali o,
> meglio, che con un solo test si ottiene lo stesso risultato.
Guardata... ma o che deve essere "trappato", o "chewable", premesso che
err.number sia diverso da 0, l'IF sarebbe soddisfatta per entrambi i casi, se
non fosse per quel "EXIT" che alla prima tornata ti manda fuori pista, per cui
che senso ha il secondo IF?
--
--------------------------------
Pablitomf
Napoli sempre nel "Q"uore!


title: Inserimento scadenza ed eventuali rate

text:
"Pablitomf" <
pabl...@hotmail.it
> ha scritto nel messaggio
news:201107280...@mynewsgate.net...
>> >> Direi proprio di no. Il tempo, lo spazio, e i puntini (...), sono una
>> >> cosa seria (anche le "," ehhhh). ;-{)
>> >
>> > No no, e' proprio uguale... puntini, ehhhhhh, blablabla  e ","
>> > inclusi ;);)
>> >
>> Ohhh....my gosh. Allora dici sul serio!
>> Guarda la mia ultima risposta a Biso e poi confermami che sono uguali o,
>> meglio, che con un solo test si ottiene lo stesso risultato.
>
> Guardata... ma o che deve essere "trappato", o "chewable", premesso che
> err.number sia diverso da 0, l'IF sarebbe soddisfatta per entrambi i casi,
> se
> non fosse per quel "EXIT" che alla prima tornata ti manda fuori pista, per
> cui
> che senso ha il secondo IF?
Un IF ha sempre senso, � il principio del DUBITO di cartesiana memoria che �
alla base di qualunque speculazione scientifica
Antonio


title: Inserimento scadenza ed eventuali rate

text:
> Un IF ha sempre senso, ï¿œ il principio del DUBITO di cartesiana memoria che ï¿œ
> alla base di qualunque speculazione scientifica
ah ecco... praticamente stiamo trasformamdo la gestione dell'errore nel "gioco
del perchï¿œ"... ora ï¿œ tutto piï¿œ chiaro! :D



title: Inserimento scadenza ed eventuali rate

author: CIDI

text:
"Giorgia" <
tabat...@yahoo.it
> ha scritto nel messaggio
news:j0oqaj$gqr$1...@speranza.aioe.org...

forse pu� esserti utile questo tutorial di Alex
http://www.alessandrobaraldi.it/DettaglioFaq.asp?IdFAQ=298
ciao
Daniele


title: Inserimento scadenza ed eventuali rate

text:
Il 28/07/2011 10.35, Pablitomf ha scritto:
>>>> Direi proprio di no. Il tempo, lo spazio, e i puntini (...), sono una
>>>> cosa seria (anche le "," ehhhh). ;-{)
>>>
>>> No no, e' proprio uguale... puntini, ehhhhhh, blablabla  e ","
>>> inclusi ;);)
>>>
>> Ohhh....my gosh. Allora dici sul serio!
>> Guarda la mia ultima risposta a Biso e poi confermami che sono uguali o,
>> meglio, che con un solo test si ottiene lo stesso risultato.
>
> Guardata... ma o che deve essere "trappato", o "chewable", premesso che
> err.number sia diverso da 0, l'IF sarebbe soddisfatta per entrambi i casi, se
> non fosse per quel "EXIT" che alla prima tornata ti manda fuori pista, per cui
> che senso ha il secondo IF?
>
Ammettendo che tutti vadano per exit, ammettendo che ce ne sia una
batteria tendente a infinito, poniti questa domanda: come faccio a
sapere in quale parte della routine si e' verificato l'errore?
Oppure, ammettendo che emetta il messaggio e proseguo, in questo caso
c'e' bisogno del clear dopo ogni eventuale msg, domanda: come faccio a
sapere come dove e quando ha preso un errore?
Se, senza fare come ho scritto, c'e' una soluzione piu' "consona" ben
venga. Come vedi non ci sono if annidate.
Per riferirmi al senso della if: e' chiaro che if err.number <> 0 e' lo
stesso test in entrambi i casi ma, come dicevo nell'altro post, il tempo
e lo spazio sono differenti. La prima esamina il segmento A->B (primi
...) la seconda il segmento B+->C (non A->B, altrimenti sarebbe stato
catturato dalla 1' if, mentre l'evento di errore e' avvenuto *dopo* il
primo test, secondi ....) mentre la 3' esamina il segmento C+->D con
.... precedenti all'esame annessi)
--
ac (x=y-1)


title: Inserimento scadenza ed eventuali rate

text:
Alessandro Cara <
alessan...@ay-1anetwork.it
> ha scritto:
> Il 28/07/2011 10.35, Pablitomf ha scritto:
> >>>> Direi proprio di no. Il tempo, lo spazio, e i puntini (...), sono una
> >>>> cosa seria (anche le "," ehhhh). ;-{)
> >>>
> >>> No no, e' proprio uguale... puntini, ehhhhhh, blablabla  e ","
> >>> inclusi ;);)
> >>>
> >> Ohhh....my gosh. Allora dici sul serio!
> >> Guarda la mia ultima risposta a Biso e poi confermami che sono uguali o,
> >> meglio, che con un solo test si ottiene lo stesso risultato.
> >
> > Guardata... ma o che deve essere "trappato", o "chewable", premesso che
> > err.number sia diverso da 0, l'IF sarebbe soddisfatta per entrambi i casi, se
> > non fosse per quel "EXIT" che alla prima tornata ti manda fuori pista, per cui
> > che senso ha il secondo IF?
> >
>
> Ammettendo che tutti vadano per exit, ammettendo che ce ne sia una
> batteria tendente a infinito, poniti questa domanda: come faccio a
> sapere in quale parte della routine si e' verificato l'errore?
> Oppure, ammettendo che emetta il messaggio e proseguo, in questo caso
> c'e' bisogno del clear dopo ogni eventuale msg, domanda: come faccio a
> sapere come dove e quando ha preso un errore?
> Se, senza fare come ho scritto, c'e' una soluzione piu' "consona" ben
> venga. Come vedi non ci sono if annidate.
>
> Per riferirmi al senso della if: e' chiaro che if err.number <> 0 e' lo
> stesso test in entrambi i casi ma, come dicevo nell'altro post, il tempo
> e lo spazio sono differenti. La prima esamina il segmento A->B (primi
> ....) la seconda il segmento B+->C (non A->B, altrimenti sarebbe stato
> catturato dalla 1' if, mentre l'evento di errore e' avvenuto *dopo* il
> primo test, secondi ....) mentre la 3' esamina il segmento C+->D con
> ..... precedenti all'esame annessi)
>
Io faccio cosï¿œ :
MODULO : GESTIONE ERRORI
Public Sub GestErr(Xform As String, Xriga As Integer, Xerrore As String)
    MsgBox "Da : " & xFrm & vbCrLf & "Riga : " & Xriga & vbCrLf & "Tipo errore :
" & vbCrLf & Xerrore
End Sub
Private Sub QuelCheTiPare_Click()
On Error GoTo err
1 ....
2 ....
3 ....
4 ....
Exit Sub
err:
Call GestErr("FORM: " &
Me.Form.Name
, Erl(), "QuelCheTiPare_Click : (" &
err.Number & ") " & err.Description)
End Sub



title: Inserimento scadenza ed eventuali rate

text:

> "&  vbCrLf&  Xerrore
> End Sub
>
> Private Sub QuelCheTiPare_Click()
> On Error GoTo err
>
> 1 ....
> 2 ....
> 3 ....
> 4 ....
>
> Exit Sub
> err:
> Call GestErr("FORM: "&
Me.Form.Name
, Erl(), "QuelCheTiPare_Click : ("&
> err.Number&  ") "&  err.Description)
> End Sub
>
>
D'accordo. Ma questa e' un'altra cosa. Hai accentrato la emissione
dell'errore su una funzione. Va bene se tutti gli errori provocano la
exit di sub/funzione e comunque il messaggio e' generalizzato. Laddove
hai bisogno di differenziare i messaggi hai poi bisogno di sapere in
quale *spazio* si e' verificato l'errore e questo, immagino, te lo puo'
dire la funzione erl() ma per differenziare (il "QuelCheTiPare_Click:",
per capirci) avresti sempre e comunque bisogno di una batteria di if che
servono per scegliere il messaggio giusto .
Certamente e' una gestione errori *organizzata* ma messa cosi' non fa
quello che io sostengo, tra l'altro questa tipo di gestione, che uso,
non ha bisogno di alcuna if.    ;-{)
P.S. Cosa fa erl()? o meglio, dove sta?
--
ac (x=y-1)


title: Inserimento scadenza ed eventuali rate

text:
> P.S. Cosa fa erl()? o meglio, dove sta?
erl() ï¿œ una funzione nativa di vb vba... ti restituisce il numero di riga nel
quale si ï¿œ  verificato l'errore... per questo io le righe le numero... ;)



title: Inserimento scadenza ed eventuali rate

text:
Pablitomf <
pabl...@hotmail.it
> ha scritto:
> > P.S. Cosa fa erl()? o meglio, dove sta?
>
> erl() ï¿œ una funzione nativa di vb vba... ti restituisce il numero di riga nel
> quale si ï¿œ  verificato l'errore... per questo io le righe le numero... ;)
senti a me, scaricati MZ-Tools, cosï¿œ la numerazione te la fa lui in automatico... ;)
da quel tipo di gestione, ti indica "da dove" "in che riga" "da quale comando" e
"che tipo" di errore hai avuto in maniera "GENERALIZZATA"... quindi richiamabile
da qualsiasi cosa



title: Inserimento scadenza ed eventuali rate

text:
Pablitomf <
pabl...@hotmail.it
> ha scritto:
> Pablitomf <
pabl...@hotmail.it
> ha scritto:
>
> > > P.S. Cosa fa erl()? o meglio, dove sta?
> >
> > erl() ï¿œ una funzione nativa di vb vba... ti restituisce il numero di riga nel
> > quale si ï¿œ  verificato l'errore... per questo io le righe le numero... ;)
>
> senti a me, scaricati MZ-Tools, cosï¿œ la numerazione te la fa lui in
automatico... ;)
>
> da quel tipo di gestione, ti indica "da dove" "in che riga" "da quale comando" e
> "che tipo" di errore hai avuto in maniera "GENERALIZZATA"... quindi richiamabile
> da qualsiasi cosa
>
ti aggiungo questa... se proprio vuoi rendere automatico anche il richiamo alla
SUB in cui l'inghippo ï¿œ avvenuto, ti basta sostituire a "QuelCheTiPare_Clik" un bel:
Module.ProcOfLine(Module.CountOfLines, 1)
;)
che dici, ti piace?



title: Inserimento scadenza ed eventuali rate

text:
"Pablitomf" <
pabl...@hotmail.it
> ha scritto nel messaggio
news:201107281...@mynewsgate.net...
> Pablitomf <
pabl...@hotmail.it
> ha scritto:
>
>> Pablitomf <
pabl...@hotmail.it
> ha scritto:
> ti aggiungo questa... se proprio vuoi rendere automatico anche il richiamo
> alla
> SUB in cui l'inghippo � avvenuto, ti basta sostituire a
> "QuelCheTiPare_Clik" un bel:
> Module.ProcOfLine(Module.CountOfLines, 1)
>
> ;)
>
> che dici, ti piace?
ma invece di debuggare in maniera cos� spinta, scrivere dei programmi che
funzionano?
*evil grin*
Antonio


title: Inserimento scadenza ed eventuali rate

text:
Antonio Biso <
ab...@libero.it
> ha scritto:
>
> scritto nel messaggio
> news:201107281...@mynewsgate.net...
> > Pablitomf <
pabl...@hotmail.it
> ha scritto:
> >
> >> Pablitomf <
pabl...@hotmail.it
> ha scritto:
>
> > ti aggiungo questa... se proprio vuoi rendere automatico anche il richiamo
> > alla
> > SUB in cui l'inghippo ï¿œ avvenuto, ti basta sostituire a
> > "QuelCheTiPare_Clik" un bel:
> > Module.ProcOfLine(Module.CountOfLines, 1)
> >
> > ;)
> >
> > che dici, ti piace?
>
> ma invece di debuggare in maniera cosï¿œ spinta, scrivere dei programmi che
> funzionano?
eh, magari...



title: Inserimento scadenza ed eventuali rate

text:
Il 28/07/2011 14.39, Pablitomf ha scritto:
> Pablitomf<
pabl...@hotmail.it
>  ha scritto:
>
>> Pablitomf<
pabl...@hotmail.it
>  ha scritto:
>>
>>>> P.S. Cosa fa erl()? o meglio, dove sta?
>>>
>>> erl() ï¿œ una funzione nativa di vb vba... ti restituisce il numero di riga nel
>>> quale si ï¿œ  verificato l'errore... per questo io le righe le numero... ;)
>>
>> senti a me, scaricati MZ-Tools, cosï¿œ la numerazione te la fa lui in
> automatico... ;)
>>
>> da quel tipo di gestione, ti indica "da dove" "in che riga" "da quale comando" e
>> "che tipo" di errore hai avuto in maniera "GENERALIZZATA"... quindi richiamabile
>> da qualsiasi cosa
>>
>
> ti aggiungo questa... se proprio vuoi rendere automatico anche il richiamo alla
> SUB in cui l'inghippo ï¿œ avvenuto, ti basta sostituire a "QuelCheTiPare_Clik" un bel:
> Module.ProcOfLine(Module.CountOfLines, 1)
>
> ;)
>
> che dici, ti piace?
>
>
Si. Anche se *non* risolve logicamente il problema legato a :
"QuelCheTiPare_Click". Ai fini dello sviluppatore e' decisamente di
ausilio. Ai fini dell'eventuale "UTENTE", quello se ne strasbatte il
famoso beneamato.
D'altra parte e' anche vero che gli errori derivanti da err.number<>0,
in genere, non c'entrano nulla con la logica di, come dicono i colti,
"bisinessss" dell'applicativo.
--
ac (x=y-1)


title: Inserimento scadenza ed eventuali rate

text:
Alessandro Cara <
alessan...@ay-1anetwork.it
> ha scritto:
> Il 28/07/2011 14.39, Pablitomf ha scritto:
> > Pablitomf<
pabl...@hotmail.it
>  ha scritto:
> >
> >> Pablitomf<
pabl...@hotmail.it
>  ha scritto:
> >>
> >>>> P.S. Cosa fa erl()? o meglio, dove sta?
> >>>
> >>> erl() ï¿œ una funzione nativa di vb vba... ti restituisce il numero di riga nel
> >>> quale si ï¿œ  verificato l'errore... per questo io le righe le numero... ;)
> >>
> >> senti a me, scaricati MZ-Tools, cosï¿œ la numerazione te la fa lui in
> > automatico... ;)
> >>
> >> da quel tipo di gestione, ti indica "da dove" "in che riga" "da quale
comando" e
> >> "che tipo" di errore hai avuto in maniera "GENERALIZZATA"... quindi
richiamabile
> >> da qualsiasi cosa
> >>
> >
> > ti aggiungo questa... se proprio vuoi rendere automatico anche il richiamo alla
> > SUB in cui l'inghippo ï¿œ avvenuto, ti basta sostituire a "QuelCheTiPare_Clik"
un bel:
> > Module.ProcOfLine(Module.CountOfLines, 1)
> >
> > ;)
> >
> > che dici, ti piace?
> >
> >
>
> Si. Anche se *non* risolve logicamente il problema legato a :
> "QuelCheTiPare_Click". Ai fini dello sviluppatore e' decisamente di
> ausilio.
dici?... sapere "dove e precisamente accade cosa" dici che allo sviluppatore non
importa? mha'... io non concordo... anche perche' a cosa serve la gestione degli
errori se non a questo?... saro' che sono tardo ma io non l'ho ancora capito il
tuo punto di vista a riguardo... spiegati meglio



title: Inserimento scadenza ed eventuali rate

text:
"Alessandro Cara" <
alessan...@ay-1anetwork.it
> ha scritto nel messaggio
news:EhSXp.56478$GZ3....@tornado.fastwebnet.it...
> Il 27/07/2011 12.46, Giorgia ha scritto:
>>> P.P.S. Dovresti imparare a usare il Debug cosi' dove va in errore lo
>>> "pizzichi" subito e puoi anche fare variazioni o rieseguire "inline"
>>>
>> In effetti s�, lo so usare solo se parte automaticamente.....
> Bene piglia la prima istruzione eseguibile di cui hai certezza di
> esecuzione e usa un potente <F9> (bada e di tipo on/off) sulla medesima
> poi fai correre l'applicativo e vedi che succede.
>> se uso f8, non mi segnala nulla....
> Questo dice semplicemente "esegui la istruzione successiva" (se c'e')
>
> --
>
> ac (x=y-1)
uhmmm, pare che venga eseguita la stringa fino al primo End with che passa
subito a My error e quindi a my exit, la seconda parte non viene proprio
eseguita....per� parte dei dati vengono inseriti nella tbl SCADENZARIO
DETTAGLI....buch
Giorgia


title: Inserimento scadenza ed eventuali rate

text:
Il 29/07/2011 12.52, Giorgia ha scritto:
> "Alessandro Cara"<
alessan...@ay-1anetwork.it
>  ha scritto nel messaggio
> news:EhSXp.56478$GZ3....@tornado.fastwebnet.it...
>> Il 27/07/2011 12.46, Giorgia ha scritto:
>>>> P.P.S. Dovresti imparare a usare il Debug cosi' dove va in errore lo
>>>> "pizzichi" subito e puoi anche fare variazioni o rieseguire "inline"
>>>>
>>> In effetti sï¿œ, lo so usare solo se parte automaticamente.....
>> Bene piglia la prima istruzione eseguibile di cui hai certezza di
>> esecuzione e usa un potente<F9>  (bada e di tipo on/off) sulla medesima
>> poi fai correre l'applicativo e vedi che succede.
>>> se uso f8, non mi segnala nulla....
>> Questo dice semplicemente "esegui la istruzione successiva" (se c'e')
>
> uhmmm, pare che venga eseguita la stringa fino al primo End with che passa
> subito a My error e quindi a my exit, la seconda parte non viene proprio
> eseguita....perï¿œ parte dei dati vengono inseriti nella tbl SCADENZARIO
> DETTAGLI....buch
Come pensavo. L'errore lo prendi per duplicazione della testata non del
dettaglio. E lo dovrebbe prendere esattamente sulla istruzione ".Update"
--
ac (x=y-1)


title: Inserimento scadenza ed eventuali rate

text:

Veramente dicevo il contrario, interessa allo sviluppatore. E'
all'Utente che in genere importa meno di nulla ("nun gne ne po' frega de
meno", come dicono dalle mie pari) e dicevo anche che, obiettivamente,
quel tipo di errore e' di sistema e quindi e' importante sapere il dove
(preciso).
--
ac (x=y-1)


title: Inserimento scadenza ed eventuali rate

text:
Si ma e' proprio quel "dove preciso" che io non colgo in quei 2 if anche a
endo letto la tua risposta



title: Inserimento scadenza ed eventuali rate

text:
Il 29/07/2011 15.22, Pablitomf ha scritto:
> Si ma e' proprio quel "dove preciso" che io non colgo in quei 2 if anche a
> endo letto la tua risposta
>
Uffi.
"dove (preciso)" intendeva che e' necessario sapere *esattamente* dove
si e' verificato il guaio. Cosa che la *tua* gestione ottiene!
E nei 2 if da me indicati non c'era un "dove (preciso)" ma un "dove (serve)"
Mi sembrava di aver gia' detto che nel caso di attivazione della "goto
errorlabel" di if non ve ne e' bisogno, neanche di una modestissima.
Ritornando al problema iniziale di Giorgia, da quanto ho capito, e come
volevasi dimostrare, la *cattiva* gestione dell'errore ha fatto si che
il messaggio fosse fuorviante visto che l'errore con molta probabilita'
(99,99%) lo ha sulla testata e non sul dettaglio.
Probabilmente se avesse avuto la *tua* gestione dell'errore non staremmo
ancora qui a pettinare i calvi, e il mio suggerimento iniziale per
*comuni mortali* era, appunto, per *comuni mortali*.E ancora sostengo
che per mandare due messaggi diversificati (che non siano
Err.description)  hai (tu generico) necessita' di 2 (dicasi due) if (o 1
if....else...,nel migliore dei casi). E comunque, mi ripeto, qualora il
messaggio e' solo informativo e l'elaborazione prosegue la "error goto
errorlabel" non mi sembra possa servire, precisa o non precisa che sia.
Per un momento tralascia la erl()(*)  e fammi comprendere come faresti a
imputare lo stesso errore ("Chiave Duplicata") alla ".Update" giusta
(caso di Giorgia)
(*) che tra l'altro con lo stato del mio software non funziona
(restitusce sempre 0),probabilmente per la questione della numerazione
delle righe di codice. Stesso dicasi per la ProcOfLine,cosi' come la hai
suggerita,ovviamente, restituisce il nome dell'ultima funzione del
modulo. Immagino che la cosa giusta dovrebbe essere +/- :
Debug.print ProcOfLine(erl(),1) & ":" & Lines(erl(),1)
--
ac (x=y-1)


title: Inserimento scadenza ed eventuali rate

text:
> Uffi.
> "dove (preciso)" intendeva che e' necessario sapere *esattamente* dove
> si e' verificato il guaio. Cosa che la *tua* gestione ottiene!
> E nei 2 if da me indicati non c'era un "dove (preciso)" ma un "dove (serve)"
e io e' proprio quello che non riesco a capire!... dove (serve) che vor di?...
se metti 2 if di fila uguali, a cosa serve?... credimi per te sarï¿œ chiarissimo
ed elementare, ma io mi districo meglio con gli erl() che con altro :D
spiegami perchï¿œ il primo if darebbe in pasto un errore, e il secondo if un'altro
stabilendo cosi' il dove serve
> E ancora sostengo
> che per mandare due messaggi diversificati (che non siano
> Err.description)  hai (tu generico) necessita' di 2 (dicasi due) if (o 1
> if....else...,nel migliore dei casi).
Mha'...
> Per un momento tralascia la erl()(*)  e fammi comprendere come faresti a
> imputare lo stesso errore ("Chiave Duplicata") alla ".Update" giusta
> (caso di Giorgia)
con Erl()... stop.
> (*) che tra l'altro con lo stato del mio software non funziona
> (restitusce sempre 0),probabilmente per la questione della numerazione
> delle righe di codice.
si, ï¿œ per questo... ma il tools che ti ho indicato fa tutto da solo se ti serve.
> Stesso dicasi per la ProcOfLine,cosi' come la hai
> suggerita,ovviamente, restituisce il nome dell'ultima funzione del
> modulo. Immagino che la cosa giusta dovrebbe essere +/- :
> Debug.print ProcOfLine(erl(),1) & ":" & Lines(erl(),1)
l'ho scritta a braccio... ma quello dovrebbe essere piï¿œ o meno..



title: Inserimento scadenza ed eventuali rate

text:
Il 29/07/2011 20.49, Pablitomf ha scritto:
>> Uffi.
>> "dove (preciso)" intendeva che e' necessario sapere *esattamente* dove
>> si e' verificato il guaio. Cosa che la *tua* gestione ottiene!
>> E nei 2 if da me indicati non c'era un "dove (preciso)" ma un "dove (serve)"
>
> e io e' proprio quello che non riesco a capire!... dove (serve) che vor di?...
> se metti 2 if di fila uguali, a cosa serve?... credimi per te sarï¿œ chiarissimo
> ed elementare, ma io mi districo meglio con gli erl() che con altro :D
>
> spiegami perchï¿œ il primo if darebbe in pasto un errore, e il secondo if un'altro
> stabilendo cosi' il dove serve
Ultima chiamata di imbarco per il Paradiso i possessori di erl() sono
pregati di disfarsene.
.... adesso faccio una schifezza
if hai fatto una schifezza? (err.number<>0)
........ bada hai fatto una "1'" schifezza
.....pulisco lo stato schifezza
.....rifaccio un'altra schifezza.
if hai fatto una schifezza? (err.number<>0)
........ bada hai fatto una "2'" schifezza
..... ad libitum..........
se lo fai uscire (exit) fa lo stesso, rammenta, la erl() te la hanno
sequestrata, e comunque io "lo faccio strano", anche se prendo errore
proseguo, ho lontane parentele con Tafazzi.
>
>> E ancora sostengo
>> che per mandare due messaggi diversificati (che non siano
>> Err.description)  hai (tu generico) necessita' di 2 (dicasi due) if (o 1
>> if....else...,nel migliore dei casi).
>
> Mha'...
Mbeh!
>
>> Per un momento tralascia la erl()(*)  e fammi comprendere come faresti a
>> imputare lo stesso errore ("Chiave Duplicata") alla ".Update" giusta
>> (caso di Giorgia)
>
> con Erl()... stop.
M'hai fatto ride. Mi hai ricordato i javellottisti (coloro che usano
java) che se non hanno un package che gli fa le cose allora "nun se po
fa'" (non tutti, ovviamente)
--
ac (x=y-1)


title: Inserimento scadenza ed eventuali rate

text:
"Pablitomf" <
pabl...@hotmail.it
> ha scritto nel messaggio
news:201107291...@mynewsgate.net...
>> Uffi.
>> "dove (preciso)" intendeva che e' necessario sapere *esattamente* dove
>> si e' verificato il guaio. Cosa che la *tua* gestione ottiene!
>> E nei 2 if da me indicati non c'era un "dove (preciso)" ma un "dove
>> (serve)"
>
> e io e' proprio quello che non riesco a capire!... dove (serve) che vor
> di?...
> se metti 2 if di fila uguali, a cosa serve?... credimi per te sar�
> chiarissimo
> ed elementare, ma io mi districo meglio con gli erl() che con altro :D
vediamo se ho capito io
� la famosa programmazione stile nuvola di fantozzi
gestisce il caso in cui sei cos� sfigato che mentre ti trovi nella routine
intercettata dal primo errore, te se ne genera un altro
Antonio


title: Inserimento scadenza ed eventuali rate

text:
Alessandro Cara <
alessan...@ay-1anetwork.it
> ha scritto:
> Ultima chiamata di imbarco per il Paradiso i possessori di erl() sono
> pregati di disfarsene.
>
> ..... adesso faccio una schifezza
> if hai fatto una schifezza? (err.number<>0)
> ......... bada hai fatto una "1'" schifezza
> ......pulisco lo stato schifezza
> ......rifaccio un'altra schifezza.
> if hai fatto una schifezza? (err.number<>0)
> ......... bada hai fatto una "2'" schifezza
>
> ...... ad libitum..........
si vabbï¿œ ma questa non ï¿œ una gestione errori, questa ï¿œ una gestione di righe... :D
tu ad ogni riga dovresti avere un "ho fatto un errore?", "sicuro sicuro?",
"allora l'errore ï¿œ questo"...
on error resume next
label.caption = 1/0
if err.number<>0 then msgbox "divisione per zero non consentita1"
label.caption = 1/0
if err.number<>0 then msgbox "azz n'ata vot? ma allora si scem? non si divide un
numero per zeroooooooooooo!!!!"
ogni passo lo devi monitorare cosï¿œ.
;)



title: Inserimento scadenza ed eventuali rate

text:
Il 29/07/2011 22.05, Antonio Biso ha scritto:
> "Pablitomf"<
pabl...@hotmail.it
>  ha scritto nel messaggio
> news:201107291...@mynewsgate.net...
>>> Uffi.
>>> "dove (preciso)" intendeva che e' necessario sapere *esattamente* dove
>>> si e' verificato il guaio. Cosa che la *tua* gestione ottiene!
>>> E nei 2 if da me indicati non c'era un "dove (preciso)" ma un "dove
>>> (serve)"
>>
>> e io e' proprio quello che non riesco a capire!... dove (serve) che vor
>> di?...
>> se metti 2 if di fila uguali, a cosa serve?... credimi per te sarï¿œ
>> chiarissimo
>> ed elementare, ma io mi districo meglio con gli erl() che con altro :D
>
> vediamo se ho capito io
>
> ï¿œ la famosa programmazione stile nuvola di fantozzi
>
> gestisce il caso in cui sei cosï¿œ sfigato che mentre ti trovi nella routine
> intercettata dal primo errore, te se ne genera un altro
>
Nein.
Sei in una routine in cui puoi avere un "tot" di errori successivi.
chiamiamoli "warning", che forse si capisce meglio, ed hai solo un flag
che lo puo' segnalare.
flag off-->errore-->segnalazione->flag off-->errore-->
segnalazione->flag off.....e via a correre. Finche' lo stato e' flag off
significa che non c'e' stato alcun "warning"
--
ac (x=y-1)


title: Inserimento scadenza ed eventuali rate

text:
"Alessandro Cara" <
alessan...@ay-1anetwork.it
> ha scritto nel messaggio
news:gaFYp.57343$GZ3....@tornado.fastwebnet.it...
> Il 29/07/2011 22.05, Antonio Biso ha scritto:
>> "Pablitomf"<
pabl...@hotmail.it
>  ha scritto nel messaggio
>> news:201107291...@mynewsgate.net...
>>>> Uffi.
>>>> "dove (preciso)" intendeva che e' necessario sapere *esattamente* dove
>>>> si e' verificato il guaio. Cosa che la *tua* gestione ottiene!
>>>> E nei 2 if da me indicati non c'era un "dove (preciso)" ma un "dove
>>>> (serve)"
>>>
>>> e io e' proprio quello che non riesco a capire!... dove (serve) che vor
>>> di?...
>>> se metti 2 if di fila uguali, a cosa serve?... credimi per te sar�
>>> chiarissimo
>>> ed elementare, ma io mi districo meglio con gli erl() che con altro :D
>>
>> vediamo se ho capito io
>>
>> � la famosa programmazione stile nuvola di fantozzi
>>
>> gestisce il caso in cui sei cos� sfigato che mentre ti trovi nella
>> routine
>> intercettata dal primo errore, te se ne genera un altro
>>
> Nein.
> Sei in una routine in cui puoi avere un "tot" di errori successivi.
> chiamiamoli "warning", che forse si capisce meglio, ed hai solo un flag
> che lo puo' segnalare.
> flag off-->errore-->segnalazione->flag off-->errore--> segnalazione->flag
> off.....e via a correre. Finche' lo stato e' flag off significa che non
> c'e' stato alcun "warning"
non so se � quello che intendi tu
io per una cosa del genere avevo usato una variabile globale che settavo
all'inizio di ogni routine e se poi finivo in gestione errore facevo cose
diverse secondo il valore della variabile e quindi da dove venivo...
Antonio


title: Inserimento scadenza ed eventuali rate

text:
"Alessandro Cara" <
alessan...@ay-1anetwork.it
> ha scritto nel messaggio
news:8WwYp.57186$GZ3....@tornado.fastwebnet.it...
> Il 29/07/2011 12.52, Giorgia ha scritto:
>> "Alessandro Cara"<
alessan...@ay-1anetwork.it
>  ha scritto nel
>> messaggio
>> news:EhSXp.56478$GZ3....@tornado.fastwebnet.it...
>>> Il 27/07/2011 12.46, Giorgia ha scritto:
>>>>> P.P.S. Dovresti imparare a usare il Debug cosi' dove va in errore lo
>>>>> "pizzichi" subito e puoi anche fare variazioni o rieseguire "inline"
>>>>>
>>>> In effetti s�, lo so usare solo se parte automaticamente.....
>>> Bene piglia la prima istruzione eseguibile di cui hai certezza di
>>> esecuzione e usa un potente<F9>  (bada e di tipo on/off) sulla medesima
>>> poi fai correre l'applicativo e vedi che succede.
>>>> se uso f8, non mi segnala nulla....
>>> Questo dice semplicemente "esegui la istruzione successiva" (se c'e')
>>
>> uhmmm, pare che venga eseguita la stringa fino al primo End with che
>> passa
>> subito a My error e quindi a my exit, la seconda parte non viene proprio
>> eseguita....per� parte dei dati vengono inseriti nella tbl SCADENZARIO
>> DETTAGLI....buch
>
> Come pensavo. L'errore lo prendi per duplicazione della testata non del
> dettaglio. E lo dovrebbe prendere esattamente sulla istruzione ".Update"
>
> --
>
> ac (x=y-1)
In effetti avevo questa istruzione in Beforeupdate
Forms![INSERISCI SCADENZA]![SCADENZARIO DETTAGLI]![IMPORTO].DefaultValue =
Parent![TOT FT] - Forms![INSERISCI SCADENZA]![SCADENZARIO
DETTAGLI]![SUBTOTALE]
 ora provo a eliminare e vedere se � questa davvero la causa dei miei mali,
in caso come posso reinserirla senza che mi causi errore?
Giorgia


title: Inserimento scadenza ed eventuali rate

text:
> In effetti avevo questa istruzione in Beforeupdate
> Forms![INSERISCI SCADENZA]![SCADENZARIO
DETTAGLI]![IMPORTO].DefaultValue =
> Parent![TOT FT] - Forms![INSERISCI SCADENZA]![SCADENZARIO
> DETTAGLI]![SUBTOTALE]
>  ora provo a eliminare e vedere se ï¿œ questa davvero la causa dei miei
mali,
> in caso come posso reinserirla senza che mi causi errore?
>
> Giorgia
Giorgina ma perche' non usi la mia gestione Errori? coi' finalmente
saprai dove
"precisamente" e' l'inghippo!...



title: Inserimento scadenza ed eventuali rate

text:
"Giorgia" <
tabat...@yahoo.it
> ha scritto nel messaggio
news:j15qi3$7qe$1...@speranza.aioe.org...

Niente, anche cos� quando vado a modificare il campo importa mi dice che sto
immettendo un valore non valido per il campo.....aaarghh!
e solito problema nell'inserimento dei campi PROTOCOLLO e
PROTOCOLLO_NUMERICO nella tbl SCADENZARIO_DETTAGLI
Giorgia


title: Inserimento scadenza ed eventuali rate

text:
"Pablitomf" <
pabl...@hotmail.it
> ha scritto nel messaggio
news:201108010...@mynewsgate.net...
>> In effetti avevo questa istruzione in Beforeupdate
>> Forms![INSERISCI SCADENZA]![SCADENZARIO
> DETTAGLI]![IMPORTO].DefaultValue =
>> Parent![TOT FT] - Forms![INSERISCI SCADENZA]![SCADENZARIO
>> DETTAGLI]![SUBTOTALE]
>>  ora provo a eliminare e vedere se � questa davvero la causa dei miei
> mali,
>> in caso come posso reinserirla senza che mi causi errore?
>>
>> Giorgia
>
> Giorgina ma perche' non usi la mia gestione Errori? coi' finalmente
> saprai dove
> "precisamente" e' l'inghippo!...
>
Perch� mi sono persa in tutti i vostri post!
me misera!
Giorgia


title: Inserimento scadenza ed eventuali rate

text:
> Perchï¿œ mi sono persa in tutti i vostri post!
AGGIUNGI MODULO : GESTIONE ERRORI
Public Sub GestErr(Xform As String, Xriga As Integer, Xerrore As String)
    MsgBox "Da : " & xFrm & vbCrLf & "Riga : " & Xriga & vbCrLf & "Tipo errore :
" & vbCrLf & Xerrore
End Sub
NEL TUO FORM :
Private Sub QuelCheTiPare_Click()
On Error GoTo err
1 ....
2 ....
NUMERA TUTTE LE RIGHE DI CODICE CHE HAI
3 ....
4 ....
Exit Sub
err:
Call GestErr("FORM: " &
Me.Form.Name
, Erl(), "QuelCheTiPare_Click : (" &
err.Number & ") " & err.Description)
End Sub
--



title: Inserimento scadenza ed eventuali rate

text:
Il 01/08/2011 11.28, Giorgia ha scritto:
[cut]
e cosï¿œ quando vado a modificare il campo importa mi dice che sto
> immettendo un valore non valido per il campo.....aaarghh!
> e solito problema nell'inserimento dei campi PROTOCOLLO e
> PROTOCOLLO_NUMERICO nella tbl SCADENZARIO_DETTAGLI
Giorgia riprendo il tuo post iniziale su cui tentero' di fare delle
annotazioni di merito
0) Quali sono i tuoi indici univoci su SCADENZARIO INTESTAZIONE e
SCADENZARIO DETTAGLI?
Private Sub SALVA_Click()
On Error GoTo myError
1) Al di la della mia diatriba con Maurizio (pablitomf) questa gestione
di errore non dice in quale zona avviene (o avverra')
Me.Form.Requery
2) A cosa serve questa requery? Che tra l'altro fa la stessa cosa di
quella al punto 5. Riporta il recordset di form sul primo record.
     Dim Db As DAO.Database
     Set Db = CurrentDb
     Dim Rs As DAO.Recordset
     Set Rs = Db.OpenRecordset("SCADENZARIO INTESTAZIONE")
     With Rs
         .AddNew
         ![ORIGINE] = Me.ORIGINE
         ![PROTOCOLLO NUMERICO] = Me.PROTOCOLLO
         ![PROTOCOLLO] = Format(Me.ORIGINE & "." & Me.PROTOCOLLO & "." &
Me.ANNO)
         ![NUMERO] = Me.DOC_NUMERO
         ![DATA EMISSIONE] = Me.DATA_DOC
         !IMPORTO = Me.IMPORTO
         ![RAGIONE SOCIALE] = Me.RAGIONE_SOCIALE
         .Update
         .Close
     End With
3) Ammettendo che tu stia scrivendo il 2ï¿œ dettaglio,con quale PROTOCOLLO
  e ORIGINE hai scritto il 1ï¿œ? e quindi, ne consegue, con quale
PROTOCOLLO  e ORIGINE hai scritto la 1ï¿œ testata?
     Set Rs = Nothing
     Set Db = Nothing
4) Perche' chiudi Db se lo userai ancora?
Me.Form.Requery
5) Questa requery, di cui forse capisco il senso, puo' provocare un gran
"mess" (casino, per i colti). Questa requery ti fa riposizionare il
recordset di form sul 1ï¿œ record e immagino la tua form sia associata
onde da cui chissa' che valori di PROTOCOLLO e ORIGINE va a pescare
     Set Db = CurrentDb
6) cfr punto 4
     Set Rs = Db.OpenRecordset("SCADENZARIO DETTAGLI")
     With Rs
         .AddNew
         !ORIGINE = Forms![INSERISCI SCADENZA]![SCADENZARIO
DETTAGLI]![ORIGINE]
         !ID = Forms![INSERISCI SCADENZA]![SCADENZARIO DETTAGLI]![ID]
         ![PROTOCOLLO NUMERICO] = Me.PROTOCOLLO
         ![PROTOCOLLO] = Format(Me.ORIGINE & "." & Me.PROTOCOLLO & "." &
Me.ANNO)
         !IMPORTO = Forms![INSERISCI SCADENZA]![SCADENZARIO
DETTAGLI]![IMPORTO]
         !SCADENZA = Forms![INSERISCI SCADENZA]![SCADENZARIO
DETTAGLI]![SCADENZA]
         ![MODALITA' PAGAMENTO] = Forms![INSERISCI SCADENZA]![MOD PAGAMENTO]
         .Update
         .Close
     End With
    DoCmd.Close
7) Questa parte non dovrebbe creare problemi sempre verificando punto 5.
myExit:
   Exit Sub
myError:
     Select Case Err.Number
         Case 3022
             MsgBox "SCADENZA GIA' INSERITA PER QUESTA FATTURA!"
8) Se 3022 e' "chiave duplicata" ed hai indici univoci sia su TESTATA
che DETTAGLI questo messaggio e' altamente impreciso.
             Resume myExit
9) Sta resume "nun" serve
         Case Else
             MsgBox "Piccola eccezione " & vbCrLf & _
                 Err.Number & " " & Err.Description
10) Ci vuole del coraggio a chiamarla "Piccola eccezione"
          Resume myExit
11) Sta resume "nun" serve
     End Select
End Sub
--
ac (x=y-1)


title: Inserimento scadenza ed eventuali rate

text:
>
> Ciao Alessandro, le rate le inserirei io manualmente non chiedo che mi
> vengano calcolate ed inserite automaticamente.
> Quello che mi capita però è che se procedo a modificare un qualsiasi
> campo, prima si attiva l'error 3022 ma poi effettivamente se vado nella
> tbl SCADENZARIO_DETTAGLI, vedo le scadenze ma con i campi PROTOCOLLO  e
> PROTOCOLLO NUMERICO valorizzati a 0.
> Inoltre, se vado a modificare il campo IMPORTO mi compare il messaggio
> errore (mi sembrava di averlo già postato ma in effetti non lo vedo) "è
> stato immesso un valore non valido per il campo" ma poi, sempre nella tbl
> SCADENZARIO DETTAGLI, gli importi sono stati inseriti correttamente.
>
> Ho verificato che il campo IMPORTO abbia lo stesso formato in tutte le
> maschere da cui viene prelevato (per es.: Me.IMPORTO = Forms![NUOVA
> FATTURA ACQUISTO]![TOTALE FATTURA]) ed è tutto a posto.
> A meno che, proprio perchè è un valore che viene prelevato da altra form,
> perda la proprietà "numerica" e diventi automaticamnete "testo"....??
>
> Giorgia
>
Buongiorno a tutti,
grazie mille per aver postato così vivamente ma io mi sono persa già agli
inizi delle vostre discussioni.
Ho provato ad usare il debug e dico banalmente e semplicemente:
- dove posso verificare le condizioni che avevo deciso per far scattare o
meno My error? perchè secondo me l'inghippo sta qui, tutto il resto corre
bene e lo dimostra il fatto che infatti non vengono compilati solo i campi
PROTOCOLLO  e PROTOCOLLO NUMERICO nella tabella SCADENZARIO_DETTAGLI
Giorgia


title: Controllo

author: Giuliano

text:
Scusate la mia ignoranza ma un controllo è una casella di testo, o meglio
una casella di testo associata ad un campo?????
GRAZIE.
    Ciao,
        Giuliano


title: Controllo

author: Roberto dal portatile

text:
"Giuliano" <
gro...@libero.it
> ha scritto nel messaggio
news:M5ii5.8023$dF5.1...@news.infostrada.it...

Un controllo in una maschera è ciò che in una tabella è un campo.
Si chiama controllo a prescindere che sia associato o non associato, casella
di testo o casella combinata, ecc.
Roberto


title: Controllo

author: togliere]@tiscalinet.it VT @ home

text:
Il Thu, 03 Aug 2000 17:37:48 GMT, "Giuliano" <
gro...@libero.it
> ha
scritto:
>Scusate la mia ignoranza ma un controllo è una casella di testo, o meglio
>una casella di testo associata ad un campo?????
>GRAZIE.
>
>    Ciao,
>        Giuliano
Un controllo è un elemento che può essere utilizzato all'interno di un
form per consentire l'interazione dell'utente con il programma, o di
un report per visualizzare dati secondo layout specifici.
 Tutto ciò indipendentemente dal fatto che i controlli possano essere
associati o meno a campi di tabelle di un db.
Per esempio, un pulsante o una linea sono controlli che per loro
natura non possono essere associati ad alcun campo di qualsiasi
tabella.
Per converso, ci sono controlli "particolarmente adatti" ad essere
associati a campi di tabelle: textbox, combobox, subform ... ma
l'associazione non è obbligatoria, anzi !

----------------------------------
Niuna impresa, per minima che sia,
può avere cominciamento e fine
senza queste tre cose:
e cioè senza sapere,
senza potere,
senza, con amore, volere.
---------------------------
Anonimo fiorentino sec. XIV


title: Controllo

author: lbo dal portatile

text:
>> Scusate la mia ignoranza ma un controllo è una casella di testo, o meglio
>> una casella di testo associata ad un campo?????
>Un controllo in una maschera è ciò che in una tabella è un campo.
permettimi, ma io non farei questo paragone.  e' vero che un controllo
e' associabile ad un campo, ma sarebbe meglio tenere distinte le due
cose.
un campo fa parte di una tabella, che e' un modello teorico per
immagazzinare dati molto diffuso e non dipendente da access.
un controllo e' qualcosa che magari ha solo access, in oracle potrebbe
non esistere il concetto di controllo.  il controllo poi ha proprieta'
e metodi...
cioe', abituiamo i newbie a pensare in due strati, strato teorico
(struttura dati, tabelle...) ed implementazione pratica (maschere,
controlli...), magari con in mezzo l'sql.
--
make it idiot proof and someone will make a better idiot.
--
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/


title: Controllo

author: Roby

text:
DEFINIZIONE DI CONTROLLO
I controlli sono oggetti di una maschera, di un report o di una pagina di
accesso ai dati che consentono di visualizzare i dati, di eseguire
operazioni o di decorare le maschere o i report. È possibile ad esempio
utilizzare una casella di testo in una maschera, in un report o in una
pagina di accesso ai dati per visualizzare i dati, un pulsante di comando in
una maschera per aprire un'altra maschera o report oppure una linea o un
rettangolo per separare e raggruppare i controlli rendendoli più leggibili.
P.S. Questa è una definizione che si trova benissimo nell'help di Access.
Consultalo, seppure confuso, avolte soddisfa le proprie curiosità
Tanti saluti.
R.B.
Giuliano <
gro...@libero.it
> wrote in message
M5ii5.8023$dF5.1...@news.infostrada.it...
> Scusate la mia ignoranza ma un controllo è una casella di testo, o meglio
> una casella di testo associata ad un campo?????
> GRAZIE.
>
>     Ciao,
>         Giuliano
>
>
>


title: PRINCIPIANTE che vuol fare robe piu' grandi di lui...

author: Paolo Pietribiasi

text:
Ciao a tutti ragazzi
vi pongo un quesito. A tempo e a casa mia, mi voglio creare un
database consultabile da web. Il database riguarderebbe delle
videocassette, praticamente voglio una lista contenete varie voci
riguardo un titolo, con la possibilita' di avere un sottomenu' che si
apra a finestra per avere delle informazioni riguardo, chesso', la
trama o altre cosette.
Inoltre dovrebbe avere un link a una e-mail per poter chiedere
informazioni ad un computer fisso (magari con la possibilita' di poter
intestare automaticamente il subject dell'email a seconda del campo
del database.
ultima opzione, sarebbe figo poter fare degli ordinamenti o delle
ricerche.
Tutto questo consultabile con un normale computer avente explorer (i
PC da cui consultare saranno 2 o forse 3, niente robe strane tipo iMac
or simili).
Essendo veramente un principiante, mi affido umilmente a voi, sperando
questo sia il nesgroup giusto, sperando di non essere una seccatura e
entusiasta di ricevere consigli da tutti voi.
alcuni mi hanno consigliato filemaker, altri mi han consigliato
access, pero' so che dovro' implementare molta altra roba (penso).
vi ringrazio molto intanto ansioso di poter cominciare a smanettare
con il PC.


text:
Paolo Pietribiasi ha scritto:
[cut]
> Essendo veramente un principiante, mi affido umilmente a voi, sperando
> questo sia il nesgroup giusto, sperando di non essere una seccatura e
[cut]
il ng giusto dovrebbe essere it.comp.www.asp
La cosa che hai descritto se sei veramente un principiante non e' che
sia semplicissimo. cmq tentar non nuoce.
N.B. il dbms (cioe' quello che gestisce i dati. Se non mi sbaglio, mi
sembra che Filemaker sia di Mac) e' forse l'ultima cosa a cui pensare in
una applicazione come quella che hai descritto.
a.cara


title: Zona Cusago Milano - Vorrei realizzare maschera

text:
Vorrei realizzare una semplice maschera che effettui dei calcoli mano a
mano che imputo dei dati e che mi consenta di salvarne e recuperarne il
contenuto. Desiderei anche una fattura.
Zona ufficio è Milano - Cusago ma si potrebbe anche lavorare via
Internet
Grazie per chi collabora


author: ciroteo

text:
<
cla...@inwind.it
> ha scritto nel messaggio
news:1128874671....@g47g2000cwa.googlegroups.com...


Grazie per chi collabora
Beh ... non è che a Milano siamo tutti cosi approssimativi nelle risposte
... solidarizzo con te ma ti chiedo di essere un po' più chiaro ...


text:
Si tratta di creare appunto una specie di maschera, nella quale ad
esempio si imputa un nome come riferimento. Segue l'inserimento di
tutta una serie di calcoli matematici, e mano a mano che si imputano
alcuni gruppi di dati le celle effettuano i valori sottoscanti.
Completata tutta la tabella posso aver bisogno di stamparla, oppure
salvarla in un elenco da cui eventualmente la posso ripescare dal campo
riferimento che ho indicato all'inizio.


text:


uhm... detta cosi' non è molto piu' chiara di prima...
Hai già il database e ti serve solo la maschera? (credo di no)
Se si', invece, come sono fatte le tabelle su cui memorizzi i dati?
Questi dati, sono valori numerici su cui devi fare calcoli, o sono proprio
le espressioni dei calcoli che devi fare?
Se sono delle espressioni di calcolo, sono piu' o meno sempre le stesse, o
sono assolutamente capotiche* ?
Prova a scomporre il tuo problemone in tanti problemini piccoli piccoli,
magari una buona parte riesci a risolverla da solo, e per il resto ci
siamo noi :)
*(capotico = dal latino ad capocchiam, a caso ;) )
--
...oooOOO Nitro 82282 OOOooo...


title: Errore Strano 2287

text:
Su evento click di un pulsante o inserito il seguente codice:
Private Sub Comando11_Click()
    DoCmd.SendObject acSendForm, , acFormatTXT, "
in...@infoeweb.it
", , , "",
"", True
End Sub
che provoca il seguente errore:
    errore di RunTime 2287
    Impossibile aprire la sessione di posta elettronica
    Controllare l'applicazione di posta elettronica per assicurarsi che stia
funzionando correttamente.
Sapete come è possibil erisolvere questo problema?
Grazie. Tosto73.


title: fattura elettronica - anomalia simulatore e SDI

author: mario rossi

text:
possibile che simulatore e sdi diano risultati diversi??? è forse l'accento a non piacergli?

ho inviato una fattura xml al simulatore e mi ha restituito "il file è corretto"

stesso file inviato al SDI ho ricevuto messaggio di scarto con scritto

<Errore>
<Codice>00200</Codice>
<Descrizione>File non conforme al formato (nella descrizione del messaggio Ã¨ riportata lâ€™indicazione puntuale della non conformitÃ ) : Nella fattura con posizione 1 la linea 2 ha il valore del campo DettaglioLinee/Descrizione non valido </Descrizione>
<Suggerimento>Verificare che il file inviato sia conforme al formato previsto</Suggerimento>
</Errore>
===================================
la linea in questione è come segue:
===================================

<DettaglioLinee>
<NumeroLinea>1</NumeroLinea>
<Descrizione>ONDE D'URTO</Descrizione>
<Quantita>0.00</Quantita>
<PrezzoUnitario>0.00</PrezzoUnitario>
<PrezzoTotale>0.00</PrezzoTotale>
<AliquotaIVA>0.00</AliquotaIVA>
<Natura>N4</Natura>
</DettaglioLinee>


text:

ho risolto grazie sotto alla seconda linea la descrizione era vuota o meglio uno spazio vuoto <Descrizione> </Descrizione>


text:

però l'anomalia rimane il simulatore accetta come corretta una linea come segue con descrizione " " uno spazio vuoto poi il sdi la scarta

<DettaglioLinee>
<NumeroLinea>1</NumeroLinea>
<Descrizione> </Descrizione>



author: Bruno Campanini

text:
mario rossi explained on 05-02-19 :

La versiuone di FE dell'ADE che uso io i decimali li vuole
con la virgola... all'italiana... siamo rimasti in pochi
al mondo a non usare il punto come separatore decimale.

Bruno


author: BFS

text:

confermo
per l'AdE le righe con uno spazio sono ok mentre lo sdi le scarta

BFS

---
Questa email è stata esaminata alla ricerca di virus da AVG.
http://www.avg.com


title: VBA: modificre un contr. di una sottomaschera..

author: sd

text:
Salve a tutti,
avrei la necessità di impostare il valore di un controllo di una
sottomaschera tramite codice vba.
Quale sintassi devo utilizzare?
Grazie
sdamy


author: Riccardo

text:
sd <
sd...@tiscalinet.it
> wrote in message
9sr7ba$6e8$1...@pegasus.tiscalinet.it...

_________
Me![NomeSottomaschera.Form![NomeControllo]=tuovalore
ciao Riccardo


text:
"Riccardo" <
ricc...@free.panservice.it
> ha scritto nel messaggio
news:9sr8rc$h15$1...@news.panservice.it...

ora provo
grazie
ciao ciao
sdamy


title: scrivere riga in file txt

author: mino

text:
è possibile scrivere in un file già esistente una riga in una
determinataposizione?
esempio
il file è
a|1
b|2
io voglio scrivere nella prima riga ottenendo questo risultato:
a|0
a|1
b|2
spero di essere stato chiaro
ciao a tutti
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: scrivere riga in file txt

author: Roberto da casa

text:
"mino" <
news...@libero.it
> ha scritto nel messaggio
news:cver94$g2t$1...@news.newsland.it...
> è possibile scrivere in un file già esistente una riga in una
> determinataposizione?
>
> esempio
>
> il file è
> a|1
> b|2
>
> io voglio scrivere nella prima riga ottenendo questo risultato:
>
> a|0
> a|1
> b|2
>
>
> spero di essere stato chiaro
Non molto.
Cosa intendi con file?
>
> ciao a tutti
--
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------


title: scrivere riga in file txt

text:
Roberto da casa ha scritto:
> "mino" <
news...@libero.it
> ha scritto nel messaggio
> news:cver94$g2t$1...@news.newsland.it...
> > è possibile scrivere in un file già esistente una riga in una
> > determinataposizione?
> >
> > esempio
> >
> > il file è
> > a|1
> > b|2
> >
> > io voglio scrivere nella prima riga ottenendo questo risultato:
> >
> > a|0
> > a|1
> > b|2
> >
> >
> > spero di essere stato chiaro
> Non molto.
> Cosa intendi con file?
> >
> > ciao a tutti
un file txt
hai ragione non avevo precisato
p.s. ho fatto parecchie prove con put write ecc ma non sono riuscito ad
arrivare ad un asoluzione.
ciao e per ora grazie per la risposta



title: scrivere riga in file txt

text:

 ho risolto così:
'--------- aggiorna file con testa e coda ---------
Dim c, i, sRiga, numeroriga, sStream
Open percorso_file_completo For Input As #1
Do While Not EOF(1)
i = i + 1
Line Input #1, sRiga
sStream = sStream + sRiga + vbCrLf
Loop
Close #1
sStream = left$(sStream, Len(sStream) - 2)
'------- record testa -------------
stringa_record = "T" & separatore & nome_file_recapitalia & separatore &
tipo_doc & separatore & Format$(Date, "yyyymmdd")
'------- fine record testa -------------
sStream = stringa_record & vbCrLf & sStream
'------- record coda -------------
stringa_record = vbCrLf + SostituisciStringa(stringa_record, "T|", "C|") &
separatore & DCount("[tipo_record]", "[recapitalia_input_corpo]") + 2
'------- fine record coda -------------
sStream = sStream & stringa_record
Open percorso_file_completo For Output As #1
Print #1, sStream
Close #1
'--------- aggiorna file con testa e coda ---------

--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: Come creare un controllo di ricerca

author: Robby

text:
Ciao,
nel sito comune ho trovato Come creare un controllo di ricerca" Purtroppo
dopo aver creato la casella di testo "ricerca" e aver inserito il codice mi
da un errore di compilazione precisamente in
"Private Sub ricerca_KeyPress" e rimane evidenziato "rst.FindNext "
Io ho solamente sostituito diTTA con "IlMioCampo"
Secondo voi cosa non va?


title: Come creare un controllo di ricerca

author: Valerio Valentini

text:
"Robby" <
will...@yahoo.it
> ha scritto nel messaggio
news:mkYg9.15528$my3.2...@twister2.libero.it...

Non ho mai visto la funzione sul Sito Comune, ma da quello che dici penso
che il problema sia legato al settaggio del recodset tipo:
Dim db as Database
Dim rst As Recordset
Set db = CurrentDb
Set rst = db.OpenRecordset(miaTabella)
ecc...
oppure sul controllo dei record:
hai almeno un record nella tabello o un controllo su ciň che succede quando
ne trova uno o non ne trova
Ciao Valerio.


title: Come creare un controllo di ricerca

text:
"Valerio Valentini" <
valerio_...@tin.it
> ha scritto nel messaggio
news:yHYg9.109924$pX1.3...@news2.tin.it...

> hai almeno un record nella tabello o un controllo su ciò che succede
quando
> ne trova uno o non ne trova
>
> Ciao Valerio.
>
 No, purtroppo va subito in errore.
Ti invio il codice.
____________
Talvolta si presenta la necessità di avere un semplice controllo per la
ricerca rapida in uno specifico campo. Si pensi alla ricerca di un cliente
in una maschera.
Vero è che Access possiede una specifica autocomposizione che crea una
casella combinata per la ricerca, ma tale casella ha qualche limite, prima
di tutto cerca il cliente solo dopo l'aggiornamento e cioè quando date
invio, e comunque cerca a partire dall'inizio del campo, e non per
contenuto.
Col mio metodo è sufficiente creare una casella di testo che chiameremo
"Ricerca", poi sarà sufficiente aggiungere il codice che segue:
Dim ChiaveRicerca As String
Private Sub Ricerca_Change()
   Dim rst As Recordset
   Dim strR As String
   strR = Me.Ricerca.Text
   If Not IsNull(Me!Ricerca.Text) Then
      Set rst = Me.RecordsetClone
      rst.FindFirst "DITTA like """ & ChiaveRicerca & Me!Ricerca.Text &
"*"""
      Me.Bookmark = rst.Bookmark
      rst.Close
      Set rst = Nothing
   End If
   Me!Ricerca = strR
   Me!Ricerca.SelStart = 255 'Len(Me!Ricerca.Text)
End Sub
Private Sub Ricerca_DblClick(Cancel As Integer)
   Select Case Me!Ricerca.SpecialEffect
   Case 1
      Me!Ricerca.SpecialEffect = 2
      ChiaveRicerca = "*"
      Me!Ricerca.ControlTipText = "Ricerca rapida per parte del campo"
   Case 2
      Me!Ricerca.SpecialEffect = 1
      ChiaveRicerca = ""
      Me!Ricerca.ControlTipText = "Ricerca rapida da inizio campo"
   Case Else
      MsgBox "Viene reimpostato l'aspetto della casella", vbExclamation,
"Errore"
      Me!Ricerca.SpecialEffect = 1
      ChiaveRicerca = ""
      Me!Ricerca.ControlTipText = "Ricerca rapida da inizio campo"
   End Select
End Sub
Private Sub Ricerca_KeyPress(KeyAscii As Integer)
   Dim rst As Recordset
   Dim str As String
   If KeyAscii = 13 Then
      If Not IsNull(Me!Ricerca.Text) Then
         Set rst = Me.RecordsetClone
         rst.FindNext "DITTA like """ & ChiaveRicerca & Me!Ricerca.Text &
"*"""
         If rst.NoMatch Then rst.FindFirst "DITTA like """ & ChiaveRicerca &
Me!Ricerca.Text & "*"""
         Me.Bookmark = rst.Bookmark
         rst.Close
         Set rst = Nothing
      End If
      Me!Ricerca.SetFocus
      Me!Ricerca.SelStart = 255
      KeyAscii = 0
   End If
End Sub
Si noti che "ChiaveRicerca" è una variabile globale del modulo di classe.
Il funzionamento che si ottiene è semplice, basta iniziare a digitare che il
codice troverà immediatamente il primo record il cui campo "DITTA" (voi
userete il campo che vi interessa) inizia per i caratteri che avete
digitato. Se non viene trovato nulla si resta sul primo record. Per trovare
i record successivi al primo è sufficiente premere invio.
Per effettuare una ricerca per "testo contenuto" e non per "Parte iniziale
del campo" basta fare doppio click sul controllo, questi assumerà l'aspetto
incassato e, quando inizierete a digitare, troverà il primo record il cui
campo "DITTA" contiene (non semplicemente inizia) il testo digitato.
Perche' tutto funzioni in modo corretto, bisogna impostare il controllo
Ricerca in visualizzazione In Rilievo nella maschera, sara' poi il codice
che si occupera' del resto.
______________


title: Come creare un controllo di ricerca

author: Stefano Scattini

text:
"Robby" <
will...@yahoo.it
> ha scritto nel messaggio
news:6XYg9.15681$my3.2...@twister2.libero.it...

Su Access 2000 non funziona, mi da errore su
rst.FindNext "DITTA like """ & ChiaveRicerca & Me!Ricerca.Text &
> "*"""
il codice va messo su dopo aggiornamento?


title: Come creare un controllo di ricerca

text:
"Stefano Scattini" <
stefano....@tiscali.it
> ha scritto nel messaggio
news:am1u71$ma2$1...@lacerta.tiscalinet.it...
>
> "Robby" <
will...@yahoo.it
> ha scritto nel messaggio
> news:6XYg9.15681$my3.2...@twister2.libero.it...
> >
> >  No, purtroppo va subito in errore.
> > Ti invio il codice.
> > ____________
> >
>
> Su Access 2000 non funziona, mi da errore su
> rst.FindNext "DITTA like """ & ChiaveRicerca & Me!Ricerca.Text &
> > "*"""
>
> il codice va messo su dopo aggiornamento?
>
>
Rispondendo ad entrambi, purtroppo non sono programmatore ma solo dilettante
e uso AC00 AC02 da poco. Sono abbastanza sicuro che non esista più la
sintassi di FindNext e quindi dovete cercarvi nell'help qella di Find.
Ciao Valerio.


title: Come creare un controllo di ricerca

text:
"Stefano Scattini" <
stefano....@tiscali.it
> ha scritto nel messaggio
news:am1u71$ma2$1...@lacerta.tiscalinet.it...
[CUT]
Il codice VBA di cui parla Roby è stato scritto per Access 97 e fa quindi
riferimento alle librerie DAO.
Se deve essere usato in Access 2000 o 2002, occorre aggiungere, ai
riferimenti del database, il riferimento alle librerie DAO, avendo cura che
tale riferimento, nella lista dei riferimenti, preceda il riferimento alle
librerie ADO (o, se puoi, elimina questi ultimi riferimenti).
Anche se lo sembra, questa frase non è uno scioglilingua. :-))
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Come creare un controllo di ricerca

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:n_1h9.15634$eG6.3...@twister1.libero.it...

Ho aggiunto le DAO e le ho messe prima delle ADO.
Non funge.
Dove va fatta la dichiarazione "Dim ChiaveRicerca As String"?


title: Come creare un controllo di ricerca

text:
"Stefano Scattini" <
stefano....@tiscali.it
> ha scritto nel messaggio
news:am30cm$8h8$1...@lacerta.tiscalinet.it...
>
> "Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
> news:n_1h9.15634$eG6.3...@twister1.libero.it...
> >
> > "Stefano Scattini" <
stefano....@tiscali.it
> ha scritto nel
messaggio
> > news:am1u71$ma2$1...@lacerta.tiscalinet.it...
> > [CUT]
> >
> > Il codice VBA di cui parla Roby č stato scritto per Access 97 e fa
quindi
> > riferimento alle librerie DAO.
> >
> > Se deve essere usato in Access 2000 o 2002, occorre aggiungere, ai
> > riferimenti del database, il riferimento alle librerie DAO, avendo cura
> che
> > tale riferimento, nella lista dei riferimenti, preceda il riferimento
alle
> > librerie ADO (o, se puoi, elimina questi ultimi riferimenti).
> > Anche se lo sembra, questa frase non č uno scioglilingua. :-))
> > --
> > Roberto
> >
> > ---------------------------------------------
> > il Sito Comune di it.comp.appl.access:
> >
http://www.sitocomune.com
> > ---------------------------------------------
> >
> >
> Ho aggiunto le DAO e le ho messe prima delle ADO.
> Non funge.
>
Mi dispiace.
> Dove va fatta la dichiarazione "Dim ChiaveRicerca As String"?
Sib nella spiegazione della FAQ dice:
Si noti che "ChiaveRicerca" č una variabile globale del modulo di classe.
Quindi va dichiarata nel modulo di classe della tua maschera, prima delle
altre routine, cosě come č indicato nella FAQ; se la cosa č per te piů
chiara invece di
Dim ChiaveRicerca As String
puoi anche scrivere
Public ChiaveRicerca As String



title: Ordinare list box

author: Antonio Flam

text:
Salve,
avrei bisogno di un metodo ottimale per ordinare tramite codice a runtime
gli elementi di una combobox o listbox ogni volta che aggiungo o elimino un
elemento.
Le combo box sono elenco di valori.
Grazi mille


title: Ordinare list box

text:

No... hai usato il metodo sbagliato, per farlo dovresti passare
un'array string ad uan Funzione di Ordinamento Testo, tipo BubbleSort
e ricostruire la stringa.

Usa come RowSourceType=Tabella/Query, metti i valori nella Tabella, e
crea una SELECT su questa come RowSource.
In quel modo puoi ordinare come vuoi... dalla Stringa SQL.

@Alex


title: AIUTOOOO!!!! sparite le creazioni guidate!!!

author: andrea lojelo

text:
ho istallato il windows me e aprendo ACCESS 2000 ho avuto questa tremenda
visione:tutte le creazioni guidate erano sparite! GULP! so fare anche senza
ma sono comunque molto più veloci quando non hai esigenze particolari!
qualcuno sa cosa può essere successo e come rimediare?
lo stesso problema mi era già capitato sul win98se (fra l'altro tutto d'un
tratto e senza che fosse successo nulla di strano!all'inizio tutto
funzionava alla perfezione!) e poi, semplicemente reistallando il tutto
avevo risolto il problema! ho provato a fare lo stesso ma niente!
spero possiate aiutarmi.Vi ringrazio in anticipo
andrea


title: struttura a schede -pagina - grassetto

author: Maria Rossi

text:
come faccio col codice a modificare il nome di una pagina ?
ovvero esiste una proprietą x cui al verificarsi di un evento ,scrivendo
un'istruzione :
Me![nomepagina].grassetto = True
e mi fa diventare il titolo in grassetto ?
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: struttura a schede -pagina - grassetto

author: Emyr

text:
On Wed, 30 Jan 2002 11:11:56 +0000 (UTC), "Maria Rossi"
<
gelso...@alfemminile.com
> wrote:
>come faccio col codice a modificare il nome di una pagina ?
>ovvero esiste una proprietą x cui al verificarsi di un evento ,scrivendo
>un'istruzione :
>
>Me![nomepagina].grassetto = True
>
>e mi fa diventare il titolo in grassetto ?
si la proprietą fontweight......
Saluti.
Emanuele.


title: aiutoooooooooooooooooo

author: cele

text:
Caio a tutti
Porgo anticipatamente le mie scuse se sono spesso a rompere le scatole, ma
ho un problemino.
Nella query a campi incrociati ho come intestazione di riga il codice e come
intestazione di colonna i mesi (gen. feb. ecc.) e nell'intersezione ho i
pezzi da costruire. A questo punto vorrei ottenere il totale dei pezzi da
costruire divisi per mese.
Grazie a tutti coloro che vorranno aiutarmi.
P.S. Buon Natale e felice anno nuovo a tutti
        celestino


title: aiutoooooooooooooooooo

author: Lbo dall'ufficio

text:
>Nella query a campi incrociati ho come intestazione di riga il codice e come
>intestazione di colonna i mesi (gen. feb. ecc.) e nell'intersezione ho i
>pezzi da costruire. A questo punto vorrei ottenere il totale dei pezzi da
>costruire divisi per mese.
crea una nuova query usando la q a campi incrociati come origine dati.
somma i campi corrispondenti ai mesi.
-----------------------------------
Per favore, accodate due zeri al mio stipendio.  E' per renderlo Y2K-compliant.
-----------------------------------
togliete NOSPAM per rispondermi.
-----------------------------------
il sito comune di it.comp.database.access:
http://members.xoom.it/it_db_access


title: Probblemi con Nuova stampante

author: Riaudo Marcello (Alice)

text:
Ancora io un cliente ha comprato una nuova stampante i report Non vengono
stampati più bene, mancano dei campi,li stampo sulle vecchie stampanti ed
invece è tutto OK.
Qualcuno sa cosa come si può risolvere il problema.
Di nuovo saluti ed auguri a tutti
Marcello


title: Probblemi con Nuova stampante

author: VT @ home

text:
Il Tue, 19 Dec 2006 16:15:45 +0100, "Riaudo Marcello \(Alice\)" <
riau...@alice.it
> ha scritto:
>(.....)

Difficile individuare una causa precisa.
In ogni caso:
- verifica di avere installato il driver più recente
- controlla se il driver è Postscript o PCL: se è PCL prova ad installare quello Postscript
- verifica fra le impostazioni avanzate della stampante se c'è la possibilità di specificare quanta RAM deve riservare
al Postscript e, se possibile, aumenta il valore di default che di solito è basso.
Dopo ogni prova verifica se il problema è risolto prima di passare al tentativo seguente.
Vincenzo Turturro
---------------------------------------------
il sito comune di it.comp.appl.access:
http://www.sitocomune.com/
---------------------------------------------
E quello di it.comp.as400
http://www.faq400.com/
---------------------------------------------


title: Probblemi con Nuova stampante

author: Sergio MAZZA

text:
"Riaudo Marcello (Alice)" <
riau...@alice.it
> ha scritto nel messaggio
news:45880220$0$4260$4faf...@reader1.news.tin.it...

Oltre al suggerimento di Vincenzo;
- prova ad aprire il report in struttura e salvarlo;
- in visualizzazione struttura, File - Imposta pagina - (scheda) Pagina;
guarda se è indicata una stampa specifica o predefinita...
Ciao.
--
Sergio MAZZA