title: Pulsanti di navigazione tra record

author: Alessandro Baraldi

text:
"Sigi" <
sigimail...@tiscali.it
> wrote in message
news:CAjtf.10435$
av6....@tornado.fastwebnet.it
> Domanda da niubbone...
>
> Vorrei inserire in una maschera dei pulsanti di navigazione nei record che
> abbiano la stessa funzione di quelli che si trovano in fondo alla maschera.
> Quindi mi servirebbero i pulsanti "vai al primo record" "indietro di 1"
> "avanti di 1" "vai all'ultimo record" "crea nuovo record"
>
> Che comandi devo dare a questi pulsanti perchè facciano ciò?
>
>
> Grazie e buon anno :)
Aggiungo che oltre ai consigli già dati, deve essere implementata
una corretta gestione Errori per ovviare al fatto che quando
il puntatore di RecordCurrent si trova ai limiti e venga tentato
il superamento non venga generato l'errore.
Per chiarezza:
Se sei sull'ultimo e premi avanti avrai un errore
Se sei sul Primo e premi indietro avrai un errore.
Ciao
@Alex
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: utilizzo ottimale dei recordset - x esperti

text:
secondo voi è ottimale operare nel modo seguente
ogni volta che serve un recordset definire
dim db as database
dim rs as recordset
set db=currentDB
set rs=db.openrecordset("select * ec............
e al termine fare
rs.close
set db=nothing
oppure ci sono modi diversi di operare?
grazie.


author: Antonio Biso

text:
"@----- Pinco --@-- Pallino -----@" <
tos...@libero.it
> ha scritto nel
messaggio news:YrT09.11052$n04.3...@twister2.libero.it...
> secondo voi è ottimale operare nel modo seguente
>
> ogni volta che serve un recordset definire
>
> dim db as database
> dim rs as recordset
> set db=currentDB
> set rs=db.openrecordset("select * ec............
Queste due le sostituisco da
currentdb.openrecordset("select...
>
> e al termine fare
>
> rs.close
> set db=nothing
>
> oppure ci sono modi diversi di operare?
Questo è il modo di lavorare con i recordset.
Puoi fare a meno della close se metti il nothing (che è fortemente
consigliato)
Antonio


text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:yJT09.11112$n04.3...@twister2.libero.it...
> "@----- Pinco --@-- Pallino -----@" <
tos...@libero.it
> ha scritto nel
> messaggio news:YrT09.11052$n04.3...@twister2.libero.it...
> > secondo voi č ottimale operare nel modo seguente
> >
> > ogni volta che serve un recordset definire
> >
> > dim db as database
> > dim rs as recordset
> > set db=currentDB
> > set rs=db.openrecordset("select * ec............
>
> Queste due le sostituisco da
> currentdb.openrecordset("select...
>
> >
> > e al termine fare
> >
> > rs.close
> > set db=nothing
> >
> > oppure ci sono modi diversi di operare?
>
> Questo č il modo di lavorare con i recordset.
> Puoi fare a meno della close se metti il nothing (che č fortemente
> consigliato)
>
> Antonio
Cioč? il nothing chiude anche il recorset intendi?


text:
"@----- Pinco --@-- Pallino -----@" <
tos...@libero.it
> ha scritto nel
messaggio news:v0V09.11922$lu5.3...@twister1.libero.it...
>
> > > rs.close
> > > set db=nothing
> > >
> > > oppure ci sono modi diversi di operare?
> >
> > Questo č il modo di lavorare con i recordset.
> > Puoi fare a meno della close se metti il nothing (che č fortemente
> > consigliato)
> >
> > Antonio
>
> Cioč? il nothing chiude anche il recorset intendi?
Esatto
Antonio


title: compattare mdb protetto

author: Michele

text:
Buon giorno a tutto il NG volevo chiedervi se era possibile aggiungere
al seguente codice, il comando che mi permetta di compattare il
database dove sono le tabelle con i dati protetto da password.
Grazie
Michele
Option Compare Database
Option Explicit
Dim fermaBackup As Boolean
Dim nomeBackEnd As String
Dim nomeFrontEnd As String
Function creaBackupDB()
Dim riga(1 To 12) As String
Dim fileLDB As String
Dim confermaMsg As String
On Error GoTo Err_creaBackupDB
confermaMsg = "Il database verrà chiuso e verrà effettuata una copia
di backup" & vbCrLf & _
              "sia dei dati residenti sul server che dell'applicazione
locale." & vbCrLf & _
              "Prima di proseguire accertarsi che nessun altro utente
abbia il" & vbCrLf & _
              "database aperto. " & vbCrLf & _
              "Vuoi continuare?"
If Conferma(confermaMsg) Then
chiudiTutto
fermaBackup = False
nomeBackEnd = "nessuno"
CompattaBE
If fermaBackup = True Then Exit Function
If Dir(PathCorrente & "creaBackup.vbs") = "creaBackup.vbs" Then
Kill PathCorrente & "creaBackup.vbs"
End If
fileLDB = Left(CurrentDb.name, Len(CurrentDb.name) - 3)
    riga(1) = "Dim fso, file1"
    riga(2) = "Set fso = CreateObject(""Scripting.FileSystemObject"")"
    riga(3) = "Do While fso.FileExists(""" & fileLDB & "ldb"")"
    riga(4) = "Loop"
    riga(5) = "if fso.FileExists(""" & nomeFrontEnd & """) Then"
    riga(6) = "fso.DeleteFile(""" & nomeFrontEnd & """)"
    riga(7) = "End if"
    riga(8) = "Set file1 = fso.GetFile(""" & CurrentDb.name & """)"
    riga(9) = "file1.Copy(""" & nomeFrontEnd & """)"
    riga(10) = "msgbox ""Nome BE: " & nomeBackEnd & """ & vbCrLf &
""Nome FE: " & nomeFrontEnd & """"
    riga(11) = "Set file1 = Nothing"
    riga(12) = "Set fso = Nothing"

    Open PathCorrente & "creaBackup.vbs" For Output As #1
        Print #1, riga(1)
        Print #1, riga(2)
        Print #1, riga(3)
        Print #1, riga(4)
        Print #1, riga(5)
        Print #1, riga(6)
        Print #1, riga(7)
        Print #1, riga(8)
        Print #1, riga(9)
        'Print #1, riga(10)
        Print #1, riga(11)
        Print #1, riga(12)
        Close #1
        Shell "WSCRIPT.exe " & PathCorrente & "creaBackup.vbs",
vbNormalFocus
        DoCmd.Quit
End If
Exit_creaBackupDB:
    Exit Function
Err_creaBackupDB:
    MsgBox Err.Description
    Resume Exit_creaBackupDB
End Function
Sub CompattaBE()
Dim Data, g, m, a, s, b, gds, Giorno
Dim backend As String
Dim strSQL As String
Dim rs As Recordset
Dim risp As Integer
Dim COPIA As String
On Error GoTo gestErr
Data = Format(Date, "dd/mm/yy")
g = Left(Data, 2)
m = Mid(Data, 4, 2)
a = "20" + right(Data, 2)
If m < 3 Then
  m = m + 12: b = a - 1
Else
  b = a
End If
s = g + 2 * m + Int(3 * (m + 1) / 5) + b + Int(b / 4) + 5
If b > 1582 Then s = s - Int(b / 100) + Int(b / 400) + 2
gds = s Mod 7
If gds = 0 Then Giorno = "Lunedi"
If gds = 1 Then Giorno = "Martedi"
If gds = 2 Then Giorno = "Mercoledi"
If gds = 3 Then Giorno = "Giovedi"
If gds = 4 Then Giorno = "Venerdi"
If gds = 5 Then Giorno = "Sabato"
If gds = 6 Then Giorno = "Domenica"

nomeFrontEnd = CurrentDb.name & Giorno & ".bak"
   strSQL = "SELECT Trim([Database]) AS DB " & _
            "FROM MSysObjects " & _
            "GROUP BY Trim([Database]), MSysObjects.Type " & _
            "HAVING (((MSysObjects.Type)=6));"
   Set rs = CurrentDb.OpenRecordset(strSQL)
   If rs.EOF And rs.BOF Then GoTo Esci
   DoCmd.Hourglass True
   DoCmd.SetWarnings False
       backend = rs![DB]
       DBEngine.CompactDatabase backend, backend & ".new"
       COPIA = Dir(backend & Giorno & ".bak")
       If COPIA <> "" Then Kill backend & Giorno & ".bak"
       Name backend As backend & Giorno & ".bak"
       Name backend & ".new" As backend
       nomeBackEnd = backend & Giorno & ".bak"
Esci:
   rs.Close
   Set rs = Nothing
   DoCmd.SetWarnings True
   DoCmd.Hourglass False
   Exit Sub
gestErr:
   If Err.Number = 3356 Then
   visualizzaMessaggio "Qualche utente è collegato al database sul
server." & vbCrLf & _
                       "Far scollegare gli utenti collegati e
rieseguire " & vbCrLf & _
                       "la procedura di backup."
   fermaBackup = True
   Else
   MsgBox Err.Number & " - " & Err.Description
   End If
   GoTo Esci
End Sub


title: compattare mdb protetto

author: ALESSANDRO Baraldi

text:
"Michele" <
mike...@tiscali.it
> ha scritto nel messaggio
news:803dba50.04060...@posting.google.com...
> Buon giorno a tutto il NG volevo chiedervi se era possibile aggiungere
> al seguente codice, il comando che mi permetta di compattare il
> database dove sono le tabelle con i dati protetto da password.
> Grazie
> Michele
Lasciando perdere il Codice ho letto nell'HELP cosa dice a proposito
del metodo CompactDatabase:
DBEngine.CompactDatabase vecchiodb, nuovodb, internazionali, opzioni,
password
Nel tuo codice anche se scritto in VBS non cambia nulla dovrai solo LEGGERE
l'HELP
e inserire il passaggio della PASSWORD.
@Alex.
> Option Compare Database
> Option Explicit
> Dim fermaBackup As Boolean
> Dim nomeBackEnd As String
> Dim nomeFrontEnd As String
>
> Function creaBackupDB()
> Dim riga(1 To 12) As String
> Dim fileLDB As String
> Dim confermaMsg As String
> On Error GoTo Err_creaBackupDB
> confermaMsg = "Il database verrą chiuso e verrą effettuata una copia

>    visualizzaMessaggio "Qualche utente č collegato al database sul



title: compattare mdb protetto

text:
"ALESSANDRO Baraldi" <
ik2...@libero.it
> wrote in message news:<cacufh$sgo$
1...@lacerta.tiscalinet.it
>...

> > confermaMsg = "Il database verrà chiuso e verrà effettuata una copia

> >    visualizzaMessaggio "Qualche utente è collegato al database sul
> > server." & vbCrLf & _
> >                        "Far scollegare gli utenti collegati e
> > rieseguire " & vbCrLf & _
> >                        "la procedura di backup."
> >    fermaBackup = True
> >    Else
> >    MsgBox Err.Number & " - " & Err.Description
> >    End If
> >    GoTo Esci
> > End Sub
Ho provato a inserire la password all'interno della seguente riga del codice
DBEngine.CompactDatabase backend, backend & ".new", , , "password"
inserendola e mandando in esecuzione il backup mi dail seguente errore
errore 3170 - impossibile trovare ISAM instabile
qualcuno di voi è in grado di risolvermi tale impiccio.
Michele


title: compattare mdb protetto

author: ArgoDimostraChiSei

text:
> Ho provato a inserire la password all'interno della seguente riga del codice
> DBEngine.CompactDatabase backend, backend & ".new", , , "password"
>
> inserendola e mandando in esecuzione il backup mi dail seguente errore
>
> errore 3170 - impossibile trovare ISAM instabile
>
> qualcuno di voi è in grado di risolvermi tale impiccio.
> Michele
problema identico!!!
ho letto che tutti hanno avuto lo stesso problema, ma non sono mai
riuscita a trovare la soluzione


title: Campi che si aggiornano automaticamente

author: Gianluca

text:
Ho realizzato una tabella per la gestione di materiali in magazzino così
organizzata:
- codice_a_barre
- tipologia
- marca_modello
- descrizione
- RifeEntrata ( .... collegamento con altra tabella "BolleFornitori" ....)
- quantità_entrata
- RifeConsegnata ( ... collegamento con altra tabella "RicevuteConsegna"
...)
- quantità_consegnata
- RifeRestituita (... collegamento con altra tabella "RicevuteRestituzione"
...)
- quantità_restituita
Per l'entrata di materiali ho realizzato una maschera con sottomaschera
(BolleFornitori + sottomaschera codice_a_barre - tipol. - marca_modello -
quant_entrata)
Per registrare le operazioni di consegna e restituzione avevo pensato di
realizzare anche questa vole delle maschere con sottomaschere e, nelle
sottomaschere, volevo fare in modo che digitando il codice a barre i campi
tipologia, marca_modello e descrizione si riempiano automaticamente. E'
possibile?
PS: l'organizzazione delle movimentazioni dei materiali in magazzino, così
come l'ho realizzata, è un po' "barbara". Secondo voi è meglio realizzare 3
tabelle distinte? E se faccio così come faccio a fare i calcoli per le
giacenze?  Mi sono incartato!!
Ciao & Grazie
--
Posted from [151.99.246.241]
via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Campi che si aggiornano automaticamente

author: Sib dal portatile

text:
"Gianluca" <
luk...@mbox.thunder.it
> ha scritto nel messaggio
> Ho realizzato una tabella per la gestione di materiali in magazzino cosě
> organizzata:
CUT
> Per registrare le operazioni di consegna e restituzione avevo pensato di
> realizzare anche questa vole delle maschere con sottomaschere e, nelle
> sottomaschere, volevo fare in modo che digitando il codice a barre i campi
> tipologia, marca_modello e descrizione si riempiano automaticamente. E'
> possibile?
Qual e' la chiave primaria dei tuoi articoli?
Se e' il codice a barre allora quello che chiedi dovrebbe verificarsi
automaticamente (se hai strutturato in modo corretto il tuo db).
Se non e' il codice a barre basta fare una dlookup() (vedi help) per andare
a inserire la chiave primaria nella riga del tuo documento.
> PS: l'organizzazione delle movimentazioni dei materiali in magazzino, cosě
> come l'ho realizzata, č un po' "barbara". Secondo voi č meglio realizzare
3
> tabelle distinte? E se faccio cosě come faccio a fare i calcoli per le
> giacenze?  Mi sono incartato!!
Questo puo' funzionare, dicono.
Sib


title: x Alessandro Cara - Ciclo su IIf

text:
Scusami se ti tiro in ballo, ma se continuavo a scriverti all'altro
post dopo averti salutato, non credo ci avresti fatto più caso.
Comunque...
Function Disciplina(nPenalizzazioni As Integer) As String
Dim x As String
If nPenalizzazioni <> 0 Then
        x = nPenalizzazioni Mod 3
        Select Case x
            Case 0
            Disciplina = "Ammonito"
            Case 1
            Disciplina = "Diffidato"
            Case 2
            Disciplina = "Ammonito per somma di ammonizioni"
        End Select
End If
End Function
Eppur non va.
Nel senso che il primo nominativo me lo dà come "Diffidato"; poi
continuando con lo stesso nominativo tutto torna normale.
Credo che dipenda da "If nPenalizzazioni <> 0 Then" però che ci si può
mettere?
Ciao Vladimiro.


title: x Alessandro Cara - Ciclo su IIf

author: Alessandro Cara

text:

non si personalizzano i post. Potevi tranqullamente proseguire il
precedente.
if nPenalizzazioni <> 0 Then
.....
else
  Disciplina = ""
endif
ma non ho capito bene cosa succede. L'eventuale problema dovrebbe essere
dal secondo in poi e solo se le penalizzazioni = 0
"ammonito per somma di ammonizioni" nel calcio non mi pare succeda e
dovrebbe comunque essere piu' vicino a "diffidato" che a "espulso" o,
meglio, "squalificato".
--
ac
y-1=x


title: x Alessandro Cara - Ciclo su IIf

text:
On 8 Dic, 21:25, Alessandro Cara <
alessandro.c...@ay-1asistemi.it
>
wrote:

mi sono scusato anticipatamente, non pensavo che una volta chiuso il
discorso uno poteva andare a rivedere.
>
> if nPenalizzazioni <> 0 Then
> .....
> else
>   Disciplina = ""
> endif
>
> ma non ho capito bene cosa succede. L'eventuale problema dovrebbe essere
> dal secondo in poi e solo se le penalizzazioni = 0
> "ammonito per somma di ammonizioni" nel calcio non mi pare succeda e
> dovrebbe comunque essere piu' vicino a "diffidato" che a "espulso" o,
> meglio, "squalificato".
E' stato un errore di trascrizione.
"Squalificato per somma di ammonizioni"
> --
> ac
> y-1=x- Nascondi testo tra virgolette -
>
> - Mostra testo tra virgolette -
Grazie Vladimiro.


title: x Alessandro Cara - Ciclo su IIf

text:
On 8 Dic, 20:39,
vladil...@alice.it
 wrote:
> Scusami se ti tiro in ballo, ma se continuavo a scriverti all'altro
> post dopo averti salutato, non credo ci avresti fatto più caso.
> Comunque...
>
> Function Disciplina(nPenalizzazioni As Integer) As String
> Dim x As String
> If nPenalizzazioni <> 0 Then
>         x = nPenalizzazioni Mod 3
>         Select Case x
>             Case 0
>             Disciplina = "Ammonito"
>             Case 1
>             Disciplina = "Diffidato"
>             Case 2
>             Disciplina = "Espulso per somma di ammonizioni"
>         End Select
else
Disciplina=""
> End If
> End Function
Non avevo provato pensando che la soluzione proposta andava bene,
invece è come prima.
Azzerando tutti i dati, una volta inserite le partite, inserisco la
prima ammonizione, ma è come fosse la seconda; poi, come ti dicevo,
continuando ad inserire lo stesso nome anche per dieci volte, tutto è
ok.
Non so che pensare.
Ciao Vladimiro.


title: x Alessandro Cara - Ciclo su IIf

text:
vlad...@alice.it
 wrote:
[cut]
> Non avevo provato pensando che la soluzione proposta andava bene,
> invece è come prima.
> Azzerando tutti i dati, una volta inserite le partite, inserisco la
> prima ammonizione, ma è come fosse la seconda; poi, come ti dicevo,
> continuando ad inserire lo stesso nome anche per dieci volte, tutto è
> ok.
sei certo che nPenalizzazioni all'inizio sia a zero?
sostituisci la if cosi':
if nz(nPenalizzazioni,0) <> 0 then
....
Essendo "nPenalizzazioni" ho dato per scontato che fosse di tipo
numerico e quindi inizializzata con 0, molto probabilmente non e' cosi'.
--
ac
y-1=x


title: x Alessandro Cara - Ciclo su IIf

text:
On 9 Dic, 10:40, Alessandro Cara <
alessandro.c...@ay-1asistemi.it
>
wrote:
>
vladil...@alice.it
 wrote:
>
> [cut]> Non avevo provato pensando che la soluzione proposta andava bene,
> > invece è come prima.
> > Azzerando tutti i dati, una volta inserite le partite, inserisco la
> > prima ammonizione, ma è come fosse la seconda; poi, come ti dicevo,
> > continuando ad inserire lo stesso nome anche per dieci volte, tutto è
> > ok.
>
> sei certo che nPenalizzazioni all'inizio sia a zero?
No, inizia da 1(come potrebbe iniziare da 0 la query mica somma gli
zero!)
> sostituisci la if cosi':
>
> if nz(nPenalizzazioni,0) <> 0 then
Non cambia, il primo ammonito è sempre 0.
> ....
>
> Essendo "nPenalizzazioni" ho dato per scontato che fosse di tipo
> numerico e quindi inizializzata con 0, molto probabilmente non e' cosi'.
Certamente è di tipo numerico.
La cosa funziona così:
Implemento una nuova tabella con i risultati delle partite, delle
discipline e dei goal realizzati; poi tramite query faccio la somma
dei risultati, per cui nPenalizzazioni non può che essere 1, almeno
per come l'ho concepito io.
> --
> ac
> y-1=x
Ciao Vladimiro.


title: x Alessandro Cara - Ciclo su IIf

text:
vlad...@alice.it
 wrote:
> On 9 Dic, 10:40, Alessandro Cara <
alessandro.c...@ay-1asistemi.it
>
> wrote:
>>
vladil...@alice.it
 wrote:
>>
>> [cut]> Non avevo provato pensando che la soluzione proposta andava bene,
>>> invece è come prima.
>>> Azzerando tutti i dati, una volta inserite le partite, inserisco la
>>> prima ammonizione, ma è come fosse la seconda; poi, come ti dicevo,
>>> continuando ad inserire lo stesso nome anche per dieci volte, tutto è
>>> ok.
>> sei certo che nPenalizzazioni all'inizio sia a zero?
> No, inizia da 1(come potrebbe iniziare da 0 la query mica somma gli
> zero!)
e che ne so io di come fai ad ottenere i dati!?
Io so soltanto che se passi un qualsiasi valore a x ed esegui "x mod 3"
restituisce *sempre* o 0 o 1 o 2. Senza se e senza ma.
>> sostituisci la if cosi':
>>
>> if nz(nPenalizzazioni,0) <> 0 then
> Non cambia, il primo ammonito è sempre 0.
0 nella select case corrisponde a "squalifica"
>> ....
>>
>> Essendo "nPenalizzazioni" ho dato per scontato che fosse di tipo
>> numerico e quindi inizializzata con 0, molto probabilmente non e' cosi'.
> Certamente è di tipo numerico.
> La cosa funziona così:
> Implemento una nuova tabella con i risultati delle partite, delle
> discipline e dei goal realizzati; poi tramite query faccio la somma
> dei risultati, per cui nPenalizzazioni non può che essere 1, almeno
> per come l'ho concepito io.
Ed allora *deve* funzionare e non serve neanche la if che testa per
diverso da 0
Se la prima volta e' come fosse la seconda vuol dire che il dato su cui
lavora e' 2 o le case sono invertite.
--
ac
y-1=x


title: x Alessandro Cara - Ciclo su IIf

text:
On 9 Dic, 20:14, Alessandro Cara <
alessandro.c...@ay-1asistemi.it
>
wrote:
>
vladil...@alice.it
 wrote:
> > On 9 Dic, 10:40, Alessandro Cara <
alessandro.c...@ay-1asistemi.it
>
> > wrote:
> >>
vladil...@alice.it
 wrote:
>
> >> [cut]> Non avevo provato pensando che la soluzione proposta andava bene,
> >>> invece è come prima.
> >>> Azzerando tutti i dati, una volta inserite le partite, inserisco la
> >>> prima ammonizione, ma è come fosse la seconda; poi, come ti dicevo,
> >>> continuando ad inserire lo stesso nome anche per dieci volte, tutto è
> >>> ok.
> >> sei certo che nPenalizzazioni all'inizio sia a zero?
> > No, inizia da 1(come potrebbe iniziare da 0 la query mica somma gli
> > zero!)
>
> e che ne so io di come fai ad ottenere i dati!?
> Io so soltanto che se passi un qualsiasi valore a x ed esegui "x mod 3"
> restituisce *sempre* o 0 o 1 o 2. Senza se e senza ma.
Senza se e senza ma... mi piace! ... anche perchè hai ragione.
>
> >> sostituisci la if cosi':
>
> >> if nz(nPenalizzazioni,0) <> 0 then
> > Non cambia, il primo ammonito è sempre 0.
>
> 0 nella select case corrisponde a "squalifica"
>
> >> ....
>
> >> Essendo "nPenalizzazioni" ho dato per scontato che fosse di tipo
> >> numerico e quindi inizializzata con 0, molto probabilmente non e' cosi'.
> > Certamente è di tipo numerico.
> > La cosa funziona così:
> > Implemento una nuova tabella con i risultati delle partite, delle
> > discipline e dei goal realizzati; poi tramite query faccio la somma
> > dei risultati, per cui nPenalizzazioni non può che essere 1, almeno
> > per come l'ho concepito io.
>
> Ed allora *deve* funzionare e non serve neanche la if che testa per
> diverso da 0
>
> Se la prima volta e' come fosse la seconda vuol dire che il dato su cui
> lavora e' 2 o le case sono invertite.
e per la seconda volta hai perfettamente ragione.
Function Disciplina(nPenalizzazioni As Integer) As String
Dim x As String
        x = nPenalizzazioni Mod 3
        Select Case x
            Case 1
            Disciplina = "Ammonito"
            Case 2
            Disciplina = "Diffidato"
            Case 0
            Disciplina = "Espulso per somma di ammonizioni"
        End Select
End Function
Grazie Vladimiro.


title: da query esportare  file di testo da vba

text:
?ho una query con i campi codice e qta
dovrei su click di un pulsante creare nel disco c: un file di testo
pippo.txt formattato come segue
codice1; qta1
codice2; qta2
codice3; qta3
...
codiceN; qtaN
qualcuno sa darmi qualche indicazione?


author: Karl Donaubauer

text:

<F1> TransferText
--
Ciao
Karl
*********
Access FAQ:
http://www.donkarl.com/it


text:
?Grazie, sai come posso creare il file INI? � proprio necessario?
"Karl Donaubauer"  ha scritto nel messaggio
news:8isli7...@mid.individual.net...



text:
?io ho risolto cosi!
tu che ne pensi? mi piace complicarmi la vita?
per� funziona! mentre trasfertext mi chiede un file ini che non capisco come
creare.
Si pu� ottimizzare questo codice secondo voi?
    Dim db As Database
    Dim rs As Recordset
    Dim i
    Dim stringa As String
    Set db = CurrentDb
    Set rs = db.OpenRecordset("select * from scarichitxt")
    If rs.RecordCount > 0 Then
        rs.Edit
        rs.MoveFirst
        For i = 1 To rs.RecordCount
            stringa = rs!Codice & ";" & rs!Quantita
            If i = 1 Then
                 Open "C:\pippo.txt" For Output As #1
                 Print #1, stringa
             ElseIf i > 1 Then
                 Open "C:\pippo.txt" For Append As #1
                 Print #1, stringa
             End If
             Close #1
             rs.MoveNext
        Next i
    End If


text:
Il 28/10/2010 11.48, leopard73 ha scritto:
> ?io ho risolto cosi!
> tu che ne pensi? mi piace complicarmi la vita?
Si
> per� funziona! mentre trasfertext mi chiede un file ini che non capisco
> come creare.
Hai provato a scrivere il transfertext cosi'?
DoCmd.TransferText acExportDelim,, _
     "Nome Tabella", "C:\path\Nome file testo"
> Si pu� ottimizzare questo codice secondo voi?
Se vuoi copiare un migliaio di record e metterci mezza giornata no.
>
>
> Set db = CurrentDb
> Set rs = db.OpenRecordset("select * from scarichitxt")
>
Open "C:\pippo.txt" For Output As #1
do until rs.eof
     Print #1, rs!Codice & ";" & rs!Quantita
     rs.MoveNext
Loop
Close #1
--
ac (x=y-1)


text:
leopard73 wrote:
> ?io ho risolto cosi!
> tu che ne pensi? mi piace complicarmi la vita?
S�.
> per� funziona! mentre trasfertext mi chiede un file ini che non
> capisco come creare.
> ...
Hai sbagliato qc, altrimenti non chiede uno schema.ini perch�
non c'� bisogno.
ac ti ha gi� scritto un semplice esempio.
Se non riesci, incolla il codice che hai provato.



text:
?tnx!
"Alessandro Cara"  ha scritto nel messaggio
news:H3cyo.26127$%a.1...@tornado.fastwebnet.it...



text:
?riprovo domani grazie.
"Karl Donaubauer"  ha scritto nel messaggio
news:8it1bm...@mid.individual.net...



text:
?>Hai provato a scrivere il transfertext cosi'?
>DoCmd.TransferText acExportDelim,, _
>    "Nome Tabella", "C:\path\Nome file testo"
il tuo codice mi da
errore di runtime "3441"
il separatore di campo nella specifica dei file di testo corrisponde al
separatore decimale o al delimitatore di testo
cosa vorr�????


text:

> cosa vorrà????
Se non mostri cosa hai scritto e' difficile capire. Per favore copia e
incolla qui la istruzione che ti da errore.
--
ac (x=y-1)


text:

> cosa vorrà????
Se la tua versione segreta di Access è 2007 esiste un tale bug noto.
Non solo per questo ma sempre sarebbe meglio di usare una
specifica di esportazione nella quale si puo impostare il
deliminatore desiderato ecc.
Vedi anche
http://groups.google.com/group/microsoft.public.it.office.access/browse_frm/thread/fd6345bc1257b428/e4586ddf159dcb4a
Poi si usa la specifica nel commando come anche mostrato nella guida:
DoCmd.TransferText acExportDelim, "MiaBellaSpecifica", _
...



text:

Ma questa query (fammi capire) restituisce una riga sola ?


title: maschera di input

author: luca

text:
ciao a tutti,
In Access XP, imponendo come maschera di input per un campo a >L<???? non
riesco ad immettere un ciò che voglio nella tabella, ovvero un testo con la
prima lettera obbligatoria e maiuscola, perchè compare un messaggio d'errore
del tipo che la maschera è a?<LLL, cioè dovrei immettere un testo con le
ultime tre lettere minuscole obbligatorie. Possibile che ci sia questa
confusione? Le maschere di input, al contrario, funzionano come dovrebbero
per i numeri.
Grazie per le riposte


title: maschera di input

author: Roberto da casa

text:
"luca" <
lucasan...@yahoo.it
> ha scritto nel messaggio
news:be3u4f$57b$1...@news.flashnet.it...

Per le versioni di Access successive ad Access 97, le maschere di input che
contengono i caratteri < e/o > non funzionano e sembrerebbe che la Microsoft
non abbia alcuna intenzione di risolvere questa annoso bug.
Devi risolvere il tuo problema con del codice VBA che usi la funzione
StrConv (vedi help).
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: [Ot]: Il "piatto" delle adesioni al raduno piange

author: MA

text:
Salve a tutti,
rieccomi col tormentone dell'autunno.
Viste le mancate smentite credo possa andare per il 22-23 Nov a Roma.
Andiamo un pò aldilà
MAssimiliano


text:
"MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
news:njrpb.17303$uv4....@news.edisontel.com...

Ribadisco la disponibilità di quel mio amico che c'ha il ristorante a
Campagnano, vicino il lago di Bracciano.
Antonio


text:
"MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
news:njrpb.17303$uv4....@news.edisontel.com...

Se non sbaglio per ora saremmo in 4, anzi con Antonio saremmo 5; visto che
normalmente qualcuno all'ultimo demorde, non mi sembra che sia proprio un
raduno oceanico. :)
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


author: Sergio MAZZA

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:hZvpb.87678$vO5.3...@twister1.libero.it...
>
>
> Se non sbaglio per ora saremmo in 4, anzi con Antonio saremmo 5; visto che
> normalmente qualcuno all'ultimo demorde, non mi sembra che sia proprio un
> raduno oceanico. :)
>
> --
> Roberto
>
> ---------------------------------------------
> il Sito Comune di it.comp.appl.access:
>
http://www.sitocomune.com
> ---------------------------------------------
Se magna deppiù!!!
Dai, dai facciamo il raduno più piccolo di tutti gli NG...
Ciao.
--
Sergio MAZZA


text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:hZvpb.87678$vO5.3...@twister1.libero.it...
>
> "MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
> news:njrpb.17303$uv4....@news.edisontel.com...
> > Salve a tutti,
> > rieccomi col tormentone dell'autunno.
> > Viste le mancate smentite credo possa andare per il 22-23 Nov a Roma.
> >
> > Andiamo un pò aldilà
> > MAssimiliano
>
> Se non sbaglio per ora saremmo in 4, anzi con Antonio saremmo 5; visto che
> normalmente qualcuno all'ultimo demorde, non mi sembra che sia proprio un
> raduno oceanico. :)
Io, se vengo, porto la signora...
Antonio


text:
> > > Salve a tutti,
> > > rieccomi col tormentone dell'autunno.
> > > Viste le mancate smentite credo possa andare per il 22-23 Nov a Roma.
> > >
> > > Andiamo un pò aldilà
> > > MAssimiliano
> >
> > Se non sbaglio per ora saremmo in 4, anzi con Antonio saremmo 5; visto
che
> > normalmente qualcuno all'ultimo demorde, non mi sembra che sia proprio
un
> > raduno oceanico. :)
>
> Io, se vengo, porto la signora...
>
> Antonio
Anche io, lo voglio conoscere quest'emiro.
MAssimiliano


author: stefano (kabisa)

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:hZvpb.87678$vO5.3...@twister1.libero.it...

Io vengo ma la signora col piccolino (14 mesi ) stanno a casa
Stefano Kabisa


title: Developer e Win95

author: Checco

text:
Ciao a tutti,
in qualche maniera è possibile far girare un'applicazione fatta con XP
developer su un Win95? Ho fatto alcune prove ma quando lancio il programma
dopo averlo installato mi richiede sempre l'eseguibile "msaccess.exe"
Grazie
Checco
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: Developer e Win95

text:
"Checco" <
fra....@libero.it
> ha scritto nel messaggio
news:217Z59Z54Z60Y1...@usenet.libero.it...
> Ciao a tutti,
> in qualche maniera č possibile far girare un'applicazione fatta con XP
> developer su un Win95? Ho fatto alcune prove ma quando lancio il programma
> dopo averlo installato mi richiede sempre l'eseguibile "msaccess.exe"
>
> Grazie
> Checco
Noto bug.
Non so se con Dev 2000 č lo stesso, se no posso crearti il pacchetto di
installazione e te lo mando con il mio dev 2000.
MAssimiliano


title: Developer e Win95

author: Giorgio Prx

text:
"Checco" <
fra....@libero.it
> ha scritto nel messaggio
news:217Z59Z54Z60Y1...@usenet.libero.it...
> Ciao a tutti,
> in qualche maniera č possibile far girare un'applicazione fatta con XP
> developer su un Win95? Ho fatto alcune prove ma quando lancio il programma
> dopo averlo installato mi richiede sempre l'eseguibile "msaccess.exe"
>
Windows 95 non rientra nei requisiti di sistema di AccXp (guarda sulla
scatola del Developer) , quindi nulla da fare.
Ciao Giorgio.


title: Developer e Win95

text:
> Noto bug.
> Non so se con Dev 2000 è lo stesso, se no posso crearti il pacchetto di
> installazione e te lo mando con il mio dev 2000.
> MAssimiliano
Porca miseria che fregatura! :o(
Vabbè dai non voglio crerti disturbo...
Grazie mille per la disponibilità!



title: Developer e Win95

text:
> > Noto bug.
> > Non so se con Dev 2000 è lo stesso, se no posso crearti il pacchetto di
> > installazione e te lo mando con il mio dev 2000.
> > MAssimiliano
>
>
> Porca miseria che fregatura! :o(
> Vabbè dai non voglio crerti disturbo...
> Grazie mille per la disponibilità!
>
> Checco
There will not problem.
MAssimiliano


title: Developer e Win95

author: Neo

text:
"Checco" <
fra....@libero.it
> ha scritto nel messaggio
news:217Z59Z54Z60Y1...@usenet.libero.it...

ho avuto lo stesso problema e la microsoft ha detto che è il fatto che WIn 95 non è supportato da Xp
(non tanto un bug del developer)
guarda nel manuale i requisiti minimi che hai dovuto avere tu per installare il developer, quelli
sono i requisiti minimi che deve avere il pc dove andrà installato il runtime.
con il runtime di A2000 non ci sono problemi


title: Developer e Win95

text:
Mitico MA,
ascolta un attimo, è possibile installare i runtime di access 2000 e poi il
database che ho io? Così magari potresti molto gentilmente mandarmi i
runtime? Se po fa? ;o)
Grazie infinite!



title: Developer e Win95

text:
"Checco" <
fra....@libero.it
> ha scritto nel messaggio
news:217Z59Z54Z60Y1...@usenet.libero.it...
> Mitico MA,
> ascolta un attimo, č possibile installare i runtime di access 2000 e poi
il
> database che ho io? Cosě magari potresti molto gentilmente mandarmi i
> runtime? Se po fa? ;o)
>
> Grazie infinite!
>
> Checco
Il runtime lo puoi scaricare.
Quello che ti dovrei fornire io č l'autorizzazione ad usarlo per
l'applicazione che dici tu.
MAssimiliano


title: Developer e Win95

text:
> Il runtime lo puoi scaricare.
> Quello che ti dovrei fornire io č l'autorizzazione ad usarlo per
> l'applicazione che dici tu.
> MAssimiliano
Io non posso farlo?
Che fregatura!



title: Developer e Win95

text:
"Checco" <
fra....@libero.it
> ha scritto nel messaggio
news:217Z59Z54Z60Y1...@usenet.libero.it...
> > Il runtime lo puoi scaricare.
> > Quello che ti dovrei fornire io è l'autorizzazione ad usarlo per
> > l'applicazione che dici tu.
> > MAssimiliano
>
>
> Io non posso farlo?
> Che fregatura!
>
> Checco
No perchè non hai la versione Dev giusta.
Però non sono sicurissimo in casi come questi di 'downgrade'.
Guarda sulla guida.
MAssimiliano


title: Developer e Win95

text:
"Checco" <
fra....@libero.it
> ha scritto nel messaggio
news:217Z59Z54Z60Y1...@usenet.libero.it...
> > Il runtime lo puoi scaricare.
> > Quello che ti dovrei fornire io è l'autorizzazione ad usarlo per
> > l'applicazione che dici tu.
> > MAssimiliano
>
>
> Io non posso farlo?
> Che fregatura!
>
> Checco
>
> --------------------------------
Ammettendo che a livello di licenza puoi usare Acc2000 Runtime, c'è l'hai
Access2000 per ricompilare e creare l'Mde del tuo Db ?
Con AccessXp non lo puoi fare, puoi solo trasformare un DB da ver.2002 a
ver.2000.
Ciao Giorgio.


title: problemi con controllo inet per upload di file su spazio ftp

author: Nicolas

text:
uso la seguente procedura ma manda và errore ed esce da access
qualcuno sa dirmi cosa sbaglio, tempo fà lo usavo e andava proprio in questo
modo
ho windows xp + sp2
Grazie a tutti
---- CODE ------------------------------------------------
Sub EseguiComando(ByVal Comando As String)
On Local Error GoTo Esegui_Err
Inet4.Protocol = 2
Inet4.RemoteHost = "
ftp.miosito.it
"
Inet4.username = "" & "miouser"
Inet4.password = "" & "miapsw"
DoCmd.Hourglass True
Inet4.Execute "", Comando
Do
  If Inet4.StillExecuting = False Then Exit Do
  DoEvents
Loop
Esegui_Fine:
DoCmd.Hourglass False
Exit Sub
Esegui_Err:
MsgBox Error
Do
  If Inet4.StillExecuting = False Then Exit Do
  DoEvents
Loop
'Inet4.Cancel = True
Resume Esegui_Fine
End Sub


author: Marco

text:
> uso la seguente procedura ma manda và errore ed esce da access
> qualcuno sa dirmi cosa sbaglio, tempo fà lo usavo e andava proprio in
> questo modo
Non conosco la classe Inet4, ma il codice sembra corretto.
Che errore ti da? E in che punto del codice?
La versione di Access è la stessa?
Le librerie ci sono tutte?
Ciao
Marco


text:
"Nicolas" <
nico...@email.it
> ha scritto nel messaggio news:43870ef6$0$13267$4faf...@reader2.news.tin.it...

"Tempo fa'" significa prima di WinXp? Hai provato a vedere se il firewall ti blocca il programma?
Ciao.
--
Sergio MAZZA


text:
>
> "Tempo fa'" significa prima di WinXp? Hai provato a vedere se il firewall
> ti blocca il programma?
>
> Ciao.
>
> --
> Sergio MAZZA
ottima osservazione provo e ti faccio sapere. ciao.


text:
"Marco" <na...@NOPRIVATEMESSAGE.com> ha scritto nel messaggio
news:dm73t9$ooe$1...@news.tiscali.fr...

si tutte, provo come ha detto mazza


text:
>
> "Tempo fa'" significa prima di WinXp? Hai provato a vedere se il firewall
> ti blocca il programma?
>
> Ciao.
>
> --
> Sergio MAZZA
non è il firewall, và in errore ed esce la finestra di inviare la solita
segnalazione a microsoft
sai cos'altro potrebbe essere? grazie.


text:
"Nicolas" <
nico...@email.it
> ha scritto nel messaggio news:4389d3f1$0$16209$4faf...@reader3.news.tin.it...
 >
>
> non è il firewall, và in errore ed esce la finestra di inviare la solita segnalazione a microsoft
> sai cos'altro potrebbe essere? grazie.
Prova con indicare il protocollo da utilizzare:
Inet4.RemoteHost = "
ftp://ftp.miosito.it
"
Ciao.
--
Sergio MAZZA


text:
> Prova con indicare il protocollo da utilizzare:
> Inet4.RemoteHost = "
ftp://ftp.miosito.it
"
>
>
> Ciao.
>
> --
> Sergio MAZZA
ora funziona grazie mille a netrambi ho modificato cosi il codice
Vorrei chiederti ancora una cosa, se si verifica un errore ad esempio non
c'č il file sull'ftp oppure non c'č la cartella o viene interrotto l'upload
per mancanza di linea internet come posso inviare un messaggio di ok solo se
tutto č andato bene e un messaggio di errore se qualcosa non ha funzionato?
Grazie.
--- code ----
    'eseguo l'upload del file    Dim Comando As String
    Comando = "SEND """ & "C:\Programmi\" & nomefile & """ """ & "cartella/"
& nomefile & """"
    Inet4.Protocol = 2
    Inet4.RemoteHost = "
ftp.miosto.it
"
    Inet4.username = "" & "user"
    Inet4.password = "" & "password"
    DoCmd.Hourglass True
    Inet4.Execute "", Comando
    Do Until Inet4.StillExecuting = False
        DoEvents
    Loop
    DoCmd.Hourglass False
    'fine codice upload del file delle ricevute


text:
"Nicolas" <
nico...@email.it
> ha scritto nel messaggio news:438b227e$0$7318$4faf...@reader4.news.tin.it...
>
> ora funziona grazie mille a netrambi ho modificato cosi il codice
> Vorrei chiederti ancora una cosa, se si verifica un errore ad esempio non c'è il file sull'ftp oppure non c'è la cartella o viene
> interrotto l'upload per mancanza di linea internet come posso inviare un messaggio di ok solo se tutto è andato bene e un
> messaggio di errore se qualcosa non ha funzionato? Grazie.
>
> --- code ----
>
>    'eseguo l'upload del file    Dim Comando As String
>
>    Comando = "SEND """ & "C:\Programmi\" & nomefile & """ """ & "cartella/" & nomefile & """"
>
>    Inet4.Protocol = 2
>    Inet4.RemoteHost = "
ftp.miosto.it
"
>    Inet4.username = "" & "user"
>    Inet4.password = "" & "password"
>
>
>    DoCmd.Hourglass True
>    Inet4.Execute "", Comando
>    Do Until Inet4.StillExecuting = False
>        DoEvents
>    Loop
>
>    DoCmd.Hourglass False
>    'fine codice upload del file delle ricevute
Se vuoi scriverti una mini applicazione e gestire gli errori inizia con lo studiare l'oggetto INet;
qui trovi informazioni:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/Inet98/html/vbobjinternetcontrol.asp
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vbcon98/html/vbconusinginternettransfercontrol.asp
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/Inet98/html/vbmsgerrorsinternettransfer.asp
Ciao.
--
Sergio MAZZA


title: Aggiornamento e ordinamento sottomaschera

author: Luca

text:
Ciao,
Vorrei poter ordinare i dati visualizzati in una sottomaschera in base al
campo selezionato da una casella combinata presente nella maschera
stessa... come posso fare??
Luca
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


text:
> Ciao,
>
> Vorrei poter ordinare i dati visualizzati in una sottomaschera in base al
> campo selezionato da una casella combinata presente nella maschera
> stessa... come posso fare??
>
> Luca
Creati la sottomaschera che ti interessa, poi ci togli l'origine record e
gliel'associ grazie alla proprietą rowsorurce ordinando per la casella
combinata di scelta.
private sud tuacombo_afterupdate
forms!tuamaschera!tuasottomaschera.rowsource = "select ... order by
me.tuacombo
forms!tuamaschera!tuasottomaschera.requery
end sub
MAssimiliano


text:
> Creati la sottomaschera che ti interessa,
Ok..  fino a qui ci sono
 poi ci togli l'origine record e
> gliel'associ grazie alla proprietą rowsorurce ordinando per la casella
> combinata di scelta.
> private sud tuacombo_afterupdate
> forms!tuamaschera!tuasottomaschera.rowsource = "select ... order by
> me.tuacombo
> forms!tuamaschera!tuasottomaschera.requery
> end sub
> MAssimiliano
scusami ma ho bisogno di ulteriori chiarimenti: come imposto queste
proprietą ... nella maschera principale o nella sottomaschera??
grazie per l'aiuto



text:
> > Creati la sottomaschera che ti interessa,
> Ok..  fino a qui ci sono
>
>  poi ci togli l'origine record e
> > gliel'associ grazie alla proprietą rowsorurce ordinando per la casella
> > combinata di scelta.
Creati una casella combinata nella maschera. Come origine "RIGA" non record
ci metti "Elenco campi".
> > private sud tuacombo_afterupdate
> > forms!tuamaschera!tuasottomaschera.rowsource = "select ... order by
> > me.tuacombo
> > forms!tuamaschera!tuasottomaschera.requery
> > end sub
> > MAssimiliano
>
> scusami ma ho bisogno di ulteriori chiarimenti: come imposto queste
> proprietą ... nella maschera principale o nella sottomaschera??
Nella principale
Massimiliano


text:
> Creati una casella combinata nella maschera. Come origine "RIGA" non record
> ci metti "Elenco campi".
Ok, anche per queto avevo già fatto... i dubbi cominciano qui...
> > > private sud tuacombo_afterupdate
> > > forms!tuamaschera!tuasottomaschera.rowsource = "select ... order by
> > > me.tuacombo
> > > forms!tuamaschera!tuasottomaschera.requery
> > > end sub
> > > MAssimiliano
> >
> > scusami ma ho bisogno di ulteriori chiarimenti: come imposto queste
> > proprietà ... nella maschera principale o nella sottomaschera??
> Nella principale
> Massimiliano
2 dubbi:
1 - imposto le proprietà all'evento after update della maschera principale
2 - dopo .rowsource=     cosa devo mettere (prima del nome della casella
combinata)
Grazie per la pazienza...



text:
> > Creati una casella combinata nella maschera. Come origine "RIGA" non
record
> > ci metti "Elenco campi".
>
> Ok, anche per queto avevo giŕ fatto... i dubbi cominciano qui...
>
> > > > private sud tuacombo_afterupdate
> > > > forms!tuamaschera!tuasottomaschera.rowsource = "select ... order by
> > > > me.tuacombo
> > > > forms!tuamaschera!tuasottomaschera.requery
> > > > end sub
> > > > MAssimiliano
> > >
> 2 dubbi:
> 1 - imposto le proprietŕ all'evento after update della maschera principale
L'evento, come ti ho scritto, č dopo l'aggiornamento della tua casella
combinata, che non sapendo come l'hai chiamata, io l'ho chiamata tuacombo
> 2 - dopo .rowsource=     cosa devo mettere (prima del nome della casella
> combinata)
Ci devi mettre l'istruzione che c'era come origine record prima che la
cancellassi solo che devi aggiungere l'ordinamento:
order by forms!tuamaschera!tuacombo
> Grazie per la pazienza...
> Luca
Ciao MAssimiliano


text:
MA ha scritto:
> > > Creati una casella combinata nella maschera. Come origine "RIGA" non
> record
> > > ci metti "Elenco campi".
> >
> > Ok, anche per queto avevo già fatto... i dubbi cominciano qui...
> >
> > > > > private sud tuacombo_afterupdate
> > > > > forms!tuamaschera!tuasottomaschera.rowsource = "select ... order by
> > > > > me.tuacombo
> > > > > forms!tuamaschera!tuasottomaschera.requery
> > > > > end sub
> > > > > MAssimiliano
> > > >
> > 2 dubbi:
> > 1 - imposto le proprietà all'evento after update della maschera principale
> L'evento, come ti ho scritto, è dopo l'aggiornamento della tua casella
> combinata, che non sapendo come l'hai chiamata, io l'ho chiamata tuacombo
> > 2 - dopo .rowsource=     cosa devo mettere (prima del nome della casella
> > combinata)
> Ci devi mettre l'istruzione che c'era come origine record prima che la
> cancellassi solo che devi aggiungere l'ordinamento:
> order by forms!tuamaschera!tuacombo
> Ciao MAssimiliano
forse è qui il problema...
 la mia casella combinata ha come origine dati un elenco valori che ho
inserito io a mano ( non mi interessavano tutti i campi della maschera, ma
solo alcuni..).
la sintassi cambia in questo caso??



text:

Cerca di usare lo stesso nome del controllo della sottomaschera e poi adesso
sto pensando
order by forms!tuamaschera!tuasottomaschera & forms!tuamaschera!tuacombo
questo perchè il controllo sta nella sottomaschera...
MAssimiliano


text:
"MA" <
keiko...@libero.it
> ha scritto nel messaggio
news:aV7Ta.1903$w8....@news.edisontel.com...
> > > > > Creati una casella combinata nella maschera. Come origine "RIGA"
non
> > > record
> > > > > ci metti "Elenco campi".
> > > >
> > > > Ok, anche per queto avevo giŕ fatto... i dubbi cominciano qui...
> > > >
> > > > > > > private sud tuacombo_afterupdate
> > > > > > > forms!tuamaschera!tuasottomaschera.rowsource = "select ...
order
> by
> > > > > > > me.tuacombo
> > > > > > > forms!tuamaschera!tuasottomaschera.requery
> > > > > > > end sub
> > > > > > > MAssimiliano
> > > > > >
> > > > 2 dubbi:
> > > > 1 - imposto le proprietŕ all'evento after update della maschera
> principale
> > > L'evento, come ti ho scritto, č dopo l'aggiornamento della tua casella
> > > combinata, che non sapendo come l'hai chiamata, io l'ho chiamata
> tuacombo
> > > > 2 - dopo .rowsource=     cosa devo mettere (prima del nome della
> casella
> > > > combinata)
> > > Ci devi mettre l'istruzione che c'era come origine record prima che la
> > > cancellassi solo che devi aggiungere l'ordinamento:
> > > order by forms!tuamaschera!tuacombo
> >
> > > Ciao MAssimiliano
> >
> >
> > forse č qui il problema...
> >  la mia casella combinata ha come origine dati un elenco valori che ho
> > inserito io a mano ( non mi interessavano tutti i campi della maschera,
ma
> > solo alcuni..).
> >
> > la sintassi cambia in questo caso??
> >
> > Luca
>
> Cerca di usare lo stesso nome del controllo della sottomaschera e poi
adesso
> sto pensando
> order by forms!tuamaschera!tuasottomaschera & forms!tuamaschera!tuacombo
forms!tuamaschera!tuasottomaschera & ""&forms!tuamaschera!tuacombo
> questo perchč il controllo sta nella sottomaschera...
> MAssimiliano
>
>
Mannaggia oggi...
MAssimiliano


text:
MA ha scritto:
> "MA" <
keiko...@libero.it
> ha scritto nel messaggio
> news:aV7Ta.1903$w8....@news.edisontel.com...
> > > > > > Creati una casella combinata nella maschera. Come origine "RIGA"
> non
> > > > record
> > > > > > ci metti "Elenco campi".
> > > > >
> > > > > Ok, anche per queto avevo già fatto... i dubbi cominciano qui...
> > > > >
> > > > > > > > private sud tuacombo_afterupdate
> > > > > > > > forms!tuamaschera!tuasottomaschera.rowsource = "select ...
> order
> > by
> > > > > > > > me.tuacombo
> > > > > > > > forms!tuamaschera!tuasottomaschera.requery
> > > > > > > > end sub
> > > > > > > > MAssimiliano
> > > > > > >
> > > > > 2 dubbi:
> > > > > 1 - imposto le proprietà all'evento after update della maschera
> > principale
> > > > L'evento, come ti ho scritto, è dopo l'aggiornamento della tua casella
> > > > combinata, che non sapendo come l'hai chiamata, io l'ho chiamata
> > tuacombo
> > > > > 2 - dopo .rowsource=     cosa devo mettere (prima del nome della
> > casella
> > > > > combinata)
> > > > Ci devi mettre l'istruzione che c'era come origine record prima che la
> > > > cancellassi solo che devi aggiungere l'ordinamento:
> > > > order by forms!tuamaschera!tuacombo
> > >
> > > > Ciao MAssimiliano
> > >
> > >
> > > forse è qui il problema...
> > >  la mia casella combinata ha come origine dati un elenco valori che ho
> > > inserito io a mano ( non mi interessavano tutti i campi della maschera,
> ma
> > > solo alcuni..).
> > >
> > > la sintassi cambia in questo caso??
> > >
> > > Luca
> >
> > Cerca di usare lo stesso nome del controllo della sottomaschera e poi
> adesso
> > sto pensando
> > order by forms!tuamaschera!tuasottomaschera & forms!tuamaschera!tuacombo
> forms!tuamaschera!tuasottomaschera & ""&forms!tuamaschera!tuacombo
> > questo perchè il controllo sta nella sottomaschera...
> > MAssimiliano
> >
> >
> Mannaggia oggi...
> MAssimiliano
'spetta.. ora mi sto incasinando davvero...
ripilogo...
Maschera con sottomaschera in visualizzazione foglio dati
la casella combinata è nella maschera principale
L'origine dati della casella combinata è un elenco di valori inseriti
manualmente (corrispondenti ai nomi dei campi della sottomaschera)
i dati da ordinare sono quelli quelli della sottomaschera, dopo l'evento
aggiorna della casella combinata...



text:
> > > forse è qui il problema...
> > >  la mia casella combinata ha come origine dati un elenco valori che ho
> > > inserito io a mano ( non mi interessavano tutti i campi della maschera,
> ma
> > > solo alcuni..).
> > >
> > > la sintassi cambia in questo caso??
> > >
> > > Luca
> >
> > Cerca di usare lo stesso nome del controllo della sottomaschera e poi
> adesso
> > sto pensando
> > order by forms!tuamaschera!tuasottomaschera & forms!tuamaschera!tuacombo
> forms!tuamaschera!tuasottomaschera & ""&forms!tuamaschera!tuacombo
> > questo perchè il controllo sta nella sottomaschera...
> > MAssimiliano
> >
> >
> Mannaggia oggi...
> MAssimiliano
Se può essere utile...
la stessa casella combinata viene usata scegliere il campo in base al
quale ordinare i dati in un report..
  Reports("Ritiri per Redazionali").OrderBy = Me.CasellaCombinata22
e qui funziona tutto a dovere. ( è anche questo un tuo suggerimento)
L



text:

Sì ci siamo
Massimiliano


text:
> >
> > questo articolo e` stato inviato via web dal servizio gratuito
> >
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it
> >
> Sě ci siamo
> Massimiliano
in che senso....
comincio a dare segni di cedimento...
L



text:
> >
> Sě ci siamo
> Massimiliano
Quindi... come dovrebbe essere la versione definitiva???
Luca



title: Stato di un controllo

author: Gabriele

text:
In una maschera ho vari controlli e vorrei dire all'utente che il campo è
vuoto.
Il codice è:
    If Argomento.Value = "" Then
        MsgBox "Errore,  necessario inserire l'argomento"
        Exit Sub
    End If
ma value non è controllabile come una casella di testo, se ci metto null,
non funziona lo stesso.....
Come posso fare?
TIA


title: Stato di un controllo

author: Sandro

text:
"Gabriele" <
mori197...@libero.it
> ha scritto nel messaggio
news:F1BXd.1029291$35.38...@news4.tin.it...
> In una maschera ho vari controlli e vorrei dire all'utente che il campo č
> vuoto.
>
> Il codice č:
>
>     If Argomento.Value = "" Then
>         MsgBox "Errore,  necessario inserire l'argomento"
>         Exit Sub
>     End If
>
> ma value non č controllabile come una casella di testo, se ci metto null,
> non funziona lo stesso.....
> Come posso fare?
>
> TIA
Ciao Gabriele cosě' che succede :
if isnull(argomento) or isempty(argomento) then
        MsgBox "Errore,  necessario inserire l'argomento"
       Exit Sub
    End If
Ciao


title: Creazione di file mde

author: Antonio

text:
Ho scritto un database utilizzando office 2000.
Ho poi trasportato tale db su office xp , e funziona correttamente. Non mi
da però la possibilità di creare il compilato.
Qual'e' l'iter (possibilmente scritto in maniera dettagliata) che devo
seguire per rendere possibile la creazione dell'mde?
Grazie per la cortese attenzione
Antonio


title: Creazione di file mde

text:
Antonio ha scritto:
> Ho scritto un database utilizzando office 2000.
> Ho poi trasportato tale db su office xp , e funziona correttamente.
> Non mi da però la possibilità di creare il compilato.
> Qual'e' l'iter (possibilmente scritto in maniera dettagliata) che devo
> seguire per rendere possibile la creazione dell'mde?
1. Convertire il db in formato di AX.
2. La voce nel menu per la creazione del MDE è attiva.
Vuol dire che non è possibile di creare un MDE in formato A00 con AX.
--
HTH
Karl
*********
Access-FAQ (tedesco):
http://www.donkarl.com


title: cambiare recordsource del report da vba si può?

text:
si può decidere quale sia la fonte del reports appena prima di aprirlo?
Grazie.


author: Bruno Campanini

text:
"Simba883" <
simb...@libero.it
> wrote in message
news:clqaqf$920$1...@lacerta.tiscalinet.it...
> si può decidere quale sia la fonte del reports appena prima di aprirlo?
>
> Grazie.
Devi comunque aprirlo in Modalità Design:
DoCmd.OpenReport "rXXX", acViewDesign, , , acHidden
Reports("rXXX").RecordSource = "Nuovo Record Source"
DoCmd.Close acReport, "rXXX", acSaveYes
DoCmd.OpenReport "rXXX", acViewPreview
Ciao
Bruno


author: Alessandro Baraldi

text:
"Bruno Campanini" <
bruno.XXX...@tin.it
> wrote in message
news:lV3gd.217365$
35.10...@news4.tin.it
[CUT].
>
> Devi comunque aprirlo in Modalità Design:
NO.
> DoCmd.OpenReport "rXXX", acViewDesign, , , acHidden
> Reports("rXXX").RecordSource = "Nuovo Record Source"
> DoCmd.Close acReport, "rXXX", acSaveYes
> DoCmd.OpenReport "rXXX", acViewPreview
>
> Ciao
> Bruno
Si può anche senza usare la modalità Design, non serve a nulla
in questo caso divendo automatizzarlo da Codice lo si cambia
RUNTIME accedendo alla proprietà RecordSource.
@Alex.
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Campi contatore e replica di Access

author: Marco Tognon

text:
Salve!
Ho effettuato la replica di un db con circa 17 tabelle, una ventina di
relazioni tra esse e dimensioni medie (qualche migliaio di record)
perché il cliente aveva ormai la necessità di farlo utilizzare da più
operatori. Il db non è separato in FE/BE ma è ancora (e penso resterà)
tutt'uno.
Le relazioni tra le tabelle sono state originariamente effettuate
sulla base di campi (con prefisso ID) di tipo Contatore, che,
ovviamente, con la replica sono diventati di tipo "casuale", e campi
numerici (con prefisso COD).
Alcuni libri consigliano di smettere di utilizzare i campi di tipo
Contatore e di passare a quelli di tipo s_GUID per vari motivi, tra i
quali la possibile non unicità, la sequenzialità non più rispettata
(non penso che quest'ultimo sia il mio caso).
Secondo voi è NECESSARIO fare questo passaggio?
Se la risposta è si, come? Immagino che comporterebbe ricostruire
tutte le relazioni, e reinserire in tutti i campi COD i valori dei
corrispondenti ID (ora s_GUID).
Che ne dite?
Grazie.
Marco.


title: Come gestite richieste del committente?

author: RobertoA

text:
Sui vostri progetti, sia di contenute che di ampie dimensioni, come
gestite le richieste del committente il progetto?
Intendo riferirmi sia a richieste di correzione anomalie di
funzionamento sia a richieste implementazioni nuove funzionalita'

Qualcosa del tipo:
1- prendete la telefonata e scrivete su carta e penna
2- vi fate inviare una e-mail con i dettagli richiesta
3- avete sul sito web pagina dedicata tipo ticket
4- vi fate inviare piccione viaggiatore con richiesta su zampa
5- segnali di fumo nelle giornate buone, ottici la notte
6- vi fate inviare documento via fax
7- richiesta in bottiglia e lancio in mare/fiume/laguna
8- sperate di ricordare quanto richiesto verbalmente il mese prima?

Chiedo questo perche' raccogliere le richieste su apposito db,
ordinabile per cliente/data/priorita' e correttamente filtrabile,
sarebbe fin troppo facile, e so bene che scrivete per passione, cercando
sempre di fare qualcosa che ancora non esiste, come si insegna nelle
migliori scuole di esploratori


title: Come gestite richieste del committente?

text:
Secondo me dipende dall'azienda...!
Una azienda strutturata riceve le richieste anche via mail o per telefono solo al fine di attivare la procedura di prevalutazione, poi si organizza un incontro con il committente, si redige un verbale delle richieste che si condivide, a questo segue un preventivo per approvazione e lettera di incarico e seguente contratto di commessa.

Cose più "semplici" non saprei, sono abituato a cose complicate... ;-)

@Alex


title: Come gestite richieste del committente?

author: BFS

text:

nel mio caso tassativamente richiesta scritta in mail dal incaricato.
questo per evitare due problemi che ho avuto da giovincello appena
aperta la ditta:

1) al telefono ti dicono una cosa e poi alla consegna è tutto un "ma io
non ti ho chiesto questo, ti avevo detto di fare questaltro etc etc"
2) mi chiamava il dipendente che mi chiedeva n modifiche, mi dava ok
alla spesa detta a voce e a fine mese quando emettevo fattura il
titolare la contestava con "non ti ho chiesto io di farlo"

presa in quel posto un paio di volte, ho deciso di fare tutto per
iscritto. Le mie richieste di chiarimenti altrettanto per iscritto.

Il tutto lo gestisco con thunderbird ed etichette ad hoc

per una azienda invece con cui collaboro sviluppando software per loro,
utilizzo questo sistema di ticketing molto valido

https://freshdesk.com/

ciao
BFS


title: Come gestite richieste del committente?

text:

Non stiamo parlando di 'aziende strutturate'
Certo che nella procedura sopradescritta manca solo la firma del
presidente della repubblica, poi' c'e' tutto


title: Come gestite richieste del committente?

text:

Che de' l'etichetta ad hoc?
La appiccichi sul documento che ricevi con le richieste?


title: Come gestite richieste del committente?

text:

si come le etichette di gmail (a mio parere una delle più grandi invenzioni)

permette di raggruppare e filtrare mail collegate tra loro.

ciao
BFS


title: Come gestite richieste del committente?

text:
Le aziende strutturate hanno processi certificati e tutto è registrato ed assegnato a referenti... chiaramente nulla di artigianale, senza nulla togliere, ma così è se vuoi essere ISOxxxxx tutto quello che serve...

@Alex


title: Disattivazione rotellina mouse

author: NAo

text:
Ciao ng, ho scaricato l'esempio dei db da voi segnalato per la
disattivazione della rotellina del mouse.
Quando lo apro, mi da errore per mancanza libreria vba332.dll
Come devo fare per installarla.
L'ho scaricata da internet.
Essendo il db in rete aziendale, come devo fare per far si che anche sugli
altri computer la rotellina venga disattivata.
grazie Nao
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: Disattivazione rotellina mouse

author: Carlo Costarella

text:
"NAo" <
n...@iol.it
> ha scritto nel messaggio
news:195Z33Z137Z29Y...@usenet.libero.it...
>
> Ciao ng, ho scaricato l'esempio dei db da voi segnalato per la
> disattivazione della rotellina del mouse.
> Quando lo apro, mi da errore per mancanza libreria vba332.dll
>
> Come devo fare per installarla.
> L'ho scaricata da internet.
> Essendo il db in rete aziendale, come devo fare per far si che anche sugli
> altri computer la rotellina venga disattivata.
>
> grazie Nao
>
>
Scarica da qui il runtime di vb6:
http://www.frantoiogestione.com/vbrun60sp5.exe
Hai registrato la dll?
Ciao, Carlo


title: Aggiornare due database

author: Michele

text:
Salve a tutti, volevo chiedere se si poteveno aggiornare due database,
mi spiego meglio.
Ho un database che gestisce le fatturazioni e preventivi, il
(1)database e stato diviso in due (Gestione_Gen) collegato alle
tabelle del file (Gestione_Tab).  L'altro database (2)è identico solo
che Unico Blocco con le tabelle incorporate, per poterlo utilizzare su
una memory pen, il problema è il seguente vorrei chiedervi come fare
per  aggiornare i dati dal Secondo Database al Primo Database senza
dover inportare dal Secondo DB le tabelle e rinominarle manualmente
nel Primo DB.
Grazie.
Michele


title: Aggiornare due database

author: MA

text:

Parola magica: Replica
ciao MAssimiliano
--------------------------------
Inviato via
http://usenet.libero.it


title: Aggiornare due database

text:
Ciao Massimiliano, ho provato a usare la parola magica replica, ma non
riesco a metterla in atto, volevo chiedere a tè e al NG come si deve
procedere.
Grazie
Michele
"MA" <
massimilia...@kksrl.com
> ha scritto nel messaggio
news:151Z26Z100Z57Y...@usenet.libero.it...



title: Variabile pubblica

author: Sthepan

text:
Come si fa a memorizzare l'IDPersonale di una maschera in una variabile
pubblica e utilizzala per riaprire una form.
Ciao
Sthepan


title: Variabile pubblica

author: SunRex

text:
"Sthepan" <
sth...@supereva.it
> ha scritto nel messaggio
news:1jirst3czjscl$.10k2y86kpqmm8$.dlg@40tude.net...

La dichiari in un modulo
Public MiaVariabile As Integer
SunRex


title: Variabile pubblica

text:
"SunRex" <
sunrexs...@hotmail.com
> wrote in message
news:Optfe.1349235$
35.50...@news4.tin.it
[CUT]
>
> La dichiari in un modulo
>
> Public MiaVariabile As Integer
>
> SunRex
Meglio Long se non vuoi un Errore con value>65535
Ciao
@Alex
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Abbinamento random dati

author: MC

text:
Buongiorno, ho 2 tabelle:
TCodici:
- CodiceDownload
- CodiceCliente
- RagioneSociale
- DataInvio
- Campagna
- Operatore
- Disponibile (campo si\no)
TInvii
- CodiceCliente
- RAgioneSociale
- Email
- NCodici
Da form MPannello, devo selezionare il CODICE CAMPAGNA all'interno di
una select e il sistema dovrebbe operare come segue:
Abbinare in modo Random tutti i record della tabella TInvii
inserendoli all'interno della tabella TCodici dove il campo
DISPONIBILE è impostato a SI (Vero).
L'ideale sarebbe anche una verifica che mi indichi se il numero record
da inserire è inseribile, ovvero, se ho 100 record da inserire ma solo
90 record CodiceDownload disponibili (campo DISPONIBILE impostato a
Vero), ricevere prima una notifica che mi chieda se procedere o meno,
accontentanto solo i primi 90.
I record accodati da TInvii a TCodici dovranno essere eliminati da
TInvii.
Successivamente a questa operazione dovrò compiere diverse altre
attività, ma questo non è un problema, la procedura è gia
funzionante ... sono solo incartato per la parte precedentemente
scritta ...
Spero di ricevere vostro aiuto, suggerimenti.
Grazie e buona giornata.
MCX


title: Abbinamento random dati

text:

Risolto!


title: somma elenco celle e query di aggiornamento

text:
Buongiorno a tutti! anche oggi ho un piccolo problemino (..magari x voi..)
da risolvere... vi spiego tutto:
io ho:
-tabella CLIENTI : dove sono presenti, tra gli altri, questi campi: DATACRT,
NETTO, VENDITORE, PROVVIGIONE
-tabella SISPROV: dove sono presenti: FATTMIN, FATTMAX, PROVV
quello che devo fare (a parole č semplice ) da una maschera scrivere un
periodo di date DATAINIZIO e DATAFINE e un VENDITORE e,
attraverso un bottone devo lanciare una query (credo) che mi faccia la somma
di tutti i NETTI dei CLIENTI in base alla DATACRT e al VENDITORE (che ho
inserito prima) poi deve confrontare questa SOMMA in che riga si stabilisce
nella tabella SISPROV e scrivere il valore corrispondente di PROVV della
cella PROVVIGIONE di ogni CLIENTE che ho selezionato.
Questo č quanto. (aiiiuuuuto)
Spero davvero che possiate aiutarmi perchč č piů di un mese che sono dietro
a questa cosa e non ho risolto nulla.
Buona Giornata a tutti...
Dany


author: Roberto da casa

text:
"dany_" <
as...@sd.it
> ha scritto nel messaggio
news:lxkkd.149056$b5.73...@news3.tin.it...

Se la tabella CLIENTI ha un struttura simile a questa:
ID                      Contatore e chiave primaria
CLIENTE          Testo
DATACRT        Data/ora
NETTO             Valuta
VENDITORE    Testo
Se la tabella SISPROV
IdProv                Contatore e chiave primaria
FATTMIN         Valuta
FATTMAX        Valuta
PROVV             Numerico
Se la maschera con cui imposti i parametri si chiama Mask1 e contiene le
caselle di testo non associate chiamate DATAINIZIO, DATAFINE e VENDITORE.
Quello che ti serve dovresti ottenere con una query che abbia il seguente
codice SQL:
SELECT CLIENTI.*, CDbl(DLookUp("PROVV","SISPROV","FATTMIN <=" &
DSum("NETTO","CLIENTI","CLIENTE =" & Chr$(34) & [CLIENTE] & Chr$(34) & " AND
VENDITORE =" & Chr$(34) & [Forms]![Mask1]![VENDITORE] & Chr$(34) & " AND
DATACRT >=#" & Format([Forms]![Mask1]![DATAINIZIO],"mm/dd/yyyy") & "# AND
DATACRT <=#" & Format([Forms]![Mask1]![DATAFINE],"mm/dd/yyyy") & "#") & "
AND FATTMAX >=" & DSum("NETTO","CLIENTI","CLIENTE =" & Chr$(34) & [CLIENTE]
& Chr$(34) & " AND VENDITORE =" & Chr$(34) & [Forms]![Mask1]![VENDITORE] &
Chr$(34) & " AND DATACRT >=#" &
Format([Forms]![Mask1]![DATAINIZIO],"mm/dd/yyyy") & "# AND DATACRT <=#" &
Format([Forms]![Mask1]![DATAFINE],"mm/dd/yyyy") & "#"))) AS PROVVIGIONE
FROM CLIENTI
WHERE (((CLIENTI.DATACRT) Between [Forms]![Mask1]![DATAINIZIO] And
[Forms]![Mask1]![DATAFINE]) AND
((CLIENTI.VENDITORE)=[Forms]![Mask1]![VENDITORE]));
Questa query visualizza solamente i record che soddisfano i criteri
impostati con i parametri digitati in Mak1.
Stai attento che ho presupposto che i campi CLIENTE e VENDITORE siano di
tipo testo, in caso contrario devi modificare adeguatamente i criteri delle
funzioni DSum.
>
> Buona Giornata a tutti...
>
> Dany
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Sottomaschere

author: Pino

text:
Un saluto a tutti,
Ho una maschera con più d'una sottomaschera alimentate da query e devo fare
dei calcoli prelevando dati da loro, il problema e che quando una
sottomaschera non ha record non riesco a fagli fare i calcoli, mi da errore.
Io vorrei, se è possibile potergli dire se non ci sono record di inserire
uno zero o di non tener conto della sottomaschera.
Mille grazie
Pino


title: Sottomaschere

author: Gaspare

text:
"Pino" <
gv...@dplanet.ch
> ha scritto nel messaggio
news:42b7f60b$0$1145$5402...@news.sunrise.ch...

Ciao Pino,
if  TuoRecordset.RecordCount=0 then
       'Inserisci lo zero
       'non tieni conto della machera
       exit sub o function...vedi tu
end if


title: Sottomaschere

text: Ora ci provo grazie


title: Sottomaschere

text:
[CUT]
De nada hombre ;-)


title: Sottomaschere

author: Sergio MAZZA

text:
"Pino" <
gv...@dplanet.ch
> ha scritto nel messaggio
news:42b7f60b$0$1145$5402...@news.sunrise.ch...

Vedi help alla voce: Funzione Nz...
Ciao.
--
Sergio MAZZA


title: facili esercici ed esempi

author: Stefania

text:
Sono un'insegnante, ho difficoltà ha trovare semplici esercizi per i
ragazzi di 15 o 16 anni, Chi mi può aiutare? Che siano cose interessanti
per loro e semplici da realizzare.
Grazie, Stefania Ronci
roncis...@libero.it
--------------------------------
Inviato via
http://usenet.iol.it


title: facili esercici ed esempi


title: facili esercici ed esempi

text:
"Stefania" <
tassina...@libero.it
> ha scritto nel messaggio
news:151Z25Z107Z165Y...@usenet.iol.it...

Da provare su: www.sitocomune.com...
Saluti.
--
Sergio MAZZA


title: facili esercici ed esempi

text:
"Stefania" <
tassina...@libero.it
> ha scritto nel messaggio
news:151Z25Z107Z165Y...@usenet.iol.it...
> Sono un'insegnante, ho difficoltà ha trovare semplici esercizi per i
> ragazzi di 15 o 16 anni, Chi mi può aiutare? Che siano cose interessanti
> per loro e semplici da realizzare.
> Grazie, Stefania Ronci
>
roncis...@libero.it
Prova con gli esempi che si riescono ad ottenere con l'Autocomposizione
Database...
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: facili esercici ed esempi

text:



Grazie a tutti, ma mi
servono idee avvincenti (se si può) ad esempio: LA LIBRERIA; Tab Autori e
Tab Libri, ogni autore è collegato ai libri relativi, posso fare diverse
ricerche, ogni tipo di report e la maschera con sottomaschera. Oppure LA
PIZZERIA; Tab Pizze e Tab Ingredienti, ecc...
Le autocomposizioni le
abbiamo già viste tutte.
Ciao e grazie Stefania.



title: Problema su NotInList

author: AMR-Giuseppe

text:
Ciao a tutti
Ho una maschera con visualizzazione maschera singola che mi serve per
visualizzare e consultare tutti i record della tabella TblProdotti,
nella maschera ci sono 12 controlli che corrispondono a i campi della
tabella sottostante , in una casella combinata di ricerca record  digito
il codice cercato e mi viene restituito il record completo , ora se
digito un codice inesistente nella combo tramite l'evento non in lista
vorrei poter azzerare tutti i controlli della maschera , passare il
codice digitato al controllo CodiceProdotto e poter inserire tutti
gli altri dettagli del nuovo record  .
Questo mi è stato possibile in altre maschere se a fronte dell'evento non in
elenco
devo aprire un'altra maschera , ma non riesco a farlo se il record da
inserire
è nella stessa maschera .
Quasta la routine per l'evento non in lista che mi funziona se devo aprire
un'altra maschera, ma non riesco ad adattarla se invece di aprire una
maschera devo solo azzerare dei controlli per poter inserire nuovi dati.
Private Sub CasellaCombinata46_NotInList(NewData As String, Response As
Integer)
   Dim IntNuovo As Integer, strTitolo As String
   Dim IntFinestraMsg As Integer, strMsg As String
   strTitolo = "                       codice non in elenco"
   strMsg = "ATTENZIONE il Codice   " & NewData & "   è inesistente vuoi
codificarlo ? "
   IntFinestraMsg = vbYesNo + vbQuestion
  IntNuovo = MsgBox(strMsg, IntFinestraMsg, strTitolo)
If IntNuovo = vbYes Then
DoCmd.RunCommand acCmdUndo
 DoCmd.OpenForm "CodificaArticoli", , , , acFormAdd, acNormal, NewData
Response = acDataErrAdded
Response = acDataErrContinue
Forms![CodificaArticoli]![CodiceProdotto] = NewData
 Forms![CodificaArticoli]![CodiceProdotto].SetFocus
 Else
strTitolo = "                      Informazione   "
strMsg = "   digita un codice esistente nella casella.      "
IntFinestraMsg = vbOKOnly + vbExclamation
IntNuovo = MsgBox(strMsg, IntFinestraMsg, strTitolo)
 Response = acDataErrAdded
Response = acDataErrContinue
Me![CasellaCombinata46].Undo
Me![CasellaCombinata46].Requery
Spero che qualcuno mi dia una mano
Ciao e grazie in anticipo
Giuseppe


title: Problema su NotInList

text:

Perchè apri una seconda maschera che vada a visualizzarti gli stessi dati?
intercettato l'evento vai al nuovo record dello stessa maschera e lavoraci
ciao MAssimiliano
--------------------------------
Inviato via
http://usenet.libero.it


title: Problema su NotInList

text:
"AMR-Giuseppe" <
amrma...@tin.it
> ha scritto nel messaggio
news:jntna.25815$LB6.6...@news1.tin.it...

Se devi inserire un nuovo record nella maschera attiva esegui:
DoCmd.GoToRecord , , acNewRec
La maschera attiva si predisponerà per l'immissione di un nuovo record.
Naturalmente, dopo aver inserito il nuovo record, devi fare il requery della
casella combinata.
Buona Pasqua.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Problema su NotInList

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:k7vna.45312$DT4.1...@twister1.libero.it...

Grazie Roberto
anche a te i migliori auguri di buona Pasqua
Ciao Giuseppe


title: Tabella Calendario

author: Mauro Cioffi

text:
Aiuto :
č possibile creare una tabella che per ogni giorno dell'anno memorizzi delle
info riguradanti la presenza o meno di un dipendente in una azienda?
Credo di si, ma come si fa?
Grazie


title: Tabella Calendario

author: Cellofan

text:
Mauro Cioffi wrote:
> Aiuto :
>
> è possibile creare una tabella che per ogni giorno dell'anno memorizzi
> delle info riguradanti la presenza o meno di un dipendente in una azienda?
>
> Credo di si, ma come si fa?
>
> Grazie
>
>
>
si, ma hai bisogno di una fonte dati!
La fonte potrebbere essere:
a) umana (persona fisica che digiti)
b) rilevatore di presenza a scheda magnetica per la timbratura entrata
uscita
c) un PC usato per archiviare le timbrature
d) AS400


title: Tabella Calendario

text:
Grazie per la risposta.
Visto che sei stato cosi gentile ti spiego meglio il problema :
Devo realizzare un applicativo per una azienda che esegue fisioterapie.
Il problema è questo :
Quando il cliente prenota una cura(durata max 12 gg), l'azienda deve trovare
un intervallo nel calendario.
Come creo una sorta di tabella calendario che man mano viene riempita con le
prenotazioni?
Grazie in anticipo.
Mauro Cioffi
"Cellofan" <
cell...@tin.it
> ha scritto nel messaggio
news:XWBI7.10536$0x4.2...@news2.tin.it...



title: Tabella Calendario

author: francesco

text:
"Mauro Cioffi" <
mci...@interfree.it
> ha scritto nel messaggio
news:3bf3f...@news.dada.it...
> Devo realizzare un applicativo per una azienda che esegue fisioterapie.
> Il problema è questo :
> Quando il cliente prenota una cura(durata max 12 gg), l'azienda deve
trovare
> un intervallo nel calendario.
> Come creo una sorta di tabella calendario che man mano viene riempita con
le
> prenotazioni?
Ma l'azienda non poteva commissionare il lavoro a uno che sapesse
programmare? :-)


title: Tabella Calendario

author: Alex

text:
"francesco" <
f.a...@maple.net
> wrote in message
news:9t1100$em0$1...@fe2.cs.interbusiness.it...

Avendo capito il Problema, credo che Francesco abbia ragione....!
NNNNa parola....!, e magari che in AUTOMATICO ti proponga i Giorni
liberi in funzione della Durata della Cura o della Richiesta del Paziente...?
@Alex.
--
Posted from  [62.98.13.29]
via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: xGiorgio Benedetti

author: daniele

text:
Giorgio scusami se ti rompo le scatole, ma è da ieri che provo e riprovo
senza risultato.
Mi dici che
Set miocampo= GetObject("c:\immagine.bmp")
assegna l'immagine al mio campo, ma non mi è chiaro se devo prima dichiarare
una variabile oggetto.
Per esempio usando DAO come potrebbe essere il caricamento del nuovo record
?
dim dbs as database
dim rst as recordset
dim sql as string
dim pic as object ??
sql = "SELECT * From miatabella"
set dbs = currentdb
set rst = dbs.openrecordset(sql)
set pic = getobject("C:\miaimmagine.bmp")
rst.addnew
rst!miocampo = pic ???
scusa l'analfabetismo ma con il VBA sono solo alle vocali.
Grazie per l'aiuto che potrai darmi.
Ciao - Daniele


title: xGiorgio Benedetti

author: Giorgio PS

text:
8baqrl$enn$1...@fe1.cs.interbusiness.it...

Il listato è ok. Ho provato a eseguirlo e, in effetti, viene segnalato un
errore in fase di esecuzione della funzione GetObject.
Devo documentarmi e poi ti faccio sapere.
--
********************************************
Giorgio B. - P.S. elettronica srl - Udine
email:
giorgio....@ps-elettronica.it
daniele <
lin...@netbusiness.it
> wrote in message


title: collegamento a file sul web

author: domarr

text:
Ciao a tutti.
Ho un database sul web contenete dati.
Se volessi solamente fare una ricerca su quel database in base ai dati che
ho in un altro database sul mio desktop, come faccio?
Cioè c'è il modo di creare una tabella/maschera che si colleghi in rete con
una determinata del database in rete?
Grazie
Michele


title: collegamento a file sul web

text:
"domarr" <
dom...@iol.it
> ha scritto nel messaggio
news:SLAAe.11514$tX6.2...@twister1.libero.it...
> Ciao a tutti.
>
> Ho un database sul web contenete dati.
Cioč, hai un file mdb su una cartella messa a disposizione da un Internet
Service Provider?
> Se volessi solamente fare una ricerca su quel database in base ai dati che
> ho in un altro database sul mio desktop, come faccio?
> Cioč c'č il modo di creare una tabella/maschera che si colleghi in rete
con
> una determinata del database in rete?
Prova a collegarti via ODBC, ma sarebbe troppo bello per essere vero.
Credo che per effettuare il collegamento via ODBC tu debba avere accesso al
file mdb attraverso una directory condivisa messa
a disposizione dal tuo provider. Umh ... Col cavolo che ce l'hai!
Non conosco mezzi per effettuare il collegamento tra tabelle di access su
http (e credo non ce ne siano, almeno con Acess 2000).
--
Simplex2
www.mdenittis.it


title: [OT] Scusate Delirio Tremens

author: Raffaele Alberoni

text:
Scusate tutti il doppio Post, ma devo avere il Delirio Tremens...
mi vengono spediti i doppi messaggi....
Ciao.
--
Raffaele Alberoni
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: .rtf => .hlp

author: Giorgio Barbetta

text:
Ciao al NG,
ho bisogno di capire rapidamente come creare da un file .rtf (o chi per
esso) un file di guida .hlp! Se avete affrontato la questione, a me
servirebbe semplicemente avere un file .rtf di esempio per poi capire
(spero) il resto.
Grazie 1000
Giorgio


title: rinominare campi di una tabella con dati di un'altra

text:
Rieccomi con un nuovo problema. Tabella pippo che contiene dei campi da
rinominare con le stringhe dei record della tabella paperino. Le istruzioni
che seguono sono mancanti ovviamente di un ciclo for....next per rinominarli
tutti. Attualmente l'errore mi è dato sul risultato della variabile
camposorgente (errore: impossibile trovare il metodo o il membro dei dati).
Dove commetto bestialità?
grazie
Francesco
___________________________________________________________________
Codice:
Private Sub tasto_esecuzione_Click()
Dim MioDb As database, MiaTab As TableDef, Miatab2 As TableDef
Dim campodarinom As String, camposorgente As String
    Set MioDb = OpenDatabase("miodb.mdb")
    Set MiaTab = MioDb.TableDefs("pippo")
    Set Miatab2 = MioDb.TableDefs("paperino")
    DoCmd.GoToRecord , , acFirst
    camposorgente = me.campo1
    MiaTab.Fields [campodarinom].Name = [camposorgente]
    MioDb.Close
DoCmd.Close
End Sub


author: Giuseppe

text:
"francesco" <
franc...@tiscalinet.it
> ha scritto nel messaggio
news:b11b4n$k7t$1...@lacerta.tiscalinet.it...

> camposorgente = me.campo1.value


text:
Niente da fare.....come se il campo passato come parametro non fosse
riconosciuto. L'errore rimane lo stesso cioè: impossibile trovare il metodo
o il membro dei dati
ciao
Francesco
"Giuseppe" <
sunrexs...@hotmail.com
> ha scritto nel messaggio
news:rIWY9.117020$AA2.4...@news2.tin.it...



author: Antonio Biso

text:
"francesco" <
franc...@tiscalinet.it
> ha scritto nel messaggio
news:b11gkq$mum$1...@lacerta.tiscalinet.it...
> Niente da fare.....
Se continui a non scrivere correttamente DOPO il quoting, certo!
Antonio


text:
"Antonio Biso" <
ch...@etruria.net
> wrote in message news:<xA6Z9.51597$
ZE.14...@twister2.libero.it
>...

Ciao, io mi scuso con te e con gli altri ma a volte presi dal lavoro
si commettono errori. Me ne scuso ancora
Ti volevo ancora chiedere un aiuto se č possibile sullo stesso
argomento perché ci sto impazzendo. Continuo a non riuscire a
rinominare la colonna del db. Mi dai ancora una mano?
grazie infinite
Francesco


text:
"francesco" <
franc...@tiscalinet.it
> ha scritto nel messaggio
news:53daef02.03012...@posting.google.com...
> "Antonio Biso" <
ch...@etruria.net
> wrote in message
news:<xA6Z9.51597$
ZE.14...@twister2.libero.it
>...
> > "francesco" <
franc...@tiscalinet.it
> ha scritto nel messaggio
> > news:b11gkq$mum$1...@lacerta.tiscalinet.it...
> > > Niente da fare.....
> >
> > Se continui a non scrivere correttamente DOPO il quoting, certo!
> >
> > Antonio
>
> Ciao, io mi scuso con te e con gli altri ma a volte presi dal lavoro
> si commettono errori. Me ne scuso ancora
> Ti volevo ancora chiedere un aiuto se è possibile sullo stesso
> argomento perché ci sto impazzendo. Continuo a non riuscire a
> rinominare la colonna del db. Mi dai ancora una mano?
Prova a ripostare il tuo problema, sempre in questo thread
Antonio


text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:aGrZ9.54672$YG2.1...@twister1.libero.it...
> "francesco" <
franc...@tiscalinet.it
> ha scritto nel messaggio
> news:53daef02.03012...@posting.google.com...
> > "Antonio Biso" <
ch...@etruria.net
> wrote in message
> news:<xA6Z9.51597$
ZE.14...@twister2.libero.it
>...
> > > "francesco" <
franc...@tiscalinet.it
> ha scritto nel messaggio
> > > news:b11gkq$mum$1...@lacerta.tiscalinet.it...
> > > > Niente da fare.....
> > >
> > > Se continui a non scrivere correttamente DOPO il quoting, certo!
> > >
> > > Antonio
> >
> > Ciao, io mi scuso con te e con gli altri ma a volte presi dal lavoro
> > si commettono errori. Me ne scuso ancora
> > Ti volevo ancora chiedere un aiuto se č possibile sullo stesso
> > argomento perché ci sto impazzendo. Continuo a non riuscire a
> > rinominare la colonna del db. Mi dai ancora una mano?
>
> Prova a ripostare il tuo problema, sempre in questo thread
>
> Antonio
>
>
Ecco qui; la tabella pippo che contiene dei campi da rinominare con le
stringhe dei record della tabella paperino. Le istruzioni
che seguono sono mancanti ovviamente di un ciclo for....next per rinominarli
tutti. Attualmente l'errore mi č dato sul risultato della variabile
camposorgente (errore: impossibile trovare il metodo o il membro dei dati).
I messaggi d'errore sono: o tabella aperta da altro utente e quindi non
modificabile oppure il membro dei dati che non va bene.
grazie ancora



text:
"francesco" <
fran...@tin.it
> ha scritto nel messaggio
news:_PrZ9.55298$ZE.15...@twister2.libero.it...
>
> Ecco qui; la tabella pippo che contiene dei campi da rinominare con le
> stringhe dei record della tabella paperino. Le istruzioni
> che seguono sono mancanti ovviamente di un ciclo for....next per
rinominarli
> tutti. Attualmente l'errore mi č dato sul risultato della variabile
> camposorgente (errore: impossibile trovare il metodo o il membro dei
dati).
> I messaggi d'errore sono: o tabella aperta da altro utente e quindi non
> modificabile oppure il membro dei dati che non va bene.
> Private Sub tasto_esecuzione_Click()
>
> Dim MioDb As database, MiaTab As TableDef, Miatab2 As TableDef
> Dim campodarinom As String, camposorgente As String
>
>     Set MioDb = OpenDatabase("miodb.mdb")
>     Set MiaTab = MioDb.TableDefs("pippo")
>     Set Miatab2 = MioDb.TableDefs("paperino")
Questa a che ti serve?!?
I valori non li prendi dalla maschera?
>     DoCmd.GoToRecord , , acFirst
>
>     camposorgente = me.campo1
>
>     MiaTab.Fields [campodarinom].Name = [camposorgente]
Ma scusa eh?
perchč metti le parentesi quadre intorno alla VARIABILE camposorgente?!?!?
scrivi cosě
MiaTab.Fields [campodarinom].Name = camposorgente
o meglio ancora
MiaTab.Fields [campodarinom].Name = me.campo1
Antonio


text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:ZuvZ9.55472$YG2.1...@twister1.libero.it...
> "francesco" <
fran...@tin.it
> ha scritto nel messaggio
> news:_PrZ9.55298$ZE.15...@twister2.libero.it...
> >
>
> > Ecco qui; la tabella pippo che contiene dei campi da rinominare con le
> > stringhe dei record della tabella paperino. Le istruzioni
> > che seguono sono mancanti ovviamente di un ciclo for....next per
> rinominarli
> > tutti. Attualmente l'errore mi è dato sul risultato della variabile
> > camposorgente (errore: impossibile trovare il metodo o il membro dei
> dati).
> > I messaggi d'errore sono: o tabella aperta da altro utente e quindi non
> > modificabile oppure il membro dei dati che non va bene.
>
> > Private Sub tasto_esecuzione_Click()
> >
> > Dim MioDb As database, MiaTab As TableDef, Miatab2 As TableDef
> > Dim campodarinom As String, camposorgente As String
> >
> >     Set MioDb = OpenDatabase("miodb.mdb")
> >     Set MiaTab = MioDb.TableDefs("pippo")
>
> >     Set Miatab2 = MioDb.TableDefs("paperino")
>
> Questa a che ti serve?!?
> I valori non li prendi dalla maschera?
>
> >     DoCmd.GoToRecord , , acFirst
> >
> >     camposorgente = me.campo1
> >
> >     MiaTab.Fields [campodarinom].Name = [camposorgente]
>
> Ma scusa eh?
> perchè metti le parentesi quadre intorno alla VARIABILE camposorgente?!?!?
> scrivi così
> MiaTab.Fields [campodarinom].Name = camposorgente
> o meglio ancora
> MiaTab.Fields [campodarinom].Name = me.campo1
>
> Antonio
>
Ciao io ho riprovato nuovamente come tu mi hai detto ma senza successo. Ti
riposto il codice:
Private Sub tasto_esecuzione_Click()
Dim MioDb As database, MiaTab As TableDef
Set MioDb = OpenDatabase("tav.mdb")
Set MiaTab = MioDb.TableDefs("comp")
   campodarinom = "Campo4"
   MiaTab.Fields campodarinom.Name = Me.CLASSE41
End Sub
 L'errore adesso è su Property, cioè "utilizzo non valido di property" e mi
evidenzia CLASSE41 che è il valore che deve assumere la variabile
campodarinom e cioè Campo4 nel rename.
grazie
Francesco


text:
"francesco" <
franc...@tiscalinet.it
> ha scritto nel messaggio
news:b16e40$2h9$1...@lacerta.tiscalinet.it...
>
> Ciao io ho riprovato nuovamente come tu mi hai detto ma senza successo. Ti
> riposto il codice:
>
> Private Sub tasto_esecuzione_Click()
>
> Dim MioDb As database, MiaTab As TableDef
> Set MioDb = OpenDatabase("tav.mdb")
> Set MiaTab = MioDb.TableDefs("comp")
>
>    campodarinom = "Campo4"
>
>    MiaTab.Fields campodarinom.Name = Me.CLASSE41
Questa me la scrivi cosě?:
miatab.fields(campodarinom).name = me.classe41
Grazie
Antonio


text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:KRzZ9.57026$ZE.15...@twister2.libero.it...

>  Ok!!!!!!!!!!!!!!!!!!!!
tutto a posto
mille grazie e alla prossima
F


title: Creare maschera tabulare "calendario mensile"

author: Dino

text:
Ciao a tutti avrei necessita' di realizzare un form tabulare dove in
automatico abbia tutti i giorni del mese corrente.
Esempio :Apro il form oggi mi si deve posizionare sul giorno 20/01/11
ma ovviamente posso andare a ritroso nel tempo.Ovviamente se decido di
inserire un dato in marzo 2011 mi si dovrebbe aprire il fm con le date
del mese selezionato.Di riscontro ovviamente anche un report da poter
stampare
Grazie in anticipo
Dino


author: MA

text:
?"Dino"  ha scritto nel messaggio
news:ce147b23-7d60-4902...@t35g2000yqj.googlegroups.com...

Grazie in anticipo
Dino
___
Cioč scusa, vuoi che te lo facciamo noi o che ti aiutiamo???
MA


text:
On 20 Gen, 09:59, "MA" <
mas...@massimilianoamendola.it
> wrote:
> ?"Dino"  ha scritto nel messaggionews:ce147b23-7d60-4902...@t35g2000yqj.googlegroups.com...
>
> Ciao a tutti avrei necessita' di realizzare un form tabulare dove in
> automatico abbia tutti i giorni del mese corrente.
> Esempio :Apro il form oggi mi si deve posizionare sul giorno 20/01/11
> ma ovviamente posso andare a ritroso nel tempo.Ovviamente se decido di
> inserire un dato in marzo 2011 mi si dovrebbe aprire il fm con le date
> del mese selezionato.Di riscontro ovviamente anche un report da poter
> stampare
>
> Grazie in anticipo
>
> Dino
> ___
> Cioè scusa, vuoi che te lo facciamo noi o che ti aiutiamo???
> MA
EIhhh MA come si dice ...."ma per chi mi hai preso!!!!" no ho solo
bisogno di una vostra dritta o "drittona" ci mancherebbe altro  di
farmelo fare
Grazie
Dino


text:
?"Dino"  ha scritto nel messaggio
news:5e1ba029-5c68-4600...@f20g2000vbc.googlegroups.com...
On 20 Gen, 09:59, "MA" <
mas...@massimilianoamendola.it
> wrote:
> ?"Dino"  ha scritto nel
> messaggionews:ce147b23-7d60-4902...@t35g2000yqj.googlegroups.com...
>
> Ciao a tutti avrei necessita' di realizzare un form tabulare dove in
> automatico abbia tutti i giorni del mese corrente.
> Esempio :Apro il form oggi mi si deve posizionare sul giorno 20/01/11
> ma ovviamente posso andare a ritroso nel tempo.Ovviamente se decido di
> inserire un dato in marzo 2011 mi si dovrebbe aprire il fm con le date
> del mese selezionato.Di riscontro ovviamente anche un report da poter
> stampare
>
> Grazie in anticipo
>
> Dino
> ___
> Cioč scusa, vuoi che te lo facciamo noi o che ti aiutiamo???
> MA
EIhhh MA come si dice ...."ma per chi mi hai preso!!!!" no ho solo
bisogno di una vostra dritta o "drittona" ci mancherebbe altro  di
farmelo fare
Grazie
Dino
___
Allora,
1. Spiega bene che non si capisce una Mazza
2. Dicci l'esigenza non come lo faresti tu
3. Poponi diversamente il problema e cioč:
ragazzi dovrei realizzare questo,
io vorrei fare questo, ma non ci riesco
qual č il problema?
NON devo avere questo che faccia questo e questo e quello... embč??
MA


author: Lolince

text:
On 20 Gen, 12:05, "MA" <
mas...@massimilianoamendola.it
> wrote:
> ?"Dino"  ha scritto nel messaggionews:5e1ba029-5c68-4600...@f20g2000vbc.googlegroups.com...
>
> On 20 Gen, 09:59, "MA" <
mas...@massimilianoamendola.it
> wrote:
>
>
>
> > ?"Dino"  ha scritto nel
> > messaggionews:ce147b23-7d60-4902...@t35g2000yqj.googlegroups.com...
>
> > Ciao a tutti avrei necessita' di realizzare un form tabulare dove in
> > automatico abbia tutti i giorni del mese corrente.
> > Esempio :Apro il form oggi mi si deve posizionare sul giorno 20/01/11
> > ma ovviamente posso andare a ritroso nel tempo.Ovviamente se decido di
> > inserire un dato in marzo 2011 mi si dovrebbe aprire il fm con le date
> > del mese selezionato.Di riscontro ovviamente anche un report da poter
> > stampare
>
> > Grazie in anticipo
>
> > Dino
> > ___
> > Cio scusa, vuoi che te lo facciamo noi o che ti aiutiamo???
> > MA
>
> EIhhh MA come si dice ...."ma per chi mi hai preso!!!!" no ho solo
> bisogno di una vostra dritta o "drittona" ci mancherebbe altro  di
> farmelo fare
>
> Grazie
>
> Dino
> ___
> Allora,
> 1. Spiega bene che non si capisce una Mazza
> 2. Dicci l'esigenza non come lo faresti tu
> 3. Poponi diversamente il problema e cio :
> ragazzi dovrei realizzare questo,
> io vorrei fare questo, ma non ci riesco
> qual il problema?
>
> NON devo avere questo che faccia questo e questo e quello... emb ??
> MA
Non ho capito manco io , cmq se ti puo servire io farei na cosa di sto
genere , mi creo una tabella
nometabella =tabelladata
 campo= data
poi in apertura o su un pulsante:
 Dim DataInizio As Date
    Dim DataFine As Date
    CurrentDb.Execute "DELETE * FROM tabellaData;"
    Dim rs As DAO.Recordset
    Set rs = CurrentDb.OpenRecordset("tabellaData", dbOpenTable)
    DataInizio = CDate(Me.datadal) 'campo nascosto con la prima data
del mese
    DataFine = CDate(Me.dataal) ' campo nascosto con l'ultima data
    Do Until DataInizio > DataFine
  Me.Etichetta5.Caption = "Fine Elaborazione"
        rs.AddNew
        rs!Data = DataInizio
        rs.Update
        DataInizio = DateAdd("d", 1, DataInizio)
Loop
spero ti serva.
Questa fu una discussione fra me e alex per incrementare una tabella ,
con un between di date
ciao


author: sv

text:
Dino ha scritto:

> Grazie in anticipo
> Dino
Esiste il controllo calendario. Per caso è questo che ti serve?
--
sv
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


text:

Ciao a tutti e grazie per le risposte.Allora non e' il controllo
"calendario" che mi serve perche' lo utilizzo gia.
Cerchero' di essere piu' chiaro.In u DB devo ogni mese riportare (o
meglio il mio cliente) giorno per giorno le ore di straordinarie fatte
da i suoi operai.
Quindi immaginiamo di prendere esempio sett. prox.
giorno e data       ore straord          nome operaio
Lun 24 Gennaio        3                  sig Rossi
Mart 25 Gwnnaio       4                 Sig Verdi
E cosi' via.La cosa piu importante e' di avere mese per mese i giorni
della settimana gia elencati.
Io ho parlato di Form tabulare perche' mi sembra la piu' idonea per
l'ins. Potrenne andare bene anche a colonne.L'importante e' poi
generare un report mensile di tutti gli inserimenti.
Forse l'esempio di Lolince va bene,adesso devo uscire appena rientro
lo provo.Nel frattempo fatemi sapere se sono stato abbastanza chiaro
Grazie ancora
Dino


text:
On 20 Gen, 15:26, Dino <
verrengia.d...@alice.it
> wrote:
> On 20 Gen, 13:09,
salv...@accessgroup.it
 (sv) wrote:
>
>
>
> > Dino ha scritto:
>
> > > Ciao a tutti avrei necessita' di realizzare un form tabulare dove in
> > > automatico abbia tutti i giorni del mese corrente.
> > > Esempio :Apro il form oggi mi si deve posizionare sul giorno 20/01/11
> > > ma ovviamente posso andare a ritroso nel tempo.Ovviamente se decido di
> > > inserire un dato in marzo 2011 mi si dovrebbe aprire il fm con le date
> > > del mese selezionato.Di riscontro ovviamente anche un report da poter
> > > stampare
> > > Grazie in anticipo
> > > Dino
>
> > Esiste il controllo calendario. Per caso è questo che ti serve?
>
> > --
> > sv
>
> > --
>
> > questo articolo e` stato inviato via web dal servizio gratuitohttp://
www.newsland.it/newssegnalagli
 abusi ad
ab...@newsland.it
>
> Ciao a tutti e grazie per le risposte.Allora non e' il controllo
> "calendario" che mi serve perche' lo utilizzo gia.
>
> Cerchero' di essere piu' chiaro.In u DB devo ogni mese riportare (o
> meglio il mio cliente) giorno per giorno le ore di straordinarie fatte
> da i suoi operai.
>
> Quindi immaginiamo di prendere esempio sett. prox.
>
> giorno e data       ore straord          nome operaio
>
> Lun 24 Gennaio        3                  sig Rossi
>
> Mart 25 Gwnnaio       4                 Sig Verdi
>
> E cosi' via.La cosa piu importante e' di avere mese per mese i giorni
> della settimana gia elencati.
>
> Io ho parlato di Form tabulare perche' mi sembra la piu' idonea per
> l'ins. Potrenne andare bene anche a colonne.L'importante e' poi
> generare un report mensile di tutti gli inserimenti.
>
> Forse l'esempio di Lolince va bene,adesso devo uscire appena rientro
> lo provo.Nel frattempo fatemi sapere se sono stato abbastanza chiaro
>
> Grazie ancora
>
> Dino
L'esempio riportato e solo un inserimento di date crescente dal
periodo al periodo richiesto , e le trovi nella tabelladata,
analizzandolo cosi al volo tu sicuramente avrai duplicati di dati (piu
record perche per la stessa data potresti avere piu operai con
straordinari) , quindi non devi solo inserire le date , ma anche gli
operai , oppure crearti un'altra tabella (ad esempio Tab_straordinati)
da gestire ,e poi con una sottomaschera che in base alla data
selezioata inserisce operai data, e straordinari.ect ect..
Ciao
Ciao


text:
On 20 Gen, 16:30, Lolince <
loli...@hotmail.com
> wrote:
> On 20 Gen, 15:26, Dino <
verrengia.d...@alice.it
> wrote:
>
>
>
>
>
> > On 20 Gen, 13:09,
salv...@accessgroup.it
 (sv) wrote:
>
> > > Dino ha scritto:
>
> > > > Ciao a tutti avrei necessita' di realizzare un form tabulare dove in
> > > > automatico abbia tutti i giorni del mese corrente.
> > > > Esempio :Apro il form oggi mi si deve posizionare sul giorno 20/01/11
> > > > ma ovviamente posso andare a ritroso nel tempo.Ovviamente se decido di
> > > > inserire un dato in marzo 2011 mi si dovrebbe aprire il fm con le date
> > > > del mese selezionato.Di riscontro ovviamente anche un report da poter
> > > > stampare
> > > > Grazie in anticipo
> > > > Dino
>
> > > Esiste il controllo calendario. Per caso è questo che ti serve?
>
> > > --
> > > sv
>
> > > --
>
> > > questo articolo e` stato inviato via web dal servizio gratuitohttp://
www.newsland.it/newssegnalagliabusi
 ad
ab...@newsland.it

> Ciao- Nascondi testo citato
>
> - Mostra testo citato -
Ciao e grazie per la risp.Sono rientrato or ora.Provo  il tuo
esempio.Io ho fatto prima l'esempio piu'
completo.in
 realta' il mio
clientev potrebbe andare bene anche la sola stampa del mese i dati li
compilerebbe a mano in cantiere.
Dino


text:
On 20 Gen, 16:51, Dino <
verrengia.d...@alice.it
> wrote:
> On 20 Gen, 16:30, Lolince <
loli...@hotmail.com
> wrote:
>
>
>
>
>
> > On 20 Gen, 15:26, Dino <
verrengia.d...@alice.it
> wrote:
>
> > > On 20 Gen, 13:09,
salv...@accessgroup.it
 (sv) wrote:
>
> > > > Dino ha scritto:
>
> > > > > Ciao a tutti avrei necessita' di realizzare un form tabulare dove in
> > > > > automatico abbia tutti i giorni del mese corrente.
> > > > > Esempio :Apro il form oggi mi si deve posizionare sul giorno 20/01/11
> > > > > ma ovviamente posso andare a ritroso nel tempo.Ovviamente se decido di
> > > > > inserire un dato in marzo 2011 mi si dovrebbe aprire il fm con le date
> > > > > del mese selezionato.Di riscontro ovviamente anche un report da poter
> > > > > stampare
> > > > > Grazie in anticipo
> > > > > Dino
>
> > > > Esiste il controllo calendario. Per caso è questo che ti serve?
>
> > > > --
> > > > sv
>
> > > > --
>
> > > > questo articolo e` stato inviato via web dal servizio gratuitohttp://
www.newsland.it/newssegnalagliabusiad

ab...@newsland.it

> Dino- Nascondi testo citato
>
> - Mostra testo citato -
Ciao Lolince ho provato ma non "funge".Allora io ho creato la Tabella
che mi hai detto,ho creato i campi :
data
Datadal
Dataal
Li ho inseriti nel form e sull'evento "open" del medesimo ho inserito
il codice ma non mi da nulla.
Dove ho sbagliato????
NB:Stavo pensando comunque che il cliente per ogni mese potrebbe
inserire la data di nizio e fine mese e poi con ul controllo creare il
report con tutte le date.Questo
sarebbe l'ideale(e' questo poi che dovrebbe fare la tab)
Dino


text:
> Ciao Lolince ho provato ma non "funge".Allora io ho creato la Tabella
> che mi hai detto,ho creato i campi :
>
> data
> Datadal
> Dataal
>
> Li ho inseriti nel form e sull'evento "open" del medesimo ho inserito
> il codice ma non mi da nulla.
> Dove ho sbagliato????
>
> NB:Stavo pensando comunque che il cliente per ogni mese potrebbe
> inserire la data di nizio e fine mese e poi con ul controllo creare il
> report con tutte le date.Questo
> sarebbe l'ideale(e' questo poi che dovrebbe fare la tab)
>
Controlla il riferimenti , verifica se hai la spunta su dao 3.6
apri un modulo poi strumenti/riferimenti , e se non trovi Microsoft
DAO 3.6.... lo cerchi e lo spunti e poi lo porti nelle primissime
posizioni.
Ps non serve che in tabella inserisci il campo dal al .
Ciao Lolince


text:

> Ciao Lolince- Nascondi testo citato
>
> - Mostra testo citato -
Ciao e grazie per la risp.Irif. Dao 3.6 ci sono e sono in quinta pos.
Probabilmente non capisco io come impostare il codice.ti elenco i miei
dubbi:
nella tab devo solo creare il campo "data" e basta?
Poi nel form incece creo due caselle di testo?? datadal e dataal ed
inserisco risp la data di inizio e di fine e poi li nascondo???
Ecco questi sono i dubbi.
Grazie mille Dino


text:

Allora Ricapitoliamo:
Il mio esempio porta una tabella chiamata TabellaData, con un solo
campo all'interno che chiamiamo data (tipo dati data/ora) magari anche
chiave primaria cosi se ripeti l'operazione non duplica
Secondo passaggio era crearmi una maschera con due campi : datadal e
dataal , successivamente in un pulsante (o dove si vuole ) inserire il
codice :
On Error Resume Next:
    Dim DataInizio As Date
    Dim DataFine As Date
  '  CurrentDb.Execute "DELETE * FROM tabellaData;"
    Dim rs As DAO.Recordset
    Set rs = CurrentDb.OpenRecordset("tabellaData", dbOpenTable)
    DataInizio = CDate(Me.datadal)
    DataFine = CDate(Me.dataal)
    Do Until DataInizio > DataFine
        rs.AddNew
        rs!data = DataInizio
        rs.Update
        DataInizio = DateAdd("d", 1, DataInizio)
Loop
questo e tutto
Ciao


text:

> Ciao- Nascondi testo citato
>
> - Mostra testo citato -
Ok Lolince... funziona tutto alla grande ed era proprio quello che
volevo.Il non funzionamento era dovuto proprio hai miei dubbi.
Se io pero' volessi in automatico una volta lanciato il form in esame
far scrivere(in base al mese corrente) la data di inizio e la data di
fine come posso fare???? (tu giustamente dirai "Almeno questo fattelo
tu")
Grazie ancora per la disponibilita' data
Dino


text:

Be almeno questo giustramente puo farlo tu ehehhe ;)
cmq puo inserire tutto l'anno 01/01/2011 al 31/12/2011 e poi filtri il
mese (month) in apertura maschera ...ciao


text:

> mese (month) in apertura maschera ...ciao- Nascondi testo citato
>
> - Mostra testo citato -
OK LO.....(mi sento di poter abbreviare il tuo nome)Sì in realta' non
lo posso ma "lo devo" fare io!!!!!
Grazie ancora e.......alla prossima
Dino


text:

Creati un campo chiamalo "giorno" e nelle proprieta li inserisci
=NOW()
poi in apertura maschera fai :
me.datadal=DateSerial(Year(giorno), Month(giorno), 1)
me.madatal=DateSerial(Year(giorno), Month(giorno) + 1, 1) - 1
Ciao Di (mi sento di poterti abbreviare il nome anche io heehheheheh)


title: Problema con rotella mouse che scorre record

author: Simo

text:
Ho un problema stupidissimo, ma che vorrei provare a risolvere:
in un programma che ho fatto, nel quale regolo opportunamente con dei
pulsanti l'eventuale inserimento di un nuovo record, ho notato che con un
mouse che ha la rotellina tra i 2 pulsanti è possibile scorrere i record e
andare perciò anche ad uno nuovo. Si può evitare? Grazie anticipatamente a
tutti, Simone