text:
> > Dalla modalità Codice---Strumenti --->Riferimenti---Cerca e Flagga
> > "Microsoft DAO 3.6"
> > se non usi ADO (Microsoft Activex Data Object 2.8) deselezionalo.
> >
> Il problema è che secondo me non ho ben recepito il primo tuo post :
>
>     Me.RecordsetClone.Bookmark = Me.Parent.Bookmark
>     Me.RecordsetClone.MoveNext
>     Me.recordsucc.Enabled = Not Me.RecordsetClone.EOF
>     Me.RecordsetClone.Bookmark = Me.Parent.Bookmark
>     DoCmd.GoToRecord , , acNext
>
> questo nel commandbutton successivo
>
> e questo nel  command button precendete :
>
>     Me.RecordsetClone.Bookmark = Me.Parent.Bookmark
>     Me.RecordsetClone.MovePrevious
>     Me.recordsucc.Enabled = Not Me.RecordsetClone.BOF
>     Me.RecordsetClone.Bookmark = Me.Parent.Bookmark
>
>     DoCmd.GoToRecord , , acPrevious
>
>
> Avevo fatto anche questa prova per intercettare l'utimo record, ma su
> corrente la condizione è vera e non va bene
>
> If Me.CurrentRecord = Me.RecordsetClone.RecordCount Then
>    MsgBox ("sono l'ultimo")
> End If
>
> Cosa non ho capito ??
> Grazie.
Innanzitutto devi decidere di centralizzare la gestione dei Pulsanti di
Navigazione.
Il controllo di posizione dovrebbe essere gestito su Evento Current.
Nell'Evento chiami una Function che analizza la posizione e ne condiziona
i CommandButton
Ovviamente dato che muovendo il RecordsetClone in EOF ed in BOF devi
inseriere
la gestione Errori On Error Resume next altrimenti si pianta...!
Io ad esempio la gestisco in questo modo:
Private Sub Form_Current()
    EnableDisableButtons
End Sub
Public Sub EnableDisableButtons()
   ' Check and see which Buttons should be enabled/disabled
   ' based on the current row of the recordset.
   Dim RecNum As Long
   On Error Resume Next
   ' Update our Nav info
   Me.txtPos.value = Me.CurrentRecord
   ' If lblNumRecords is blank then this is the
   ' first time through and the recordset pointers
   ' may not be updated yet. We need to allow time
   ' for them to get updated.
   If Me.lblNumRecords.Caption = "" Then
       Me.RecordsetClone.MoveLast
       DoEvents
   End If
   RecNum = Me.RecordsetClone.RecordCount
   Me.lblNumRecords.Caption = " di " & RecNum & strFilter
   ' Are we on a NEW record
   If Me.NewRecord = True Then
       ' Update our nav info.
       'Me.txtPos.Value = "New Record"
       Me.txtPos.value = Me.Parent.RecordsetClone.RecordCount + 1
       Me.lblNumRecords.Caption = " di " &
Me.Parent.RecordsetClone.RecordCount + 1 & strFilter
       Me.txtHidden.SetFocus
       Me.cmdNext.Enabled = False
       Me.cmdPrevious.Enabled = True
       Me.cmdNew.Enabled = False
       Exit Sub
   End If
   'If we reach here, we know we are not in a new record
   'so we can enable the <New> button
   'But we need to check if there are no records. If so,
   'we disable all buttons except for the <New> button.
   Me.cmdPrevious.Enabled = True
   Me.cmdNext.Enabled = True
   If MeRecordsetClone.RecordCount = 0 Then
       'Me.cmdFirst.Enabled = False
       Me.cmdNext.Enabled = False
       Me.cmdPrevious.Enabled = False
       Me.cmdLast.Enabled = False
   Else
       'Synchronise the current pointer in the two recordsets
       Me.RecordsetClone.Bookmark = Me.Bookmark
       'If there are records, see if we are on the first record
       'If so, we should disable the <First> and <Prev> buttons
       With Me.RecordsetClone
           .MovePrevious
           If .BOF Then
               Me.txtHidden.SetFocus
               Me.cmdPrevious.Enabled = Not (.BOF)
               Exit Sub
           End If
           .Bookmark = Me.Bookmark
           .MoveNext
           If .EOF Then
               Me.txtHidden.SetFocus
               Me.cmdNext.Enabled = Not (.EOF)
               Exit Sub
           End If
          .Bookmark = Me.Bookmark
       End With
   End If
End Sub
Porta pazienza per eventuali erorri ma ho stralciato solo quello che
potrebbe
esserti utile da una Routine molto elaborata.
Io ho inserito una TextBox chiamata txtHidden per eliminare il problema del
Focus
l'ho impostata con dimensioni 0,0 per non vederla ma per poterla usare.
Se guardi il Codice c'è anche la gestione della TextBox "txtPos" per
indicare
il Record Corrente e l'Etichetta "lblNumRecords" per il Numero di Records.
Tieni presente anche la possibilità di Muoverti su un NEW record.
Quì è gestita anche quella.... errori di CUT/COPY a parte....!



title: enabled su controllo se il record corrente è l'ultimo

author: Sandro

text:
[cut]

ALEX!
Ah, però bella domanda che ho fatto. ok.
Io ho inserito una TextBox chiamata txtHidden per eliminare il problema del
> Focus
> l'ho impostata con dimensioni 0,0 per non vederla ma per poterla usare.
****ok
 > Se guardi il Codice c'è anche la gestione della TextBox "txtPos" per
> indicare
> il Record Corrente e l'Etichetta "lblNumRecords" per il Numero di Records.
****ok
Ho messo la public sub in un modulo standard :
Ho questo problema:
Me.txtPos.Value = Me.CurrentRecord utilizzo non valido della parola chiave
me
e questo me lo segnala in rosso
Me.lblNumRecords.Caption = " di " & Me.Parent.RecordsetClone.RecordCount 1 &
strFilter
Ci dai ancora un occhio ?


text:
Graham's daughter. It is odd that Rosenbaum would choose to
write on such a controversial subject with someone who seems to
be such a friend to the Post. Related to that, in his 1991
reflections on the 1976 article, and in the article itself, he
tries to insinuate that these people - Bradlee, the Truitts, the
Angletons - are actually friends of Kennedy. In addition,
Rosenbaum and others never seemed to ask why those involved all
seemed so eager to violate Mary's privacy by reading the diary.
In no version I have read was that ever part of Mary's
instructions. And Angleton, the man who the Truitts seem to side
with against Bradlee, supposedly went through them like an
archivist.
The Truitts' trust for and seeming loyalty to the Angletons is
particularly interesting. In Rosenbaum's 1976 piece, the
following passage appears:
  The Truitts were still in Tokyo when they received word of
  the towpath murder, and the responsibility for the diary was
  communicated to their mutual friend James Angleton through
  still uncertain channels.
With the quiet skill of a cardsharp, Rosenbaum avoids an
important detail. Namely, how the Truitts found out about Mary's
death in the middle of the night halfway around the world.
Someone must have either called or wired them. Why is this matter
never addressed in any version?


text:
instance, when the former report was analyzing the published
details of a Drew Pearson-Jack Anderson 1967 leak about the
Castro plots, it labeled the Pearson-Anderson insinuation about
Robert Kennedy's "approval" of the plots as "Not true." It later
goes on to say that the role played by Robert Kennedy in
Pearson's story is "a garbled account." What had happened was
that through the FBI's discovery of a wiretapping favor done for
Maheu's contact in the plots (Chicago mobster Sam Giancana)
Hoover had learned of the CIA-Mob link and forwarded his
knowledge to Robert Kennedy. Kennedy turned it over to Courtney
Evans, his FBI liaison, and asked him to get back with all the
known details. He was finally briefed on it in May of 1962. There
can be no doubt about his reaction. As one of Bobby's CIA
briefers stated: "If you have seen Mr. Kennedy's eyes get steely
and his jaw set and his voice get low and precise, you get a
definite feeling of unhappiness."
In a memo of a meeting Hoover had with RFK after this briefing,
Hoover wrote: "The Attorney General told me he wanted to advise
me of a situation in the Giancana case which had considerably
disturbed him" [emphasis added]. For his own part, Hoover wrote
of his talk about the matter with the AG:
  I expressed great astonishment at this [the association] in
  view of the bad reputation of Maheu and the horrible
  judgment in using a man of Giancana's background for such a
  project. The Attorney General shared the same views.
Kennedy had made it clear to the CIA that if they were to have
any more of these types of ideas about using these characters,
they would have to go through the Justice Department first, i.e.
him. But what RFK did not know is that, as the I. G. Report
states:
  It should be noted that the briefing of Kennedy was
  restricted to Phase One of th


author: ALESSANDRO Baraldi

text:
Iraq by giving two public speeches before the
Veterans of Foreign Wars (Aug. 26) and the Korean War Veterans (Aug. 29)
in which he publicly touted the Nazi doctrine of preventive warfare
against Iraq. Of course the lap-dog U.S. news media were too obesiant to
observe that while mongering for a war against Iraq before these former
soldiers who had actually gone to war, Cheney had ducked out of the
Vietnam War. The same was true for Wolfowitz and the rest of the Bush
Jr. administration's Straussian Neo-Con cabal. They were too busy
studying Machiavelli and Nietzsche with Strauss, Bloom, and their
acolytes from the University of Chicago. Chickenhawks to a man. Bush Jr.
too. The American Power Elite are more than happy to send the children
of poor Blacks, Latinos and Whites off to kill and be killed in
Afghanistan, Iraq, and elsewhere. Just like their elitist predecessors
did a generation ago in Vietnam, Cambodia, and Laos. Class warfare
indeed. Finally, in September 2002 the Bush Jr. administration adopted
and officially approved "the National Security Strategy of the United
States," that was transmitted to the U.S. Congress as a declaration of
official policy by the United States of America, fully embracing this
reprehensible, criminal, and Nazi doctrine of preventive warfare.38 I
will not waste the reader's precious time here analyzing this criminal
document in extenso. But it reads like a Nazi war planning document that
could have been introduced into evidence before the Nuremberg Tribunal.
Certainly its most odious language is: ". . . we recognize that our best
defense is a good offense. . ." In other words, the United States
government has publicly admitted in an official government document that
it is now prepared to wage offensive warfare against its chosen
adversaries around the world irrespective of the


text:
until the Security Council has taken
measures necessary to maintain international peace and security."
Contrary to conventional wisdom and widespread propaganda, it was the
Bush Jr. administration and the Tony Blair government which perpetrated
an "armed attack" against Iraq and thus triggered Iraq's "inherent
right" of individual and collective self-defense under U.N. Charter
article 51. Not surprisingly, no U.N. Member State came to the defense
of Iraq. Rather, Iraq became the first victim of this Nazi Doctrine of
Preventive Warfare propounded by Bush Jr. and Tony Blair. From the
perspective of international legal history, it is Bush Jr. and Blair who
constitute the real "axis-of-evil"- along the lines of Hitler and
Mussolini. In this regard, Article 6 of the 1945 Nuremberg Charter
provides in relevant part as follows: . . . . The following acts, or any
of them, are crimes coming within the jurisdiction of the Tribunal for
which there shall be individual responsibility: (1) Crimes against
peace: namely, planning, preparation, initiation or waging of a war of
aggression, or a war in violation of international treaties, agreements
or assurances, or participation in a common plan or conspiracy for the
accomplishment of any of the foregoing; . . . . Leaders, organizers,
instigators and accomplices participating in the formulation or
execution of a common plan or conspiracy to commit any of the foregoing
crimes are responsible for all acts performed by any persons in
execution of such plan.
To the same effect is the Sixth Principle of the Principles of
International Law Recognized in the Charter of the Nuremberg Tribunal
and in


text:
would happen
  again in Quang Ngai province-although with less drastic
  results. The desire of Lieutenant Colonel Barker to mount
  another successful, high enemy body-count operation in the
  area; the desire of Ramsdell to demonstrate the
  effectiveness of his operations; the belief shared by all
  the principals that everyone living in Son My was staying
  there by choice because of Communists...and the basic
  incompetence of many intelligence personnel in the Army-all
  these factors combined to enable a group of ambitious men to
  mount an unnecessary mission against a nonexistent enemy
  force, and somehow to find the evidence to justify it all.
I won't go into all the things that must be true for Hersh to be
correct. I will add that in the definitive book of the subject,
The Phoenix Program, My Lai is described as part of the
Colby/Shackley operation.
After My Lai, the New York Times assigned Hersh to the Watergate
beat. The paper was getting scooped by Woodward and Bernstein at
the Washington Post. For a "crack" reporter, Hersh did not
distinguish himself, especially in retrospect. He basically
followed in the footsteps of the Post. i.e. the whole complicated
mess was a Nixon operation; there was no real CIA involvement;
whatever Hunt and McCord did, no matter how wei


text:
secretary, Loomis worked closely with Hersh on The Target Is
Destroyed. Certainly, one of the most ridiculous statements made
by Hersh would be music to Loomis' ears. Hersh's Holy Grail on
the assassination conspiracy, the cinching piece of the puzzle,
would be "a reel of tape of Oswald getting briefed by Giancana"
(Anson p. 120). With what serious people have learned about
Oswald today, through work by Phil Melanson, John Newman, and
John Armstrong, this is preposterous. The Blakey-Davis whim about
the Mafia hiring a "hit man" who couldn't hit the side of a barn
and used a $12.95 bolt action rifle to do the job, went out the
window when the HSCA closed down. But "crack" reporter Hersh
still buys into it. As he does the idea that Sirhan killed Bobby
Kennedy, proven by the fact that he wrote a blurb praising Dan
Moldea's 1995 whitewash of that case.
Behind all the sordid details of these articles there is a bigger
picture to be outlined. One of the main parts of it is the
increasing ascendancy of tabloid journalism into the major media
outlets, and with it, its concomitant attachment to the lives of
celebrities. More often than not, that translates into the
endless search for sleaze and scandal. This chain on the lives of
the Kennedys has been well described in these articles. The
overall tendency has become so prevalent that, as many have
noted, tabloid sales in the U.S. have d


author: Alessandro Baraldi

text:
"Sandro" <
sape...@tiscali.it
> wrote in message
news:cpfm1s$cug$
1...@lacerta.tiscalinet.it
> [cut]
> ALEX!
>
> Ah, perň bella domanda che ho fatto. ok.
> Io ho inserito una TextBox chiamata txtHidden per eliminare il problema del
> > Focus
> > l'ho impostata con dimensioni 0,0 per non vederla ma per poterla usare.
> ****ok
>
>  > Se guardi il Codice c'č anche la gestione della TextBox "txtPos" per
> > indicare
> > il Record Corrente e l'Etichetta "lblNumRecords" per il Numero di Records.
> ****ok
> Ho messo la public sub in un modulo standard :
> Ho questo problema:
>
> Me.txtPos.Value = Me.CurrentRecord utilizzo non valido della parola chiave
> me
CurrentRecord č una TextBox, e precisamente quella che ho inserito
all'interno dei Pulsanti Precedente e Successivo.
> e questo me lo segnala in rosso
>
> Me.lblNumRecords.Caption = " di " & Me.Parent.RecordsetClone.RecordCount 1 &
> strFilter
Ovvio mi sono scordato di togliere il riferimento alla Form
Parent.
Come ti dicevo nel mio caso l'applicazione č decisamente diversa.
Prova cosě:
Me.lblNumRecords.Caption = " di " & Me.RecordsetClone.RecordCount
> Ci dai ancora un occhio ?
Ciao
@Alex
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


text:
[cut]
Ciao Alex, non ti arrabbiare !
su current della form principale :
If Me.NewRecord Then
    Me.data_fattura = Date + 1
    numero_fattura = DMax("numero_fattura", "[T_fatture_carico_unione]",
"[tipo_contratto] = 2") + 1
    Me.numero_fattura.SetFocus
    Me.recordsucc.Enabled = False
    DoCmd.RunCommand acCmdSaveRecord
  ' con un nuovo record assegno un nuovo numero fattura e la data fattura
incrementate di 1
End If
If Me.CurrentRecord = 1 Then
      Me.numero_fattura.SetFocus
      Me.recordprec.Enabled = False
      Me.recordsucc.Enabled = True
     ' se il record corrente è il primo inabilito il click su bottone
indietro di 1
      ' e abilito il bottone avanti di uno spostando il focus su una txt
nascosta
Else
    If Me.CurrentRecord = Me.RecordsetClone.RecordCount Then
        DoCmd.RunCommand acCmdSaveRecord
        Me.numero_fattura.SetFocus
        Me.recordsucc.Enabled = False
        Me.recordprec.Enabled = True
        ' se il record corrente è l'ultimo inabilito il click su bottone
avanti di 1
        ' e abilito il bottone indietro di uno spostando il focus su una txt
nascosta
    Else
        Me.recordprec.Enabled = True
        Me.recordsucc.Enabled = True
        ' nel caso in cui il record corrente sia in posizione intermedia tra
il primo e l'ultimo
        ' abilito sia avanti di 1 che indietro di 1
   End If
end If
DoCmd.RunCommand acCmdSaveRecord
End Sub
Questo è quanto sono riuscito ad elaborare in questo week-end anche grazie
all'aiuto, anzi, direi che il merito è tutto suo.
Sto parlando di Cinzia.
Non è per mancanza di fiducia nei tuoi confronti ,(anzi!!), ma il 3d con te
l'ho iniziato, quando dall'altra parte con lei ero arrivato fino questo
punto, ed era iniziato per un problema con un'istruzione SQL e poi ho
approfondito il discorso dei pulsanti.
Se vuoi dammi pure un parere !
Ciao, a presto.


text:
"Sandro" <
sape...@tiscali.it
> ha scritto nel messaggio
news:cpkoh7$ni4$1...@lacerta.tiscalinet.it...
>
> [cut]
> Ciao Alex, non ti arrabbiare !
>
[CUT]>
> Questo è quanto sono riuscito ad elaborare in questo week-end anche grazie
> all'aiuto, anzi, direi che il merito è tutto suo.
> Sto parlando di Cinzia.
> Non è per mancanza di fiducia nei tuoi confronti ,(anzi!!), ma il 3d con
te
> l'ho iniziato, quando dall'altra parte con lei ero arrivato fino questo
> punto, ed era iniziato per un problema con un'istruzione SQL e poi ho
> approfondito il discorso dei pulsanti.
Scherzi vero....!
Il rispetto per Cinzia è massimo, ed ovviamente ci sono molti modi
di sviluppare le stesse cose.
Sta di fatto che io non ho fatto altro che darti un pezzo del mio codice
cercando di calarlo alle tue esigenze.
Il fatto vero è che solo te sai bene cosa vuoi fare, pertanto credo che il
massimo
sia di prendere entrambi i consigli e fare in modo di risolvere il
problema....!
> Se vuoi dammi pure un parere !
In merito a cosa...?
Se è per il codice, mi auguro tu abbia risolto, non posso dirti da quì se
funziona
dovrei provarlo, ma a spanne la logica è corretta.
> Ciao, a presto.
Ciao anche a te.
@Alex



title: tool per mssql

author: italus

text:
Salve a tutti, qualcuno mi sa dire se esistono dei tool grafici free per
amministrare un db di SQLServer.
Grazie.


title: tool per mssql

author: fidirico (lavoro)

text:
"italus" <
marv...@tin.it
> ha scritto nel messaggio
news:MUoed.75637$b5.36...@news3.tin.it...
> Salve a tutti, qualcuno mi sa dire se esistono dei tool grafici free per
> amministrare un db di SQLServer.
>
> Grazie.
Esiste il fenomenale DbaMgr di Andrea Montanari che puoi scaricare da qui:
http://www.asql.biz/DbaMgr.shtm
Ciao
--
Galliano


title: VBA: creare indici su tabelle...

author: sd

text:
Salve a tutti!
avrei la necessità di creare degli indici su delle
tabelle via codice.... qualcuno mi sa dare una dritta?
grazie
sdamy


title: VBA: creare indici su tabelle...

author: Valerio

text:
"sd" <
sd...@tiscalinet.it
> ha scritto nel messaggio
news:a5dnhq$sm8$1...@pegasus.tiscalinet.it...

Puoi utilizzare il linguaggio   SQL oppure  se sei in access 2000 le
funzioni ADOX.
>


title: VBA: creare indici su tabelle...

author: Karl Donaubauer

text:
sd ha scritto:
> avrei la necessità di creare degli indici su delle
> tabelle via codice.... qualcuno mi sa dare una dritta?
<F1> CreateIndex
--
HTH
Karl
*********
Access-FAQ (tedesco):
http://www.donkarl.com


title: creare nuovo db alla fine dell'anno

author: mario

text:
salve a tutti, avrei l'esigenza di creare un nuovo db alla fine dell'anno
premendo un semplice pulsante, facile vero?
ho risolto in parte creando una funzione che mi chiede il nome del nuovo db
e me lo crea dopo nella medesima funzione ho aggiunto una serie di docmd
per esportare le tabelle nel nuovo db vuote ma la funzione si blocca
dicendomi che il db non esiste quando vado a verificare da gestione risorse
il db c'è eccome.
qualcuno mi sa aiutare??


title: creare nuovo db alla fine dell'anno

author: Luciano (DOC)

text:
"mario" <
ma...@penguin.com
> wrote in message
news:xM7Y6.16932$Rq1.3...@news.infostrada.it...
> dicendomi che il db non esiste quando vado a verificare da gestione
risorse
> il db c'è eccome.
> qualcuno mi sa aiutare??
Nel bel mezzo della routine con cui esporti butta qua e la' qualche
DoEvents
e
DBEngine.Idle dbRefreshCache
Saluti.
Luciano
(DOC)


title: creare nuovo db alla fine dell'anno

text:
Luciano \(DOC\) wrote:

ci ho appena provato ma non funziona mi dà lo stesso errore,
questo è il codicce che ho scritto con le aggiunte da te suggerite.
Function nuovodb()
Dim strinput As String
Dim title
Dim valori As String
Dim default
Dim messaggio
messaggio = "Nuovo DataBase"
title = "Inserire Nome e Percorso Nuovo DataBase"
default = "c:\temp\ "
strinput = InputBox(title, messaggio, default)
If StrPtr(strinput) = 0 Then
MsgBox "Azione annullata"
DoEvents
End If
If CStr(strinput) <> default Then valori = (strinput)
Dim wrkpredefinita As Workspace
    Dim dbsNuovo As Database
    Set wrkpredefinita = DBEngine.Workspaces(0)

    DoCmd.Echo True, "creazione database in corso"
DoEvents
        Set dbsNuovo = wrkpredefinita.CreateDatabase((strinput),
dbLangGeneral, dbEncrypt)
DoEvents
DBEngine.Idle dbRefreshCache
 dbsNuovo.Close
 DoEvents
DoEvents
DoEvents
DBEngine.Idle dbRefreshCache

 DoCmd.TransferDatabase acExport, "Microsoft Access", (strinput), acTable,
"cedente", "cedente", True
End Function


title: problema aggiornamento casella combinata dopo una cancellazione.

text:
All'interno di una maschera di aggiornamento ho inserito un pulsante di
comando che mi attiva una casella combinata per la ricerca di dati
precedentemente inseriti e per la successiva visualizzazione all'interno
della maschera.
Ho notato che se cancello il record ricercato e ricerco ulteriori dati
all'interno della casella combinata che ha come origine dati una query, mi
compare nella lista '#eliminato'  insieme agli altri valori.
Ho tentato di fare una requery sulla casella combinata, ma senza successo.
Ringrazio in anticipo chi può consigliarmi.
--
Valerio


author: Roberto dal portatile

text:
"Valerio" <
valeri...@fsmrt.nettuno.it
> ha scritto nel messaggio
news:8ol65l$jos$2...@pinco.nettuno.it...

Serve qualche informazione in più:
1) La casella combinata è associata o non associata?
2) Cosa intendi per "origine dati" della combo: "Origine riga" o "Origine
controllo" ?
3) Quando parli di cancellazione di record: come la fai, quando la fai e il
record di quale tabella cancelli?
--
Roberto
---------------------------------------------
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/
---------------------------------------------


author: lbo dal lavoro (ogni tanto...)

text:
>Ho notato che se cancello il record ricercato e ricerco ulteriori dati
>all'interno della casella combinata che ha come origine dati una query, mi
>compare nella lista '#eliminato'  insieme agli altri valori.
>Ho tentato di fare una requery sulla casella combinata, ma senza successo.
>Ringrazio in anticipo chi può consigliarmi.
come hai fatto il requery?  puoi postare il codice che hai usato?


title: PrintDlg... come posso passargli un documento?

author: Roberto P

text:
Ciao a tutti
ho la necessità di creare un controllo per la stampa di un report che mi
faccia vedere prima la pinter dialog di windows e poi mi mandi direttamente
il documento alla stampante con le caratteristiche che ho scelto (nr di
pagine, qualità ecc...) senza dover passare per forza alla sua anteprima.
Ho cercato tra le api di sistema e ho trovato la PRintDlg... wow dico io,
peccato che poi non sono ancora riuscito a capire dove si deve passare il
riferimento
al doc da stampare....
Forse mi sto solo complicando la vita, ho provato ad usare il metodo
PrintOut ma anche li non ho capito come passargli il documento da
stampare....
Se qualcuno mi può aiutare...
Grazie e buona giornata
Roberto


author: Expo

text:
"Roberto P" <
pastorin...@libero.it
> ha scritto nel messaggio
news:9s5ou6$i7l$2...@pegasus.tiscalinet.it...

Anche a me interessa questa cosa, soprattuto per ovviare l'inconveniente di
non poter usre la PrtDevMode negli mde


text:
"Roberto P" <
pastorin...@libero.it
> ha scritto nel messaggio
news:9s5ou6$i7l$2...@pegasus.tiscalinet.it...
>

Anche a me interessa questa cosa, soprattuto per ovviare l'inconveniente di



title: togliere tsato x ad access da sitocomune!

author: danieleni

text:
Mi sono copiato dalle General del sito comune questo codice per
togliere la x di access, Il problema č: dove lo devo inserire? Questo
leva anche il riduci a icona e ingrandisci/ripristina?
grazie a chiunque mi voglia rispondere
Private Const GWL_STYLE = -16
Private Const WS_SYSMENU = &H80000
Private Const WS_MINIMIZEBOX = &H20000
Private Const WS_MAXIMIZEBOX = &H10000
Private Declare Function GetWindowLong Lib "user32" Alias
"GetWindowLongA" _
    (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias
"SetWindowLongA" _
    (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As
Long) As Long
Private Declare Function GetParent Lib "user32" (ByVal hwnd As Long)
As Long

Public Sub LockAppWindow(fForm As Form)
    ModifyAppWind fForm.hwnd
    MsgBox "Ciao ciao pulsantini!"
End Sub
Private Sub ModifyAppWind(wChildWnd)
    Dim wParentWnd%
    wParentWnd = GetParent(GetParent(wChildWnd))
    Dim PrevWinStyle As Long, NewWinStyle As Long
    PrevWinStyle = GetWindowLong(wParentWnd, GWL_STYLE)
    NewWinStyle = PrevWinStyle And Not WS_SYSMENU And _
       Not WS_MINIMIZEBOX And _
       Not WS_MAXIMIZEBOX
    PrevWinStyle = SetWindowLong(wParentWnd, GWL_STYLE, NewWinStyle)
End Sub
La funzione va richiamata cosě:
LockAppWindow Screen.ActiveForm


author: Maurizio Begani

text:
danieleni <
a...@a.it
> wrote in message 3bdedbb...@news.tiscalinet.it...

Sull'evento "su apertura" della maschera scrivi il codice:
LockAppWindow Screen.ActiveForm


title: Errore Accesso Archivio Access97 con cr9

author: Beba

text:
Ciao a tutti.
Ho un piccolo problema con un report.
Nel mio progetto utilizzo crystal report 8,poi sono passata al 9,solo
convertendo i file .rpt e stop.
All'interno della mia applicazione (vb6 e db MSDE)  per le stampe ho un form
di anteprima in cui espongo l'oggetto crviewer di crystal report (ora 9) e
la form di stampa in cui gestisco i filtri di stampa stessa e lancio in base
alle selezioni il .rpt e rendo visibile la form precedente.
E fin qui tutto ok.
Solo per una stmapa ho un'anomalia.
Questo report si basa su un db Access 97 che "riempio" ad ogni lancio della
stampa e risiede nella path del programma.
Utilizzando la versione precedente del programma (col cr8) nessun problema
,ma ora al lancio della stampa mi dà il seguent errore:
CRYSTAL REPORT VIEWER
Accesso non riuscito.
Dettagli: DAO Error code:0xbd4
Source:DAO Db Engine
Description:Impossibile avviare l'applicazione.Il file di informazione sul
gruppo di lavoro è mancante o aperto in modo esclusivo da altro utente.
Ho verificato che fino alla creazione del db Access è tutto ok (quindi si
riempie coi dati scelti),ma poi quando lancio il frmAnteprima s'arrabbia!
:-(
Associato al bottone anteprima dell amia form di stampe ho:
frmAnteprima.CRView.ReportSource = CRReport
frmAnteprima.CRView.ViewReport
frmAnteprima.Show vbModal
dove CRReport è.....
Public CRReport As CRAXDRT.Report
dell'applicazione....
Public CRApp As CRAXDRT.Application
che posso fare?? ho provato anke a sostituire il db access 97 col 2000 ma
non cambia.
Aiutatemi!!!! :-°°°°°°(
Grazie a tutti !
Beba


author: Giorgio Prx

text:
"Beba" <deb...@NOSPAMmicroramo.it> ha scritto nel messaggio
news:0fcSa.99849$qa5.2...@news2.tin.it...

Ciao Beba
E' dal 1993 che non utilizzo più VB e Cristal Report (era la versione 1.0
brutti ricordi ) ma ricordo abbastanza bene che nelle proprietà dell'
oggetto c'è la possibilità di indicare il file System.MDW (system.mda x
Acces1.1)  lo Username e la Password per accedere ai Db di Access. Comunque
ti conviene chiedere su  it.comp.lang.visual-basic dove c'è gente che
utilizza quotidianamente Vb6 + Crystal report.
Ciao Giorgio.


title: Spostamento al primo record di sottomaschera

author: Paolo Donnarumma

text:
Ho la necessità di spostarimi al primo record di una sottomaschera: come si
fà?
Ciao a tutti!


author: Roberto dalla campagna

text:
Paolo Donnarumma <
paolo.do...@tin.it
> wrote in message
5aECa.28632$pR3.5...@news1.tin.it...

Sposta il fuoco sulla sottomaschera ed usa il Metodo GoToRecord impostando
ad acFirst l'argomento record (vedi help).
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


author: Fabrizio Quercia

text:


Una cosa del genere:
Me = maschera proncipale
Me.sottomaschera.SetFocus
docmd.GoToRecord ,,acFirst
CIao


text:
"Roberto dalla campagna" <
r.ma...@libero.it
> ha scritto nel messaggio
news:M8ICa.54124$lK4.1...@twister1.libero.it...

Eureka, funziona!!!! Vuoi vedere che comincio a capirci qualcosa di Vba: due
mesi fa non ci capivo un piffero!
Grazie a voi!!
Ciao e buona settimana a tutti!


author: Roberto da casa

text:
"Paolo Donnarumma" <
paolo.do...@tin.it
> ha scritto nel messaggio
news:GX0Da.54168$g92.1...@news2.tin.it...
>
[CUT]
> Eureka, funziona!!!! Vuoi vedere che comincio a capirci qualcosa di Vba:
due
> mesi fa non ci capivo un piffero!
E come dice un vecchio adagio:
"Con la pazienza e con lo sputo l'elefante riuscě a fare l'amore con una
mosca". :-)
> Grazie a voi!!
> Ciao e buona settimana a tutti!
--



title: aprire una pagina html locale che si trova sul pc

text:
uso questa funzione che serve per aprire un sito da access
Public Sub ExecBrowser(strURL$)
Dim lVal As Integer
lVal = ShellExecute(0, "open", strURL, "", "", 0)
End Sub
vorrei usarla per aprire una pagina html presente in c:\ ma non la apre
mentre se ci metto
http://www.google.it
 per esempio lo apre.
mi sapete dire come mai?
grazie.


author: Pablitomf

text:
Simba883 ha scritto:



> End Sub

> grazie.
LA mia routine funziona sia in locale che in remoto...non è che per
distrazione vuoi aprire un HTML che invece è un HTM ??? Sai, non si può
mai sapere...
--
Pablitomf (Maurizio Facciuti)
“Quando non ti eserciti ricorda che qualcuno in qualche posto si sta
allenando e, quando lo incontrerai, ti batterà”.
Ed Macauley
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


text:
> LA mia routine funziona sia in locale che in remoto...non è che per
> distrazione vuoi aprire un HTML che invece è un HTM ??? Sai, non si può
> mai sapere...
>
> --
> Pablitomf (Maurizio Facciuti)
>
proprio come dici tu


text:
Simba883 ha scritto:
> > LA mia routine funziona sia in locale che in remoto...non è che per
> > distrazione vuoi aprire un HTML che invece è un HTM ??? Sai, non si può
> > mai sapere...
> proprio come dici tu
AMEN!



title: scorciatoie tastiera

author: Tuzzo

text:
Ciao,
da un po sto cercando (specialmente con excel, ma non ho trovato il NG
dedicato) di usare scorciatoie di tastiera. Le usate? Non è che mi fate
il regalo di indicarmi le vostre preferite (oltre ai soloti ctrl c,v ecc).
Oppure non le usate?


title: scorciatoie tastiera

author: Ammammata

text:
Il giorno Wed 29 May 2019 02:22:34p, *Tuzzo* ha inviato su
it.comp.appl.access il messaggio
news:201905291...@mynewsgate.net
.
Vediamo cosa ha scritto:

> (oltre ai soloti ctrl c,v ecc)

ctrl-d copia in basso
ctrl-invio per le formule

la cosa brutta è che con il ribbon non le vedi più per cui di dimentichi
che ci sono e smetti di usarle

--
/-\ /\/\ /\/\ /-\ /\/\ /\/\ /-\ T /-\
-=- -=- -=- -=- -=- -=- -=- -=- - -=-
>>>>>
http://www.bb2002.it
 :)  <<<<<
........... [ al lavoro ] ...........


title: scorciatoie tastiera

text:
Guarda qui:
https://support.office.com/it-it/article/scelte-rapide-da-tastiera-di-excel-per-windows-1798d9d5-842a-42b8-9c99-9b7213f0040f


title: scorciatoie tastiera

author: Bruno Campanini

text:
Tuzzo submitted this idea :

Da Excel 2 (1987)

CTRL+Ins    Copia
SHIFT+Ins   Incolla

Bruno


title: scorciatoie tastiera

text:
carl...@gmail.com
 <
carl...@gmail.com
> ha scritto:

> Guarda qui:
>
https://support.office.com/it-it/article/scelte-rapide-da-tastiera-di-excel-per-windows-1798d9d5-842a-42b8-9c99-9b7213f0040f

gRAZIE!


title: Scanner Rullo interrogare inserimento carta

author: Ste Bort

text:
Tramite un controllo ActiveX Kodak per usare uno scanner a rullo, non
riesco ad interrogare il microswitch che indica la presenza del foglio
da leggere per avviare un evento.
Spero che qualcuna mi sppia dire dove andare a leggere tale proprietą
dell'oggetto.
Saluti
Stefano Bortolamasi
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: access e protezioni

author: luigi

text:
io ci provo!
non è che c'è qualche anima buona che mi riesce a realizzare il seguente
programmmino:
4 o 5 campi di cui:
 1) un contatore a numeri unici incrementabili e consecutivi (no contatore)
non modificabile ne cancellabile,
2) data automatica giornaliera che non si modifica con un futuro
aggiornamento ne si cancella,
3) password di modifica record
4) impossibilità alla cancellazione record
5) stampa tramite pulsante della lista dei record immessi nella giornata
odierna, in ordine di numero contatore
6) pulsante di stampa di tutti i record di un determinato giorno a
richiesta;
7) pulsante di stampa di una lista di record da un numero di contatore ad un
altro a richielsta
8) due diversi utenti di accesso con un campo che segna automaticamente
l'utente che manovra in quel momento il programmino, e di cui 1 può
modificare o inserire dati mente l'altro può solo vedere i record.
9) password di accesso al database.
scusate se ho chiesto troppo, ma non riesco a portare a termine questa
esigenza, se era con Superbase sarei riuscito a farlo, ma con access, non ci
riesco.
Se c'è qualche esperto bravo di access e me lo sappia fare, lo ringrazierei
immensamente
luigi


title: access e protezioni

author: Luciano (DOC)

text:
luigi ha scritto nel messaggio ...
>Se c'è qualche esperto bravo di access e me lo sappia fare, lo ringrazierei
>immensamente
E' pasqua, mica natale....:-))
Saluti.
Luciano
(DOC)


title: Sib 12/10/00

author: Mauro

text:
Si in effetti hai ragione non mi sono spiegato molto bene, il blocco avviene
quando leggo la tabella sul server con la ricerca:
StrEventi="Select * from Eventi where eventi.trass=False"
Set rst=dbs.OpenRecordset(StrEventi, dbOpenDynaset)
Sono riuscito a stabilire che, è in questa istruzione che avviene questo
blocco temporaneo, rettifico il blocco con un pentium 433 è di circa un
secondo, anche portando questa tabella sul disco fisso (preciso che la
tabella contiene da 20.000 a circa 60.000 record).
Chiedevo se esiste un modo per lasciare libera l'attivita di Windows durante
questa fase (il blocco avviene anche se il record non viene trovato)
Grazie Ciao


title: Sib 12/10/00

author: sib

text:
Mauro dice

Prima di tutto e' preferibile, quando possibile, rispondere ai post invece
di iniziare un nuovo threed. (ho impiegato 10 minuti a capire di cosa
parlavi e altri 10 a ricordarmi l'argomento)
E' normale che il blocco avvenga anche se non trova il record, e' la ricerca
del record che rallenta il sistema, non il trovarlo. Ma poi, l'istruzione
che hai scritto non trova un record, apre un recordset filtrato che puo'
contenere uno, nessuno o molti record.
Il mio suggerimento e' sempre quello di cambiare metodo.
Ora non saprei come, non conosco come funziona il db che stai sviluppando.
Hai provato a lascere il recordset sempre aperto (su una variabile globale)
e filtrarlo di volta in volta? Potrebbe essere piu' veloce (ma non ho mai
provato)
Per altri suggerimenti mi devi spiegare cosa fai con questa operazione.
Ciao, Sib
--
------------------------------------------------------
il sito comune di it.comp.database.access:
http://members.xoom.it/it_db_access
------------------------------------------------------
4000 anni fa', il saggio egizio Ptahhotep scrisse:
"... perche' non esistono saggi per nascita."
------------------------------------------------------
Saturiamo ECHELON:
bomba saddam attentato medio oriente


title: Sib 12/10/00

text:
Ok proverň, grazie per il tempo che mi hai dedicato.
P.S. in seguito vedrň di rispondere ai post, a volte ci si dimentica che non
si i soli ad avere un problema.
Ciao Tex
"sib" <
sibN...@iol.it
> ha scritto nel messaggio
news:RiLG5.30248$Nz.9...@news.infostrada.it...
> Mauro dice
> > Si in effetti hai ragione non mi sono spiegato molto bene, il blocco
> avviene
> > quando leggo la tabella sul server con la ricerca:
> >
> > StrEventi="Select * from Eventi where eventi.trass=False"
> > Set rst=dbs.OpenRecordset(StrEventi, dbOpenDynaset)
> >
> > Sono riuscito a stabilire che, č in questa istruzione che avviene questo
> > blocco temporaneo, rettifico il blocco con un pentium 433 č di circa un



title: Incrementale automatico su form

author: fabrizio vignali

text:
Salve a tutti.
Nel valore predefinito di una Casella di Testo ho impostato:
= Nz(DMax("[NomeCampoUnico]"; "[NomeTabella]"); 0) +1
Il risultato però è solo visivo sulla maschera, la tabella relativa non
viene aggiornata.
Grazie per l'aiuto
Saluti
Fabrizio
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: Incrementale automatico su form

author: Paolo Dal Bosco

text:
"fabrizio vignali" <
fabrizio...@libero.it
> ha scritto nel messaggio
news:151Z37Z71Z219Y1...@usenet.libero.it...
> Salve a tutti.
> Nel valore predefinito di una Casella di Testo ho impostato:
> = Nz(DMax("[NomeCampoUnico]"; "[NomeTabella]"); 0) +1
> Il risultato perň č solo visivo sulla maschera, la tabella relativa non
> viene aggiornata.
> Grazie per l'aiuto
> Saluti
> Fabrizio
>
prova a scriverlo cosě:
 = Nz(DMax("[NomeCampoUnico]"; "NomeTabella"); 0) +1
 ciao
Paolo


title: Incrementale automatico su form

text:
Il 19 Set 2006, 05:58, "Paolo Dal Bosco" <
bos...@tin.it
> ha scritto:
>
> "fabrizio vignali" <
fabrizio...@libero.it
> ha scritto nel messaggio
> news:151Z37Z71Z219Y1...@usenet.libero.it...
> > Salve a tutti.
> > Nel valore predefinito di una Casella di Testo ho impostato:
> > = Nz(DMax("[NomeCampoUnico]"; "[NomeTabella]"); 0) +1
> > Il risultato però è solo visivo sulla maschera, la tabella relativa non
> > viene aggiornata.
> > Grazie per l'aiuto
> > Saluti
> > Fabrizio
> >
> prova a scriverlo così:
> = Nz(DMax("[NomeCampoUnico]"; "NomeTabella"); 0) +1
> ciao
> Paolo
>
Come dici tu ho provato va bene, in ogni caso nel frattempo avevo usato:
Private Sub Form_BeforeInsert(Cancel As Integer)
    Me!NomeCampoUnico=Nz(DMax("[NomeCampoUnico]","[NomeTabella]"),0)+1
End Sub
 su un'evento del controllo e modificando la proprietà in tabella riguardo al
campo unico assegnando al campo la chiave primaria, penso che il problema
del mancato funzionamento fosse proprio la chiave primaria.
Grazie, Ciao



title: Memoria insufficiente su Access97 con Win7

author: alex

text:
Salve a tutti,
sono da diverso tempo alla ricerca di una risposta per un problema di memoria insufficiente. Il programma che sviluppo si appoggia ad Access97, normalmente viene eseguito con il runtime, ma spesso su Win 7 (oltre che su Vista), a seguito di un semplice aggiornamento di versione (aggiornamento che consiste solo nella sostituzione dell'MDE che contiene la parte "esecutiva" del programma), cominciano ad apparire messaggi di Memoria insufficiente in varie maschere. L'unica soluzione (peraltro non sempre definitiva, a volta dopo un po' di tempo il problema si ripresenta tale e quale) è l'installazione di Access 97 in versione completa (con o senza i vari SP: già la versione base è risolutiva). Anche il SP3 del Jet35 non risolve affatto l'intoppo.
Il punto è che ovviamente ciò comporta una perdita di tempo e un rallentamento di tutto il funzionamento, oltre che l'impossibilità di far girare l'applicazione se non si è in possesso di una licenza di Access97 valida.
Premetto che ho già spulciato diverse pagine web nella ricerca di una soluzione, ma anche seguendo i consigli che si trovano su internet non ho avuto risultati degni di nota. In particolare, ho visitato
http://www.donkarl.com/it?FAQ7.13
 e anche la discussione qui su narkive
http://it.comp.appl.access.narkive.com/CS7leqyQ/errore-access-di-memoria-insufficiente

Temo che il problema sia anche che in quasi tutti i suggerimenti che si trovano in rete, si fa riferimento a programmi sviluppati e eseguiti su macchine con sistemi operativi relativamente datati (al massimo si parla di Windows XP), e con caratteristiche hardware abbastanza basse: in questo tipo di ambienti infatti non replico l'errore nemmeno con il mio programma. Purtroppo al giorno d'oggi quasi hanno Win 7 con almeno 4 GB di RAM se non di più: la memoria insufficiente potrebbe essere legata non tanto a una effettiva carenza di memoria, quanto piuttosto all'impossibilità di Access97 di allocare memoria oltre il 3 GB della RAM?

Grazie in anticipo per qualsiasi suggerimento
--
Vedi su Narkive:
http://narkive.com/8kJvDlOh


author: vittorio

text:
> Temo che il problema sia anche che in quasi tutti i suggerimenti che si
> trovano in rete, si fa riferimento a programmi sviluppati e eseguiti su
> macchine con sistemi operativi relativamente datati (al massimo si <parla
> di Windows XP), e con caratteristiche hardware abbastanza basse: in questo
> tipo di ambienti infatti non replico l'errore nemmeno con il mio
> programma. Purtroppo al giorno d'oggi quasi hanno Win 7 <con almeno 4 GB
> di RAM se non di pi�: la memoria insufficiente potrebbe essere legata non
> tanto a una effettiva carenza di memoria, quanto piuttosto
> all'impossibilit� di Access97 di allocare memoria oltre <il 3 GB della
> RAM?

prova ad eseguire l'applicazione "on Windows XP mode ".

Oppure installare access 97 sp2

http://www.dbforums.com/microsoft-access/1675715-access-97-runtime-there-isnt-enough-memory-start.html


author: Chita

text:

Ciao, ti faccio una domanda: quando ti si propone l'errore? Subito appena apri il file .mde? A me è capitato l'errore se aprivo il file .mde due volte, cioè come due applicazioni diverse...A97 visualizza Memoria insufficiente...

Ho risolto con il Front End - Back End.

Ciao Chita


text:
L'errore capita a random, sia con più di una sessione aperta, sia no. Inoltre il programma è già strutturato con un front-end MDE ed un back-end MDB.
Grazie comunque ad entrambi per i suggerimenti!



title: Limiti tabelle access 2000

author: fifisio

text:
Salve a tutti,
come da oggetto, quali sono i limiti di inserimento in una tabella?
Qualcuno dice che oltre i 500000 gli inserimenti non sono più
consentiti.
Grazie


title: Limiti tabelle access 2000

author: Carlo Costarella

text:
"fifisio" <
fif...@tiscali.it
> ha scritto nel messaggio
news:1153497544.3...@p79g2000cwp.googlegroups.com...
Salve a tutti,
come da oggetto, quali sono i limiti di inserimento in una tabella?
Qualcuno dice che oltre i 500000 gli inserimenti non sono piů
consentiti.
Grazie
Fino alla dimensione di 2 giga per database (1 giga A97).
Per aggirare il limite basterebbe usare una tabella per database (parliamo
sempre di BE) con il risultato di avere due giga per tabella.
Altro che 500.000 record, molti ma molti di piů.
Ciao, Carlo


title: Limiti tabelle access 2000

text:
Carlo Costarella ha scritto:
> Fino alla dimensione di 2 giga per database (1 giga A97).
> Per aggirare il limite basterebbe usare una tabella per database (parliamo
> sempre di BE) con il risultato di avere due giga per tabella.
> Altro che 500.000 record, molti ma molti di più.
Grazie.


title: Trasformare un campo tabella in colonna

author: Announced

text:
Ciao a tutti...
ho una tabella dove salvo le mail inviate e in tre campi (To, Cc, Ccn)
salvo i diversi indirizzi di posta elettronica, separati dal punto e
virgola.
Vorrei ottenere un elenco raggruppato degli indirizzi email inseriti
nella tabella di cui sopra.
Credo sia possibile, ma non so come.
Potreste aiutarmi?
Grazie e buona notte!
Paolo


title: Trasformare un campo tabella in colonna

text:
"Announced" <
paolosc...@alice.it
> ha scritto nel messaggio
news:1163029711....@k70g2000cwa.googlegroups.com...

 Ciao Paolo
i campi delle tabelle sono già le colonne della tabella...
Forse vuoi dire un campo di una query che raggruppi i valori dei tre campi
di una tabella.
Se è così, senza usare il codice, puoi usare le query di unione.
Questo un esempio: crea tre query (e salvale), una per ogni campo usando lo
stesso alias per il nome del campo:
SELECT TuaTabella.To AS Indirizzo
FROM TuaTabella
GROUP BY TuaTabella.To;
SELECT TuaTabella.Cc AS Indirizzo
FROM TuaTabella
GROUP BY TuaTabella.Cc;
SELECT TuaTabella.Ccn AS Indirizzo
FROM TuaTabella
GROUP BY TuaTabella.Ccn;
Poi la query di unione che va scritta a manina:
Select * from q1 union all select * from Q2 union all select * from Q3;
Ciao, Carlo


title: Trasformare un campo tabella in colonna

text:
>  Ciao Paolo
> i campi delle tabelle sono già le colonne della tabella...
> Forse vuoi dire un campo di una query che raggruppi i valori dei tre campi
> di una tabella.
[CUT]
Grazie Carlo per la risposta,
ma questo sarebbe stato semplice. Il problema è che all'interno di
ogni campo ho più indirizzi e-mail, separati da punto e virgola che
non so trasformare poi in un unica colonna raggruppata.
Ti faccio un esempio:
To                                                    Cc
                          Ccn
a...@a.it
;
a...@a1.it
;
a...@a2.it
;
b...@b.it
;
b...@b1.it

c...@c.it
a...@a.it

b...@b.it
;

c...@c.it
;
c...@c1.it
Dovrebbe diventare:
Email
a...@a.it
a...@a1.it
a...@a2.it
b...@b.it
b...@b1.it
c...@c.it
c...@c1.it
Forse così è un pò più chiaro.
Grazie
Paolo


title: Trasformare un campo tabella in colonna

text:
"Announced" <
paolosc...@alice.it
> ha scritto nel messaggio
news:1163068380.3...@h54g2000cwb.googlegroups.com...
>  Ciao Paolo
> i campi delle tabelle sono già le colonne della tabella...
> Forse vuoi dire un campo di una query che raggruppi i valori dei tre campi
> di una tabella.
[CUT]
Grazie Carlo per la risposta,
ma questo sarebbe stato semplice. Il problema è che all'interno di
ogni campo ho più indirizzi e-mail, separati da punto e virgola che
non so trasformare poi in un unica colonna raggruppata.
>Ti faccio un esempio:
cut
Mi sà che devi ricorrere al codice e con un bel ciclo accodi il tutto in un
nuovo campo in una nuova tabella.
Se non ci riesci posta pure il problema...
Che versione di Access usi?
Come stai messo a codice?
Ciao, Carlo


title: Trasformare un campo tabella in colonna

text:
Carlo Costarella ha scritto:
> Mi sà che devi ricorrere al codice e con un bel ciclo accodi il tutto in un
> nuovo campo in una nuova tabella.
> Se non ci riesci posta pure il problema...
>
> Che versione di Access usi?
> Come stai messo a codice?
>
> Ciao, Carlo
Uso Access 2000. Di codice ne utilizzo, ma non complesso. In questo
caso per la costruzione del ciclo, non saprei come concepirlo... Se mi
vuoi aiutare, vorrei capirlo bene!
Grazie
Paolo


title: Trasformare un campo tabella in colonna

text:
"Announced" <
paolosc...@alice.it
> ha scritto nel messaggio
news:1163074827.6...@k70g2000cwa.googlegroups.com...
Carlo Costarella ha scritto:


Grazie
Paolo
Volentieri.
Consiglio di usare una seconda tabella per accodare tutti i valori unici in
quanto l'aggiunta di un campo alla tabella esistente non sarebbe sufficiente
a contenere tutti i valori se, come immagino, hai una chiave primaria e non
vuoi o non puoi avere record valorizzati solo con un campo.
A    B    Campo aggiunto
1    1
2    2
3    3
            1
            2
            3
Chiaro fin qui?
Il codice da realizzare deve fare più o meno questo:
Apre la tabella, legge il primo record del primo campo, fa un parsing di
cosa c'è scritto e se trova dei punti e virgola (;) accoda i singoli valori
in una nuova tabella. Quindi fa lo stesso per gli altri 2 campi...e così di
seguito, fino alla fine del recordset.
Una domanda: i campi che contengono più indirizzi sono sempre separati da un
";"? Il ";" compare sempre alla fine di tutti gli indirizzi come
nell'esempio che hai fatto?
Ciao, Carlo


title: Trasformare un campo tabella in colonna

text:
Carlo Costarella ha scritto:
> Volentieri.
> Consiglio di usare una seconda tabella per accodare tutti i valori unici in
> quanto l'aggiunta di un campo alla tabella esistente non sarebbe sufficiente
> a contenere tutti i valori se, come immagino, hai una chiave primaria e non
> vuoi o non puoi avere record valorizzati solo con un campo.
> A    B    Campo aggiunto
> 1    1
> 2    2
> 3    3
>             1
>             2
>             3
> Chiaro fin qui?
Sì, mi creo una tabella che andrò ad alimentare con la funzione di
cui sotto?
> Il codice da realizzare deve fare più o meno questo:
> Apre la tabella, legge il primo record del primo campo, fa un parsing di
> cosa c'è scritto e se trova dei punti e virgola (;) accoda i singoli valori
> in una nuova tabella. Quindi fa lo stesso per gli altri 2 campi...e così di
> seguito, fino alla fine del recordset.
>
> Una domanda: i campi che contengono più indirizzi sono sempre separati da un
> ";"? Il ";" compare sempre alla fine di tutti gli indirizzi come
> nell'esempio che hai fatto?
Il ";" compare sempre tra un indirizzo e l'altro. Tra l'altro uso "6.76
Inviare e-mail con MSAccess utilizzando la libreria mapi32.dll",
dovrebbe essere tua?
>
> Ciao, Carlo
Grazie
Paolo


title: Trasformare un campo tabella in colonna

text:
"Announced" <
paolosc...@alice.it
> ha scritto nel messaggio
news:1163076986....@h48g2000cwc.googlegroups.com...
cut
Sě, mi creo una tabella che andrň ad alimentare con la funzione di
cui sotto?
> Il codice da realizzare deve fare piů o meno questo:
> Apre la tabella, legge il primo record del primo campo, fa un parsing di
> cosa c'č scritto e se trova dei punti e virgola (;) accoda i singoli
> valori
> in una nuova tabella. Quindi fa lo stesso per gli altri 2 campi...e cosě
> di
> seguito, fino alla fine del recordset.
>
> Una domanda: i campi che contengono piů indirizzi sono sempre separati da
> un
> ";"? Il ";" compare sempre alla fine di tutti gli indirizzi come
> nell'esempio che hai fatto?
Il ";" compare sempre tra un indirizzo e l'altro. Tra l'altro uso "6.76
Inviare e-mail con MSAccess utilizzando la libreria mapi32.dll",
dovrebbe essere tua?
Grazie
Paolo
Sě credo sia mia.
Questo esempio di codice che ti accludo comporta che nella tabella
principale i campi siano tre e si chiamano To, Cc, e Ccn. I dati vengono
accodati ad una tabella "Indirizzi" il cui unico campo si chiama "Indirizzo"
ed č un testo da 255 caratteri.
Per perfezionare il codice potresti prevedere uno svuotamento prima del
successivo riempimento della tabella temporanea.
Le funzioni prevedono l'uso del solo DAO. Se ADO non ti serve toglilo dai
riferimenti e usa solo DAO. Se invece ti serve ADO devi dichiarare le
variabili in modo esplicito (rcs as Dao.recordset).
Public Function AccodaIndirizziMultipli()
Dim rcs As Recordset, i As Integer, pos As Integer
Set rcs = CurrentDb.OpenRecordset("TIndirizzi")
'cambia TIndirizzi con il nome della tabella che contiene gli indirizzi
rcs.MoveLast
rcs.MoveFirst
For i = 1 To rcs.RecordCount
With rcs
Call AccodaIndirizzi(![To])
End With
rcs.MoveNext
Next i
rcs.MoveLast
rcs.MoveFirst
For i = 1 To rcs.RecordCount
With rcs
Call AccodaIndirizzi(![CC])
End With
rcs.MoveNext
Next i
rcs.MoveLast
rcs.MoveFirst
For i = 1 To rcs.RecordCount
With rcs
Call AccodaIndirizzi(![Ccn])
End With
rcs.MoveNext
Next i
rcs.Close
Set rcs = Nothing
End Function
Public Function AccodaIndirizzi(Indir As String)
Dim rcs1 As Recordset, ii As Integer, pos1 As Integer
Set rcs1 = CurrentDb.OpenRecordset("Indirizzi")
For ii = 1 To Len(Indir)
    pos1 = InStr(1, Indir, ";")
    If pos1 > 0 Then
        With rcs1
        .AddNew
        !Indirizzo = Mid(Indir, 1, pos1 - 1)
        .Update
        End With
    Indir = Mid(Indir, pos1 + 1, Len(Indir))
    ii = pos1
    Else
        If Indir <> "" Then
            With rcs1
            .AddNew
            !Indirizzo = Trim(Indir)
            .Update
            End With
        Exit For
        End If
    End If
Next ii
rcs1.Close
Set rcs1 = Nothing
End Function
Fammi sapere.
Ciao, Carlo


title: Trasformare un campo tabella in colonna

text:
Carlo Costarella ha scritto:
> Questo esempio di codice che ti accludo comporta che nella tabella
> principale i campi siano tre e si chiamano To, Cc, e Ccn. I dati vengono
> accodati ad una tabella "Indirizzi" il cui unico campo si chiama "Indirizzo"
> ed è un testo da 255 caratteri.

Va, va, va!!!
Funziona perfettamente. Farò solo qualche ritocco finale per adattarla
in pieno alla mia esigenza.
Ora non resta che studiarmela! Se ho difficoltà a capire qualcosa mi
riserverò di porti ancora qualche domandina.
Grazie ancora Carlo
Ciao
Paolo


title: Trasformare un campo tabella in colonna

text:
Carlo Costarella ha scritto:
> Questo esempio di codice che ti accludo comporta che nella tabella
> principale i campi siano tre e si chiamano To, Cc, e Ccn. I dati vengono
> accodati ad una tabella "Indirizzi" il cui unico campo si chiama "Indirizzo"
> ed è un testo da 255 caratteri.




title: form password con obbligo di caratteri maiuscoli e minuscoli

author: marco veronesi

text:
Ciao ha tutti ho questa form per la validazione di una password
attualmente contiene le istruzioni che obbligano l'utente all'utilizzo
di lettere, numeri e caratteri speciali vorrei completerla con
l'obbligo di utilizzare anche maiuscole e minuscole.
qualcuno può aiutarmi?
codice:
Public Function validatePassword(buf As String) As Boolean
Dim strC As String
Dim nI As Long
Dim blnN As Boolean
Dim blnC As Boolean
Dim blnX As Boolean
If Len(Trim(buf)) < 8 Then
    validatePassword = False
    MsgBox ("La password deve essere composta da almeno otto
caratteri"), vbCritical, "ATTENZIONE"
    Exit Function
End If
' la password deve contenere sia numeri che lettere che caratteri
speciali
blnC = False
blnN = False
blnX = False
strC = Trim(buf)
For nI = 1 To Len(strC)
If IsNumeric(Mid(strC, nI, 1)) Then
        blnN = True
 ElseIf ((Mid(strC, nI, 1) >= "A" And Mid(strC, nI, 1) <= "Z") Or _
    (Mid(strC, nI, 1) >= "a" And Mid(strC, nI, 1) <= "z")) Then
        blnC = True
 Else
        blnX = True
 End If
     If blnN And blnC And blnX Then Exit For
Next nI
If Not blnN Or Not blnC Or Not blnX Then
    MsgBox "La password deve contenere almeno un numero, una lettera
ed un carattere speciale", vbCritical, "ATTENZIONE"
    validatePassword = False
Else
    validatePassword = True
End If
End Function


text:
"marco veronesi" <
spazio...@gmail.com
> ha scritto nel messaggio
news:2c4d8770-f59b-473c...@m25g2000yqc.googlegroups.com...
Ciao ha tutti ho questa form per la validazione di una password
attualmente contiene le istruzioni che obbligano l'utente all'utilizzo
di lettere, numeri e caratteri speciali vorrei completerla con
l'obbligo di utilizzare anche maiuscole e minuscole.
qualcuno pu� aiutarmi?
codice:



-------------------------------------
Risposta
Sono certamente maiuscole gli asc compresi tra 65 e 90 inclusi.
Sono certamente minuscole gli asc compresi tra 97 e 122 inclusi.
Per cui: se asc("tuocarattere") restituisce un numero tra 65 e 90 inclusi �
maiuscolo.
Puo' bastare?
Ciao, Carlo


text:
On 8 Dic, 15:53, "Carlo Costarella" <
carlocoslib...@libero.it
> wrote:
> "marco veronesi" <
spazionew...@gmail.com
> ha scritto nel messaggionews:2c4d8770-f59b-473c...@m25g2000yqc.googlegroups.com...
> Ciao ha tutti ho questa form per la validazione di una password
> attualmente contiene le istruzioni che obbligano l'utente all'utilizzo
> di lettere, numeri e caratteri speciali vorrei completerla con
> l'obbligo di utilizzare anche maiuscole e minuscole.
> qualcuno può aiutarmi?

> Per cui: se asc("tuocarattere") restituisce un numero tra 65 e 90 inclusi è
> maiuscolo.
> Puo' bastare?
>
> Ciao, Carlo
Ciao Carlo,
in base alle mie scarse conoscenze praticamente non ho capito nulla di
quello che mi hai detto :-)
puoi aiutarmi a correggere questo codice?


text:
"marco veronesi" <
spazio...@gmail.com
> ha scritto nel messaggio
news:410420a1-a490-48e8...@c34g2000yqn.googlegroups.com...
On 8 Dic, 15:53, "Carlo Costarella" <
carlocoslib...@libero.it
> wrote:
> "marco veronesi" <
spazionew...@gmail.com
> ha scritto nel
> messaggionews:2c4d8770-f59b-473c...@m25g2000yqc.googlegroups.com...
> Ciao ha tutti ho questa form per la validazione di una password
> attualmente contiene le istruzioni che obbligano l'utente all'utilizzo
> di lettere, numeri e caratteri speciali vorrei completerla con
> l'obbligo di utilizzare anche maiuscole e minuscole.
> qualcuno pu� aiutarmi?

> �
> maiuscolo.
> Puo' bastare?
>
> Ciao, Carlo
Ciao Carlo,
in base alle mie scarse conoscenze praticamente non ho capito nulla di
quello che mi hai detto :-)
puoi aiutarmi a correggere questo codice?
-----------------------
Devo dedurre che il codice che hai postato sia frutto di un copia e incolla.
In questo preciso momento non posso occuparmene...A breve ti posto una
soluzione.
Permettimi il consiglio di approfondire meglio la programmazione.
Ciao, Carlo


text:
On 8 Dic, 16:47, "Carlo Costarella" <
carlocoslib...@libero.it
> wrote:
> "marco veronesi" <
spazionew...@gmail.com
> ha scritto nel messaggionews:410420a1-a490-48e8...@c34g2000yqn.googlegroups.com...
> On 8 Dic, 15:53, "Carlo Costarella" <
carlocoslib...@libero.it
> wrote:
>
>
>
>
>
> > "marco veronesi" <
spazionew...@gmail.com
> ha scritto nel
> > messaggionews:2c4d8770-f59b-473c...@m25g2000yqc.googlegroups.com...
> > Ciao ha tutti ho questa form per la validazione di una password
> > attualmente contiene le istruzioni che obbligano l'utente all'utilizzo
> > di lettere, numeri e caratteri speciali vorrei completerla con
> > l'obbligo di utilizzare anche maiuscole e minuscole.
> > qualcuno può aiutarmi?

> > è
> > maiuscolo.
> > Puo' bastare?
>
> > Ciao, Carlo
>
> Ciao Carlo,
> in base alle mie scarse conoscenze praticamente non ho capito nulla di
> quello che mi hai detto :-)
> puoi aiutarmi a correggere questo codice?
> -----------------------
>
> Devo dedurre che il codice che hai postato sia frutto di un copia e incolla.
> In questo preciso momento non posso occuparmene...A breve ti posto una
> soluzione.
> Permettimi il consiglio di approfondire meglio la programmazione.
>
> Ciao, Carlo- Nascondi testo citato
>
> - Mostra testo citato -
ok ti ringrazio per la disponibilità


text:
"marco veronesi" <
spazio...@gmail.com
> ha scritto nel messaggio
cut
ok ti ringrazio per la disponibilit�
-------------------------------
Questa una possibile soluzione:
Public Function validatePassword(buf As String) As Boolean
Dim strC As String
Dim nI As Long
Dim blnN As Boolean 'variabile per il numero
Dim blnC As Boolean 'variabile per il carattere
Dim blnX As Boolean 'variabile per i caratt. speciali
Dim blnMaiu As Boolean 'variabile per le maiuscole
Dim blnMin As Boolean  'variabile per le minuscole
If Len(Trim(buf)) < 8 Then
    validatePassword = False
    MsgBox ("La password deve essere composta da almeno otto caratteri"),
vbCritical, "ATTENZIONE"
    Exit Function
End If
'la password deve contenere sia numeri che lettere
'che caratteri speciali oltre che maiuscole e minuscole
blnC = False
blnN = False
blnX = False
blnMaiu = False
blnMin = False
strC = Trim(buf)
For nI = 1 To Len(strC)
    If IsNumeric(Mid(strC, nI, 1)) Then
            blnN = True
     '-----------------------------------------
     'verifico se ci sono maiuscole e quindi
     'anche il carattere � presente
     ElseIf Asc(Mid(strC, nI, 1)) > 64 And Asc(Mid(strC, nI, 1)) < 91 Then
     blnMaiu = True
     blnC = True
     'verifico se ci sono minuscole e quindi
     'anche il carattere � presente
     ElseIf Asc(Mid(strC, nI, 1)) > 96 And Asc(Mid(strC, nI, 1)) < 123 Then
     blnMin = True
     blnC = True
     '-----------------------------------------
     'verifico se ci sono caratteri speciali tra
     '33 47  e 58  64   e 91  96  e 123  126
     ElseIf Asc(Mid(strC, nI, 1)) > 32 And Asc(Mid(strC, nI, 1)) < 48 Then
     blnX = True
     ElseIf Asc(Mid(strC, nI, 1)) > 57 And Asc(Mid(strC, nI, 1)) < 65 Then
     blnX = True
     ElseIf Asc(Mid(strC, nI, 1)) > 90 And Asc(Mid(strC, nI, 1)) < 97 Then
     blnX = True
     ElseIf Asc(Mid(strC, nI, 1)) > 122 And Asc(Mid(strC, nI, 1)) < 127 Then
     blnX = True
     '-----------------------------------------
     End If
         If blnN And blnC And blnX And blnMaiu And blnMin Then Exit For
Next nI
If Not blnN Or Not blnC Or Not blnX Or Not blnMin Or Not blnMaiu Then
    MsgBox "La password deve contenere almeno un numero, una lettera, un
carattere speciale una lettera maiuscola e una minuscola", vbCritical,
"ATTENZIONE"
    validatePassword = False
Else
    validatePassword = True
End If
End Function
Fammi sapere.
Ciao, Carlo


author: Karl Donaubauer

text:
Carlo Costarella wrote:
> marco veronesi ha scritto:
> ...
> 'la password deve contenere sia numeri che lettere
> 'che caratteri speciali oltre che maiuscole e minuscole
> ...
> strC = Trim(buf)
> For nI = 1 To Len(strC)
>    If IsNumeric(Mid(strC, nI, 1)) Then
>            blnN = True
>     '-----------------------------------------
>     'verifico se ci sono maiuscole e quindi
>     'anche il carattere � presente
>     ElseIf Asc(Mid(strC, nI, 1)) > 64 And Asc(Mid(strC, nI, 1)) < 91
>     Then blnMaiu = True
>     blnC = True
>     'verifico se ci sono minuscole e quindi
>     'anche il carattere � presente
>     ElseIf Asc(Mid(strC, nI, 1)) > 96 And Asc(Mid(strC, nI, 1)) < 123
>     Then blnMin = True
>     blnC = True
>     '-----------------------------------------
> ...
Un'alternativa sarebbe controllare l'intero password ad un colpo:
If StrComp(strC, UCase(strC), vbBinaryCompare) = 0 _
    Or StrComp(strC, LCase(strC), vbBinaryCompare) = 0 Then
    ' ci sono solo maiuscole o minuscole o nessun lettera
Else
    ' tutto a posto
End If
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it


text:
"Karl Donaubauer" <
NoS...@donkarl.com
> ha scritto nel messaggio
news:7o7nqqF...@mid.individual.net...
cut
> Un'alternativa sarebbe controllare l'intero password ad un colpo:
>
> If StrComp(strC, UCase(strC), vbBinaryCompare) = 0 _
>    Or StrComp(strC, LCase(strC), vbBinaryCompare) = 0 Then
>    ' ci sono solo maiuscole o minuscole o nessun lettera
> Else
>    ' tutto a posto
> End If
>
> --
> HTH
> Karl
Si, va bene ma se applicato sul singolo carattere e non sull'intera stringa.
Lui ha bisogno di fare un parsing lettera per lettera.
Ciao, Carlo


text:
On 8 Dic, 20:53, "Carlo Costarella" <
carlocoslib...@libero.it
> wrote:
> "Karl Donaubauer" <
NoS...@donkarl.com
> ha scritto nel messaggionews:7o7nqqF...@mid.individual.net...
> cut
>
> > Un'alternativa sarebbe controllare l'intero password ad un colpo:
>
> > If StrComp(strC, UCase(strC), vbBinaryCompare) = 0 _
> >    Or StrComp(strC, LCase(strC), vbBinaryCompare) = 0 Then
> >    ' ci sono solo maiuscole o minuscole o nessun lettera
> > Else
> >    ' tutto a posto
> > End If
>
> > --
> > HTH
> > Karl
>
> Si, va bene ma se applicato sul singolo carattere e non sull'intera stringa.
> Lui ha bisogno di fare un parsing lettera per lettera.
>
> Ciao, Carlo
grazie mille Carlo e karl per la disponibilità
Carlo ho notato che il controllo lo fa solo sulla password e non sulla
password di verifica
in pratica se la password di verifica la scrivo tutta minuscola purchè
corretta l'accetta comunque
un altra cosa è possibile far resettare i campi in caso di errore?
così da evitare che rimangano comunque gli asterischi?
per il resto così provata al volo mi pare che faccia il suo dovere
grazie


text:
"marco veronesi" <
spazio...@gmail.com
> ha scritto nel messaggio
news:e374507e-c9d9-47f5...@b15g2000yqd.googlegroups.com...
On 8 Dic, 20:53, "Carlo Costarella" <
carlocoslib...@libero.it
> wrote:
> "Karl Donaubauer" <
NoS...@donkarl.com
> ha scritto nel
> messaggionews:7o7nqqF...@mid.individual.net...
> cut
>
> > Un'alternativa sarebbe controllare l'intero password ad un colpo:
>
> > If StrComp(strC, UCase(strC), vbBinaryCompare) = 0 _
> > Or StrComp(strC, LCase(strC), vbBinaryCompare) = 0 Then
> > ' ci sono solo maiuscole o minuscole o nessun lettera
> > Else
> > ' tutto a posto
> > End If
>
> > --
> > HTH
> > Karl
>
> Si, va bene ma se applicato sul singolo carattere e non sull'intera
> stringa.
> Lui ha bisogno di fare un parsing lettera per lettera.
>
> Ciao, Carlo
grazie mille Carlo e karl per la disponibilit�
Carlo ho notato che il controllo lo fa solo sulla password e non sulla
password di verifica
-----------------------
Non ne hai mai parlato...
in pratica se la password di verifica la scrivo tutta minuscola purch�
corretta l'accetta comunque
--------------------------
e ci credo! Devi usare Option compare Binary per il confronto binario tra
stringhe.
Siccome va dichiarato a livello di modulo ti consiglio di mettere il codice
di confronto in un modulo separato. In testa al modulo:
Option Compare Binary
Option Explicit
'tue variabili globali se ne hai
'Tue funzioni
Oppure, prendendo spunto dal codice di Karl, quando fai la verifica della
password impostata/inserita con quella memorizzata:
If StrComp("PasswordInserita", "PasswordMemorizzata", vbBinaryCompare) = 0
then
'le due stringhe sono identiche
else
'la due password sono diverse
End if
------------------------------------------------
un altra cosa � possibile far resettare i campi in caso di errore?
cos� da evitare che rimangano comunque gli asterischi?
per il resto cos� provata al volo mi pare che faccia il suo dovere
grazie
------------------------
Premetto che non conosco il nome dei tuoi "campi" (si dice "controlli") e
nemmeno se il codice gira in un modulo globale o locale a una maschera:
If TuaFunzioneDiVerifica_o_QuelloCheTiPare = False then
Me.NomeControllo = ""
'oppure Forms!NomeMaschera!NomeControllo = ""
End if
Ciao, Carlo


text:
On 8 Dic, 22:27, "Carlo Costarella" <
carlocoslib...@libero.it
> wrote:
> "marco veronesi" <
spazionew...@gmail.com
> ha scritto nel messaggionews:e374507e-c9d9-47f5...@b15g2000yqd.googlegroups.com...
> On 8 Dic, 20:53, "Carlo Costarella" <
carlocoslib...@libero.it
> wrote:
>
>
>
>
>
> > "Karl Donaubauer" <
NoS...@donkarl.com
> ha scritto nel
> > messaggionews:7o7nqqF...@mid.individual.net...
> > cut
>
> > > Un'alternativa sarebbe controllare l'intero password ad un colpo:
>
> > > If StrComp(strC, UCase(strC), vbBinaryCompare) = 0 _
> > > Or StrComp(strC, LCase(strC), vbBinaryCompare) = 0 Then
> > > ' ci sono solo maiuscole o minuscole o nessun lettera
> > > Else
> > > ' tutto a posto
> > > End If
>
> > > --
> > > HTH
> > > Karl
>
> > Si, va bene ma se applicato sul singolo carattere e non sull'intera
> > stringa.
> > Lui ha bisogno di fare un parsing lettera per lettera.
>
> > Ciao, Carlo
>
> grazie mille Carlo e karl per la disponibilità
> Carlo ho notato che il controllo lo fa solo sulla password e non sulla
> password di verifica
> -----------------------
> Non ne hai mai parlato...
>
> in pratica se la password di verifica la scrivo tutta minuscola purchè
> corretta l'accetta comunque
> --------------------------
> e ci credo! Devi usare Option compare Binary per il confronto binario tra
> stringhe.
> Siccome va dichiarato a livello di modulo ti consiglio di mettere il codice
> di confronto in un modulo separato. In testa al modulo:
> Option Compare Binary
> Option Explicit
> 'tue variabili globali se ne hai
> 'Tue funzioni
> Oppure, prendendo spunto dal codice di Karl, quando fai la verifica della
> password impostata/inserita con quella memorizzata:
> If StrComp("PasswordInserita", "PasswordMemorizzata", vbBinaryCompare) = 0
> then
> 'le due stringhe sono identiche
> else
> 'la due password sono diverse
> End if
> ------------------------------------------------
> un altra cosa è possibile far resettare i campi in caso di errore?
> così da evitare che rimangano comunque gli asterischi?
> per il resto così provata al volo mi pare che faccia il suo dovere
> grazie
> ------------------------
> Premetto che non conosco il nome dei tuoi "campi" (si dice "controlli") e
> nemmeno se il codice gira in un modulo globale o locale a una maschera:
>
>
> Ciao, Carlo- Nascondi testo citato
>
> - Mostra testo citato -
Ciao,
il codice gira nella maschera e non nel modulo ora il problema di
reset dei controlli erratti credo sia l'ultima cosa che mi resta per
concludere.
I controlli (ora so una cosa nuova) sono quelli del codice che hai
scritto tu newpassword e newpasswordverifye si trovano nella maschera
frm_ChangePassword
quindi avrei fatto così ma con scarsi risultati
If newpasswordverify = False then
Me.newpasswordverify = ""
End if
Ciao


text:
"marco veronesi" <
spazio...@gmail.com
> ha scritto nel messaggio
news:6c85a6ca-d108-4c38...@r40g2000yqn.googlegroups.com...
On 8 Dic, 22:27, "Carlo Costarella" <
carlocoslib...@libero.it
> wrote:
> "marco veronesi" <
spazionew...@gmail.com
> ha scritto nel
> messaggionews:e374507e-c9d9-47f5...@b15g2000yqd.googlegroups.com...
> On 8 Dic, 20:53, "Carlo Costarella" <
carlocoslib...@libero.it
> wrote:
>
>
>
>
>
> > "Karl Donaubauer" <
NoS...@donkarl.com
> ha scritto nel
> > messaggionews:7o7nqqF...@mid.individual.net...
> > cut
>
> > > Un'alternativa sarebbe controllare l'intero password ad un colpo:
>
> > > If StrComp(strC, UCase(strC), vbBinaryCompare) = 0 _
> > > Or StrComp(strC, LCase(strC), vbBinaryCompare) = 0 Then
> > > ' ci sono solo maiuscole o minuscole o nessun lettera
> > > Else
> > > ' tutto a posto
> > > End If
>
> > > --
> > > HTH
> > > Karl
>
> > Si, va bene ma se applicato sul singolo carattere e non sull'intera
> > stringa.
> > Lui ha bisogno di fare un parsing lettera per lettera.
>
> > Ciao, Carlo
>
> grazie mille Carlo e karl per la disponibilit�
> Carlo ho notato che il controllo lo fa solo sulla password e non sulla
> password di verifica
> -----------------------
> Non ne hai mai parlato...
>
> in pratica se la password di verifica la scrivo tutta minuscola purch�
> corretta l'accetta comunque
> --------------------------
> e ci credo! Devi usare Option compare Binary per il confronto binario tra
> stringhe.
> Siccome va dichiarato a livello di modulo ti consiglio di mettere il
> codice
> di confronto in un modulo separato. In testa al modulo:
> Option Compare Binary
> Option Explicit
> 'tue variabili globali se ne hai
> 'Tue funzioni
> Oppure, prendendo spunto dal codice di Karl, quando fai la verifica della
> password impostata/inserita con quella memorizzata:
> If StrComp("PasswordInserita", "PasswordMemorizzata", vbBinaryCompare) = 0
> then
> 'le due stringhe sono identiche
> else
> 'la due password sono diverse
> End if
> ------------------------------------------------
> un altra cosa � possibile far resettare i campi in caso di errore?
> cos� da evitare che rimangano comunque gli asterischi?
> per il resto cos� provata al volo mi pare che faccia il suo dovere
> grazie
> ------------------------
> Premetto che non conosco il nome dei tuoi "campi" (si dice "controlli") e
> nemmeno se il codice gira in un modulo globale o locale a una maschera:
>
>
> Ciao, Carlo- Nascondi testo citato
>
> - Mostra testo citato -
Ciao,
il codice gira nella maschera e non nel modulo ora il problema di
reset dei controlli erratti credo sia l'ultima cosa che mi resta per
concludere.
I controlli (ora so una cosa nuova) sono quelli del codice che hai
scritto tu newpassword e newpasswordverifye si trovano nella maschera
frm_ChangePassword
quindi avrei fatto cos� ma con scarsi risultati
If newpasswordverify = False then
Me.newpasswordverify = ""
End if
Ciao
-------------------------------------
Immagino che la form contenga anche un pulsante OK. E' su click di questo
pulsante che potresti fare la verifica.
If StrComp(Me.newpassword , Me.newpasswordverifye, vbBinaryCompare) = 0 then
msgbox "Password Accettata"
Else
msgbox "Le password inserite non sono uguali, riprovare."
Me.newpasswordverifye = ""
Me.newpassword = ""
Me.newpassword.setfocus
End if
Immagino che i controlli siano tre: VecchiaPassword, NuovaPassword e
PasswordDiVerifica.
Anche il confronto tra vecchia e nuova password va implementato:
If StrComp(Me.Oldpassword , Me.newpassword, vbBinaryCompare) = 0 then
msgbox "Vecchia e nuova password sono uguali, riprovare"
Me.newpassword = ""
Me.Newpassword.SetFocus
End if
In pratica: l'utente inserisce vecchia, nuova e verifica password; tu fai il
controllo sulla complessit� della password nuova, la confronti con la
vecchia per vedere se � identica, infine la confronti con la verifica
affinch� sia identica.
Ora hai tutti gli elementi per proseguire da solo.
Ciao, Carlo


text:
Carlo Costarella wrote:
> "Karl Donaubauer ha scritto:
> ...
>> Un'alternativa sarebbe controllare l'intero password ad un colpo:
>>
>> If StrComp(strC, UCase(strC), vbBinaryCompare) = 0 _
>>    Or StrComp(strC, LCase(strC), vbBinaryCompare) = 0 Then
>>    ' ci sono solo maiuscole o minuscole o nessun lettera
>> Else
>>    ' tutto a posto
>> End If
> ...
> Si, va bene ma se applicato sul singolo carattere e non sull'intera
> stringa. Lui ha bisogno di fare un parsing lettera per lettera.
Per le altre verificazioni, sï¿œ. Perï¿œ per una prova o un paragone
che si riferisce all'intera stringa userei l'intera stringa se possibile.
Quindi il tuo esempio:
> For nI = 1 To Len(strC)
>    If IsNumeric(Mid(strC, nI, 1)) Then
>            blnN = True
>     '-----------------------------------------
>     'verifico se ci sono maiuscole e quindi
>     'anche il carattere ï¿œ presente
>     ElseIf Asc(Mid(strC, nI, 1)) > 64 And Asc(Mid(strC, nI, 1)) <
>     91 Then blnMaiu = True
>     blnC = True
>     'verifico se ci sono minuscole e quindi
>     'anche il carattere ï¿œ presente
>     ElseIf Asc(Mid(strC, nI, 1)) > 96 And Asc(Mid(strC, nI, 1)) <
>     123 Then blnMin = True
>     blnC = True
>     '-----------------------------------------
>     'verifico se ci sono caratteri speciali tra
>     '33 47  e 58  64   e 91  96  e 123  126
>     ElseIf Asc(Mid(strC, nI, 1)) > 32 And Asc(Mid(strC, nI, 1)) <
>     48 Then blnX = True
>     ElseIf Asc(Mid(strC, nI, 1)) > 57 And Asc(Mid(strC, nI, 1)) <
>     65 Then blnX = True
>     ElseIf Asc(Mid(strC, nI, 1)) > 90 And Asc(Mid(strC, nI, 1)) <
>     97 Then blnX = True
>     ElseIf Asc(Mid(strC, nI, 1)) > 122 And Asc(Mid(strC, nI, 1)) <
>     127 Then blnX = True
>     '-----------------------------------------
>
>     End If
>         If blnN And blnC And blnX And blnMaiu And blnMin Then Exit
> For Next nI
potrebbe diventare
For nI = 1 To Len(strC)
    Select Case Asc(Mid(strC, nI, 1))
        'cifra
        Case 48 To 57
            blnN = True
        'carattere speciale
        Case 33 To 47, 58 To 64, 91 To 96, 123 To 126
            blnX = True
    End Select
    If blnN And blnX Then Exit For
Next nI
' maiuscola e minuscola e lettera
If StrComp(strC, UCase(strC), vbBinaryCompare) <> 0 _
    And StrComp(strC, LCase(strC), vbBinaryCompare) <> 0 Then
    blnC = True
End If
--
cu



text:
Ciao grazie a voi ho risolto. ora l'ultomo problema di resett capo in
caso di errore lo ho nel controllo di congruità tra la vecchia
password registrata in tabella e quella digitata nella form
changepassword ho provato ad aggiungere me.oldpassword = "" ma in
questo caso non funziona incollo la porzione di codice nella speranza
di non avervi stressato
Private Sub oldpassword_BeforeUpdate(Cancel As Integer)
'' routine che controlla l'ugualianza della password
'' realizzata per il controllo sull'utilizzo maiuscole e minuscole
   Dim retValue As Integer
   Dim oldpassword As String
   Dim Confronto As String
   oldpassword = Me.oldpassword
  Confronto = DLookup("Password", "Tbl_utenti", "Utente = """ & Forms!
mascher4!utente & """")
If StrComp(oldpassword, Confronto, vbBinaryCompare) <> 0 Then
   Me.oldpassword.Undo
   Cancel = True
   Dim strTtl As String
   strTtl = "PASSWORD"
   strMsg = "ATTENZIONE, la password corrente non è corretta, vuoi
riprovare?"
   retValue = MsgBox(strMsg, vbCritical + vbYesNo, strTtl)
   Select Case retValue
      Case vbNo
           DoCmd.Close
   End Select
   End If
End Sub


author: Geppo

text:
>>> Un'alternativa sarebbe controllare l'intero password ad un colpo:
>>>
>>> If StrComp(strC, UCase(strC), vbBinaryCompare) = 0 _
>>>    Or StrComp(strC, LCase(strC), vbBinaryCompare) = 0 Then
>>>    ' ci sono solo maiuscole o minuscole o nessun lettera
>>> Else
>>>    ' tutto a posto
>>> End If
>> ...
>> Si, va bene ma se applicato sul singolo carattere e non sull'intera
>> stringa. Lui ha bisogno di fare un parsing lettera per lettera.
>
> Per le altre verificazioni, s�. Per� per una prova o un paragone
> che si riferisce all'intera stringa userei l'intera stringa se possibile.
> Quindi il tuo esempio:
>
>> For nI = 1 To Len(strC)
>>    If IsNumeric(Mid(strC, nI, 1)) Then
>>            blnN = True
>>     '-----------------------------------------
>>     'verifico se ci sono maiuscole e quindi
>>     'anche il carattere � presente
>>     ElseIf Asc(Mid(strC, nI, 1)) > 64 And Asc(Mid(strC, nI, 1)) <
>>     91 Then blnMaiu = True
>>     blnC = True
>>     'verifico se ci sono minuscole e quindi
>>     'anche il carattere � presente

oppure cosi, che forse � pi� comprensibile:
For i = 1 To Len(pass)
  If InStr("0123456789", Mid(pass, i, 1)) > 0 Then
        blnN = True
  End If
  If InStr("!@#$%^&*()_+=|�/?�����٧.:,;�\""", Mid(pass, i, 1)) > 0 Then
        blnX = True
  End If
   If InStr("abcdefghilmnopqrstuvwxyz", Mid(pass, i, 1)) > 0 Then
         blnMin = True
For ii = Asc("A") To Asc("Z")
if InStr(ii, Asc(Mid(pass, i, 1)))>0 then
       blnMaiu = True
End if
Next ii
Next i
--
Ciao
Geppo


text:
Ciao "marco veronesi" <
spazio...@gmail.com
> ha scritto nel messaggio
news:20fff3fd-fd08-47c0...@j24g2000yqa.googlegroups.com...
Ciao grazie a voi ho risolto. ora l'ultomo problema di resett capo in
caso di errore lo ho nel controllo di congruit� tra la vecchia
password registrata in tabella e quella digitata nella form
changepassword ho provato ad aggiungere me.oldpassword = "" ma in
questo caso non funziona incollo la porzione di codice nella speranza
di non avervi stressato
ma questa � scritta correttamente?
.....""" & Forms!mascher4!utente & """")
--
Ciao
Geppo


text:
On 10 Dic, 00:17, "Geppo" <c...@tin.it.invalid> wrote:
> Ciao "marco veronesi" <
spazionew...@gmail.com
> ha scritto nel messaggionews:20fff3fd-fd08-47c0...@j24g2000yqa.googlegroups.com...
> Ciao grazie a voi ho risolto. ora l'ultomo problema di resett capo in
> caso di errore lo ho nel controllo di congruità tra la vecchia
> password registrata in tabella e quella digitata nella form
> changepassword ho provato ad aggiungere me.oldpassword = "" ma in
> questo caso non funziona incollo la porzione di codice nella speranza
> di non avervi stressato
>
> ma questa è scritta correttamente?
>
> .....""" & Forms!mascher4!utente & """")
>
> --
> Ciao
> Geppo
ciao geppo,
se ti riferisci a questa porzione di codice esegue perfettamente la
sua funzione e direi che è corretto, quale errore ci leggi?



text:
Geppo wrote:
>> ...
> oppure cosi, che forse è più comprensibile:
>
> For i = 1 To Len(pass)
>
>  If InStr("0123456789", Mid(pass, i, 1)) > 0 Then
>        blnN = True
>  End If
>  If InStr("!@#$%^&*()_+=|£/?ÈÀ°ÒÇÙ§.:,;Ì\""", Mid(pass, i, 1)) > 0
>        Then blnX = True
A prima vista mancano tanti segni speciali come: - < > ' ~ { } [ ] €
(se qualcuno solo vede ? invece dell'ultimo segno, si tratta dell'Euro)
D'altra parte hai incluso segni come le lettere con l'accento
(con ` ma non ´ ). Per me è difficile a dire cosa sarebbe un segno
speciale per un italiano o su una tastiera italiana. ;-)
Lo stesso vale per "j" e "k" che mancano di sotto ma se non ero esistono
anche nel "italiano moderno": jazz, jeans, jolly, ketchup, killer, kiwi ecc.
>  End If
>
>   If InStr("abcdefghilmnopqrstuvwxyz", Mid(pass, i, 1)) > 0 Then
>         blnMin = True
>
> For ii = Asc("A") To Asc("Z")
> if InStr(ii, Asc(Mid(pass, i, 1)))>0 then
>
>       blnMaiu = True
> End if
> Next ii
> Next i
--



text:
Ciao "Karl Donaubauer" <
NoS...@donkarl.com
> ha scritto nel messaggio
news:7obs62F...@mid.individual.net...
> Geppo wrote:
>>> ...
>> oppure cosi, che forse � pi� comprensibile:
>>
>> For i = 1 To Len(pass)
>>
>>  If InStr("0123456789", Mid(pass, i, 1)) > 0 Then
>>        blnN = True
>>  End If
>>  If InStr("!@#$%^&*()_+=|�/?�����٧.:,;�\""", Mid(pass, i, 1)) > 0
>>        Then blnX = True
>
> A prima vista mancano tanti segni speciali come: - < > ' ~ { } [ ] ?
> (se qualcuno solo vede ? invece dell'ultimo segno, si tratta dell'Euro)
Beh, questo voleva solo essere un esempio....
> D'altra parte hai incluso segni come le lettere con l'accento
> (con ` ma non � ). Per me � difficile a dire cosa sarebbe un segno
> speciale per un italiano o su una tastiera italiana. ;-)
Sicuramente, ma � pi� semplice implementarlo per chi invece lo sa.
> Lo stesso vale per "j" e "k" che mancano di sotto ma se non ero esistono
> anche nel "italiano moderno": jazz, jeans, jolly, ketchup, killer, kiwi
> ecc.
per�, come vedi � stato semplice individuarlo ;-)
>>  End If
>>   If InStr("abcdefghilmnopqrstuvwxyz", Mid(pass, i, 1)) > 0 Then
>>         blnMin = True
>>
>> For ii = Asc("A") To Asc("Z")
>> if InStr(ii, Asc(Mid(pass, i, 1)))>0 then
>>
>>       blnMaiu = True
>> End if
>> Next ii
>> Next i
--
Ciao
Geppo


text:
Ciao "marco veronesi" <
spazio...@gmail.com
> ha scritto nel messaggio
news:9a6eda5c-385f-4ac7...@j24g2000yqa.googlegroups.com...
On 10 Dic, 00:17, "Geppo" <c...@tin.it.invalid> wrote:
>ciao geppo,
>se ti riferisci a questa porzione di codice esegue perfettamente la
>sua funzione e direi che � corretto, quale errore ci leggi?
 >Confronto = DLookup("Password", "Tbl_utenti", "Utente = """ & Forms!
>mascher4!utente & """")
mi riferivo al nome della form si chiama proprio cosi?
mascher4
--
Ciao
Geppo


text:
On 10 Dic, 18:39, "Geppo" <c...@tin.it.invalid> wrote:
> Ciao "marco veronesi" <
spazionew...@gmail.com
> ha scritto nel messaggionews:9a6eda5c-385f-4ac7...@j24g2000yqa.googlegroups.com...
> On 10 Dic, 00:17, "Geppo" <c...@tin.it.invalid> wrote:
>
> >ciao geppo,
> >se ti riferisci a questa porzione di codice esegue perfettamente la
> >sua funzione e direi che è corretto, quale errore ci leggi?
>
>  >Confronto = DLookup("Password", "Tbl_utenti", "Utente = """ & Forms!
>
> >mascher4!utente & """")
>
> mi riferivo al nome della form si chiama proprio cosi?
>
> mascher4
>
> --
> Ciao
> Geppo
ciao geppo si si chiama proprio così :-)


title: Errore 2001 e 2501

author: Antonello P.

text:
Sto impazzendo con una query che a volte funziona a volta no. Quando
non funziona mi da i 2 seguenti mess di errore:
1-Operaz Precedente Annullata
   Numero errore 2001
   LastDllError = 0
oppure il seguente:

2- ApplyFilter è stata annullata
    Numero Errore 2501
    LastDllError =0 oppure a volte 5.
Che cosa significano? c'è qualche dll corrotta. Premetto che questo DB
spesso va in crash.
Ciao a tutti.


title: Errore 2001 e 2501

text:
antonell...@tiscali.it
 (Antonello P.) wrote in message news:<
efacde40.05020...@posting.google.com
>...

Oggi è apparso un errore sul file url.dll usando il comando
shell(rundll32.exe url.dll, FileProtocolHandler...
Potrebbero essere correletati i due errori?


title: possibile che nessuno sappia aiutarmi?

author: GiuseppeD

text:
Mi si presenta questo problema da risolvere:
In una maschera principale ho collegato due sottomaschere "carico e
scarico", collegate in relazione uno a molti col campo codice della maschera
principale;
il tutto funziona bene, ma ho la necessità di numerare i movimenti di ogni
prodotto:
In pratica devo visualizzare il numero progressivo dell'operazione
effettuata per quel singolo prodotto su ogni record. (se per quel prodotto
ho tre operazioni di carico, deve contarmi 1, 2, 3.; altrettanto per lo
scario...)
Il conteggio deve essere separato per lo scarico e per il carico, per questo
motivo ho due sottomaschere dipendenti da 2 qry.
Anticipatamente grazie.
Giuseppe._


title: possibile che nessuno sappia aiutarmi?

author: Graziano Franchi (Dal Portatile)

text:
Spiegati meglio
ciao
"GiuseppeD" <
scuolaa...@interbusiness.it
> ha scritto nel messaggio
news:8i4sgn$7gi$1...@fe1.cs.interbusiness.it...
> Mi si presenta questo problema da risolvere:
> In una maschera principale ho collegato due sottomaschere "carico e
> scarico", collegate in relazione uno a molti col campo codice della
maschera
> principale;
> il tutto funziona bene, ma ho la necessitą di numerare i movimenti di ogni



title: query con filtraggio di date

author: Michel Foschi

text:
ciao ragazzi ho il seguente problema....
ho questi dati:
A   1    5ore   10/11/02
A   1    3ore   11/11/02
A   3    4ore   15/11/02
voglio fare una query in modo tale che
    somma
A     1     8ore
A     3     4ore
e fin qui non ci sono problemi... quello che non so fare è filtrare il
tutto da data a data in modo tale che se voglio tutti i risultati dal
11/11/02 al 15/11/02 il risultato sia
    somma
A     1     3ore
A     3     4ore
solo che se la filtro dall 10/11 al 15/11 il risultato è
A     1     5ore
A     1     3ore
A     3     4ore
perchè raggruppa anche per data!!!
Non so come fare !!!! HEEEEELLLLPPPP
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: query con filtraggio di date

author: Alessandro Nazzani

text:
"Michel Foschi" <
volt...@hotmail.com
> wrote in message
news:7957feb78295f15144b...@mygate.mailgate.org...
> ciao ragazzi ho il seguente problema....
>
> ho questi dati:
> A   1    5ore   10/11/02
> A   1    3ore   11/11/02
> A   3    4ore   15/11/02
>
> voglio fare una query in modo tale che
>     somma
> A     1     8ore
> A     3     4ore
>
> e fin qui non ci sono problemi... quello che non so fare è filtrare il
> tutto da data a data in modo tale che se voglio tutti i risultati dal
> 11/11/02 al 15/11/02 il risultato sia
>     somma
> A     1     3ore
> A     3     4ore
>
> solo che se la filtro dall 10/11 al 15/11 il risultato è
>
> A     1     5ore
> A     1     3ore
> A     3     4ore
>
> perchè raggruppa anche per data!!!
Supponendo che i campi si chiamino campo1, campo2, ore, e data, puoi provare
qualcosa tipo:
SELECT campo1, campo2, data, SUM([ore]) AS TotOre FROM miaTabella WHERE
data BETWEEN #10/11/2002# AND #11/11/2002# GROUP BY campo1, campo2, data;
HTH.
Alessandro


title: prova

author: ferplus

text:
vedo se funziona
--
ciao


title: prova

text:
vedo se funzia
--
ciao


title: Unire totali di due query2

author: Cidi

text:
ciao a tutti

cerco qualcuno che possa darmi, naturalmente
dietro compenso, la soluzione a questo problema:
le prime due query hanno lo stesso numero di record.
la sola differenza è che i primi 3 record hanno un solo
Prodotto di dettaglio mentre il 4 ne ha 2
IDOrdIDFornit IDProd  	QtaOrdinata	NumeroOrdine
41	7	22	34		Or001/2015
42	15	27	20		Or002/2015
43	12	24	10		Or003/2015
44	7	22	22		Or004/2015
44	7	23	14		Or004/2015

IDOrdIDFornit IDProd 	QtaRicevuta  	NumeroFattura
41	7	22	34		Or001/2015
42	15	27	18		Or002/2015
43	12	24	10		Or003/2015
44	7	22	12		Or004/2015
44	7	23	5		Or004/2015

questa è la query risultante.

IDOrd	IDFornitIDProd	QtaOrdinataNumeroOrdine QtaRicevuta
41	7	22	34	     Or001/2015   34
42	15	27	20	     Or002/2015   18
43	12	24	10	     Or003/2015   10
44	7	22	22	     Or004/2015    5
44	7	22	22	     Or004/2015   12
44	7	23	14	     Or004/2015    5
44	7	23	14	     Or004/2015   12

SELECT
   qryProdottiOrdinati.IDOrdine,
   qryProdottiOrdinati.IDFornitore,
   qryProdottiOrdinati.IDProdotto,
   qryProdottiOrdinati.QtaOrdinata,
   qryProdottiOrdinati.NumeroOrdine,
   qryProdottiArrivati.QtaRicevuta
FROM qryProdottiOrdinati
INNER JOIN qryProdottiArrivati
   ON qryProdottiOrdinati.IDOrdine = qryProdottiArrivati.IDOrdine
GROUP BY qryProdottiOrdinati.IDOrdine,
          qryProdottiOrdinati.IDFornitore,
          qryProdottiOrdinati.IDProdotto,
          qryProdottiOrdinati.QtaOrdinata,
          qryProdottiOrdinati.NumeroOrdine,
          qryProdottiArrivati.QtaRicevuta;

vorrei capire perchè raddoppia i record con più righe invece
di inserire, come nei record con un solo prodotto, la Qtaricevuta.

Per ulteriori chiarimenti e concordare compenso, contattarmi
togliendo dalla mia mail: no prima @ e nospam dopo.

Grazie

Daniele


title: Unire totali di due query2

author: Bruno Campanini

text:
Cidi has brought this to us :

Può essere questa la soluzioine?

SELECT
T_11.ID_Ordine,
T_11.ID_Fornitore,
T_11.ID_Prodotto,
T_12.NumroFattura,
T_11.QtaOrdinata,
T_12.QtaRicevuta
FROM T_11 INNER JOIN T_12 ON
(T_11.NumroOrdine  =  T_12.NumroFattura) AND
(T_11.ID_Prodotto  =  T_12.ID_Prodotto)  AND
(T_11.ID_Fornitore =  T_12.ID_Fornitore) AND
(T_11.ID_Ordine    =  T_12.ID_Ordine);

Bruno
PS
T11 e T12 sono le due tabelle corrispondenti alle tue prime 2 query.


title: Unire totali di due query2

text:
Il 26/06/2015 01:57, Bruno Campanini ha scritto:
> Cidi has brought this to us :
>> ciao a tutti

>>

ciao Bruno
Ottima soluzione.
aspetto la tua mail

Daniele


title: Unire totali di due query2

text:
Cidi presented the following explanation :

> ciao Bruno
> Ottima soluzione.
> aspetto la tua mail

Ho finito i francobolli.

Bruno


title: Unire totali di due query2

text:

ciao Bruno
ho provato a spedirteli ... :-)
Ma Tb mi dice che il tuo non è un indirizzo mail valido.
come posso contattarti?

Daniele


title: Unire totali di due query2

text:
on 26-06-15, Cidi supposed :

Non sono un amante della filatelia.
Comunque brunocam§§§
libero.it
 dove ho più di 4000 msg da leggere,
e dove vado a leggere solo su preavviso telefonico ovvero
notifica a mezzo piccione viaggiatore.

Bruno


title: Unire totali di due query2

author: CIDI

text:

notifica inviata... é arrivato 'o piccione?

buona domenica

Daniele

--- news://
freenews.netfront.net/
 - complaints:
ne...@netfront.net
 ---


title: Indirizzi clienti

author: Marco

text:
Buongiorno a tutti,
sto facendo un piccolo database per stampare i DDT(documento di trasporto),
ho creato due tabelle e due maschere, ddt e clienti, dove sulla tbl ddt ci
sono i campi riguardanti il documento,
sulla tbl clienti gli indirizzi dei clienti.
Come posso fare per creare un report che possa stamparmi il DDT con la
possibilità di scegliere il cliente?
Grazie a chi vorrà rispondermi!!


title: Indirizzi clienti

text:
Roberto dal portatile <
r.ma...@libero.it
> wrote in message
jHHu6.10137$dJ6.6...@news.infostrada.it...
>
> "Marco" <
bub...@hotmail.com
> ha scritto nel messaggio
> news:IcGu6.13279$lT1.2...@news2.tin.it...

> E se per un cliente devi stampare più di un DDT, come pensi di
organizzarti?
> E per i DDT di un determinato cliente già stampati, comunque presenti
nella
> tabella ddt, cosa pensi di fare?
>
> --
>
> Roberto
Non importa, mi basta avere un numero progressivo e la codifica dei clienti,
non mi serve altro perchè uso il programma solo per stampare i ddt


title: Indirizzi clienti

author: Roberto dal portatile

text:
"Marco" <
bub...@hotmail.com
> ha scritto nel messaggio
news:IcGu6.13279$lT1.2...@news2.tin.it...

E se per un cliente devi stampare più di un DDT, come pensi di organizzarti?
E per i DDT di un determinato cliente già stampati, comunque presenti nella
tabella ddt, cosa pensi di fare?
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Indirizzi clienti

text:
"Cyclonxz1" <
mor...@iname.com
> ha scritto nel messaggio
news:SIHu6.14558$lT1.2...@news2.tin.it...

Quello che ti serve lo trovi realizzato nel database Ordini che viene
distribuito dalla Microsoft insieme ad Access.
La maschera Ordini rappresenta la tua maschera DDT e il report Fattura è il
tuo report DDT.
Se come mi sembra di capire, non vuoi emettere anche la fattura, semplifica
la maschera Ordini ed il report Fattura eliminando tutti i controlli
relativi agli importi e i rispettivi calcoli.
Oppure lascia le cose così per quando emetterai anche la fattura e, per la
stampa dei DDT, lavora sulla copia di maschera e report debitamente riveduti
e corretti.
Resta il fatto che l'architettura del tuo database, a mio avviso, è quella
del database di esempio Ordini, naturalmente personalizzata alle tue
esigenze con un pò di taglia e cuci.



title: Indirizzi clienti

text:
"Roberto dal portatile" <
r.ma...@libero.it
> ha scritto nel messaggio
news:T1Ju6.10608$dJ6.6...@news.infostrada.it...

> Grazie, proverò a studiare la maschera Ordini e poi vediamo,
e se per caso dovessi creare un altro campo contatore numerico?


title: Indirizzi clienti

author: Roberto da casa

text:
"Cyclonxz1" <
mor...@iname.com
> ha scritto nel messaggio
news:99glao$orh$1...@nreadA.inwind.it...
>
[CUT]
> >
> >
> > Grazie, proverò a studiare la maschera Ordini e poi vediamo,
> e se per caso dovessi creare un altro campo contatore numerico?
>
>
Guarda che, nella maschera Ordini del database Ordini di cui ti ho parlato,
viene proprio usato un campo contatore come numero d'ordine, che per te sarà
naturalmente il numero di DDT.
Se poi non vuoi scopiazzare pezzi del database di cui sopra, studiatelo per
capire quale sia il modo migliore per operare; insomma adoperalo come
spunto.



title: Indirizzi clienti

text:
Roberto da casa <
r.ma...@libero.it
> wrote in message
ayRu6.14481$dJ6.1...@news.infostrada.it...
>
> "Cyclonxz1" <
mor...@iname.com
> ha scritto nel messaggio
> news:99glao$orh$1...@nreadA.inwind.it...
> >
> [CUT]
> > >
> > >
> > > Grazie, proverň a studiare la maschera Ordini e poi vediamo,
> > e se per caso dovessi creare un altro campo contatore numerico?
> >
> >
>
> Guarda che, nella maschera Ordini del database Ordini di cui ti ho
parlato,
> viene proprio usato un campo contatore come numero d'ordine, che per te
sarŕ
> naturalmente il numero di DDT.
> Se poi non vuoi scopiazzare pezzi del database di cui sopra, studiatelo
per
> capire quale sia il modo migliore per operare; insomma adoperalo come
> spunto.
>
> --
> Roberto
>
> ---------------------------------------------
> il Sito Comune di it.comp.appl.access:
>
http://www.sitocomune.com
> ---------------------------------------------
Ti ringrazio Roberto, ma sono una frana, ho provato per vari giorni a
studiare sia il database Ordini che la guida in linea e dopo ore e ore di
prove ho rinunciato, oggi perň ho provato a cambiare strada, chissŕ
forse...........
Il thread nuovo aperto alle 12:39 del 28/03 č:  "Copiare campi su un'altra
tabella"
Buona Giornata!!!


title: Creazione MDE

author: Gianni

text:
Pur avendo l'opzione disponibile per creare un file .MDE dal file
.MDB, ricevo il msg "Impossibile creare il database MDE".
Da cosa può essere causato il problema? Nell'help ho letto che é
necessario compilare prima il codice VBA; come é possibile?
Grazie a quanti risponderanno
Gianni


title: Creazione MDE

author: Carlo Costarella

text:
"Gianni" <
gianni....@tiscali.it
> ha scritto nel messaggio
news:4mq2v1hut64hol68s...@4ax.com...

Se usi Axp e il db è in formato 2000 devi prima convertirlo alla versione
2002 e poi creare l'mde.
Ciao, Carlo


title: Creazione MDE

text:
Gianni wrote:
> Pur avendo l'opzione disponibile per creare un file .MDE dal file
> .MDB, ricevo il msg "Impossibile creare il database MDE".
> Da cosa può essere causato il problema? Nell'help ho letto che é
> necessario compilare prima il codice VBA; come é possibile?
www.donkarl.com/it
 FAQ 7.17 La creazione di un MDE non riesce
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it
 + CISA2
Conferenza Italiana per Sviluppatori di Access, Ancona, 22+23/4/2006


title: foto su report

author: Luciano

text:
ciao
mi sto ammattendo dietro un report che non mi mostra le foto. Mi spiego: ho
una tabella Dipendenti con dati anagrafici e un campo foto. La maschera
Dipendenti scorre i record regolarmente mostrandomi le foto associate ogni
dipendente e funziona sia che nella tabella il campo foto è OLE,  hyperlink
o anche semplicemente testo, se metto le foto nella stessa cartella del DB e
scrivo nel campo, per esempio:
Antonini.bmp.
Quello che non riesco a fare è creare un report che abbia le stesse
caratteristiche della maschera, e cioè che mostri per ogni pagina i dati
anagrafici della persona e la relativa foto.
O meglio, il report l'ho creato, i dati me li restituisce ma quello che mi
fà dannare è il campo foto: non me la carica. Ho provato con cornici oggetti
associate e non , campi immagine, ecc. modificando il tipo di campo nella
tabella ma non cè risultato: la cornice della foto rimane tristemente vuota.
Ho studiato il DB di Northwind che ha un report simile e anche una pagina di
accesso ai dati (mi andrebbe bene anche quella) ma non ho trovato il mio
errore. Le proprietà del campo mi sembrano corrette, l'origine dati è
giusta. Anche sul sito comune non ho trovato un DB che mi potesse aiutare,
eppure dovrebbe essere una cosa abbastanza semplice. Qualcuno mi può
aiutare?
grazie mille


title: foto su report

author: Roberto dalla campagna

text:
"Luciano" <
lu.s...@aliceposta.it
> ha scritto nel messaggio
news:%gQxe.28277$h5.12...@news3.tin.it...

Se in tabella hai un campo di tipo testo che contiene il path completo del
file immagine, vai sul Sito Comune e leggi la FAQ la prima parte della FAQ
di Stefano Bettini posta nella Sezione General e che è intitolata "6.13 Come
implementare correttamente un archivio di immagini".
Visto che vai nella Sezione General del Sito Comune dai anche un'occhiata
alla mia FAQ intitolata "6.197 I controlli immagine nelle maschere e nei
report nei runtime".
--
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------


title: BeforeInsert ??!!

author: Mauro

text:
Aiuto,

ho una maschera che mi sta creando un po' di
problemi.

Innanzitutto passando ad un nuovo record con la
tabulazione i controlli nella nuova riga non venivano disegnati correttamente.
Ho provato a seminare delle RepaintObject un po' dappertutto ma non funziona (ho
già provato ad ottimizzare le origini dati).

Altro problema è che
all'aggiunta di un nuovo record non parte l'evento BeforeInsert
???!!!.

A me sembra un bug.

Qualcuno sa aiutarmi.

Grazie


title: BeforeInsert ??!!

author: Alex

text:
"Mauro" <
m.mi...@tiscalinet.it
> wrote in message
news:0yVZ7.3471$2R2.1...@news1.tin.it...

Mi viene un dubbio sull'evento BEFORE INSERT, ma non è che è giusto così...!
Per rilevare l'evento nuovo record, io ho sempre visto il controllo
del metodo "NewRecord".
Nel senso che, credo, non venga attivato il Before Insert fino a quando
la proprietà Dirty di Form è vera, il che corrisponde almeno ad aver attivato
un controllo per la modifica.
Invece come dico io sarebbe:
Private sub Form_OnCurrent()
  If Me.NewRecord then
     'Rileva addNew .........
  Else
     'no
  End if
End sub
Spero di non averti portato fuori strada.....!
@Alex
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG