title: ma davvero non è possibile?????

author: Sergio MAZZA

text:
<
ari...@libero.it
> ha scritto nel messaggio
news:O5H47.1375$Db7....@news.infostrada.it...

Secondo me faresti bene a crearti subito una routine in VBA che legge
qualsiasi file .TXT in una cartella indicata da te e che esegua un ciclo di
importazioni dati (transferdatabase) per ogni file, se necessario.
Lo spunto lo puoi trovare nell'esempio della funzione Dir(); così qualsiasi
file TXT è presente nella cartella tu lo importi... e ciccia!
Ciao.


title: ma davvero non è possibile?????

text:
"Sergio MAZZA" <
sergi...@tiscalinet.it
> ha scritto nel messaggio
news:9ivkcf$alu$1...@canarie.caspur.it...

ok.....siete davvero fortissimi e grazie per la tempestività
domattina appena in ufficio ci provero'
per intanto grazie


title: ma davvero non è possibile?????

text:
"Carlo Filippini" <carlo.f...@NOSPAMtiscalinet.it> ha scritto nel
messaggio news:8td9ltsmg3fejgfr1...@4ax.com...
> On Mon, 16 Jul 2001 19:18:06 GMT, <
ari...@libero.it
> wrote:
>
> > da queso mese e così sarò in futuro il nome del file sarà sempre diverso
> > tranne per i primi sei caratteri che sono sempre uguali.
> > ho cercato di imporre il nome del file dai importare con l'uso di
caratteri
> > jolli (* - ?) ma il file così denominato non viene riconosciuto.
>
> Hai provato a riferirti al file con il nome DOS?
> filetx~1
> Ciao.
> --
> Carlo Filippini
> ---
Per intenderci, il nome del mio file è una cosa indecorosa, tipo
lkjlkj_800000000000120102020210_17047/01_310501
cmq ho risolto il problema con la funzione dir nelmodo seguente
dim miofile
miofile=dir("e:\*.*")
miofile="e:\"&miofile
............
ancora tante grazie a tutti
Antonio


title: Ricerca di valori su controlli non associati

text:
Buongiorno a tutti e buon lunedì

stamattina mi son svegliato con la fissa
di capire una cosa, facendo le seguenti premesse:
Ho una form non associata con dei txtbox sparsi, non associati.
Con dei Dlookup ho inserito dei valori a queste caselle.

Su una ComboBox ho una serie di valori: "Pippo", "Pluto", Topolino"...
corrispondenti ai valori assegnati alle caselle.
Su DopoAggiornamento della Combo, è possibile trovare i valori assegnati ai controlli, con un setfocus del controllo corrispondente ?
Per esempio:
For each ctl in Me.Controls
if ctl.value = Combo then ctl.setfocus
next

P.s.
Tra le proprietà dei controlli non vedo .Value
eppure spesso vedo scritta questa espressione. La cosa che voglio capire è questa, anche se la domanda vera rimane quella di sopra.
...e scusate le mie confusioni... di lunedì mattina! :-)


text:

Se la Combo ha i NOMI dei controlli ti basta fare così:

Me.Controls(Me!NomeCombo.Value).SetFocus

@Alex


text: No la combo ha i valori dei controlli


text:
Il giorno lunedì 20 maggio 2019 15:32:18 UTC+2,
mariopu...@gmail.com
 ha scritto:
> No la combo ha i valori dei controlli

Spiega cosa vuoi ottenere, quello che hai proposto ha un senso... ma se non ne comprendo il fine, potrei darti una risposta banale, ed eviterei...

@Alex


text:
In una form ho dei nomi di ospiti...fai conto una cosa tipo Hotel...
Se in un piano ci sono 40 camere, cioè 40 ospiti, difficile trovarne uno a colpo d'occhio, quindi ho una combo (origine record tabella Ospiti) attraverso la quale cercare un ospite.
La camera, (casella di testo non associata contente il nome dell'ospite) deve risultare 'selezionata' una volta trovato il nome, quindi il setfocus.
Per questo, tra queste txtbox non associate avevo pensato un ciclo for each next contente il valore (= a combo).
Per questo chiedevo se era possibile utilizzare qualcosa tipo ctl.value...
Ma .value non appare tra le proprietà dei controls
Mi sono spiegato?...


text:
Ho capito...
La tua idea funziona.

Ci sono metodi migliori...?
Si, ma richiedono qualche conoscenza più spinta.di programmazione ad oggetti.

Definito che ogni stanza è un'oggetto ha o può avere N properties
Tipo=Singola/Doppia
Fumatori=Vero/Falso
Livello=Standard/Luxury/ecc...
TectBox=Controllo Textbox specifico

Un'altra proprietà è l'utente.

Se pensi quindi non alla tua Textbox ma alla classe Stanza, puoi pensare di istanziare N classi per piano quante sono le stanze... assegnando alla classe anche la textbox.

Se realizzi una Master class che gestisce le collection e le istanze di classi puoi prevedere al suo interno una Collection alla quale passando il Nome Utente restituisce la.classe Stanza...

Questo è un modo decisamente più strutturato per vedere le cose... ma meno usuale e poco usato.

Inutile dire che Io userei questo con vantaggi rilevanti anche a livello grafico... ma...

@Alex


text:
Con i termini tecnici da te usati: Master class, collection etc (non familiari nel mio gergo) non ho ben chiaro cosa volessi dire, ma credo di poterti rispondere che questo lavoro lo fa gia' la Tabella Camere.
La 1, ha n letti, doppia co  bagno
La 2, ha un letto, singola senza bagno
Etc...
Io stavo curando adesso l'aspetto grafico per una piu facile assegnazione della camere, sulla base della struttura ospitante. E...usando i miei metodi... è tutto fatto. Manca solo questo dettaglio.
Se non c'è non importa. Era dunque ormai una questione di curiosità:
Se mi è capitato di vedere in giro la proprietà ctl.value, perché non appare nell'editor durante la progrmmazione?
In ogni caso rileggerò con più attenzione ciò che ha scritto.
Grazie come sempre!


text:
Ps.
Avevo fatto una struttura Db che prevedeva in tabella Camere, n ospiti. (Quindi tra le proprietà della stanza, oltre fumo, non fumo, doppia o singola, c'era l'utente.) Ma non andava bene perche per ogni struttura 'alberghiera' avrei dovuto cambiare la struttura della tabella. Inoltre i tot ospiti in una stanza erano CAMPI e non record. Molto fastidioso.


text:
Tu scrivi 'assegnando alla classe anche la textbox.'
Vuoi dire di aggiungere il Nome controllo alla tabella?
Sarebbe una buona idea perché poi non cerco il valore ma il nome del controllo !!!!...


text:
No stiamo parlando di 2 approcci diversi...
Io sto parlando di programmare un oggetto ed usarlo... tu di Tabelle...
Siccome lavori con controlli non associati dovresti fare un progresso tecnico nel gestire i dati e l'interfaccia altrimenti 50 stanze richiedono 50 Dlookup solo per scrivere un testo in una casella e perderne i riferimenti del record...
Non ti pare che questo approccio che ti costringe a ciclare N controlli per trovare 1 nome senza nemmeno avere poi il riferimento alla PK del record sia estremamente disfunzionale...?

Ora comprendo che quanto ti ho esposto sia un Po fuori dagli schemi del VBA di base... ma se tu provassi a comprendere l'uso delle classi e di conseguenza delle collection ti si aprirebbero scenari tecnici interessanti.

Per poterti consentire una più concreta comprensione puoi leggere questo 3D simile:

https://groups.google.com/forum/m/#!topic/it.comp.appl.access/Np0crNZ0oJc

Detto questo, se avrai interesse a percorrere uno studio in questa direzione... potremo approfondire il tema... altrimenti siccome riconosco essere di livello non basico, ti suggerisco di procedere con il tuo approccio...

@Alex


text:
Si, avevo il sospetto che stessimo parlando di universi diversi. Speravo che il problema fosse solo linguistico (di gergo) ma non era così :-)
Ho letto i post. Ovviamente non ci ho capito un mazza ma sono entusiasta di intraprendere questo percorso. (Se solo sapessi da dove iniziare). Tra i diversi libri che ho devo vederne in particolare uno, se spiega le classi e se porta esempi comprensibili. (O che di fatto funzionino copiando il codice).


text:
Pubblico il codice che realizza un esempio di cosa significa CREARE una CLASSE OGGETTO...

Sono 3 PEZZI di codice:
1° Da inserire nella Maschera
2° Da inserire in una CLASSE chiamata [mclsControl]
3° Da inserire in una CLASSE chiamata [mclsControls] questa è la MASTER

Nella Maschera vanno inseriti 9 CommandButton nominati [cb1]÷[cb9]

I CommandButton rappresentano in questo caso un POSTO in un campeggio e come tale prevede delle Caratteristiche:
TIPO DI POSTO=Auto/Bungalow/Roulotte/Tenda (Proprietà Tipo)
OCCUPATO=Vero/Falso (Proprietà IsBusy)

Il codice quindi programma la SINGOLA CLASSE OGGETTO definendo quale CommandButton ha associato e che tipo di POSTO rappresenta, e se questo è LIBERO o OCCUPATO.

' *****************************************************************
1 Nel codice della Maschera
' *****************************************************************
Il codice serve per assegnare alla CLASSE OGGETTO [mclsControl]
tutte le sue PROPERTIES, inclusa l'associazione al controllo CommandButton
' *****************************************************************

Option Compare Database
Option Explicit

' ===================================================
' Dichiarazione MASTER CLASS-COLLECTION
' ===================================================
Private WithEvents mcl As mclsControls

Private Sub Form_Load()
    On Error Resume Next
    Dim ctl As Access.Control
    Dim mCC As mclsControl

    Set mcl = New mclsControls
    Set mcl.Parent = Me

    ' ===================================================
    ' Ovviamente si può fare un CICLO su CONTROLS e
    ' leggere la proprietà TAG="X"
    ' ===================================================
    Set mCC = mcl.Add(Me.cb1):      mCC.Tipo = Bungalow
    Set mCC = mcl.Add(Me.cb2):      mCC.Tipo = PostoAuto
    Set mCC = mcl.Add(Me.cb3):      mCC.Tipo = Roulotte
    Set mCC = mcl.Add(Me.cb4):      mCC.Tipo = Tenda
    Set mCC = mcl.Add(Me.cb5):      mCC.Tipo = Bungalow
    Set mCC = mcl.Add(Me.cb6):      mCC.Tipo = Bungalow
    Set mCC = mcl.Add(Me.cb7):      mCC.Tipo = Tenda
    Set mCC = mcl.Add(Me.cb8):      mCC.Tipo = PostoAuto
    Set mCC = mcl.Add(Me.cb9):      mCC.Tipo = Tenda

End Sub

' ===================================================
' DISTRUZIONE OGGETTI(CLASSI)
' ===================================================
Private Sub Form_Unload(Cancel As Integer)
    Set mcl = Nothing
End Sub

Private Sub mcl_Click(Oggetto As mclsControl)
    MsgBox "Evento Rilanciato nella FORM dalla MASTERCLASS" & vbNewLine & "Il CommandButton Cliccato è :" &
Oggetto.Control.Name
 & " Tipo:" & Oggetto.Tipo & "-" & Oggetto.Tipo2String(Oggetto.Tipo), vbInformation
End Sub

Private Sub mcl_DblClick(Oggetto As mclsControl)
    MsgBox "Evento Rilanciato nella FORM dalla MASTERCLASS" & vbNewLine & "Il CommandButton Cliccato è :" &
Oggetto.Control.Name
 & " Tipo:" & Oggetto.Tipo & "-" & Oggetto.Tipo2String(Oggetto.Tipo) & vbNewLine & "OCCUPATO=" & Oggetto.IsBusy, vbInformation
End Sub

Private Sub mcl_GotFocus(Oggetto As mclsControl)
'    Debug.Print "GotFocus " &
Oggetto.Control.Name

End Sub

Private Sub mcl_LostFocus(Oggetto As mclsControl)
'    Debug.Print "LostFocus " &
Oggetto.Control.Name

End Sub

' *****************************************************************
2 Nel codice della CLASSE [mclsControl]:
' *****************************************************************
Questa è la CLASSE OGGETTO.. sostanzialmente è il SINGOLO POSTO
Chiaramente deve inglobare il codice per gestire gli eventi del
Controllo CommandButton che è stato associato a questa CLASSE
OGGETTO...
Definisce anche le Proprietà TIPO/ISBUSY
Contiene delle ENUM tipiche dell'Oggetto
' *****************************************************************

Option Compare Database
Option Explicit

Public Enum eType
   PostoAuto = 0
   Tenda = 1
   Bungalow = 2
   Roulotte = 3
End Enum

' =================================================================
' Dichiarazioni Private per il MULTICAST
' =================================================================
Private WithEvents mCmdButt     As Access.CommandButton
Private mParent                 As mclsControls

Private mstrKey                 As String
Private mOriginalBackColor      As Long

Private mBackColor              As Long
Private mType                   As eType
Private mBusy                   As Boolean

Public Sub SetObjectControl(ctl As Access.CommandButton, ParentClass As mclsControls)
    Set Me.Parent = ParentClass
    Set Me.Control = ctl
End Sub

Public Property Set Control(ctl As Access.CommandButton)

    If mParent Is Nothing Then
        MsgBox "Parent Class Object not defined...!", vbCritical
        Exit Property
    End If

    Set mCmdButt = ctl
    mstrKey = ctl.Name
    mOriginalBackColor = ctl.BackColor

    mCmdButt.OnMouseMove = "[Event Procedure]"
    mCmdButt.OnMouseUp = "[Event Procedure]"
    mCmdButt.OnClick = "[Event Procedure]"
    mCmdButt.OnDblClick = "[Event Procedure]"
    mCmdButt.OnGotFocus = "[Event Procedure]"
    mCmdButt.OnLostFocus = "[Event Procedure]"

End Property
Property Get Control() As Access.CommandButton
    Set Control = mCmdButt
End Property

Property Get Parent() As mclsControls
   Set Parent = mParent
End Property
Property Set Parent(obj As mclsControls)
   Set mParent = obj
End Property

Public Property Get Key() As String
    Key = mstrKey
End Property

Public Property Get Tipo() As eType
    Tipo = mType
End Property

Public Property Let Tipo(vType As eType)
    mType = vType
End Property

Property Get IsBusy() As Boolean
    IsBusy = mBusy
End Property
Property Let IsBusy(Value As Boolean)
    mBusy = Value
    If mBusy Then
        Me.Control.BackColor = vbRed
    Else
        Me.Control.BackColor = mOriginalBackColor
    End If
End Property

' =================================================================
' EVENTI PRIVATE COMMANDBUTTON
' =================================================================
Private Sub mCmdButt_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    ' =================================================================
    ' AZIONI DA FARE SUL SINGOLO CONTROLLO [QUI' sotto]
    ' =================================================================

    ' =================================================================
    ' POI RIBALTO L'EVENTO SULLA MASTERCLASS
    ' =================================================================
    mParent.Control_MouseMove Me, Button, Shift, X, Y
End Sub

Private Sub mCmdButt_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    ' =================================================================
    ' AZIONI DA FARE SUL SINGOLO CONTROLLO [QUI' sotto]
    ' =================================================================

    ' =================================================================
    ' POI RIBALTO L'EVENTO SULLA MASTERCLASS
    ' =================================================================
    mParent.Control_MouseUp Me, Button, Shift, X, Y
End Sub

Private Sub mCmdButt_Click()
    ' =================================================================
    ' AZIONI DA FARE SUL SINGOLO CONTROLLO [QUI' sotto]
    ' =================================================================
    ' =================================================================
    ' POI RIBALTO L'EVENTO SULLA MASTERCLASS
    ' =================================================================
'    mParent.Control_Click Me
End Sub

Private Sub mCmdButt_DblClick(Cancel As Integer)
    Me.IsBusy = Not Me.IsBusy
    mParent.Control_DblClick Me
End Sub

Private Sub mCmdButt_GotFocus()
    ' =================================================================
    ' AZIONI DA FARE SUL SINGOLO CONTROLLO [QUI' sotto]
    ' =================================================================

    ' =================================================================
    ' POI RIBALTO L'EVENTO SULLA MASTERCLASS
    ' =================================================================
    mParent.Control_GotFocus Me
End Sub

Private Sub mCmdButt_LostFocus()
    ' =================================================================
    ' AZIONI DA FARE SUL SINGOLO CONTROLLO [QUI' sotto]
    ' =================================================================

    ' =================================================================
    ' POI RIBALTO L'EVENTO SULLA MASTERCLASS
    ' =================================================================
    mParent.Control_LostFocus Me
End Sub
' =================================================================
' Questa è solo DIMOSTRATIVA si lavora con gli indici
' =================================================================
Public Function Tipo2String(Index As Integer) As String
'Public Enum eType
'   PostoAuto = 0
'   Tenda = 1
'   Bungalow = 2
'   Roulotte = 3
'End Enum
    Select Case Index
        Case 0:     Tipo2String = "PostoAuto"
        Case 1:     Tipo2String = "Tenda"
        Case 2:     Tipo2String = "Bungalow"
        Case 3:     Tipo2String = "Roulotte"
    End Select
End Function

Private Sub Class_Initialize()
    '
End Sub

Private Sub Class_Terminate()
    ' si Verifica con la Distruzione dell'istanza
    Set mParent = Nothing
End Sub

' *****************************************************************
1 Nel codice della CLASSE [mclsControls]
' *****************************************************************
Questa è la MASTERCLASS che gestisce le singole CLASSI OGGETTO
Ne concentra gli eventi e li rende PUBLIC per la Maschera di gestione
' *****************************************************************

Option Compare Database
Option Explicit

' ===================================================
' EVENTI PUBLIC DI CLASSE
' ===================================================
Public Event GotFocus(Oggetto As mclsControl)
Public Event LostFocus(Oggetto As mclsControl)
Public Event Click(Oggetto As mclsControl)
Public Event DblClick(Oggetto As mclsControl)
Public Event MouseUp(Control As mclsControl, Button As Integer, Shift As Integer, X As Single, Y As Single)
Public Event MouseMove(Control As mclsControl, Button As Integer, Shift As Integer, X As Single, Y As Single)

Private mcolControls        As Collection
Private mFP                 As Access.Form
Private actControl          As mclsControl

Property Set Parent(FormParent As Access.Form)
   Set mFP = FormParent
End Property

Public Function Add(obj As Access.Control) As Object
    On Error GoTo Proc_Err

    Dim curClass As mclsControl
    If Not Exists(obj.Name) Then
        Set curClass = New mclsControl
        Call curClass.SetObjectControl(obj, Me)
        mcolControls.Add curClass, obj.Name
    Else
        Set curClass = mcolControls(obj.Name)
    End If
    Set Add = curClass

Proc_Exit:
    Exit Function

Proc_Err:

    Resume Proc_Exit
End Function

Public Function Item(strKey As String) As mclsControl
    On Error GoTo Proc_Err

    If Exists(strKey) Then
        Set Item = mcolControls.Item(strKey)
    End If

Proc_Exit:
    Exit Function

Proc_Err:
    Item = Nothing
End Function

Public Property Get Count() As Long
    If mcolControls Is Nothing Then
       Count = 0
    Else
       Count = mcolControls.Count
    End If
End Property

Public Property Get Exists(strKey As String) As Boolean
    On Error Resume Next
    Dim strValue As String

    strValue = mcolControls.Item(strKey).Key
    Exists = (Err.Number = 0)
    Err.Clear

End Property

Property Get Items() As Collection
    Set Items = mcolControls
End Property

Public Function NewEnum() As IUnknown
    On Error GoTo Proc_Err

    Set NewEnum = mcolControls.[_NewEnum]
Proc_Exit:
    Exit Function

Proc_Err:
    Set NewEnum = Nothing
End Function

Public Sub Remove(strKey As String)
    On Error Resume Next

    If Exists(strKey) Then
        mcolControls.Remove strKey
    End If

End Sub

Public Sub Destroy()
    On Error Resume Next
    Dim obj As Object
    For Each obj In mcolControls
        mcolControls.Remove
obj.Control.Name

    Next
End Sub

Private Sub Class_Initialize()
    Set mcolControls = New Collection
End Sub

Private Sub Class_Terminate()
    Call Destroy
    Set mcolControls = Nothing
    Set mFP = Nothing
End Sub

' ===================================================
' IMPLEMENTAZIONE EVENTI SINGOLI DI CLASSE
' E GENERANO EVENTI DI MASTER-CLASS
' ===================================================
Friend Sub Control_GotFocus(Control As mclsControl)
    RaiseEvent GotFocus(Control)
End Sub

Friend Sub Control_LostFocus(Control As mclsControl)
    RaiseEvent LostFocus(Control)
End Sub

Friend Sub Control_Click(Control As mclsControl)
    RaiseEvent Click(Control)
End Sub

Friend Sub Control_DblClick(Control As mclsControl)
    RaiseEvent DblClick(Control)
End Sub
Friend Sub Control_MouseMove(Control As mclsControl, Button As Integer, Shift As Integer, X As Single, Y As Single)
    RaiseEvent MouseMove(Control, Button, Shift, X, Y)
    Set actControl = Control
End Sub

Friend Sub Control_MouseUp(Control As mclsControl, Button As Integer, Shift As Integer, X As Single, Y As Single)
    RaiseEvent MouseUp(Control, Button, Shift, X, Y)
End Sub

Chiaramente manca la parte legata alla LETTURA/SCRITTURA Da/Su Tabella... ma è decisamente una cosa che tutti sanno fare se si capisce come cilcare la Collection ITEMS restituita dalla MASTERCLASS...

Inutile dire che serve COPIA/INCOLLARE tutto e provarlo, ma soprattutto STUDIARLO dopo aver capito cosa sono le CLASSI.

Di fatto questo esempietto è veramente scolastico, ma tutt'altro che banale.

BUON LAVORO a chi ha voglia di studiare.

@Ale


author: BFS

text:

se ho ben capito devi evidenziare la camera che ha l'ospite selezionato
dalla combo

io farei cosi

se la combo si chiama "ricercacamere"
e hai 40 textbox non associate camera1--->camera40

imposterei nelle 40 textbox il tag "camere"

e sul evento dopo aggiornamento della combo

Dim ctr As Control
For Each ctr In Me
     If ctr.Tag = "camere" Then
         If ctr.Value = Me.ricercacamere Then
             ctr.BackColor = vbYellow
             Else
             ctr.BackColor = vbWhite
         End If
     End If

Next ctr

risultato.
avrei in giallo la camera con il nome del ospite dentro

esempio
http://i66.tinypic.com/2ppg9oj.png

ciao
BFS


text:

Deve spostare il FOCUS... sicchè il suo codice andava già bene come era senza altre varianti come premesso.

Il problema, nell'ottica di avere una visione meno fossilizzata quando si gestisce una parte GRAFICA che possa avere INTERAZIONE con il progetto, è capire se poi quel CONTROLLO corrispondente alla CAMERA, deve poter essere avere Funzioni riconducibili, ad esempio DOPPIOCLICK ed aprire le prenotazioni della Camera, o le manutenzioni o le pulizie altro...

In questo caso il semplice CICLARE funziona per gli EFFETTI speciali banali... ma se si deve fare altro... NO.

Chiaramente si deve sempre partire dal decidere cosa si vuole fare da grandi... ovvero se EVOLVERE la parte GRAFICA ha un senso o meno...
Se ha un senso ci sono molte opzioni, quella di programmare ad OGGETTI è la meno immediata per chi di norma usa solo Access... ma è la più TECNICA ed usata da chi programma anche altri linguaggi.

Saluti
@Alex


text:

boh io come domanda leggo "Su DopoAggiornamento della Combo, è possibile
trovare i valori assegnati ai controlli, con un setfocus del controllo
corrispondente ?"

e ha espresso l'esigenza di avere sottocchio la casella che contiene
quel valore
se gli basta il focus e non un bel sfondo giallo (o entrambi) basta questo

Dim ctr As Control
  For Each ctr In Me
      If ctr.Tag = "camere" Then
          If ctr.Value = Me.ricercacamere Then
                ctr.setfocus

        End If
Next ctr

e visto che mi par di capire che l'autore del posto non sa neppure cosa
sia una programmazione ad oggetti (senza offesa) una soluzione semplice
è quella adatta a farlo contento

se poi uno chiede come si fa mettere in ordine tre lettere A, B e C e io
gli scrivo come implementare un red-black tree mi pare che la risposta
non sia adeguata all'esigenza

BFS


text:
....
> boh io come domanda leggo "Su DopoAggiornamento della Combo, è possibile
> trovare i valori assegnati ai controlli, con un setfocus del controllo
> corrispondente ?"
>
> e ha espresso l'esigenza di avere sottocchio la casella che contiene
> quel valore
> se gli basta il focus e non un bel sfondo giallo (o entrambi) basta questo
>
> Dim ctr As Control
>   For Each ctr In Me
>       If ctr.Tag = "camere" Then
>           If ctr.Value = Me.ricercacamere Then
>                 ctr.setfocus
>
>         End If
> Next ctr
>
> e visto che mi par di capire che l'autore del posto non sa neppure cosa
> sia una programmazione ad oggetti (senza offesa) una soluzione semplice
> è quella adatta a farlo contento
>
> se poi uno chiede come si fa mettere in ordine tre lettere A, B e C e io
> gli scrivo come implementare un red-black tree mi pare che la risposta
> non sia adeguata all'esigenza
>
> BFS

Dovresti perdere 1 minuto a leggere meglio  sia le risposte che le domande, secondo me, e provare a non banalizzare sempre perchè poi spesso si sbaglia...

Il FORUM non è fatto solo da chi non riesce a mettere insieme 4 righe per leggere un XML o fare una codifica B64 per gli allegati e gli basta fare un COPIA/INCOLLA... ci sono anche quelli che sanno quello che scrivono o quelli che vogliono capire...!

Saluti.

@Alex


text:

io leggo la domanda
e la domanda è

"Su DopoAggiornamento della Combo, è possibile trovare i valori
assegnati ai controlli, con un setfocus del controllo corrispondente ?"

e rispondo con una soluzione di 5 righe
se poi chi ha fatto la domanda trova la soluzione banale si leggerà il
pippozzo di classi e oggetti che hai scritto tu.

a domanda rispondo, non ho bisogno come altri di dare sfoggio di
straffotenza e saccenza ad ogni risposta incasinando le cose più banali


text:
Infatti di solito ti basta banalizzare salvo poi capire che banalizzando si sparano cavolate.

Il forum serve per tutti ed anche per fare scuola... Non solo per copiaincollare codice e non solo per la F.E.

Se tu poi hai visione diversa giuro che mi faro una ragione.

@Alex


text:
Io mi limito a ringraziarvi entrambi.
Il forum è  fatto di gente che a volte ha fretta di trovare una soluzione copia-incolla, a volte ha un po' piu tempo per fermarsi e imparare qualcosa: cioè progredire, andare oltre i propri schemi e limiti.
Per questo ringrazio entrambi.
Ad Alex faccio una domanda:
Sul serio copio e incollo e quel codice fa qualcosa?
Per esempio quando scrivi 'Azioni da fare sul singolo controllo (qui sotto)' vi sono azioni immaginate, da scrivere ?
(Anche se la domanda ti sembra banale mettiti nei panni di chi non mai visto aqua in vita sua e si trova improvvisamente in mezzo al mare).
A Bfs o Bsf non ricordo :-)
Dico: mi pare di aver provato a scrivere un codice simile (quello senza tag) ma come spiegato quando scrivo ctl.value mi dà un errore. In quanto effettivamente il compilatore automatico dell'editor vba  non presenta la proprieta .value ma semmai .name.
cmq... per sicurezza lo riprovo e tu faccio sapere.
Grazie ancora ad emtrambi.


text:

vedo che ti rode che ho aiutato  qualcuno con la f.e. visto che la tiri
in ballo più volte, argomento che forse non ha dato modo di sfoderare i
tuoi pipponi kilometrici

ad ogni modo la vediamo in modo diverso. se l'autore del post cerca una
soluzione rapida al suo probelma leggera la mia soluzione, se invece
vorrà fare un corso di programmazione ad oggetti per mettere un focus in
una casella di testo leggerà la tua

io me ne sono gia fatta una ragione al secondo reply


text:

se la tua mail è valida ti mando mdb cosi vedi come funziona

ciao
BFS


text:

La mia mail è valida.
Ho trascritto il tuo codice
e, costretto a modificarlo, non funziona.

For Each ctr In Me
 If ctr.Tag = "Camere" Then
    If ctr.Value = Me.cerca.Column(1) Then
      ctr.SetFocus
' qui ho aggiunto un secondo end if
     End If
  End If
 Next ctr
La Combo prende i dati da IdRubrica ma visualizza la seconda colonna (1)
Nelle txtbox ho impostato la parola "Camere" nella proprietà TAG
Nelle txtbox c'è lo stesso testo di Combo poiché è preso dalla stessa tabella.
Facendo il debug quando trova il tag Camere
esegue il secondo IF ma salta il setfocus.
Non capisco perchè


text:

ti ho mandato mdb di esempio in mail
ciao!


text:
Il giorno martedì 21 maggio 2019 16:12:49 UTC+2, BFS ha scritto:
> Il 21/05/2019 15:55, @Alex ha scritto:
> > Infatti di solito ti basta banalizzare salvo poi capire che banalizzando si sparano cavolate.
> >
> > Il forum serve per tutti ed anche per fare scuola... Non solo per copiaincollare codice e non solo per la F.E.
> >
> > Se tu poi hai visione diversa giuro che mi faro una ragione.
> >
> > @Alex
> >
>
> vedo che ti rode che ho aiutato  qualcuno con la f.e. visto che la tiri
> in ballo più volte, argomento che forse non ha dato modo di sfoderare i
> tuoi pipponi kilometrici

Non diciamo cavolate, è UN TEMA sicuramente utile ed è utile e necessario trattarlo nel FORUM... chi dice il contrario.

Io dico che non è l'unico, e sei consapevole che le difficoltà emerse sono solo di interpretazione normativa, perchè tecnicamente le nozioni di VBA necessarie, avendo le idee chiare, si imparano nelle prime 100 pagine di un Libro per DUMMIES...

Ecco, in questo senso essendo un NG di VBA-ACCESS, è sicuramente utile scrivere quelle 4 righe di codice per chi non riesce... ma c'è anche altro.

> ad ogni modo la vediamo in modo diverso. se l'autore del post cerca una
> soluzione rapida al suo probelma leggera la mia soluzione

Non è la TUA soluzione, è la SUA che ha proposto da subito al primo intervento e  che gli ho avvallato pure io.
Io però ho messo un distinguo tecnico... quindi leggi meglio, perchè a scrivere 3 cavolate sono capaci tutti... anche quelli che di tecnico hanno poco... ;-)

>, se invece
> vorrà fare un corso di programmazione ad oggetti per mettere un focus in
> una casella di testo leggerà la tua

Ma chi se ne frega di cosa userà, userà quello che VUOLE, l'importante è aprire un dibattito TECNICO non un HELP-DESK, se chi fa domande ha modo di IMPARARE e non COPIA/INCOLLARE, sicuramente la scelta sarà fatta per competenza non per rassegnata incompetenza...

> io me ne sono gia fatta una ragione al secondo reply

Figurati...

@Alex


text:
Quel codice non va perché è scritto in maniera frettolosa e banale basta un controllo che non supporta la proprietà tag, linea o rettangolo, ed evidentemente si blocca...
Questo essere superficiali nel fare e dire le cose.

Ci sono sempre diversi modi per fare le cose uno di questi è proprio quello di farlo in modo  superfuciale banalizzabdo tutto.

@Alex


text:

perche la linea e il rettangolo non hanno la propietà tag?

ma fammi un piacere...

BFS


author: AlessioDB

text:

scusa l'intromissione, potresti mandarlo anche a me?
togli nospam dalla mail
mi serve qualcosa di simile per una sorta di tombola, per evidenziare il
numero estratto nella cartella che è appunto fatta da tante text box con
numeri random dentro

grazie
Ale


text:

mi dice mail non valida

ciao


text:

prova qua

alexdb2116  chiocciola bigG

grazie


text: La mia è arrivata grazie. Piu tardi la provo. Anche se credo che il problema sia in quel column...


text:
Hai ragione mi sono sbagliato sulla priorità TAG...

Ciò non toglie il senso tecnico del discorso fatto che però chiudo perché non devo convincere nessuno a sperimentare, e chi legge con cognizione capisce...

La mediocrità fa effetto... ed è di moda...

@Alex


text:

Mail arrivata.
Funziona!
Grazie infinite.

Ale


text:
Il 21/05/2019 19:31,
mariopu...@gmail.com
 ha scritto:
> La mia è arrivata grazie. Piu tardi la provo. Anche se credo che il problema sia in quel column...
>

se la combo ha due colonne va benissimo column(1) come hai scritto
vedi mdb che ti ho mandato con combo a due colonne

ciao
BFS


text:

Ok, ora funziona.
Avevo messo i Tag Camere con le virgolette "Camere"
Queste è l'unica modifica apportata
((anche se ricordo di aver provato sia con, che senza virgolette...))
Grazie :-)


text:

grazie a te del feedback

BFS


text:

bene
ciao!


title: Access DevCon 2024

author: Karl Donaubauer

text:
Salve,

la registrazione per l'Access DevCon virtuale 2024 il 18+19 aprile è
online ora. Gli argomenti fissati finora:

• Update by the Microsoft Access Team
• UI Ergonomics and Design
• Microsoft Copilot
• SD OpenAI MS Access Add-In
• You can REALLY do all that with forms?
• Microsoft Fabric
• Custom Add-In Creation with twinBASIC
• Powerful Customer Communication

Seguiranno altri 3-4 argomenti presentato da un mix di sviluppatori
europei e americani.

I dettagli potete trovare qui:
https://www.donkarl.com/devcon/agenda.htm

--
Ciao
Karl
*********
Access Info:
https://AccessForever.org

Access News:
https://youtu.be/aKqZX4eE5NA

Access DevCon:
https://www.donkarl.com/devcon

Access FAQ:
https://www.donkarl.com/it


title: Access DevCon 2024

author: Ammammata

text:
Karl Donaubauer formulated the question :
> I dettagli potete trovare qui:
https://www.donkarl.com/devcon/agenda.htm

Karl is an Access developer and MVP. He's been preaching and muddling
around in the Access community for a few years now.

He has also tried *unsuccessfully* to become a video and rock star.

:)

--
/-\ /\/\ /\/\ /-\ /\/\ /\/\ /-\ T /-\
-=- -=- -=- -=- -=- -=- -=- -=- - -=-
........... [ al lavoro ] ...........


title: casella combinata non collegata

author: bc

text:
Sarà anche facile ... ma a me non riesce!
Sapete come si imposta una casella combinata non collegata ...?
cioè ... se ho pochi nomi (per esempio...) posso scrivere un po' di codice
in
sostituzione del collegamento alla tbl ?
grazie !
bce...@tiscalinet.it


title: casella combinata non collegata

author: Ditta Cerri (Sib)

text:
bc Chiese:
>
> Sarà anche facile ... ma a me non riesce!
>
> Sapete come si imposta una casella combinata non collegata ...?
> cioè ... se ho pochi nomi (per esempio...) posso scrivere un po' di codice
> in
> sostituzione del collegamento alla tbl ?
Molto piu' facile di quanto hai immaginato finora:
Tipo Origine Riga = "Elenco valori"
Origine Riga="Pippo; Caio; Sempronio"
Ciao, Sib
PS: non c'entra niente col fatto che sia collegata o no, l'origine riga e'
il posto da cui prende i dati da inserire, l'eventuale campo collegato e' il
posto dove li va a mettere.


title: casella combinata non collegata

author: Stefano Bettini

text:
bc <
bce...@tiscalinet.it
> wrote in message
8cqoqq$7sm$1...@lacerta.tiscalinet.it...
>
> Sarà anche facile ... ma a me non riesce!
>
> Sapete come si imposta una casella combinata non collegata ...?
> cioè ... se ho pochi nomi (per esempio...) posso scrivere un po' di codice
> in
> sostituzione del collegamento alla tbl ?
>
Più che codice si tratta di compilare l' opportuna proprietà....
Prova un banalissimo:
TipoOrigineRiga=ElencoValori
OrigineRiga=aaa;bbbb;cccc
Ovviamente puoi gestirti anche + colonne inserendo gli opportuni valori
nell' origine riga e gestendoti le proprietà apposite di formato. Tutto
questo puoi arlo anche via codice;esisterebbe anche la possibilità di
assegnare ad una combo direttamente una funzione come rowsource ma è un
casino e non si usa praticamente mai, non credo sia il caso di dilungarsi...
Bye, Ste


title: casella combinata non collegata

author: lbo dal portatile

text:
>Sapete come si imposta una casella combinata non collegata ...?
>cioč ... se ho pochi nomi (per esempio...) posso scrivere un po' di codice
>in sostituzione del collegamento alla tbl ?
dai un'occhia alla proprieta' .rowsource.  puoi o assegnarle il nome
di una tabella, o di una query, o una stringa sql, oppure ancora, e
questo dovrebbe essere il tuo caso, un elenco di valori, i quali
devono essere intervallati da un punto e virgola.
in questo caso devi anche settare la proprieta' rowsourcetype a value
list o elenco valori, nella tabella delle proprieta'.
--
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/


title: impossibile creare file mde

author: Pippo Messineo

text:
Da quando ho trasformato il mio db da acc97 a 2003 è un susseguirsi di
problemi non oso nemmeno pensare cosa sarà acc2007.
cerco di creare il file mde ma il messaggio è quello dell'oggetto. il front
end ha 4 moduli - 120 maschere e 70 tabelle collegate. Secondo le
descrizioni dell'errore non dovrebbero esserci problemi che sorgerebbero
solo quando siamo  vicini a circa 500 maschere.
Cosa c'è da fare? piangere...


title: impossibile creare file mde

author: E. Meregalli

text:
.. l'altro giorno ho avuto lo stesso errore (peraltro mai avuto prima... in
anni e anni di Access): causa era un  errore in VBA, evidenziato compilando
il codice ...
"Pippo Messineo" <
gmess...@libero.it
> ha scritto nel messaggio
news:0ojwj.253392$%k.38...@twister2.libero.it...



title: impossibile creare file mde

text:

Sì, aiuta quasi sempre.
Se non in questo caso puoi anche guardare qui:
La creazione di un MDE non riesce
www.donkarl.com/it?FAQ7.17
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it


title: per Warp: grazie dell'aiuto. Ho ancora un problema.

author: Laura Cerponi

text:
Caro Warp adesso che ho chiarito il mio segreto Laura/Antonello spero che
avrai ancora voglia di ascoltarmi.
Ho copiato ed inserito la tua funzione. Facendola girare mi sono accorto che
i riferimenti del mio db sono questi:
vba332.ddl (e questo č OK)
msacc8.olb (e questo č OK)
stdole2.tlb OLEAutomation e questo non c'č nella tua legenda ma non penso
faccia male
dao360.dll (ho la sr1 di access97 forse puň essere questo)
mi manca del tutto (non c'č proprio nei riferimenti settabili) MSO97.dll.
Tienei presente che su questo PC ho installato sia Access97 (non tutto
office) con l'ODE di Office 97 e tutto OFFICE 2000 con l'ode di Office 2000.
Capisco ch equesto porti un po' di casino ma ho applicazioni fatte ancora
con access97 e altre con o2000 e quindi devo avere in linea entrambi.
Cosa ne pensi?
un'altra cosa: c'č da qualche parte una spiegazione delle funzioni delle
varie dll o librerie? in questo modo uno vede cosa adopera in maniera piů
consapevole.
P.s. con i riferimenti suddetti, in access 97 il programma funziona una
bellezza, installato con il run-time non riconosce le date, non parte una
funzione timer sullo splash e altre cosucce del genere.
Grazie ancora


author: warp

text:
"Laura Cerponi" <
> Caro Warp adesso che ho chiarito il mio segreto Laura/Antonello spero che
> avrai ancora voglia di ascoltarmi.
> Ho copiato ed inserito la tua funzione. Facendola girare mi sono accorto
che
> i riferimenti del mio db sono questi:
> vba332.ddl (e questo č OK)
> msacc8.olb (e questo č OK)
> stdole2.tlb OLEAutomation e questo non c'č nella tua legenda ma non penso
> faccia male
Sě, in effetti io assegno solo i riferimenti essenziali all'applicazione.
> dao360.dll (ho la sr1 di access97 forse puň essere questo)
Mah, so che qualcuno usa jet 4.0 accoppiato ad A '97, quindi dovrebbe
settare dao360.dll nei riferimenti.
Ma se usi jet 3.5 il problema č quello.
> mi manca del tutto (non c'č proprio nei riferimenti settabili) MSO97.dll.
Questa ti serve solo se manipoli a Runtime le barre dei menů e un'altra
faccenduola secondaria.
Proprio per questo la devi specificare tu manualmente.
> Tienei presente che su questo PC ho installato sia Access97 (non tutto
> office) con l'ODE di Office 97 e tutto OFFICE 2000 con l'ode di Office
2000.
> Capisco ch equesto porti un po' di casino ma ho applicazioni fatte ancora
> con access97 e altre con o2000 e quindi devo avere in linea entrambi.
>
> Cosa ne pensi?
Eh, penso che faresti meglio a installare 2 HD sul PC: la vedo brutta per la
preparazione dei Runtime '97.
> un'altra cosa: c'č da qualche parte una spiegazione delle funzioni delle
> varie dll o librerie? in questo modo uno vede cosa adopera in maniera piů
> consapevole.
Beh, per queste cose c'č il ng :-))
> P.s. con i riferimenti suddetti, in access 97 il programma funziona una
> bellezza, installato con il run-time non riconosce le date, non parte una
> funzione timer sullo splash e altre cosucce del genere.
M'č capitata la stessa cosa (quando avrň un pochino di tempo risolvo con un
barbatrucco) solo con il riferimento alla libreria di oggetti Graph 8.0.
In pratica se sul pc di destinazione č installato Office 2000, sposta il
riferimento alla libreria 9.0.
Secondo me se sul PC di destinazione del runtime fosse installato jet 4.0 la
tua applicazione andrebbe: credo che l'inghippo stia in dao360.dll.
Ciao, warp


author: AntoSpinetti

text:
warp <
war...@libero.it
> wrote in message
HDA17.5463$eB4.1...@news.infostrada.it...

Grazie ancora per l'aiuto
Antonello


title: andare in automatico a campo successivo senza invio

author: fabià

text:
On Mon, 4 Feb 2002 22:32:59 +0100, "gicom" <
gi...@tiscalinet.it
>
wrote:
>
>"fabià" <fabi...@SPAMyahoo.com> ha scritto nel messaggio
>news:3c5ed8e3...@powernews.inwind.it...
>> Salve a tutti,
>>
>> ho impostato una maschera con un solo campo numerico  da compilare.
>>
>> la compilazione deve avvenire tramite lettura di un codice a barre da
>> parte di un lettore ad emulazione di tastiera.
>>
>> il mio lettore però non da l'invio dopo aver scritto il numero nella
>> casella della maschera.
>>
>> Vorrei che l'invio fosse automatico in modo da non dover usare la
>> tastiera, tipo: se hai inserito n°X cifre allora salva il record e
>> passa ad uno nuovo.
>>
>> si può?
>>
>> Grazie in anticipo a tutti.
>> 8-)> Fabià
>
>se usi una casella di testo puoi impostare l' azione a campo successivo
>dopo la digitazione di un numero di caratteri  arbitrario
>finestra proprietà, altro, tabulazione automatica
>ciao
>franco
>
>
>
>
ho creato una macro che si attiva dopo l'inserimento, del tipo
emetti suono
vai al record nuovo
mi rimane il problema dell'invio automatico, non riesco a tradurre
quello che mi hai detto( campo successivo dopo digitazione di N cifre)
Aiuto
grazie
8-)> Fabià
8-)> Fabià


title: ordinare in report come ??

author: Rasputin

text:
ciao a tutti , è possibile ordinare in maniera crescente il cognome
in report invece che agire sulla query ??
grazie


title: ordinare in report come ??

author: Oscar Manfredini

text:
"Rasputin"
> ciao a tutti , è possibile ordinare in maniera crescente il cognome
> in report invece che agire sulla query ??
Non solo è possibile, ma è anche l'unico metodo affidabile: vedi
Ordinamenti/Raggruppamenti...
Ciao!


title: ordinare in report come ??

text:
Rasputin wrote:
> ciao a tutti , č possibile ordinare in maniera crescente il cognome
> in report invece che agire sulla query ??
www.donkarl.com/it?FAQ5.10
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it


title: Come fare un evento aggiornamento

author: lujx

text:
Vorrei fare un evento dopo aggiornamento su una casella combinata he mi
permetta di prendere un valore direttamente dalla tabella, il cui valore sia
legato al valore scelto nella casella combinata.
Si puň fare?
Grazie


title: Come fare un evento aggiornamento

author: Pivo

text:
nel dopo aggiornamento ci metti
dim a as string
a = me.tuacasellacombinata
in questo modo hai impostato un valore alla variabile a.
se invece vuoi valorizzare un controllo nella tua maschera:
me.tuocontrollo = me.tuacasellacombinata


title: Come fare un evento aggiornamento

author: Roberto dal portatile

text:
"lujx" <
pis...@monrif.net
> ha scritto nel messaggio
news:95uumq$of8$1...@nreadA.inwind.it...

Se questa č la seconda puntata del tuo quesito del 7/2/2001 ore 0:36 cui ho
risposto oggi alle 14:50, qualora la tua maschera ha una visualizzazione a
Maschere continue non lo puoi fare, se invece ha una visualizzazione a
Maschera singola:
Me!ControlloNote = Me!MiaCombo.Column(2)
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: *** WinZip32 HELP ***

text:
Ciao,
ho trovato il codice per creare un file ZIP
Ma per decomprimerne uno, quale è la riga comano ?
c:\Programmi\WinZip\Winzip32.exe ...................
Grazie mille
Simone
IMPORTANT NOTICE:
This email is confidential, may be legally privileged, and is for the
intended recipient only. Access, disclosure, copying, distribution, or
reliance on any of it by anyone else is prohibited and may be a criminal
offence. Please delete if obtained in error and email confirmation to the sender.
--
Posted from
mail-out-01.piro.net
 [194.64.31.11]
via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: *** WinZip32 HELP ***

author: SimonenomiS

text:
<
simone....@gfd.de
> wrote in message
news:OFF7C51710.C2B462DA...@obi.de...
> ho trovato il codice per creare un file ZIP
> Ma per decomprimerne uno, quale è la riga comano ?
>
> c:\Programmi\WinZip\Winzip32.exe ...................
    In generale la sintassi dei comandi in linea di Winzip e' la stessa dei
'vecchi' Pkzip-PkUnzip; quindi:
    winzip -e [-d] <nome_rchivio.zip> [directory_di_destinazione]
usando il parametro -d verranno ricreati, all'interno di
[directory_di_destinazione]
tutti i percorsi memorizzati nell'archivio .ZIP.
   Dall'indirizzo
http://www.winzip.com/wzcline.htm
 e' possibile scaricare
il WinZip Command Line Support Add-On Version 1.0; è fatto apposta per
essere usato dall'interno di altri prg via linea di comando. Viene fornito
con un file di Help che ne illustra tutte le istruzioni (tutte(?) possedute
anche da Winzip).
    Ciao
-------------------------------------------------------------
UscitaDa 1.52, nuovi sfondi ed aforismi ad ogni avvio del PC
http://digilander.iol.it/SimonenomiS/
-------------------------------------------------------------


title: *** WinZip32 HELP ***


title: Access 2003 ed errore 3420

author: Giancarlo

text:
Ciao.
Qualcuno sà perchè in Access 2003 (su Win2000 SBS) un documento va in
errore con errore 3420 nel momento in cui viene fatta una requery mentre
su un'altro PC la stessa versione di Office permette la corretta
visualizzazione?
Anche in Access 2000 il tutto funziona ok.
Grazie a tutti.
Qualche aggiornamento da fare?
Ciao,
Giancarlo
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: urge soluzione in maschera di ricerca con checkbox

author: francesco

text:
Siccome mi sono proposto in maniera non chiara, cerco di spiegarmi meglio
adesso:
ho una tabella con una serie di campi vero/falso, ad esempio:
check1
check2
check3
check4
check5
Con una maschera vorrei selezionare solo i record dove check1, check3 e
check5 sono veri, diciamo una ricerca non fissa, del tipo tutti veri o tutti
falsi
help me now
grazie
F
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


author: Antonio Biso

text:
"francesco" <
fran...@tin.it
> ha scritto nel messaggio
news:80Z182Z85Z83Y1...@usenet.libero.it...
> Siccome mi sono proposto in maniera non chiara, cerco di spiegarmi meglio
> adesso:
>
> ho una tabella con una serie di campi vero/falso, ad esempio:
>
> check1
> check2
> check3
> check4
> check5
>
> Con una maschera vorrei selezionare solo i record dove check1, check3 e
> check5 sono veri, diciamo una ricerca non fissa, del tipo tutti veri o
tutti
> falsi
Query con criteri true sotto quei campi...
Antonio


text:

Ho provato ma mi da errore di "Tipo non corrispondente". Tieni presente che
ho messo la select in un evento di apertura maschera procedendo cosi':
Private Sub cercarec_Click()
    Dim Name As String
    Dim Criteria As String

    Criteria = "select * from numsist where funz1 like
nz([forms]![ricercafunzioni]![fun1];" * ") AND funz2 like
nz([forms]![ricercafunzioni]![fun2];" * ") AND funz3 like
nz([forms]![ricercafunzioni]![fun3];" * ") AND funz4 like
nz([forms]![ricercafunzioni]![fun4];" * ") AND funz5 like
nz([forms]![ricercafunzioni]![fun5];" * ") AND funz6 like
nz([forms]![ricercafunzioni]![fun6];" * ") AND funz7 like
nz([forms]![ricercafunzioni]![fun7];" * ") AND funz8 like
nz([forms]![ricercafunzioni]![fun8];" * ") AND funz9 like
nz([forms]![ricercafunzioni]![fun9];" * ") AND funz10 like
nz([forms]![ricercafunzioni]![fun10];" * ")"
    DocName = "numsist"
    DoCmd.OpenForm DocName, , , Criteria
End Sub
dove fun1,fun2,fun3,funx sono i controlli della maschera "ricercafunzioni",
che è la maschera che li contiene; funz1,funz2,funz3,funzx i campi della
tabella "numsist" e "numsist" è la form da aprire con il criterio
"Criteria".
grazie infinite
Francesco



text:

Ma non è che la soluzione trovata per la query si riferisce a campi di testo
e non a checkbox
ciao
F



text:
Il 14 Nov 2003, 06:24,
fran...@tin.it
 (francesco) ha scritto:

Ma non è che la soluzione trovata per la query si riferisce a campi di testo
e non a checkbox
ciao
F
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


text:

> > che č la maschera che li contiene; funz1,funz2,funz3,funzx i campi della
> > tabella "numsist" e "numsist" č la form da aprire con il criterio
> > "Criteria".
> >
> > grazie infinite
> >
> > Francesco
> >
> > --------------------------------
> > Inviato via
http://arianna.libero.it/usenet/
> >
>
> Ma non č che la soluzione trovata per la query si riferisce a campi di
testo
> e non a checkbox
>
> ciao
>
> F
>
> --------------------------------
> Inviato via
http://arianna.libero.it/usenet/
>
Ci sto diventando scemo......il problema di errore 13 - "tipo non
corrispondente", credo che stia nel fatto che la parte "*" della funzione
like nz([forms]![ricercafunzioni]![fun1];" * ") non va bene per campi
vero/falso. Dico bene? Se č cosě come si puo' ovviare?
thanks



text:
"francesco" <
fran...@tin.it
> ha scritto nel messaggio
news:82Z49Z81Z2Y10...@usenet.libero.it...

Ma i controlli fun1-fun10 che valori possono assumere e i campi funz1-funz10
di che tipo sono?
Antonio


text:

Allora i controlli possono assumere 2 valori (spuntati o no), mentre i campi
della tabella sono campi si/no
grazie



text:
"francesco" <
fran...@tin.it
> ha scritto nel messaggio
news:80Z182Z85Z164Y1...@usenet.libero.it...

Ma cazz...
ma allora perchè usi la sintassi con l'nz che vale per testare i controlli
vuoti?
In questo caso il controllo avrà sempre valore true o false a seconda della
presenza o meno della spunta.
Pertanto il criterio in query deve fare semplicemente riferimento al
controllo
where funz1 = [forms]![ricercafunzioni]![fun1] AND
funz2 = [forms]![ricercafunzioni]![fun2]
e così via...
Antonio


text:

Ho costruito come tu dici la query ma purtroppo mi da' errore di sintassi;
tieni presente che ho messo tutto su di una sola linea tra virgolette, oltre
che metterla cosi' come la vedi sopra (con le correzzioni). Boh!
ciao
F



text:
"francesco" <
fran...@tin.it
> ha scritto nel messaggio
news:82Z49Z81Z99Y10...@usenet.libero.it...
> > Ma cazz...
> > ma allora perchè usi la sintassi con l'nz che vale per testare i
controlli
> > vuoti?
> > In questo caso il controllo avrà sempre valore true o false a seconda
> della
> > presenza o meno della spunta.
> > Pertanto il criterio in query deve fare semplicemente riferimento al
> > controllo
> > where funz1 = [forms]![ricercafunzioni]![fun1] AND
> > funz2 = [forms]![ricercafunzioni]![fun2]
> >
> > e così via...
> >
> > Antonio
> >
>
> Ho costruito come tu dici la query ma purtroppo mi da' errore di sintassi;
> tieni presente che ho messo tutto su di una sola linea tra virgolette,
oltre
> che metterla cosi' come la vedi sopra (con le correzzioni). Boh!
Posta quanto hai scritto
Antonio


text:

Ecco:
 stLinkCriteria = "SELECT * FROM numsist WHERE funz1 =
[Forms]![ricercafunzioni]![fun1] And funz2 =
[Forms]![ricercafunzioni]![fun2] And funz3 =
[Forms]![ricercafunzioni]![fun3] And funz4 =
[Forms]![ricercafunzioni]![fun4] And funz5 =
[Forms]![ricercafunzioni]![fun5] And funz6 =
[Forms]![ricercafunzioni]![fun6] And funz7 =
[Forms]![ricercafunzioni]![fun7] And funz8 =
[Forms]![ricercafunzioni]![fun8] And funz9 =
[Forms]![ricercafunzioni]![fun9] And funz10 =
[Forms]![ricercafunzioni]![fun10]"
tieni presente che ho provato anche con le parentesi tonde così:
and (funz5 = [Forms]![ricercafunzioni]![fun5]) and ......
grazie



text:
"francesco" <
fran...@tin.it
> ha scritto nel messaggio
news:80Z182Z85Z194Y1...@usenet.libero.it...

Ma così è come l'hai scritto precisamente nel codice?!?
Non puoi farlo, devi o usare gli _ ma a me questa soluzione non piace.
Oppure fare così:
app = "SELECT * FROM numsist WHERE funz1 = "
app = app & "[Forms]![ricercafunzioni]![fun1] And funz2 = "
app = app & "[Forms]![ricercafunzioni]![fun2] And funz3 = "
ecc.
stLinkCriteria = app
Antonio


text:

Niente da fare, sempre errore di runtime 3075: errore di sintassi



text:

ti posto l'intera subroutine:
Private Sub cercarec_Click()
    Dim stDocName As String
    Dim stLinkCriteria As String

    app = "SELECT * FROM numsist WHERE funz1 = "
    app = app & "[Forms]![ricercafunzioni]![fun1] And funz2 = "
    app = app & "[Forms]![ricercafunzioni]![fun2] And funz3 = "
    app = app & "[Forms]![ricercafunzioni]![fun3] And funz4 = "
    app = app & "[Forms]![ricercafunzioni]![fun4] And funz5 = "
    app = app & "[Forms]![ricercafunzioni]![fun5] And funz6 = "
    app = app & "[Forms]![ricercafunzioni]![fun6] And funz7 = "
    app = app & "[Forms]![ricercafunzioni]![fun7] And funz8 = "
    app = app & "[Forms]![ricercafunzioni]![fun8] And funz9 = "
    app = app & "[Forms]![ricercafunzioni]![fun9] And funz10 = "
    app = app & "[Forms]![ricercafunzioni]![fun10]"
    stLinkCriteria = app
    stDocName = "numsistema"
    DoCmd.OpenForm stDocName, , , stLinkCriteria******qui si evidenzia il debug
dopo l'errore
Exit_cercarec_Click:
    Exit Sub
Err_cercarec_Click:
    MsgBox Err.Description
    Resume Exit_cercarec_Click

End Sub
ciao



text:
"francesco" <
fran...@tin.it
> ha scritto nel messaggio
news:80Z182Z85Z194Y1...@usenet.libero.it...
> > Niente da fare, sempre errore di runtime 3075: errore di sintassi
> >
> > F
>
> ti posto l'intera subroutine:
>
> Private Sub cercarec_Click()
>
>     Dim stDocName As String
>     Dim stLinkCriteria As String
>
>     app = "SELECT * FROM numsist WHERE funz1 = "
>     app = app & "[Forms]![ricercafunzioni]![fun1] And funz2 = "
>     app = app & "[Forms]![ricercafunzioni]![fun2] And funz3 = "
>     app = app & "[Forms]![ricercafunzioni]![fun3] And funz4 = "
>     app = app & "[Forms]![ricercafunzioni]![fun4] And funz5 = "
>     app = app & "[Forms]![ricercafunzioni]![fun5] And funz6 = "
>     app = app & "[Forms]![ricercafunzioni]![fun6] And funz7 = "
>     app = app & "[Forms]![ricercafunzioni]![fun7] And funz8 = "
>     app = app & "[Forms]![ricercafunzioni]![fun8] And funz9 = "
>     app = app & "[Forms]![ricercafunzioni]![fun9] And funz10 = "
>     app = app & "[Forms]![ricercafunzioni]![fun10]"
>
>     stLinkCriteria = app
>     stDocName = "numsistema"
>     DoCmd.OpenForm stDocName, , , stLinkCriteria******qui si evidenzia il
debug
> dopo l'errore
Senti, ma tagliamo la testa al topo!
Questa benedetta recordsource preparala a design time, vai nella proprietą,
apri una query e ci metti tutti i campi con sotto quei criteri!!!!
Antonio


text:

Perdonami l'ignoranza ma che intendi? Prepararla da finestra access e poi
prendere l'sql e trasferirlo? L'ho gią fatto ma nun funzia uguale.



text:
"francesco" <
fran...@tin.it
> ha scritto nel messaggio
news:193Z205Z174Z38Y...@usenet.libero.it...
> > > stLinkCriteria = app
> > > stDocName = "numsistema"
> > > DoCmd.OpenForm stDocName, , , stLinkCriteria******qui si evidenzia il
> > debug
> > > dopo l'errore
> >
> > Senti, ma tagliamo la testa al topo!
> >
> > Questa benedetta recordsource preparala a design time, vai nella
> proprietà,
> > apri una query e ci metti tutti i campi con sotto quei criteri!!!!
> >
> > Antonio
> >
>
>
> Perdonami l'ignoranza ma che intendi? Prepararla da finestra access e poi
> prendere l'sql e trasferirlo? L'ho già fatto ma nun funzia uguale.
No!
Apri la form numsistema in struttura, vai nella proprietà recordsource, ci
clicchi dentro, ci sono i 3 puntini, clicchi e ti apre il QBE.
Prepari una query sulla tabella mettendo sotto ogni campo il riferimento al
controllo della form
Salvi e esci.
La recordsource della form è ora settata e non devi più farlo via codice a
runtime
Antonio


text:

Tutto ok funziona finalmente. Grazie di tutto e alla prossima
Francesco



text:
"francesco" <
fran...@tin.it
> ha scritto nel messaggio
news:193Z205Z174Z38Y...@usenet.libero.it...
> > La recordsource della form č ora settata e non devi piů farlo via codice
a
> > runtime
> >
> > Antonio
> >
>
> Tutto ok funziona finalmente. Grazie di tutto e alla prossima
Puff... Pant...
Ancora una volta si č dimostrato fondamentale esporre il problema, non la
propria soluzione!!!
Antonio


text:

Condivido pienamente
ciao
F



text:

Rieccomi! La soluzione che tu mi desti funziona alla perfezione. Adesso perņ
ho inserito un'ulteriore campo di ricerca in questa sequenza, questa volta
di testo che messo in associazione con gli altri funziona, cioč:
fun1=si
fun2=si
funz_altro="cane"
la ricerca va a buon fine. Se faccio la ricerca solo col campo di testo,
cioč:
funz_altro="cane"
essa non funziona. nei criteri di questo campo, seguendo le orme degli
altri, ho inserito nei criteri la seguente istruzione:
Like "*" & [Forms]![ricercafunzioni]![funz_altro] & "*"
volendo fare io ricerca per testo contenuto nel campo.
grazie



text:
"francesco" <
fran...@tin.it
> ha scritto nel messaggio
news:82Z49Z81Z179Y1...@usenet.libero.it...
>
> funz_altro="cane"
>
> essa non funziona. nei criteri di questo campo, seguendo le orme degli
> altri, ho inserito nei criteri la seguente istruzione:
>
> Like "*" & [Forms]![ricercafunzioni]![funz_altro] & "*"
>
> volendo fare io ricerca per testo contenuto nel campo.
Posta l'SQL completo e dì in quali casi di inserimenti in maschera non
funziona
Antonio


text:

Allora ogni campo della query costruita sulla maschera di ricerca, contiene
nei criteri la seguente istruzione, cosi' come tu mi dicesti:
[Forms]![ricercafunzioni]![fun1]
che tradotto in sql significa
me.funz1=[Forms]![ricercafunzioni]![fun1]
dove funz1 è il campo della tabella e fun1 il controllo della maschera di
ricerca. Fin qui tutto ok
Aggiungendo ai controlli nella maschera di ricerca, un controllo testo (es.
funz_altro, quindi diverso dagli altri che sono si/no) e relativo campo
testo della tabella corrispondente, in fase di ricerca non posso fare
ricerche solo con quel controllo. Tipo:
funz_altro che contiene "cane"
mi ritorna una maschera bianca. L'sql nel criterio relativo a quel campo e:
Like "*" & [Forms]![ricercafunzioni]![funz_altro] & "*"
che ripeto messo insieme agli altri funziona, da solo no.
Spero di aver detto quello che chiedevi
grazie sempre



text:
"francesco" <
fran...@tin.it
> ha scritto nel messaggio
news:193Z205Z174Z38Y...@usenet.libero.it...
> Il 10 Dic 2003, 08:59, "Antonio Biso" <
ch...@etruria.net
> ha scritto:
> > "francesco" <
fran...@tin.it
> ha scritto nel messaggio
> > news:82Z49Z81Z179Y1...@usenet.libero.it...
> > >
> > > funz_altro="cane"
> > >
> > > essa non funziona. nei criteri di questo campo, seguendo le orme degli
> > > altri, ho inserito nei criteri la seguente istruzione:
> > >
> > > Like "*" & [Forms]![ricercafunzioni]![funz_altro] & "*"
> > >
> > > volendo fare io ricerca per testo contenuto nel campo.
> >
> > Posta l'SQL completo e dě in quali casi di inserimenti in maschera non
> > funziona
> >
> > Antonio
> >
>
> Allora ogni campo della query costruita sulla maschera di ricerca,
contiene
> nei criteri la seguente istruzione, cosi' come tu mi dicesti:
>
> [Forms]![ricercafunzioni]![fun1]
>
> che tradotto in sql significa
>
> me.funz1=[Forms]![ricercafunzioni]![fun1]
>
> dove funz1 č il campo della tabella e fun1 il controllo della maschera di
> ricerca. Fin qui tutto ok
Tutto ok perchč in quei controlli, di tipo sě/no, c'č sempre un valore,
appunto true o false
> Aggiungendo ai controlli nella maschera di ricerca, un controllo testo
(es.
> funz_altro, quindi diverso dagli altri che sono si/no) e relativo campo
> testo della tabella corrispondente, in fase di ricerca non posso fare
> ricerche solo con quel controllo. Tipo:
>
> funz_altro che contiene "cane"
>
> mi ritorna una maschera bianca. L'sql nel criterio relativo a quel campo
e:
>
> Like "*" & [Forms]![ricercafunzioni]![funz_altro] & "*"
Questo non funziona se il campo contiene valori null
sarebbe meglio usare un campo calcolato fatto cosě
nz([tuocampo;"-") e sotto metterci quel criterio
>
> che ripeto messo insieme agli altri funziona, da solo no.
Non ho capito che significa che insieme agli altri funziona.
Antonio


text:
Il 10 Dic 2003, 14:12, "Antonio Biso" <
ch...@etruria.net
> ha scritto:
> "francesco" <
fran...@tin.it
> ha scritto nel messaggio
> news:193Z205Z174Z38Y...@usenet.libero.it...
> > Il 10 Dic 2003, 08:59, "Antonio Biso" <
ch...@etruria.net
> ha scritto:
> > > "francesco" <
fran...@tin.it
> ha scritto nel messaggio
> > > news:82Z49Z81Z179Y1...@usenet.libero.it...
> > > >
> > > > funz_altro="cane"
> > > >
> > > > essa non funziona. nei criteri di questo campo, seguendo le orme
degli
> > > > altri, ho inserito nei criteri la seguente istruzione:
> > > >
> > > > Like "*" & [Forms]![ricercafunzioni]![funz_altro] & "*"
> > > >
> > > > volendo fare io ricerca per testo contenuto nel campo.
> > >
> > > Posta l'SQL completo e dì in quali casi di inserimenti in maschera non
> > > funziona
> > >
> > > Antonio
> > >
> >
> > Allora ogni campo della query costruita sulla maschera di ricerca,
> contiene
> > nei criteri la seguente istruzione, cosi' come tu mi dicesti:
> >
> > [Forms]![ricercafunzioni]![fun1]
> >
> > che tradotto in sql significa
> >
> > me.funz1=[Forms]![ricercafunzioni]![fun1]
> >
> > dove funz1 è il campo della tabella e fun1 il controllo della maschera
di
> > ricerca. Fin qui tutto ok
>
> Tutto ok perchè in quei controlli, di tipo sì/no, c'è sempre un valore,
> appunto true o false
>
> > Aggiungendo ai controlli nella maschera di ricerca, un controllo testo
> (es.
> > funz_altro, quindi diverso dagli altri che sono si/no) e relativo campo
> > testo della tabella corrispondente, in fase di ricerca non posso fare
> > ricerche solo con quel controllo. Tipo:
> >
> > funz_altro che contiene "cane"
> >
> > mi ritorna una maschera bianca. L'sql nel criterio relativo a quel campo
> e:
> >
> > Like "*" & [Forms]![ricercafunzioni]![funz_altro] & "*"
>
> Questo non funziona se il campo contiene valori null
> sarebbe meglio usare un campo calcolato fatto così
> nz([tuocampo;"-") e sotto metterci quel criterio
>
Come? Sostituisco nel criterio del campo l'istruzione Like con quella che mi
proponi?

> >
> > che ripeto messo insieme agli altri funziona, da solo no.
>
> Non ho capito che significa che insieme agli altri funziona.
>
> Antonio
>
Significa che se nella ricerca dico:
fun1=si
funz_altro="cane"
mi ritorna i record esatti, cioè tutti quelli dove il campo funz1=si e dove,
in funzione_altro è contenuta la parola "cane". Ripeto, se cerco solo "cane"
non mi da risultato, o per meglio dire mi da maschera vuota.
ciao



text:

Scusami per la doppia risposta, ma è meglio se vedi il pezzo di sql:
WHERE (((numsist.funzione_altro) Like "*" &
[Forms]![ricercafunzioni]![funz_altro] & "*") AND
((numsist.funz1)=[Forms]![ricercafunzioni]![fun1]) AND
((numsist.funz2)=[Forms]![ricercafunzioni]![fun2]) AND
((numsist.funz3)=[Forms]![ricercafunzioni]![fun3]) AND
((numsist.funz4)=[Forms]![ricercafunzioni]![fun4]) AND
((numsist.funz5)=[Forms]![ricercafunzioni]![fun5]) AND
((numsist.funz6)=[Forms]![ricercafunzioni]![fun6]) AND
((numsist.funz7)=[Forms]![ricercafunzioni]![fun7]) AND
((numsist.funz8)=[Forms]![ricercafunzioni]![fun8]) AND
((numsist.funz9)=[Forms]![ricercafunzioni]![fun9]) AND
((numsist.funz10)=[Forms]![ricercafunzioni]![fun10]));
il tutto fatto sotto generatore di query nella proprietà della maschera



text:

Ho fatto altre prove leggendo meglio quello che tu mi hai scritto; ho
inserito il campo calcolato al posto del campo di origine nella query, che
quindi diventa:
SELECT ..........nz([funzione_altro],"-") AS Espr1......
WHERE (((nz([funzione_altro],"-")) Like "*" &
[Forms]![ricercafunzioni]![funz_altro] & "*") AND.....ecc.
cmq il risultato è sempre lo stesso di prima. Ho provato a mettere * invece
di -, ma il prodotto non cambia
ciao
F



text:
"francesco" <
fran...@tin.it
> ha scritto nel messaggio
news:80Z182Z85Z245Y1...@usenet.libero.it...
> > > Significa che se nella ricerca dico:
> > >
> > > fun1=si
> > > funz_altro="cane"
> > >
>
> Ho fatto altre prove leggendo meglio quello che tu mi hai scritto; ho
> inserito il campo calcolato al posto del campo di origine nella query, che
> quindi diventa:
>
> SELECT ..........nz([funzione_altro],"-") AS Espr1......
> WHERE (((nz([funzione_altro],"-")) Like "*" &
> [Forms]![ricercafunzioni]![funz_altro] & "*") AND.....ecc.
>
Sei sicuro che esistano record con fun1 = sě e altro = Cane ????
Antonio


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


author: franco

text:

Scusa il messaggio a vuoto, la stanchezza avanza......dunque, sono sicuro
che esistono perchč la ricerca cosě funziona; non funziona se cerco solo:
funz_altro="cane"
ciao



text:
"franco" <
fran...@tin.it
> ha scritto nel messaggio
news:82Z49Z81Z96Y10...@usenet.libero.it...
> Il 15 Dic 2003, 13:08, "Antonio Biso" <
ch...@etruria.net
> ha scritto:
> > "francesco" <
fran...@tin.it
> ha scritto nel messaggio
> > news:80Z182Z85Z245Y1...@usenet.libero.it...
> >
> > > > > Significa che se nella ricerca dico:
> > > > >
> > > > > fun1=si
> > > > > funz_altro="cane"
> > > > >
> > >
> > > Ho fatto altre prove leggendo meglio quello che tu mi hai scritto; ho
> > > inserito il campo calcolato al posto del campo di origine nella query,
> che
> > > quindi diventa:
> > >
> > > SELECT ..........nz([funzione_altro],"-") AS Espr1......
> > > WHERE (((nz([funzione_altro],"-")) Like "*" &
> > > [Forms]![ricercafunzioni]![funz_altro] & "*") AND.....ecc.
> > >
> >
> > Sei sicuro che esistano record con fun1 = sì e altro = Cane ????
> >
> > Antonio
> >
>
> Scusa il messaggio a vuoto, la stanchezza avanza......dunque, sono sicuro
> che esistono perchè la ricerca così funziona; non funziona se cerco solo:
>
> funz_altro="cane"
La domanda era mal posta!
Sei sicuro che esistano record con fun1 = NO e altro = Cane ????
Ovviamente se hai selezionato fun1 a Sì e hai messo cane e c'è risultato
significa che ci sono, ma non è detto che se tu NON spunti fun1, il che
significa che gli dici che vuoi fun1 = No, ci siano record con altro = cane
e appunto fun1 = No...
Antonio


text:

Infatti esistono tutte e due le condizioni; io per fare le prove ho inserito
sia record con funz1=si e funzione_altro="cane" e sia record che hanno
funz1=no e funzione_altro="cane". Adesso se io effettuo la ricerca di tutti
i record dove funz_altro="cane", ho un risultato parziale, nel senso che mi
restituisce solo i record dove i campi relativi funz1, funz2, funz.... sono
uguali a "no" e contengono "cane", omettendo quelli dove "cane" è contenuto
in funzione_altro ed hanno i campi suddetti a "si". Spero di essere stato
illuminante nello spiegare il problema.
ciao e grazie



text:
"francesco" <
fran...@tin.it
> ha scritto nel messaggio
news:82Z49Z81Z96Y10...@usenet.libero.it...
> > La domanda era mal posta!
> > Sei sicuro che esistano record con fun1 = NO e altro = Cane ????
> > Ovviamente se hai selezionato fun1 a Sě e hai messo cane e c'č risultato
> > significa che ci sono, ma non č detto che se tu NON spunti fun1, il che
> > significa che gli dici che vuoi fun1 = No, ci siano record con altro =
> cane
> > e appunto fun1 = No...
> >
> > Antonio
> >
>
> Infatti esistono tutte e due le condizioni; io per fare le prove ho
inserito
> sia record con funz1=si e funzione_altro="cane" e sia record che hanno
> funz1=no e funzione_altro="cane". Adesso se io effettuo la ricerca di
tutti
> i record dove funz_altro="cane", ho un risultato parziale, nel senso che
mi
> restituisce solo i record dove i campi relativi funz1, funz2, funz....
sono
> uguali a "no" e contengono "cane", omettendo quelli dove "cane" č
contenuto
> in funzione_altro ed hanno i campi suddetti a "si". Spero di essere stato
> illuminante nello spiegare il problema.
CERTO!!!
Il fatto che tu non spunti le caselle funz1--10 significa che dici che vuoi
che i corrispondenti campi siano = No.
Pertanto se non spunti niente e ci metti Cane, gli stai dicendo che vuoi i
record con valore No E valore Cane sull' altro campo!!!!
Antonio


text:

.....perň a me le ricerche servono entrambe; cioč quando io inserisco solo
funz_altro="cane", mi deve restituire sia gli uni che gli altri, cioč sia
fun1=si e sia fun1=no
ciao



text:

E allora non puoi utilizzare come filtri delle checkbox!!!!
Fai un gruppo di opzioni per ogni checkbox e ci metti tre radio button con
label Sě, No, Tutti e corrispondenti valori numerici 1, 2 e 3.
A questo punto i criteri sotto i campi nella query diventeranno:
iif([forms]![tuaform]![gruppo]=1;true;iif([forms]![tuaform]![gruppo]=2;false
;true or false))
Antonio


text:

ho provato, ma non funziona. Devo mettere, per esempio, se faccio una
ricerca per un tot campi si e tot no, i campi no devono essere spuntati a
no, altrimenti non funziona.



text:
"francesco" <
fran...@tin.it
> ha scritto nel messaggio
news:80Z182Z85Z165Y1...@usenet.libero.it...
> > Fai un gruppo di opzioni per ogni checkbox e ci metti tre radio button
con
> > label Sě, No, Tutti e corrispondenti valori numerici 1, 2 e 3.
> > A questo punto i criteri sotto i campi nella query diventeranno:
> >
>
iif([forms]![tuaform]![gruppo]=1;true;iif([forms]![tuaform]![gruppo]=2;false
> > ;true or false))
> >
> > Antonio
> >
>
> ho provato, ma non funziona. Devo mettere, per esempio, se faccio una
> ricerca per un tot campi si e tot no, i campi no devono essere spuntati a
> no, altrimenti non funziona.
Rispieghi cosa vuoi e cosa hai fatto?
Antonio


text:

Mi hai detto di mettere per ogni campo della tabella, un gruppo di opzioni
nella maschera. Giusto?
Ad ogni gruppo, valori 1=vero, 2=falso, 3=vero e falso
fatto cio' nella query, ad ogni criterio del campo va messa la stringa iif
che mi hai scritto sopra. Ok?
fatto questo ho provato ed il risultato č sempre lo stesso; ho provato a
spuntare due opzioni che sapevo esistenti, quindi 1=vero e ho lasciato le
restanti a 3=vero o falso; non funziona, le restanti vanno messe tutte su
2=falso.



text:

QUESTA FUNZIONA PERECHE L'HO PROVATA!!!
Prendi l'espressione che ti avevo detto prima e mettila due volte in OR: i
rami col valore 1 e 2 rimangono gli stessi perň una volta nel caso 3 ci
metti vero, la seconda volta ci metti falso!!!
In pratica nel mio test era cosě
IIf([Forms]![Maschera11]![Cornice0]=1;Vero;IIf([Forms]![Maschera11]![Cornice
0]=2;Falso;Vero)) Or
IIf([Forms]![Maschera11]![Cornice0]=1;Vero;IIf([Forms]![Maschera11]![Cornice
0]=2;Falso;Falso))
Antonio


text:
Il 15 Dic 2003, 22:31, "Antonio Biso" <
ch...@etruria.net
> ha scritto:
> "francesco" <
fran...@tin.it
> ha scritto nel messaggio
> news:80Z182Z85Z165Y1...@usenet.libero.it...
> > Il 15 Dic 2003, 21:46, "Antonio Biso" <
ch...@etruria.net
> ha scritto:
> > > "francesco" <
fran...@tin.it
> ha scritto nel messaggio
> > > news:80Z182Z85Z165Y1...@usenet.libero.it...
> > >
> > > > > Fai un gruppo di opzioni per ogni checkbox e ci metti tre radio
> button
> > > con
> > > > > label Sì, No, Tutti e corrispondenti valori numerici 1, 2 e 3.
> > > > > A questo punto i criteri sotto i campi nella query diventeranno:
> > > > >
> > > >
> > >
> >
>
iif([forms]![tuaform]![gruppo]=1;true;iif([forms]![tuaform]![gruppo]=2;false
> > > > > ;true or false))
> > > > >
> > > > > Antonio
> > > > >
> > > >
> > > > ho provato, ma non funziona. Devo mettere, per esempio, se faccio
una
> > > > ricerca per un tot campi si e tot no, i campi no devono essere
> spuntati
> > a
> > > > no, altrimenti non funziona.
> > >
> > > Rispieghi cosa vuoi e cosa hai fatto?
> > >
> > > Antonio
> > >
> >
> > Mi hai detto di mettere per ogni campo della tabella, un gruppo di
opzioni
> > nella maschera. Giusto?
> > Ad ogni gruppo, valori 1=vero, 2=falso, 3=vero e falso
> >
> > fatto cio' nella query, ad ogni criterio del campo va messa la stringa
iif
> > che mi hai scritto sopra. Ok?
> >
> > fatto questo ho provato ed il risultato è sempre lo stesso; ho provato a
> > spuntare due opzioni che sapevo esistenti, quindi 1=vero e ho lasciato
le
> > restanti a 3=vero o falso; non funziona, le restanti vanno messe tutte
su
> > 2=falso.
>
> QUESTA FUNZIONA PERECHE L'HO PROVATA!!!
> Prendi l'espressione che ti avevo detto prima e mettila due volte in OR: i
> rami col valore 1 e 2 rimangono gli stessi però una volta nel caso 3 ci
> metti vero, la seconda volta ci metti falso!!!
> In pratica nel mio test era così
>
IIf([Forms]![Maschera11]![Cornice0]=1;Vero;IIf([Forms]![Maschera11]![Cornice
> 0]=2;Falso;Vero)) Or
>
IIf([Forms]![Maschera11]![Cornice0]=1;Vero;IIf([Forms]![Maschera11]![Cornice
> 0]=2;Falso;Falso))
>
> Antonio
>
EUREKAAAAAAAAAAAAAAAAAAAAAAAAAAAAA!!!!!!!!!!!!!!!
Funziona.....adesso posso andare a dormire tranquillo.
Grazieeeeeeeeeeeeeeeeeeeeee!!!!!!!!!!
La mia domanda adesso è questa:
Volendo inserire un msgbox di non trovato all'apertura della maschera di
destinazione, come posso fare? Con un ciclo if then sui campi? In verità ho
già provato, ma quando faccio:
if [forms]![miamasch]![miogruppo] <> me.nomecampo then
msgbox "blablabla"
end if
il me.nomecampo risulta vuoto
che ne pensi?
ciao e grazie ancora
Francesco



text:
"francesco" <
fran...@tin.it
> ha scritto nel messaggio
news:80Z182Z85Z165Y1...@usenet.libero.it...
> EUREKAAAAAAAAAAAAAAAAAAAAAAAAAAAAA!!!!!!!!!!!!!!!
>
> Funziona.....adesso posso andare a dormire tranquillo.
> Grazieeeeeeeeeeeeeeeeeeeeee!!!!!!!!!!
Anch'io non ci dormivo piů!!!
>
> La mia domanda adesso č questa:
NO!
Apri un altro thread con opportuno subject visto che č tutt'altro
argomento!!!
Antonio


title: Calendario con giorni festivi

author: fafino

text:
Salve,
dove trovo un calendario, o come uso calendar control 8.0, che mi dice se il
giorno selezionato e' festivo ?
GRAZIE 1000
faf...@tiscalinet.it


title: Calendario con giorni festivi

author: Silvio Berruti

text:
"fafino" <
faf...@tiscalinet.it
> ha scritto nel messaggio
news:Y9TB8.22480$US3.5...@twister1.libero.it...
> Salve,
> dove trovo un calendario, o come uso calendar control 8.0, che mi dice se
il
> giorno selezionato e' festivo ?
Non ho mai utilizzato Calendar Control 8.0, ma, se ricordo bene, sul Sito
Comune è presente una funzione che ti dice se un giorno è festivo.
--
Silvio
il sito comune di it.comp.appl.access:
http://www.sitocomune.com


title: Scarico Magazzino!!!!

text:
Ragazzi sono disperato non so più come fare!!!
non ci capisco piu nulla !!!
Allora in base alle indicazioni di Roberto ho fatto come lui mi suggerisce:
ho una  tabella tblArticoli così strutturata:
CodiceArticolo        Testo e chiave primaria
Descrizione              Testo
 tblEntrate dove mi registro  un record per ogni
arrivo di merce e che avrà la seguente struttura:
IdEntrata                 Contatore e chiave primaria
CodArticolo            Testo
DataArrivo              Data/ora
Fattura                    Testo
Colli                        Numerico
Pezzi                       Numerico
Cartoni                    Numerico
Volume                    Numerico
Peso                        Numerico
ecc. ecc.
Imposta per queste due tabelle una relazione uno-a-molti in base ai
rispettivi campi CodiceArticolo.
A questo punto creati una maschera con visualizzazione a Maschera singola
che abbia come origine record tblArticoli; in questa maschera principale
inserisci con l'autocomposizione controllo anche una sottomaschera con
visualizzazione a maschera continue che abbia come origine record
tblEntrate. Nel piè di pagina della sottomaschera inserisci delle caselle di
testo non associate nelle quali calcolerai il totale dei campi Colli, Pezzi,
Cartoni ecc. ecc. relativi a quell'articolo.
A questo punto apri la maschera principale, ricerca l'articolo che vuoi
movimentare e nella sottomaschera inserisci i dati del nuovo arrivo di
materiale: come detto sopra al piede della sottomaschera avrai i totali di
tutto ciò che è arrivato per quell'articolo.
Ora mi sono creato naturalmete tbluscite
IdUscita               Contatore e chiave primaria
CodArticolo            Testo
DataPartenza              Data/ora
Fattura                    Testo
ColliPartenza                        Numerico
PezziPartenza                        Numerico
CartoniPartenza                    Numerico
VolumePartenza                    Numerico
Peso                                     Numerico
Partito                                    Si/no
con l'appropriata relazioni uno a molti.
ora siccome è una cosa molto particolare, vorrei che nella mia maschera
Lista scarico, con origine dati su tblUscita
vorrei che mi venisse visualizzato in maschere continue tutto quegli
articoli che ho messo in entrata, e con la funzionalità che quando volgio
far partire un codice articolo spunto Partito oggeto (Si/NO)immetto sul
campo ColliPartenza il valore e in autmatico mi fa a sottrarre ciò che ho in
entrata.(problema).
Poiche nella stessa maschera devo far visualizzare la data di differenza tra
datadi Arrivo e partenza ho creato la seguente query:
sempre relazioni uno-a-molti tra tblarticoli-tblentrata-tbluscita:
SELECT tblUscita.CodiceArtiolo, tblUscita.DataPartenza,
tblEntrata.DataArrivo, tblUscita.Fattura,
(DateDiff("d",[DataArrivo],[Datapartenza])) AS GG
FROM (tblArticoli INNER JOIN tblEntrata ON tblArticoli.CodiceArticolo =
tblEntrata.CodiceArticolo) INNER JOIN tblUscita ON
tblArticoli.CodiceArticolo = tblUscita.CodiceArtiolo;
come riultato se pongo in partenza un codice articolo per esempio in data
18/10/2005 mi calocla in automatico tutti quelli che ho con quegli articoli.
mi ritrovo un
codiceArticolo arrivato 15/10/2005 partito 18/10/2005 3 gg
codiceArticolo arrivato 17/10/2005 partito 18/10/2005 1gg
ho provato anche a metter nella query il criterio partito impostato su -1 ma
niente li prende in autmatico tutti. ?
come risolvo il problema delle maschere e questo?
Grazie in anticipo.


title: Scarico Magazzino!!!!

text:
"Fabrizio_LoL" <
f_j...@libero.it
> ha scritto nel messaggio
news:CFP7f.10003$65.2...@twister1.libero.it...

Grazie lo stesso ho risolto!!!!!


title: Nottata in bianco

author: Namecc

text:
Ho passato tutta la notte a cercare, ma non ottenendo risultati.
E' possibile o no accedere ad un file mdb con password?
Vi chiedo di evitare commentini.


title: Nottata in bianco

author: Ditta Cerri

text:
Namecc <
nam...@usa.net
> wrote in message
AOVl4.51318$C3.5...@news.infostrada.it...
> Ho passato tutta la notte a cercare, ma non ottenendo risultati.
> E' possibile o no accedere ad un file mdb con password?
> Vi chiedo di evitare commentini.
Tu chiedi di evitare commentini, ma consentimi una domanda:
"Secondo te, le password, a cosa servono?"
Sib


title: Nottata in bianco

author: AntoGal

text:
Namecc <
nam...@usa.net
> wrote in message
AOVl4.51318$C3.5...@news.infostrada.it...
> Ho passato tutta la notte a cercare, ma non ottenendo risultati.
> E' possibile o no accedere ad un file mdb con password?
> Vi chiedo di evitare commentini.
E se il DB che stai cercando di aprire fosse mio o di un collega?
Pensi che entrando in una banca e chiedendo se č possibile leggere il codice
segreto di un Bancomat, otterresti risposte molto diverse?
Vedi, se tu apri il DB regolarmente, dopo un po' la password diventa molto
difficile scordarla. Inoltre, se invece di cercare in italiano, metti la
stringa di ricerca in inglese, di programmi che recuperano le "password
perse" ne trovi a decine, impossibile non trovare nulla in una notte intera.
Ho visto dei demo che ti dicono solo le prime due lettere della password.
Questo dovrebbe aiutarti moltissimo, perchč se č vero che i dati sono tuoi e
che la password l'hai immessa per piů di 4/5 volte, NON POTRAI NON
RICORDARLA.
P.S. eventualmente prova il trick della doccia... :-)
--
Ciao, AntoGal
*************************************************
Home Page (area programmatori di VolFtp)
http://volftp.mondadori.com/italiani/galletta/
per scaricare un gioco di DAMA ITALIANA
*************************************************


title: Access e immagini - Problemi

author: ciuitre

text:
Ho realizzato per un mio amico un db per archiviare i cd musicali
con possibilità di inserire in ogni record la copertina del cd. Sul mio
PC (ho Access 97) nessun problema ma una volta copiati i files sul
suo (Access 2000) mi risulta impossibile inserire nuove immagini.
Quelle precedentemente memorizzate vengono correttamente
visualizzate mentre al posto delle nuove appare l'icona che indica
l'estensione del file (GIF o JPG). Qualcuno può aiutarmi a risolvere
il problema ? Grazie :)


title: Access e immagini - Problemi

author: Lucio Arzon

text:
Io, a suo tempo, ho fatto così sia per non avere eventuali problemi come il
tuo, sia per non appesantire troppo il database:
anzichè inserire l'immagine direttamente nel db ho utilizzato un campo nel
quale ho memorizzato il path della foto, che rimane residente sull'HD o su
CD-ROM.
Che ne dici?
--
          ------------------
          Lucio Arzon

www.lucioarzon.com
webm...@lucioarzon.com
"ciuitre" <ciuitr...@NOSPAMlibero.it> ha scritto nel messaggio
news:iJnJ7.1087$_h6....@news1.tin.it...



title: Access e immagini - Problemi

text:
In article <_QnJ7.1163$
A6.5...@news2.tin.it
>, "Lucio Arzon" <
webm...@lucioarzon.com
> wrote:
>Io, a suo tempo, ho fatto così sia per non avere eventuali problemi come il
>tuo, sia per non appesantire troppo il database:
>anzichè inserire l'immagine direttamente nel db ho utilizzato un campo nel
>quale ho memorizzato il path della foto, che rimane residente sull'HD o su
>CD-ROM.
>
>Che ne dici?
>
Già provato, non funge :(
E non può nemmeno trattarsi di un problema di acquisizione delle immagini, dal
momento che si presenta anche se utilizzo una di quelle già acquisite e
inserite.


title: Access e immagini - Problemi

author: Jonathan Canova

text:
"ciuitre" <ciuitr...@NOSPAMlibero.it> ha scritto nel messaggio
news:iJnJ7.1087$_h6....@news1.tin.it...
...
> Quelle precedentemente memorizzate vengono correttamente
> visualizzate mentre al posto delle nuove appare l'icona che indica
> l'estensione del file (GIF o JPG). Qualcuno può aiutarmi a risolvere
> il problema ? Grazie :)
Dovresti provare su un altro Access 2000. Potrebbe essere che le immagini
che vengono inserite, non vengano elaborate correttamente (magari c'è
qualche programma di grafica che interferisce.
--
Cordiali saluti,
Jonathan Canova
www.aladinoinformatica.com


title: Access e immagini - Problemi

author: bande

text:
"ciuitre" <ciuitr...@NOSPAMlibero.it> ha scritto nel messaggio
news:L%nJ7.1182$A6.5...@news2.tin.it...

Hai provato a guardare sul sito comune l'esempio di implementazione di un
archivio di immagini?
www.sitocomune.com/general7general075.htm
Ciao
--
Andrea


title: cambiare etichetta ad un pulsante di comando

author: Carlo

text:
Buon giorno N.G.
ho un pulsante di comando che vorrei usare per due comandi differenti:
ho creato un  pulsante di comando che esegue una funzione di modificare i
dati in un form (come routin Me.frmContolloDati.enabled.true) la cui
etichetta é "Modifica dati" e qui ok,
vorrei usare lo stesso per far tornare il form in False , p.e. che
l'etichetta appaia "Modifica Terminata" al posto di "Modifica dati" e renda
il form non modificabile, facendo ritornare l'etichetta "Modifica Dati"
Spero di essere stato chiaro
Grazie
--
Carlo
:-)
--------------------------------------------------------------------------------
La mia Cartella di Posta in Arrivo è protetta con SPAMfighter
1257 messaggi contenenti spam sono stati bloccati con successo.
Scarica gratuitamente SPAMfighter!


author: MA

text:
Carlo wrote:
> Buon giorno N.G.
> ho un pulsante di comando che vorrei usare per due comandi differenti:
> ho creato un  pulsante di comando che esegue una funzione di
> modificare i dati in un form (come routin
> Me.frmContolloDati.enabled.true) la cui etichetta é "Modifica dati" e
> qui ok, vorrei usare lo stesso per far tornare il form in False , p.e. che
> l'etichetta appaia "Modifica Terminata" al posto di "Modifica dati" e
> renda il form non modificabile, facendo ritornare l'etichetta
> "Modifica Dati" Spero di essere stato chiaro
> Grazie
select case me.tuaetichetta.caption
    case "Modifica dati"
    'TuaRoutine
    me.tuaetichetta.caption = "modifica effettuata"
    case "modifica effettuata"
    'Altra routine
end select
Occhio però che visto i dati che ci hai forniti ho dovuto condizionare
l'azione ad un elemento di sola lettura. Se a te interessa devi usare
qualche elemento (magari un campo) che conservi l'info, tipo un valore
booleano nel record
--
--
Massimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana Sviluppatori Access


text:
"MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
news:epure9$ap5$1...@tdi.cu.mi.it...

>Ok ci provo, grazie e buona giornata



text:
Carlo" <
carlog...@tiscali.it
> ha scritto nel messaggio
news:45c2ff09$0$20819$5fc...@news.tiscali.it...

Purtroppo non funziona , senzaltro sbaglio io in qualche cosa vedrò di
riassumere: Ho una maschera che dopo aver terminato una determinata
operazione diventa .enable = false e questo avviene tramite una routin
inserita in un pulsante che prende come riferimento un dato di un campo; se
mio controllo >1 allora me.form_controllo.enable = false, però potrei avere
la necessità di rendere di nuovo la form_controllo = true per apportare
delle modifiche alla maschera, ma, vorrei usare lo stesso pulsante di
comando che faccia tutte e due le cose.
Grazie per il supporto
Carlo
:-))))



text:

me.form.enabled = not me.form.enabled



title: apertura di una maschera da un'altra maschera

author: Maurizio Matetich

text:
ho una maschera di nome Info1 che contiene una casella combinata che mi
permette di scegliere da un elenco clienti e ottenere alcune informazioni.
ho una seconda maschera di nome Info2 che contiene anch'essa una casella
combinata che mi permette di scegliere da un elenco clienti e ottenere altre
informazioni.
dalla maschera Info1, dopo aver scelto un cliente con un pulsante vorrei
aprire la maschera Info2 già posizionata sul cliente scelto.
ho creato un pulsante a cui è associata la seguente azione:
DoCmd.OpenForm "Info2", , , "Forms!Info1.ScegliCliente =
Forms!Info1.ScegliCliente"
ma non funziona. Come posso risolvere il problema ?
Grazie a tutti
Maurizio


author: Roberto da casa

text:
"Maurizio Matetich" <
maurizio...@tin.it
> ha scritto nel messaggio
news:v2Dn9.10066$cS4.3...@news2.tin.it...

Se la chiave primaria dell'oggetto (tabella o query) che è origine record
della maschera Info2 è un campo di tipo contatore chiamato IdCliente.
Se la casella combinata ScegliCliente della maschera Info1 ha due colonne,
di cui la prima (non visibile) contiene IdCliente e la seconda (visibile)
contiene la ragione sociale del cliente.
Se la Colonna associata di detta casella combinata è la 1.
Prova così:
DoCmd.OpenForm "Info2", , , "IdCliente =" & Me!ScegliCliente
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:%eDn9.52920$e31.1...@twister2.libero.it...

Funziona !
grazie
Maurizio


title: OT finalmente qualcuno si ricorda....

author: Aieie Braso

text:
Mi fa piacere che qualcuno si ricordi di Aieie Braso (Tre uomini ed una
gamba)
Saluti
Aieie


title: Consenso alla query di aggiornamento e/o eliminazione

author: alraudo

text:
Salve a tutti volevo sapere se c'è un modo con cui è possibile dare in
consenso in automatico al "SI" che compare nelle query di
aggiornamento e/o di eliminazione.


author: Antonio Biso

text:
"alraudo" <
alr...@libero.it
> ha scritto nel messaggio
news:12a1d222.03052...@posting.google.com...
> Salve a tutti volevo sapere se c'è un modo con cui è possibile dare in
> consenso in automatico al "SI" che compare nelle query di
> aggiornamento e/o di eliminazione.
Vedi docmd.setwarnings
Antonio


title: Aprire finestra stampa

author: Giuseppe

text:
Ciao a tutti
con questa  istruzione
DoCmd.RunMacro "Stampa_selezionati"
mando in esecuzione una macro
che mi stampa un report , però vorrei che
invece di stampare direttamente , mi aprisse la finestra di
stampa di windows per scegliere la stampante giusta.
Come posso fare ?
Grazie anticipato
Giuseppe


title: Aprire finestra stampa

author: TheMax

text:
"Giuseppe" <
amrma...@tin.it
> ha scritto nel messaggio
news:mIyyc.315700$hc5.13...@news3.tin.it...
> DoCmd.RunMacro "Stampa_selezionati"
> mando in esecuzione una macro
> che mi stampa un report , però vorrei che
> invece di stampare direttamente , mi aprisse la finestra di
> stampa di windows per scegliere la stampante giusta.
Io di solito faccio
DoCmd.OpenReport "NomeReport", acpreview
così ti appare in anteprima e è poi l'utente a decidere cosa fare  e dove
stamparselo.
Ciao,
Massimo
--
web:
www.piubelli.net
Vuoi il mio indirizzo? Togli _cut_ per rispondermi


title: Aprire finestra stampa

text:
"TheMax" <
elpiub...@yahoo.it
> ha scritto nel messaggio
news:caeggd$uma$1...@atlantis.cu.mi.it...
> "Giuseppe" <
amrma...@tin.it
> ha scritto nel messaggio
> news:mIyyc.315700$hc5.13...@news3.tin.it...
>
> > DoCmd.RunMacro "Stampa_selezionati"
> > mando in esecuzione una macro
> > che mi stampa un report , perň vorrei che
> > invece di stampare direttamente , mi aprisse la finestra di
> > stampa di windows per scegliere la stampante giusta.
>
> Io di solito faccio
> DoCmd.OpenReport "NomeReport", acpreview
> cosě ti appare in anteprima e č poi l'utente a decidere cosa fare  e dove
> stamparselo.
>
> Ciao,
> Massimo
>
> --
Ciao Massimo grazie per la risposta
questa soluzione l'ho anche io ,perň non posso e non voglio aprire
in anteprima il report ,vorrei che direttamente mi apparisse
la finestra stampa per scegliera quale stampante usare ed inviare
la stampa del report sulla stampante scelta .
Giuseppe


title: Aprire finestra stampa

author: Sergio MAZZA

text:
"Giuseppe" <
amrma...@tin.it
> ha scritto nel messaggio
news:2cAyc.452369$rM4.18...@news4.tin.it...
>
> "TheMax" <
elpiub...@yahoo.it
> ha scritto nel messaggio
> news:caeggd$uma$1...@atlantis.cu.mi.it...
> > "Giuseppe" <
amrma...@tin.it
> ha scritto nel messaggio
> > news:mIyyc.315700$hc5.13...@news3.tin.it...
> >
> > > DoCmd.RunMacro "Stampa_selezionati"
> > > mando in esecuzione una macro
> > > che mi stampa un report , però vorrei che
> > > invece di stampare direttamente , mi aprisse la finestra di
> > > stampa di windows per scegliere la stampante giusta.
> >
> > Io di solito faccio
> > DoCmd.OpenReport "NomeReport", acpreview
> > così ti appare in anteprima e è poi l'utente a decidere cosa fare  e
dove
> > stamparselo.
> >
> > Ciao,
> > Massimo
> >
> > --
> Ciao Massimo grazie per la risposta
> questa soluzione l'ho anche io ,però non posso e non voglio aprire
> in anteprima il report ,vorrei che direttamente mi apparisse
> la finestra stampa per scegliera quale stampante usare ed inviare
> la stampa del report sulla stampante scelta .
>
> Giuseppe
>
Prova così:
- elimini l'echo del video;
- apri il report in modalità anteprima;
- apri la maschera di stampa;
- chiudi il report;
- ripristini l'echo del video;
On Error Resume Next
Application.Echo False
DoCmd.OpenReport "prova", acViewPreview
DoCmd.SelectObject acReport, "prova", False
RunCommand acCmdPrint
DoCmd.Close acReport, "prova"
Application.Echo True
On Error GoTo 0
Ciao.
--
Sergio MAZZA


title: Per Paolo Holz........ risoluzione dei nomi in rete

author: Paj

text:
Ciao,
Hai provato a bypassare il problema della risoluzione del nome del server
inserendo nella connection string direttamente l'indirizzo IP della macchina
server ?
Pietro
p.s.
Scusa se mi sono permesso di suggerirti una soluzione


author: Paolo Holzl

text:
>Hai provato a bypassare il problema della risoluzione del nome del server
>inserendo nella connection string direttamente l'indirizzo IP della macchina
>server ?
heheh
vorrei anche vedere che non l'avessi provato!!
E' ben li che io mi aspettavo che scrivendo l'IP il nome non lo
usasse, invece lo usa eccome.
Dato che la MircoScrof dice che per legare il database via internet
occorre disabilitare le Named Pipe, a mio parere sono loro che usano i
nomi.
----------------------------------------------------------
Paolo Hölzl
Gruppo Tekup Software developer (Bologna)
----------------------------------------------------------
ATTENTION!, antispam
For reply, substitute xxx with gruppotekup


title: filosofia sulle anagrafiche

author: il mago galbusera

text:
Salve gente!
una domandina di filosofia :)
si prenda ad esempio un gestionale qualsiasi con l'anagrafica dei clienti e
dei fornitori; questi dati generalmente risiedono su due tabelle diverse...
ma non sarebbe più corretto,in nome della normalizzazione, far risiedere
questi dati in una tabella sola con un una sub-tabella così organizzata:
------------------------        ---------------------   --------------
Contatti:                       CategorieDeiContatti:   Categorie:
------------------------        ---------------------   --------------
 IDContatto                      IDCategoria             IDCategoria
 Contatto, archivia come         IDContatto              Categoria
 Nome                            (2 chiavi univoche!)    ...
 cognome
 ...
------------------------        ---------------------   --------------
dove le relazioni sono
IDContatto - IDCOntatto 1,1
IDCategoria - IDCategoria 1,1
In questo modo, per avere una lista dei clienti basta appoggiarsi ad una
query (tipo "categoria=clienti") e idem per i fornitori
nulla vieta in questo modo un domani di aggiungere una categoria di
"collaboratori", "concorrenti", "personali" etc ad esempio..
Inoltre collegando (non so come, avete qualche idea?) la tabella contatti
alla tabella contatti del Db di Outlook sarebbe molto pratico per i più
svariati usi...
ho detto una castronata?
--
****************************************
saluti
Il mago galbusera


title: filosofia sulle anagrafiche

author: Massimiliano Amendola  kksrl

text:
"il mago galbusera" <galb...@katamail.com.REMUVEITT> ha scritto nel
messaggio news:aialnb$duu$1...@fe2.cs.interbusiness.it...

Non la trovo una castroneria, infatti già lo uso da un pò e finora non ho
avuto controindicazioni
la stessa tabella la uso da rubrica telefonica alla fatturazione senza
nessun problema.
ciao MAssimiliano


title: filosofia sulle anagrafiche

text:
"Massimiliano Amendola kksrl" <
massimilia...@kksrl.com
> ha scritto
nel messaggio news:aiaocq$a9e$1...@atlantis.cu.mi.it...
>
> Non la trovo una castroneria, infatti già lo uso da un pò
Hmmm....
Questo sillogismo non è detto che sia corretto...
Heh eheh ehee he
Antonio


title: filosofia sulle anagrafiche

author: Potone

text:
"il mago galbusera" <galb...@katamail.com.REMUVEITT> ha scritto nel messaggio news:aialnb$duu$1...@fe2.cs.interbusiness.it...
> Salve gente!
>
> una domandina di filosofia :)
>
> si prenda ad esempio un gestionale qualsiasi con l'anagrafica dei clienti e
> dei fornitori; questi dati generalmente risiedono su due tabelle diverse...
> ma non sarebbe più corretto,in nome della normalizzazione, far risiedere
> questi dati in una tabella sola [cut]
>
> ho detto una castronata?
>
> --
> ****************************************
> saluti
> Il mago galbusera
nessuna castroneria, è di una comodità estrema, io uso una tabella unica con
un marcatore per indicare la categoria (C-Clienti, F-Fornitori, V-Vettori
ecc.)
Matteo
p.s. scusa per la mail indesiderata, ciao


title: filosofia sulle anagrafiche

author: Antonio Ganci

text:
>
> > Non la trovo una castroneria, infatti già lo uso da un pò
>
> Hmmm....
> Questo sillogismo non è detto che sia corretto...
>
Non è un sillogismo. Il sillogismo parte da due proposizioni e ne ricava una
terza come conseguenza logica
es:
Gli uomini sono mortali, Caino è un uomo -> Caino è mortale
questo è un sillogismo.
ciao.


title: filosofia sulle anagrafiche

text:
"Antonio Ganci" <a.ganci@NO_SPAMMING_megattera.it> ha scritto nel messaggio
news:aiaukq$ggr$1...@newsreader.mailgate.org...

Io la uso da un po'
Io non sono un castrone (sottointeso)
Non è una castroneria
Ah, ganci...
pensa a risolvere qualche quesito vah!
Antonio


title: filosofia sulle anagrafiche

text:
"Antonio Ganci" <a.ganci@NO_SPAMMING_megattera.it> ha scritto nel messaggio
news:aiaukq$ggr$1...@newsreader.mailgate.org...

Ho qualche dubbio sia sulla teoria della CASTRONERIA che sul sillogismo.
Il tuo esempio prende spunto da una ben nota considerazione matematica,
che prende il nome di "Teorema dei 3 Carabinieri".....!
Appoggio Antonio, quando ce vò....ce vò....!
Alessandro.


title: filosofia sulle anagrafiche

text:
"Antonio Ganci" <a.ganci@NO_SPAMMING_megattera.it> ha scritto nel messaggio news:aiaukq$ggr$1...@newsreader.mailgate.org...

tipo: Il treno fuma; mio nonno fuma -> mio nonno è un treno...
Mat.


title: filosofia sulle anagrafiche

text:
"@Alex" <
ik2...@libero.it
> ha scritto nel messaggio
news:gJc29.26208$n04.7...@twister2.libero.it...

Oh, sto Ganci lo trattano tutti a pezza da piedi...
>
> Appoggio Antonio, quando ce vò....ce vò....!
he ehhe eh
Antonio


title: prb export report in word

text:
Ciao e grazie per aver letto il mio msg,
dovendo allegare ad un msg email un report, lo
esporto in formato word (utilizzando la toolbar)
ma le varie "caselle di controllo" non vengono
esportate nel documento WORD.
Come posso risolvere questo problema?
Sent via Deja.com
http://www.deja.com/
Before you buy.


title: dimensione campo ?

author: Paolo

text:
Ciao a tutti
ho realizzato una query contenente una formula per unire piu stringhe di
testo:
(Espr1: ditte2.[Nome_cognome] & " " & [altri_dati] & " - " & [Nome_cognome2]
ecc..),
la cosa funziona, ma  il risultato viene troncato ad un tot di caratteri,
come posso ovviare all'inconveniente ?
di nuovo ciao e grazie


title: dimensione campo ?

author: LaLo

text:
"Paolo" <
p_co...@libero.it
> ha scritto nel messaggio
news:c_%66.2631$1c.2...@twister2.tin.it...

Il formato del campo di destinazione è memo?
Ciao
LaLo


title: dimensione campo ?

author: LaLo at home

text:
"Paolo" <
p_co...@libero.it
> ha scritto nel messaggio
news:c_%66.2631$1c.2...@twister2.tin.it...

Opss. ... ti ho risposto mentre combattevo con una query di accodamento. Ho
assunto che stavi accodando i dati ad una tabella già esistente. E' così?
LaLo


title: dimensione campo ?

text:
LaLo <reg...@LLtin.it> wrote in message
93i5pi$7n0$1...@pluto.sm.dsi.unimi.it...

No, non c'è un campo di destinazione, la formula viene calcolata in una
colonna libera della query di selezione, l'output che ottengo non verrà piu
gestito in access ma copiato così come è in un altro software
Bye


title: dimensione campo ?

text:
"Paolo" <
p_co...@libero.it
> ha scritto nel messaggio
news:EOe76.3750$1c.2...@twister2.tin.it...
>
> > >
> > > ho realizzato una query contenente una formula per unire piu stringhe
di
> > > testo:
> > > (Espr1: ditte2.[Nome_cognome] & " " & [altri_dati] & " - " &
> > [Nome_cognome2]
> > > ecc..),
> > > la cosa funziona, ma  il risultato viene troncato ad un tot di
> caratteri,
> > > come posso ovviare all'inconveniente ?
> > >
[CUT]
>
> No, non c'è un campo di destinazione, la formula viene calcolata in una
> colonna libera della query di selezione, l'output che ottengo non verrà
piu
> gestito in access ma copiato così come è in un altro software
>
> Bye
>
Di che tipo sono i campi che utilizzi? (Nome_cognome, altri_dati e
Nome_cognome2)
LaLo


title: dimensione campo ?

text:
LaLo <reg...@LLtin.it> wrote in message
93jv9t$nk1$1...@pluto.sm.dsi.unimi.it...

e' un concatenamento di 5 campi di tipo testo con limite a 100 caratteri e
altrettanti con limite a 200.
Probabilmente la mia non e' la soluzione migliore, ne hai un'altra da
propormi ?
Paolo