text:
> Non credo che dipenda dalle poche risorse...ma da Access......
> Sul mio PC quando lancio alcune procedure manco il refresh funziona......con la questione timer pensavo ad una generalizzazione:
> Su OnTimer
>
> If application.currentproject.allforms("TuaForm").isloaded=true then
> docmd.close acform, "FormIntermedia"
> forms!TuaForms.setfocus
> else
> timer=500
> end if
>
> così la form intermedia 'controlla' se la tua maschera è caricata o no prima di chiudersi o di rimanere li ad avvisare di attendere
>
> Se usi delle variabili rischi anche di fare una unica maschera intermewdia per l'apertura di ogni form che vuoi.....
>
> MNa comunque x me è meglio la clessidra...funziona sempre e nn da mai problemi. Poi mi sembra di ricordare di aver letto un modo per far dire ad Access che sta lavorando nella barra di stato.....cercherò nell'help. Buon lavoro!!!!!
>
[risposta]
grazie per la risposta e oggi provero' la tua soluzione. grazie e ciao


title: Barra di progressione su apertura maschera

author: Oscar Manfredini

text:
<
> Ciao a tutti. Ho un applicazione access che gestisce centinaia di
> migliaia di records e alcune maschere impiegano anche 10 secondi per
> l'apertura e vorrei quindi associare all'evento apertura della
> maschera una barra di progressione che simuli al caricamento di della
> maschera.
Secondo me dovresti modificare l'applicazione affinchè il tempo di
caricamento sia di pochi (due o tre al massimo) secondi.
Ti sembrerà una risposta fastidiosa, ma è la migliore.
Non esiste una Form che "per forza"  debba caricare all'apertura centinaia
di migliaia di records e, quindi, "per forza" sia lenta.
Per quale ragione carichi di Default l'intero set di records?
Ciao


title: Numerazione Progressiva Fattura

author: Antonio Luciani

text:
Ciao,
sono un neofita di Access..
ho bisogno di aiuto per realizzare un database.
Vorrei una numerazione progressiva dei record, in un campo Cod.
simile a quella usata per le fatture (es. 01/16, 02/16, 03/16)
che si resetti quando cambio l'anno in un campo DataRic.

Ho provato con questa Stringa VBA

Private Sub elMEDACC_AfterUpdate()
Dim nNewNumber As Variant
nNewNumber = DMax("Cod", "Database", "Year(DataRic)=" & Year(Date))
Me.Cod = IIf(IsNull(nNewNumber), 0, nNewNumber) + 1
End Sub

Ma se cambio anno ripete l'ultimo numero invece di resettare.
Vi prego aiutatemi sto impazzendo.
Grazie in ant.


title: Numerazione Progressiva Fattura

author: scaronic

text:

Prova ad adattare questo
Me![N_Fattura] = "" & Format(Date, "yyyy") & "" & Format(IIf(IsNull(DMax("[N_Fattura]", "[tblFattura]", "[N_Fattura] like '" & Format(Date, "yyyy") & "????'")), 1, right(DMax("[N_Fattura]", "[tblFattura]", "[N_Fattura] like '" & Format(Date, "yyyy") & "????'"), 4) + 1), "0000")
otterrai 20160001

se vuoi inserire un separatore ad esempio /
Me![N_Fattura] = "" & Format(Date, "yyyy") & "/" & Format(IIf(IsNull(DMax("[N_Fattura]", "[tblFattura]", "[N_Fattura] like '" & Format(Date, "yyyy") & "????'")), 1, right(DMax("[N_Fattura]", "[tblFattura]", "[N_Fattura] like '" & Format(Date, "yyyy") & "????'"), 4) + 1), "0000")
se vuoi inserire anche un prefisso esempio ft-
Me![N_Fattura] = "ft-" & Format(Date, "yyyy") & "/" & Format(IIf(IsNull(DMax("[N_Fattura]", "[tblFattura]", "[N_Fattura] like '" & Format(Date, "yyyy") & "????'")), 1, right(DMax("[N_Fattura]", "[tblFattura]", "[N_Fattura] like '" & Format(Date, "yyyy") & "????'"), 4) + 1), "0000")


title: Numerazione Progressiva Fattura

text:

Come si fa a fare DEBUG su una cosa simile...?
Credo sia più funzionale scrivere una Funzione Public, ed internamente strutturare un codice più facilmente leggibile e debuggabile... è una buona abitudine.

@Alex


title: Numerazione Progressiva Fattura

author: Bruno Campanini

text:
Antonio Luciani expressed precisely :

TableName è il nome della tabella che contiene le fatture
DataFat è il nome del campo che ne contiene la data
NumFat è il nome del campo che ne contiene il numero
=================================
Public Function NumeroFattura(TableName As String, _
                DataFat As String, _
                NumFat As String)
Dim RS As Recordset, SQL As String

SQL = "SELECT TOP 1 " & TableName & "." & DataFat & ", "
SQL = SQL & TableName & "." & NumFat & " "
SQL = SQL & "FROM " & TableName & " "
SQL = SQL & "ORDER BY " & TableName & "." & DataFat & " DESC;"
Set RS = CurrentDb.OpenRecordset(SQL, dbOpenDynaset)

If Year(RS![DataFat]) = Year(Date) Then
    NumeroFattura = RS![NumFat] + 1
ElseIf Year(RS![DataFat]) < Year(Date) Then
    NumeroFattura = 1
Else
    NumeroFattura = "Indietro non si torna!"
End If

End Function
=====================================

In sede di stampa aggiungerai poi il /Anno con
"/" & Year([DataFat])

Bruno


title: Numerazione Progressiva Fattura

text:
Se la tabella non ha dati... mi sbaglio oppure ottieni un  errore... senza la gestione..?
Sono arrugginito ma mi pare che la.sola interrogazione sia causa di errore se Rs è in EOF...

In ogni caso questo è il modo giusto...

@ALEX


title: Numerazione Progressiva Fattura

text:
@Alex laid this down on his screen :

Sì, se la tabella è vuota la formula dà errore,
non ci avevo pensato.
Si fa presto a correggere... io però non ne ho voglia.

Ciao
Bruno


title: Generazione foglio excel

author: nicoletta

text:
Dovrei esportare il risultato di una query in excel e l'ho sempre fatto
con OutputTo etc.
Stavolta dovrei però mantenere una formattazione di larghezza colonne
particolare, quindi scrivere un foglio excel che abbia delle
caratteristiche predefinite
come posso fare?
grazie in anticipo
Nicoletta
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Generazione foglio excel

author: Alessandro Baraldi

text:
nicoletta ha scritto:
> Dovrei esportare il risultato di una query in excel e l'ho sempre fatto
> con OutputTo etc.
> Stavolta dovrei però mantenere una formattazione di larghezza colonne
> particolare, quindi scrivere un foglio excel che abbia delle
> caratteristiche predefinite
>
> come posso fare?
>
> grazie in anticipo
> Nicoletta
Hai provato TransferSpreadsheet:
Es:
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97,
"Tabella/Query",
"d:\documenti\cartel2.xls", True, "NomeFoglio!c1:c20"
Ciao
@Alex


title: Generazione foglio excel

text:
"nicoletta" <
frt...@virgilio.it
> wrote in message
news:e8lf38$bue$1...@news.newsland.it...
> Dovrei esportare il risultato di una query in excel e l'ho sempre fatto
> con OutputTo etc.
> Stavolta dovrei perň mantenere una formattazione di larghezza colonne
> particolare, quindi scrivere un foglio excel che abbia delle
> caratteristiche predefinite
>
> come posso fare?
>
> grazie in anticipo
> Nicoletta
In casi simili normalmente mi comporto cosě:
- uso TransferSpreadsheet per creare/aggiornare File1.xls;
- poi apro File2.xls che esegue una Sub Workbook_Open per mezzo
  della quale ricopio nell'ordine e con le formattazioni predefinite
  i dati di File1.xls
Bruno


title: Generazione foglio excel

text:
Alessandro Baraldi ha scritto:
> nicoletta ha scritto:
> > Dovrei esportare il risultato di una query in excel e l'ho sempre fatto
> > con OutputTo etc.
> > Stavolta dovrei però mantenere una formattazione di larghezza colonne
> > particolare, quindi scrivere un foglio excel che abbia delle
> > caratteristiche predefinite
> >
> > come posso fare?
> >
> > grazie in anticipo
> > Nicoletta
> Hai provato TransferSpreadsheet:
> Es:
> DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97,
> "Tabella/Query",
> "d:documenticartel2.xls", True, "NomeFoglio!c1:c20"
> Ciao
> @Alex
grazie Alex,
ma questo significa che il foglio col le colonne devo averlo predefinito?
Devo prima pulirlo? (non so quante righe siano a priori)
L'help mi dice che in caso di acExport l'intervallo non va messo, pena il
fallimento dell'export!
cesare



title: Generazione foglio excel

text:
Bruno Campanini ha scritto:
> "nicoletta" <
frt...@virgilio.it
> wrote in message
> news:e8lf38$bue$1...@news.newsland.it...
> > Dovrei esportare il risultato di una query in excel e l'ho sempre fatto
> > con OutputTo etc.
> > Stavolta dovrei però mantenere una formattazione di larghezza colonne
> > particolare, quindi scrivere un foglio excel che abbia delle
> > caratteristiche predefinite
> >
> > come posso fare?
> >
> > grazie in anticipo
> > Nicoletta
> In casi simili normalmente mi comporto così:
> - uso TransferSpreadsheet per creare/aggiornare File1.xls;
> - poi apro File2.xls che esegue una Sub Workbook_Open per mezzo
>   della quale ricopio nell'ordine e con le formattazioni predefinite
>   i dati di File1.xls
> Bruno
i file sono già esistenti?
se no devo pulirli?
come apri file2.xls e cos'è una workbook_open?
nicoletta



title: Generazione foglio excel

text:
nicoletta ha scritto:
> Alessandro Baraldi ha scritto:
>
> > nicoletta ha scritto:
>
> > > Dovrei esportare il risultato di una query in excel e l'ho sempre fatto
> > > con OutputTo etc.
> > > Stavolta dovrei però mantenere una formattazione di larghezza colonne
> > > particolare, quindi scrivere un foglio excel che abbia delle
> > > caratteristiche predefinite
> > >
> > > come posso fare?
> > >
> > > grazie in anticipo
> > > Nicoletta
>
>
> > Hai provato TransferSpreadsheet:
>
> > Es:
> > DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97,
> > "Tabella/Query",
> > "d:documenticartel2.xls", True, "NomeFoglio!c1:c20"
>
> > Ciao
> > @Alex
>
> grazie Alex,
> ma questo significa che il foglio col le colonne devo averlo predefinito?
> Devo prima pulirlo? (non so quante righe siano a priori)
> L'help mi dice che in caso di acExport l'intervallo non va messo, pena il
> fallimento dell'export!
>
> cesare
Cesare o Nicoletta...?
Si hai ragione per l'Export, in questo caso la soluzione migliore
sarebbe di
usare l'Automazione di Excel.
Prova a comporre una Macro con Excel e vedi che codice ti viene
generato
quindi lo inserisci in Access con le dovute attenzioni e compili il
foglio di Excel
direttamente da Access.
Sul SC trovi qualche esempio, anche sul sito di Karl nella sezione
CISA1 trovi
esempi di Sergio Mazza.
@Alex


title: Generazione foglio excel

text:
Alessandro Baraldi ha scritto:
> nicoletta ha scritto:

> Cesare o Nicoletta...?



> @Alex
Eh, Eh, sono tornata, in realtà Cesare è mio marito e ha scritto lui il
post perchè io mi ero messa lo smalto!!!
 (cose da donna non puoi capire le ns. necessità)
Nicky



title: Generazione foglio excel

text:
nicoletta ha scritto:
[CUT]
> Eh, Eh, sono tornata, in realtà Cesare è mio marito e ha scritto lui il
> post perchè io mi ero messa lo smalto!!!
>  (cose da donna non puoi capire le ns. necessità)
>
> Nicky
No no ti capisco benissimo, lo uso anch'io lo smalto vedessi che
unghiette
che mi fa....!
;-)
@Alex


title: Generazione foglio excel

text:
"nicoletta" <
frt...@virgilio.it
> wrote in message
news:e8lknk$5fk$1...@news.newsland.it...
>> In casi simili normalmente mi comporto così:
>> - uso TransferSpreadsheet per creare/aggiornare File1.xls;
>> - poi apro File2.xls che esegue una Sub Workbook_Open per mezzo
>>   della quale ricopio nell'ordine e con le formattazioni predefinite
>>   i dati di File1.xls
>
>> Bruno
>
> i file sono già esistenti?
> se no devo pulirli?
Se non devi fare APPEND a dati già esistenti File1.xls puoi
crearlo ex-novo tutte le volte (da Access lo elimini e con
TransferSpreadsheet lo ricrei).
> come apri file2.xls e cos'è una workbook_open?
File2.xls lo apri come apri tutti i file di Excel; come
vorresti aprirlo?
Alla sua apertura una routine VBA cancella tutti i dati
(ma non le formattazioni!) e ricopia i dati da File1.xls.
Mi sembra di capire che tu non sia in grado di predisporre
le cose al riguardo.
Meglio quindi non seguire questa strada.
Bruno
PS
Fosse veramente importante per te la cosa, potresti
inviarmi File1.xls (come creato da Access) e File2.xls
(con gli stessi dati opportunamente formattati);
provvederei a scriverti il codice.
Togli "brown" dall'e-mail address.


title: Generazione foglio excel

author: Sergio MAZZA

text:
"Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio news:1152277712.3...@s53g2000cws.googlegroups.com...
No no ti capisco benissimo, lo uso anch'io lo smalto vedessi che
unghiette
che mi fa....!
;-)
@Alex
[risposta]
Questo lo stampo e lo conservo; non si sa mai...
Ciao.
--
Sergio MAZZA


title: Setfocus su casella di sottomaschera.

author: Riccardo Baldinotti

text:
Ho una maschera "menu" con dei pulsanti, ognuno dei quali imposta nella
sottomaschera smElenco una diversa maschera da visualizzare, mediante la
funzione di cui riporto un estratto (le altre istruzioni fanno dei calcoli
o impostano dei valori):
Function fMostra(sMasch, opz)
    Forms!menu!smElenco.SourceObject = sMasch
    Forms!menu!smElenco.SetFocus
    Forms!menu!smElenco.Form!A.SetFocus
'    MsgBox
Screen.ActiveControl.Name

End Function
Quando la eseguo la prima volta, la casella "A" (ce n'è una in ogni
sottomaschera da visualizzare) prende il focus: il contenuto è evidenziato
e se premo <Tab> mi sposto nei vari record.
Le volte successive il campo non è evidenziato e il <Tab> non produce
effetto, benché quell'istruzione MsgBox dia il nome corretto della casella
attiva. Ho provato anche a metterla all'evento OnKeyDown e premendo un
tasto ottengo "A" come controllo attivo.
Ciò accade con qualunque sequenza, non importa quale sottomaschera
visualizzi per prima e se la seconda è un'altra o la stessa.
Come posso fare per avere sempre attivo ed evidenziato il controllo "A" ad
ogni selezione?
Grazie a tutti.
RB

--

questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Setfocus su casella di sottomaschera.

author: mansportivo

text:
Riccardo Baldinotti ha scritto:

> Ho una maschera "menu" con dei pulsanti, ognuno dei quali imposta nella
> sottomaschera smElenco una diversa maschera da visualizzare, mediante la
> funzione di cui riporto un estratto (le altre istruzioni fanno dei calcoli
> o impostano dei valori):
> Function fMostra(sMasch, opz)
>     Forms!menu!smElenco.SourceObject = sMasch
>     Forms!menu!smElenco.SetFocus
>     Forms!menu!smElenco.Form!A.SetFocus
> '    MsgBox
Screen.ActiveControl.Name

> End Function
> Quando la eseguo la prima volta, la casella "A" (ce n'è una in ogni
> sottomaschera da visualizzare) prende il focus: il contenuto è evidenziato
> e se premo <Tab> mi sposto nei vari record.
> Le volte successive il campo non è evidenziato e il <Tab> non produce
> effetto, benché quell'istruzione MsgBox dia il nome corretto della casella
> attiva. Ho provato anche a metterla all'evento OnKeyDown e premendo un
> tasto ottengo "A" come controllo attivo.
> Ciò accade con qualunque sequenza, non importa quale sottomaschera
> visualizzi per prima e se la seconda è un'altra o la stessa.
> Come posso fare per avere sempre attivo ed evidenziato il controllo "A" ad
> ogni selezione?
> Grazie a tutti.
> RB

fai il focus su un altro campo e poi rifai il focus su A

ciao



title: Setfocus su casella di sottomaschera.

text:
mansportivo ha scritto:

> Riccardo Baldinotti ha scritto:

> > Ho una maschera "menu" con dei pulsanti, ognuno dei quali imposta nella
> > sottomaschera smElenco una diversa maschera da visualizzare, mediante la
> > funzione di cui riporto un estratto (le altre istruzioni fanno dei calcoli
> > o impostano dei valori):
> > Function fMostra(sMasch, opz)
> >     Forms!menu!smElenco.SourceObject = sMasch
> >     Forms!menu!smElenco.SetFocus
> >     Forms!menu!smElenco.Form!A.SetFocus
> > '    MsgBox
Screen.ActiveControl.Name

> > End Function
> > Quando la eseguo la prima volta, la casella "A" (ce n'� una in ogni
> > sottomaschera da visualizzare) prende il focus: il contenuto � evidenziato
> > e se premo <Tab> mi sposto nei vari record.
> > Le volte successive il campo non � evidenziato e il <Tab> non produce
> > effetto, bench� quell'istruzione MsgBox dia il nome corretto della casella
> > attiva. Ho provato anche a metterla all'evento OnKeyDown e premendo un
> > tasto ottengo "A" come controllo attivo.
> > Ci� accade con qualunque sequenza, non importa quale sottomaschera
> > visualizzi per prima e se la seconda � un'altra o la stessa.
> > Come posso fare per avere sempre attivo ed evidenziato il controllo "A" ad
> > ogni selezione?

> fai il focus su un altro campo e poi rifai il focus su A

Ti ringrazio e chiedo scusa per il ritardo nella risposta.
Ho provato sia a mettere il focus su un altra casella della maschera, sia
su una della sottomaschera. Ho provato a mettere/non mettere il focus
sulla sottomaschera, ma il risultato � identico.
Se eseguo il codice passo passo, il focus � ottenuto al posto giusto.
Bo'...
Grazie ancora.
RB



title: Query access

author: MLK

text:
Ho un problema che non riesco a risolvere. Ho creato una query di
ricerca che esegue appunto la ricerca a seconda di un valore che viene
assegnato ad una variabile. Ora se la variabile va ad eseguire la
ricerca su un campo il cui inserimento viene eseguito tramite un menů
a tendina (ricerca guidata .....) se assegno un valore alla variabile
quando esegue la ricerca mi restituisce un errore.
Qualcuno mi puň aiutare.
Grazie


title: Query access

text:
Nel post precedente probabilmente sono stato poco chiaro. In partica
volevo sapere se è possibile creare una query (che poi genererà un
report) che quando viene aperta chieda rispetto quale valore filtrare
un campo e questo valore viene preso da una tabella.
Grazie


title: Query access

author: namor

text:
MLK ha scritto:

Se la query deve "chiedere" usi come criterio un parametro (messo tra
parentesi quadre), tipo [Inserisci il codice cliente]
Se il criterio deve esser preso direttamente dalla tabella, usa nella riga
dei criteri la funzione Dlookup("campo";"tabella";"criterio")
O combina le due cose:
Dlookup([Inserisci il nome del campo];"tabella";"criterio")
Dlookup, per la query che non deve chiedere mai!
Namor
--

questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Velocità del Jet2 access

author: GiorgioPra

text:
Salve a tutti.
Ho scritto un sw con Visual basic4 che usa un solo database Jet versione
2.0.
Questo file  mdb č di circa 1 mega e contiene una ventina di tabelle ognuna
con circa 10 campi con Anagrafiche, fatture ecc. ed alcune tabelle appoggio
usate per fare elaborazioni varie e report di stampa.
Vorrei sapere se secondo voi renderebbe le operazioni piů veloci mettere
queste tabelle appoggio in un altro file database diverso da quello
principale contenente tutti i clienti.
In pratica si usa un database piů snello per le elaborazioni o il Jet riesce
comunque a manovrare i dati velocemente anche se il file č corposo?
Mi farebbe comodo anche sapere se le versioni successive di Jet potrebbero
essere preferibili alla mia (2.0): che differenze ci sono tra le versioni?
Grazie!
Giorgio


title: Funzione con risultato errato

text:
ciao a tutti

utilizzo questa funzione........

Public Function Conf_Chiusura( _
  ByRef Campo1 As Variant, _
  ByRef Campo2 As Variant, _
  ByRef Campo3 As Variant, _
  ByRef Campo4 As Variant, _
  ByRef Campo5 As Variant, _
  ByRef msg As String, _
  ByRef ban As String) As Boolean

  Dim X As String

    X = IIf(Nz(Campo1, 0) = 0, ", data chiusura", "") & _
        IIf(Nz(Campo2, 0) = 0, ", Targa", "") & _
        IIf(Nz(Campo3, 0) = 0, ", n.Colli", "") & _
        IIf(Nz(Campo4, 0) = 0, ", Quantità", "") & _
        IIf(Nz(Campo5, 0) = 0, ", Prezzo", "")

    If (X) <> "" Then
        msg = "Attenzione manca:" & Mid(X, 2)
        ban = "Chiusura Annullata!!!"
    Exit Function
    End If

Conf_Chiusura = True
End Function

per il campo3, campo4 e campo5 trattandosi di maschere continue, il riusltato non è corretto.
Mi rileva solo se è sul primo record il valore = 0.

come posso fare?
grazie


title: Funzione con risultato errato

text:

ho provato in questo modo, ma non credo vada bene...................

Public Function Conf_Chiusura( _
  ByRef Campo1 As Variant, _
  ByRef Campo2 As Variant, _
  ByRef Campo3 As Variant, _
  ByRef Campo4 As Variant, _
  ByRef Campo5 As Variant, _
  ByRef msg As String, _
  ByRef ban As String) As Boolean

  Dim db As Database
  Dim rsCheck As dao.Recordset
  Dim strsCheckQL As String

  strsCheckQL = "SELECT * FROM DettaglioCarichi" _
   & " Where IdCarico =" & Forms("M_ChiusuraCarico")!IDCarico

  Set db = CurrentDb
  Set rsCheck = db.OpenRecordset(strsCheckQL)

  rsCheck.FindFirst "nColli=0"

  If Not rsCheck.NoMatch Then
    Campo3 = 0

  End If

  rsCheck.FindFirst "Quantità=0"

  If Not rsCheck.NoMatch Then
    Campo4 = 0

  End If

  rsCheck.FindFirst "Prezzo=0"

  If Not rsCheck.NoMatch Then
    Campo5 = 0

  End If

  Dim X As String

    X = IIf(Nz(Campo1, 0) = 0, ", data chiusura", "") & _
        IIf(Nz(Campo2, 0) = 0, ", Targa", "") & _
        IIf(Nz(Campo3, 0) = 0, ", n.Colli", "") & _
        IIf(Nz(Campo4, 0) = 0, ", Quantità", "") & _
        IIf(Nz(Campo5, 0) = 0, ", Prezzo", "")

    If (X) <> "" Then
        msg = "Attenzione manca:" & Mid(X, 2)
        ban = "Chiusura Annullata!!!"
    Exit Function
    End If

    Set db = Nothing
    Set rsCheck = Nothing



title: Funzione con risultato errato

text:
Il giorno domenica 26 luglio 2015 15:59:43 UTC+2,
francodel...@gmail.com
 ha scritto:
> Il giorno domenica 26 luglio 2015 14:32:46 UTC+2,
francodel...@gmail.com
 ha scritto:

cut

ciao a tutti

ho fatto in questo modo..................
puo' anadare bene?

grazie.

_______inzio funzione_____

Public Function Conf_Chiusura( _
  ByRef Campo1 As Variant, _
  ByRef Campo2 As Variant, _
  ByRef Campo3 As Variant, _
  ByRef Campo4 As Variant, _
  ByRef Campo5 As Variant, _
  ByRef msg As String, _
  ByRef ban As String) As Boolean

  Dim db As Database
  Dim rsCheck As dao.Recordset
  Dim strsCheckQL As String
 ' Dim intChoice As Byte

_______fine funzione_____

poi su click di un pulsante

_______inzio codice_____

    Me.Requery

    Dim msg_ChiusuraCarico As String
    Dim ban_ChiusuraCarico As String

    If Conf_Chiusura(Me!DataChiusura.Value, _
                    Me!TargaCamion.Value, _
                    Me!SM_DettCarichi.Form!nColli.Value, _
                    Me!SM_DettCarichi.Form!Quantità.Value, _
                    Me!SM_DettCarichi.Form!Prezzo.Value, _
                    msg_ChiusuraCarico, _
                    ban_ChiusuraCarico) = False Then
    MsgBox msg_ChiusuraCarico, vbExclamation, ban_ChiusuraCarico

    If Len(Me!DataChiusura & vbNullString) = 0 Then
        Me!DataChiusura.SetFocus

    ElseIf Len(Me!TargaCamion & vbNullString) = 0 Then
        Me!TargaCamion.SetFocus

    Else
        Dim rsCheck As dao.Recordset
        Set rsCheck = Me!SM_DettCarichi.Form.RecordsetClone

        rsCheck.FindFirst "Prezzo=0"

        If Not rsCheck.NoMatch Then
            Me!SM_DettCarichi.Form.Bookmark = rsCheck.Bookmark ' segnalibro per trovare il prezzo = 0
            Me!SM_DettCarichi.SetFocus
            Me!SM_DettCarichi.Form!Prezzo.SetFocus

        End If

        rsCheck.FindFirst "Quantità=0"

        If Not rsCheck.NoMatch Then
            Me!SM_DettCarichi.Form.Bookmark = rsCheck.Bookmark ' segnalibro per trovare la quantità = 0
            Me!SM_DettCarichi.SetFocus
            Me!SM_DettCarichi.Form!Quantità.SetFocus

        End If

        rsCheck.FindFirst "nColli=0"

        If Not rsCheck.NoMatch Then
            Me!SM_DettCarichi.Form.Bookmark = rsCheck.Bookmark ' segnalibro per trovare il prezzo = 0
            Me!SM_DettCarichi.SetFocus
            Me!SM_DettCarichi.Form!nColli.SetFocus

        End If

        rsCheck.Close: Set rsCheck = Nothing

    End If

    Exit Sub

    End If

    Dim Risposta As Variant
    Risposta = vbYes

    If Not IsNull(DLookup("RifCliente", "TrovaDuplicatiRif", _
      "IdCliente = " & Me!LstCliente & " And " & _
      "RifCliente= " & Nz(Me!RifCliente, 0))) Then

        Risposta = MsgBox("ATTENZIONE: Numero Riferimento già inserito!!!, aprire il Report ?", vbYesNo)
    End If

    If (Risposta = vbYes) Then
        DoCmd.OpenForm "M_ChiusuraCaricoFo", , , "IdCarico=" & Me!IDCarico

    End If

_______fine codice_____


title: compact, repair e screen.width in vba

author: Mickey

text:
Salve. Non sono molto pratico di vba per access. Avrei bisogno di un
paio di suggerimenti.
1. Come posso realizzare un comando di CompactDatabase seguito (o
preceduto) da RepairDatabase, dal 'switchboard' o da un altro form
chiudendo temporaneamente il db corrente e riaprendolo dopo le
operazioni?
2. Mi sono accorto che in vba la proprietà screen.width non esiste
(mentre esiste in vb). C'è per caso qualcosa di corrispondente da
usare in Access?
Grazie
Micky


title: compact, repair e screen.width in vba

author: Federico Luciani

text:
Mickey wrote:
> Salve. Non sono molto pratico di vba per access. Avrei bisogno di un
> paio di suggerimenti.
> 1. Come posso realizzare un comando di CompactDatabase seguito (o
> preceduto) da RepairDatabase, dal 'switchboard' o da un altro form
> chiudendo temporaneamente il db corrente e riaprendolo dopo le
> operazioni?
Ti consiglio di guardare gli esempi qui contenuti:
http://www.mvps.org/access/general/gen0013.htm
> 2. Mi sono accorto che in vba la proprietà screen.width non esiste
> (mentre esiste in vb). C'è per caso qualcosa di corrispondente da
> usare in Access?
Non mi risulta. Credo tu possa usare una qualche API, ma al momento non saprei
quale.
--
Federico
-----------------------------------
L'amatriciana con la fontina non e'
l'amatriciana, e' un'altra ricetta.
-----------------------------------


title: Barra dei menu

author: lucky

text:
          Ho creato tempo fa una barra dei menu da dove faccio eseguire alcune azioni.
Ma sul primo tasto (che mi apre una maschera) se ci vado sopra e guardo le
proprietà nella casella Azione non c'è scritto assolutamente nulla.
Eppure FUNZIONA!!!!!
Dove cavolo posso averlo scritto visto che adesso devo modificarlo?
Grazie
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: Barra dei menu

author: . chiarello @gmail.com strano...mavero

text:
"lucky" <
lucia...@hotmail.com
> ha scritto nel messaggio
news:195Z62Z170Z18Y1...@usenet.libero.it...
>
>          Ho creato tempo fa una barra dei menu da dove faccio eseguire
> alcune azioni.
>
> Ma sul primo tasto (che mi apre una maschera) se ci vado sopra e guardo le
> proprietà nella casella Azione non c'è scritto assolutamente nulla.
> Eppure FUNZIONA!!!!!
> Dove cavolo posso averlo scritto visto che adesso devo modificarlo?
> Grazie
>
> --------------------------------
IMHO ... sperando di averti inteso correttamente:
magari all'interno dell'evento SU CLIC?
--
strano...mavero
L'universo è cambiamento; la nostra vita è il risultato dei nostri pensieri.
Marco Aurelio


title: Campo con valori multipli

author: mara

text:
Ciao a tutti,
premetto che sono alle prime armi e che ho provato a guardare l'help senza
grandi risultati...
La mia domanda e' questa:
ho un campo "REGIONE" che mi deve visualizzare tutte le regioni (che hanno
un codice numerico) attraversate da una determinata strada.
Per esempio
strada                  regioni
1                        2,3,4,5
2                        2,5,4
3                        1,3
finora ho utilizato un campo testo con valori separati da virgole.
La mia domanda e' questa, come faccio, utilizzando una query a selezionare
tutti i record che interessano le regioni 3,4 e 6 ??
Praticamente devo fare una query che mi estragga solo i record che
contengono nel campo regione le "sottostringhe" 3,4,6 .
Qualcuno ha qualche suggerimento ??
Anche modifiche di impostazione sono bene accette.
Vi ringrazio.
Ciao
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Campo con valori multipli

author: Nick

text:
"mara" <
a...@a.com
> ha scritto nel messaggio news:cjdno2$qqv$1...@news.newsland.it...

potresti usare il criterio LIKE:
like "*3*" or Like "*4*" or like "*6*"
in questo modo avrai tutti i record che hanno almeno una delle regioni, se vuoi che il filtro deve essere su tutte le regioni
(ovvero una strada che passa da tutte) allora sostituisci gli or con AND
ciao
Nick


title: Campo con valori multipli

text:
> potresti usare il criterio LIKE:
> like "*3*" or Like "*4*" or like "*6*"
> in questo modo avrai tutti i record che hanno almeno una delle regioni, se
vuoi che il filtro deve essere su tutte le regioni
> (ovvero una strada che passa da tutte) allora sostituisci gli or con AND
Perfetto.....
Grazie mille.



title: Dichiarazione variabile

author: Ronny

text:
Ciao a tutti
Come si dichiara una variabile il cui contenuto deve essere "disponibile"
per tutto il progetto ???
Grazie mille.
Ronny
--------------------------------
Inviato via
http://usenet.libero.it


title: Dichiarazione variabile

author: Alessandro Cara

text:

Public?
--
a.cara
Togli qualcosa dall'email


title: Dichiarazione variabile

author: Anna

text:
Credo che tu debba dichiararla Public in un modulo. Vale a dire che se la
dichiari in un modulo di classe di una maschera o di un report, anche se è
Public, non la vedrai in tutto il resto dell'applicazione.
Invece in un modulo globale dichiarare una variabile Public dà esattamente
l'effetto che cerchi.
Ciao
Anna :O)
"Ronny" <
scremo...@tiscalinet.it
> ha scritto nel messaggio
news:194Z130Z244Z250Y...@usenet.libero.it...



title: Dichiarazione variabile

author: Antonio Biso

text:
"Anna" <
whit...@libero.it
> ha scritto nel messaggio
news:qsw%9.170517$AA2.6...@news2.tin.it...
> Credo che tu debba dichiararla Public in un modulo.
Credo che tu invece dovresti scrivere correttamente DOPO il quoting!!!
Antonio


title: Dichiarazione variabile

text:
Il 03 Feb 2003, 17:06, "Anna" <
whit...@libero.it
> ha scritto:
> Credo che tu debba dichiararla Public in un modulo. Vale a dire che se la
> dichiari in un modulo di classe di una maschera o di un report, anche se è
> Public, non la vedrai in tutto il resto dell'applicazione.
> Invece in un modulo globale dichiarare una variabile Public dà esattamente
> l'effetto che cerchi.
>
> Ciao
> Anna :O)
Ciao, ed innanzitutto grazie, volevo dire però che io ho dichiarato a
livello di modulo la variabile (come capisco se è un modulo di classe???)
però all'open di una maschera mi arriva sempre Null.
Cosa posso fare???
Grazie mille



title: Dichiarazione variabile

text:
"Ronny" <
scremo...@tiscalinet.it
> ha scritto nel messaggio
news:194Z130Z244Z250Y...@usenet.libero.it...
> Il 03 Feb 2003, 17:06, "Anna" <
whit...@libero.it
> ha scritto:
> > Credo che tu debba dichiararla Public in un modulo. Vale a dire che se
la
> > dichiari in un modulo di classe di una maschera o di un report, anche se
è
> > Public, non la vedrai in tutto il resto dell'applicazione.
> > Invece in un modulo globale dichiarare una variabile Public dà
esattamente
> > l'effetto che cerchi.
> >
> > Ciao
> > Anna :O)
> Ciao, ed innanzitutto grazie, volevo dire però che io ho dichiarato a
> livello di modulo la variabile (come capisco se è un modulo di classe???)
I moduli sono quelli dell'insieme moduli.
L'hai inizializzata la variabile?
Antonio


title: Dichiarazione variabile

text:
1) E' molto più comodo leggere la risposta subito invece di dover scorrere
100 righe di messaggio per leggere ciò che interessa.
2) Quando in un Newsgroup si inserisce un msg non attinente con l'argomento
del NG (in questo caso Access) è bene segnarlo con OT.
...ovviamente sto scherzando...ma se proprio proprio vogliamo essere
precisini... ;O)
Ciao
Anna
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:AVx%9.79186$ZE.21...@twister2.libero.it...



title: Dichiarazione variabile

text:
Beh...il significato è che devi dichiarare la tua variabile Public
all'interno di uno dei moduli che trovi nella sezione "Moduli" e che salvi
con un nome a parte e non in uno dei moduli che trovi "allegati" alle
maschere o ai report..
Se, nonostante questo, la variabile contiene sempre un Null, allora il
problema potrebbe essere diverso e probabilmente non è imputabile al modo in
cui dichiari la variabile....
Ciao
Anna :O)
"Ronny" <
scremo...@tiscalinet.it
> ha scritto nel messaggio
news:194Z130Z244Z250Y...@usenet.libero.it...



title: Dichiarazione variabile

text:
> L'hai inizializzata la variabile?
>
> Antonio
Allora, la variabile è dichiarata nel modulo generale come Public, poi la
valorizzo in un'altra function, dovrebbe però tenermi il valore, giusto?



title: Dichiarazione variabile

text:
"Anna" <
whit...@libero.it
> ha scritto nel messaggio
news:ryP%9.129578$0v.36...@news1.tin.it...
> 1) E' molto più comodo leggere la risposta subito invece di dover scorrere
> 100 righe di messaggio per leggere ciò che interessa.
Ah brava!
Quindi pensiamo solo a sè stessi e non alla comunità vero?!?
Complimenti!
Quindi se arriva qualcuno che vuole partecipare al thread e non conosce
l'evolversi dello stesso, deve cominciare a saltare innaturalmente su e giù
per capirci qualcosa invece di seguire il flusso logico di una normale
lettura cioè dall'alto verso il basso!
Aricomplimenti!!!!
> 2) Quando in un Newsgroup si inserisce un msg non attinente con
l'argomento
> del NG (in questo caso Access) è bene segnarlo con OT.
Tenendo conto che hai violato le norme del NG e che io di norma mi preoccupo
di segnalarlo per il bene comune, penso proprio di essere ASSOLUTAMENTE OT
E sì, scrivo maiuscolo per alzare la voce, esatto!!!
Prova a leggere le Istruzioni per l'uso postato da Roberto proprio oggi!!!
Antonio


title: Dichiarazione variabile

text:
"Ronny" <
scremo...@tiscalinet.it
> ha scritto nel messaggio
news:194Z130Z244Z250Y...@usenet.libero.it...
>
> > L'hai inizializzata la variabile?
> >
> > Antonio
>
> Allora, la variabile è dichiarata nel modulo generale come Public, poi la
> valorizzo in un'altra function, dovrebbe però tenermi il valore, giusto?
Esatto!
Antonio


title: Dichiarazione variabile

text:
"Anna" <
whit...@libero.it
> ha scritto nel messaggio
news:7CP%9.129596$0v.36...@news1.tin.it...
> Beh...il significato è che devi dichiarare la tua variabile Public
Le norme del NG prevedono che tu scriva correttamente DOPO il quoting!!!
Antonio


title: Dichiarazione variabile

text:
Grazie, grazie per i complimenti...lo so che sono forte ;O)
Direi che basta usare un Outlook configurato bene per avere tutti i msg del
thread raggruppati....niente salti, niente fatica e la risposta che si vuole
leggere subito al'inizio senza doverla cercare 8 metri più in basso stile
catena di s.antonio con 100 forward....io scrivendo quello che ho detto
pensavo proprio agli altri...
Ciao ;OP
Anna
PS(Simpatico questo NG..posso rispondere a qualche altra domanda se la so?)
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:chR%9.81048$YG2.2...@twister1.libero.it...



title: Dichiarazione variabile

text:
"Anna" <
whit...@libero.it
> ha scritto nel messaggio
news:DP50a.185330$AA2.7...@news2.tin.it...
> Grazie, grazie per i complimenti...lo so che sono forte ;O)
> Direi che basta usare un Outlook configurato bene per avere tutti i msg
del
> thread raggruppati....niente salti, niente fatica e la risposta che si
vuole
> leggere subito al'inizio senza doverla cercare 8 metri più in basso stile
> catena di s.antonio con 100 forward....io scrivendo quello che ho detto
> pensavo proprio agli altri...
Peccato che gli altri la pensino diversamente...
ma già...ormai l'abbiamo capito che fai come cavolo ti pare ma solo per il
bene della comunità...
eh, ce ne fossero di benefattori dell'umanità come te...
> PS(Simpatico questo NG..posso rispondere a qualche altra domanda se la
so?)
Fai come cavolo ti pare... ma questo è pleonastico no?
Antonio
P.S.
Chissà se quando ricevi qualche ospite a casa tua ti sta bene che ti cambi
la disposizione dei mobili perchè l'estetica comune vuole che la tua non sia
la soluzione ottimale....


title: Dichiarazione variabile

text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:nb60a.83847$YG2.2...@twister1.libero.it...

No...non faccio come cavolo mi pare...se è una regola del NG (cosa che non
sapevo) mi adeguerò.
Cmq....scusami...chissà perchè pensavo che stessi scherzando e volevo solo
stare allo scherzo....quando ricevo ospiti a casa mia, in genere sono molto
ospitale, loro non mi cambiano l'ordine dei mobili, ma se mi spostano un
posacenere non faccio grosse tragedie.
Come vedi scrivere sotto il quoting non mi è molto costoso...semplicemente
non ci sono abituata e lo trovo scomodo, Cmq non ne parliamo più e basta. Mi
interessa molto di più Access, visto che è anche il mio lavoro che non
discussioni abbastanza vuote sulla Netiquette o pseudo tale.
Grazie cmq per avermelo detto, ciao.
Anna


title: Dichiarazione variabile

text:
"Anna" <
whit...@libero.it
> ha scritto nel messaggio
news:aT60a.185804$AA2.7...@news2.tin.it...
>
> > Chissà se quando ricevi qualche ospite a casa tua ti sta bene che ti
cambi
> > la disposizione dei mobili perchè l'estetica comune vuole che la tua non
> sia
> > la soluzione ottimale....
> >
> No...non faccio come cavolo mi pare...se è una regola del NG (cosa che non
> sapevo) mi adeguerò.
> Cmq....scusami...chissà perchè pensavo che stessi scherzando e volevo solo
> stare allo scherzo....quando ricevo ospiti a casa mia, in genere sono
molto
> ospitale, loro non mi cambiano l'ordine dei mobili, ma se mi spostano un
> posacenere non faccio grosse tragedie.
Il thread ha preso una brutta piega cosa che mi spiace.
Però sin dalla prima replica ti avevo consigliato di verificare il post di
Roberto "Istruzioni per l'uso" per saperne un po' di più.
Resto dell'idea che, magari in una botta e risposta privato via mail la
scrittura prima del quoting può essere anche più gestibile, ma non in un
thread di NG dove uno magari si inserisce in un certo punto senza avere la
storia dell'intera questione.
Ben arrivata sul NG
Antonio


title: Dichiarazione variabile

text:
Anna wrote:
>
> Grazie, grazie per i complimenti...lo so che sono forte ;O)
quanti chili alzi?
> Direi che basta usare un Outlook configurato bene per avere tutti i msg del
ed io che non ce l'ho che faccio? Mi ammazzo?
> PS(Simpatico questo NG..posso rispondere a qualche altra domanda se la so?)
Non si risponde mai quando le cose si sanno!
Si risponde quando "non" si sanno. E' una regola



title: Come posso centrare automaticamente un report in anteprima di stampa?

author: Paolo

text:
Ciao,
ho già fatto un giro sul sito comune e ho analizzato il contenuto del ng ma
non sono riuscito a trovare una risposta al mio problema:
vorrei che all'apertura di un report in anteprima di stampa, quest'ultimo
fosse centrato automaticamente sul monitor in quanto, attualmente, per
centrarlo, sono costretto a continui e fastidiosi ritocchi con la barra di
scorrimento orizzontale.
Ringrazio chiunque mi voglia aiutare.


author: Sergio MAZZA

text:
"Paolo" <
pa...@libero.it
> ha scritto nel messaggio
news:9ppmp7$ost$1...@lacerta.tiscalinet.it...

Prova con:
'-------------
DocmdOpenreport "nomereport", acViewPreview
RunCommand acCmdZoom75
'-------------
se il 75% non va hai a disposizione altre costanti:
- acCmdZoom10;
- acCmdZoom100;
- acCmdZoom150;
- acCmdZoom200;
- acCmdZoom25;
- acCmdZoom50;
Ciao.


title: Numero massimo di campi per un record Access

author: Silvio Colloca

text:
Lo so, sembra una domanda stile Trivial, ma anche googleando non sono
riuscito ad avere questo dato...
Qual'è il numero massimo di campi possibile per un record di Access?
Grazie a chi mi risponderà
Silicio
Lo so, sembra una domanda stile Trivial, ma anche googleando non sono
riuscito ad avere questo dato...
Qual'è il numero massimo di campi possibile per un record di Access?
Grazie a chi mi risponderà
Silicio


author: SunRex

text:
"Silvio Colloca" <
webm...@linuxhelp.it
> ha scritto nel messaggio
news:PGzid.781$k62...@tornado.fastwebnet.it...
> Lo so, sembra una domanda stile Trivial, ma anche googleando non sono
> riuscito ad avere questo dato...
> Qual'č il numero massimo di campi possibile per un record di Access?
>
> Grazie a chi mi risponderą
> Silicio
> Lo so, sembra una domanda stile Trivial, ma anche googleando non sono
> riuscito ad avere questo dato...
> Qual'č il numero massimo di campi possibile per un record di Access?
>
> Grazie a chi mi risponderą
> Silicio
>
Senza scomodare google basta aprire access premere F1 che apre la guida in
linea
e chiederglielo.
SunRex
Attributo Massimo
Numero di caratteri in un nome di tabella 64
Numero di caratteri in un nome di campo 64
Numero di campi in una tabella 255
Numero di tabelle aperte 1.024. Il numero effettivo potrebbe essere
inferiore a causa di tabelle aperte internamente da Microsoft Access.
Dimensioni della tabella 1 gigabyte
Numero di caratteri in un campo Testo 255
Numero di caratteri in un campo Memo 65.535 quando si immettono dati tramite
l'interfaccia utente; 1 gigabyte quando si immettono dati da programma.
Dimensioni di un campo Oggetto OLE 1 gigabyte
Numero di indici in una tabella 32
Numero di campi in un indice 10
Numero di caratteri in un messaggio di convalida 255
Numero di caratteri in una regola di convalida 2.048
Numero di caratteri in una descrizione di tabella o di campo 255
Numero di caratteri in un record (esclusi i campi Memo ed Oggetto OLE) 2.000
Numero di caratteri nell'impostazione di una proprietą di campo 255


text:
grazie mille!
Sono un idiota...
"SunRex" <
sunrexs...@hotmail.com
> ha scritto nel messaggio
news:OgEid.266236$35.12...@news4.tin.it...
>
> "Silvio Colloca" <
webm...@linuxhelp.it
> ha scritto nel messaggio
> news:PGzid.781$k62...@tornado.fastwebnet.it...
>> Lo so, sembra una domanda stile Trivial, ma anche googleando non sono
>> riuscito ad avere questo dato...
>> Qual'è il numero massimo di campi possibile per un record di Access?
>>
>> Grazie a chi mi risponderà
>> Silicio
>> Lo so, sembra una domanda stile Trivial, ma anche googleando non sono
>> riuscito ad avere questo dato...
>> Qual'è il numero massimo di campi possibile per un record di Access?
>>
>> Grazie a chi mi risponderà
>> Silicio
>>
> Senza scomodare google basta aprire access premere F1 che apre la guida in
> linea
> e chiederglielo.
> SunRex
>
> Attributo Massimo
> Numero di caratteri in un nome di tabella 64
> Numero di caratteri in un nome di campo 64
> Numero di campi in una tabella 255
> Numero di tabelle aperte 1.024. Il numero effettivo potrebbe essere
> inferiore a causa di tabelle aperte internamente da Microsoft Access.
> Dimensioni della tabella 1 gigabyte
> Numero di caratteri in un campo Testo 255
> Numero di caratteri in un campo Memo 65.535 quando si immettono dati
> tramite
> l'interfaccia utente; 1 gigabyte quando si immettono dati da programma.
> Dimensioni di un campo Oggetto OLE 1 gigabyte
> Numero di indici in una tabella 32
> Numero di campi in un indice 10
> Numero di caratteri in un messaggio di convalida 255
> Numero di caratteri in una regola di convalida 2.048
> Numero di caratteri in una descrizione di tabella o di campo 255
> Numero di caratteri in un record (esclusi i campi Memo ed Oggetto OLE)
> 2.000
> Numero di caratteri nell'impostazione di una proprietà di campo 255
>
>
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (
http://www.grisoft.com
).
Version: 6.0.786 / Virus Database: 532 - Release Date: 31/10/2004


title: spostarsi fra maschere

author: gigi

text:
Salve a tutti , ecco la domanda
Ho aperto due maschere
  1.. prodotti
  2.. destinazione
come faccio, DALLA maschera destinazione, a spostarmi ad un nuovo record
NELLA maschera prodotti?
Grazie anticipatamente
 Gigi


title: spostarsi fra maschere

author: Karl Donaubauer

text:
gigi wrote:
> Ho aperto due maschere
>
>  1.. prodotti
>  2.. destinazione
>
> come faccio, DALLA maschera destinazione, a spostarmi ad un nuovo
> record NELLA maschera prodotti?
Forms!destinazione.SetFocus
DoCmd.GoToRecord , , acNewRec
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it


title: spostarsi fra maschere

author: Carlo Costarella

text:
"gigi" <
annag...@libero.it
> ha scritto nel messaggio
news:4Q5Ph.42159$zG1.4...@twister2.libero.it...

Dalla maschera che vuoi e sempre che siano aperte tutte e due le maschere,
per esempio al click di un pulsante:
DoCmd.SelectObject acForm, "NomeMascheraSuCuiSpostarsi"
DoCmd.GoToRecord , , acNewRec
Ciao, Carlo


title: Compattare dataase in access 97

author: Massimiliano

text:
Salve a tutti.
E' possibile in Access 97 compattare in automatico il database alla chiusura
o all'apertura?
Si può fare da codice?
Grazie anticipatamente.


title: Compattare dataase in access 97

author: warp

text:
"Massimiliano" > Salve a tutti.
>
> E' possibile in Access 97 compattare in automatico il database alla
chiusura
> o all'apertura?
> Si può fare da codice?
>
Un metodo un tantino brutale ma efficace è lanciare su chiusura del FE un
programmino esterno che lo compatta "da fuori".
Ciao, warp


title: Access 2003 e 2000

author: Morgan

text:
Posso collegare un BE in Access 2000 con un FE in Access 2003?
Se si, ci sono accorgimenti particolari?
Uso Dao.
Morgan


title: Access 2003 e 2000

author: TANNHAUSER

text:
Morgan ha scritto:
> Posso collegare un BE in Access 2000 con un FE in Access 2003?
> Se si, ci sono accorgimenti particolari?
Direi di si visto che il BE è di una versione precedente a quella del FE
(compatibilità verso il basso).
--
TANNHAUSER
"I've seen things you people wouldn't believe..."
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Access 2003 e 2000

text:
"TANNHAUSER" <
tannau...@virgilio.it
> ha scritto nel messaggio
news:dnmskv$qfg$1...@news.newsland.it...
> Morgan ha scritto:
>
>> Posso collegare un BE in Access 2000 con un FE in Access 2003?
>> Se si, ci sono accorgimenti particolari?
>
> Direi di si visto che il BE è di una versione precedente a quella del FE
> (compatibilità verso il basso).
>
>
> --
> TANNHAUSER
> "I've seen things you people wouldn't believe..."
>
Cioè se po fa?
Morgan


title: Access 2003 e 2000

text:
Morgan ha scritto:
> "TANNHAUSER" <
tannau...@virgilio.it
> ha scritto nel messaggio
> news:dnmskv$qfg$1...@news.newsland.it...
> > Morgan ha scritto:
> >
> >> Posso collegare un BE in Access 2000 con un FE in Access 2003?
> >> Se si, ci sono accorgimenti particolari?
> >
> > Direi di si visto che il BE è di una versione precedente a quella del FE
> > (compatibilità verso il basso).
> >
> >
> Cioè se po fa?
Se l'italiano è anche la tua lingua, direi di si.
--
TANNHAUSER
"I've seen things you people wouldn't believe..."
questo articolo e` stato inviato via web dal servizio gratuito



title: Access 2003 e 2000

text:
"TANNHAUSER" <
tannau...@virgilio.it
> ha scritto nel messaggio
news:dnmtg3$uf3$1...@news.newsland.it...
> Morgan ha scritto:
>
>> "TANNHAUSER" <
tannau...@virgilio.it
> ha scritto nel messaggio
>> news:dnmskv$qfg$1...@news.newsland.it...
>> > Morgan ha scritto:
>> >
>> >> Posso collegare un BE in Access 2000 con un FE in Access 2003?
>> >> Se si, ci sono accorgimenti particolari?
>> >
>> > Direi di si visto che il BE è di una versione precedente a quella del
>> > FE
>> > (compatibilità verso il basso).
>> >
>
>> >
>> Cioè se po fa?
>
> Se l'italiano è anche la tua lingua, direi di si.
>
> --
> TANNHAUSER
> "I've seen things you people wouldn't believe..."
>
A volte lo dubito.....:(
Morgan


title: copia e incolla

author: Massimo Nanni

text:
Sto lavorando con un database piuttosto ampio, tanto da non permettermi di
utilizzare Excel dalla partenza, ma di dover decodificare in Access file
compatti in formato .txt allineato (si parla d 10 tabelle da 195000 record)
a queste tabelle sono riuscito ad aggiungere 1 colonna per 1 ulteriore
specifica che devo definire. tale specifica in queste 10 mega-tabelle è sempre
la stessa(andranno poi aggiunte tabelle molto + piccole i cui cambia).
Ma dando tale specifica anche come valore predefinito Access non lo aggiunge in
tutti i record precedenti a cui manca.
Quello di cui avrei bisogno è 1 funzione, 1 comando SQL o cmq 1 metodo che
mutui in Access il "copia e incolla" (o "riempimento in basso") di Excel.
grazie
             Max
--
Posted from  [217.58.7.102]
via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: copia e incolla

author: Roberto dal portatile

text:
"Massimo Nanni" <
cassi...@yahoo.com
> ha scritto nel messaggio
news:ebb7a7f6d63af23a25a...@mygate.mailgate.org...
>
> Sto lavorando con un database piuttosto ampio, tanto da non permettermi di
> utilizzare Excel dalla partenza, ma di dover decodificare in Access file
> compatti in formato .txt allineato (si parla d 10 tabelle da 195000
record)
> a queste tabelle sono riuscito ad aggiungere 1 colonna per 1 ulteriore
> specifica che devo definire. tale specifica in queste 10 mega-tabelle č
sempre
> la stessa(andranno poi aggiunte tabelle molto + piccole i cui cambia).
> Ma dando tale specifica anche come valore predefinito Access non lo
aggiunge in
> tutti i record precedenti a cui manca.
> Quello di cui avrei bisogno č 1 funzione, 1 comando SQL o cmq 1 metodo che
> mutui in Access il "copia e incolla" (o "riempimento in basso") di Excel.
>
> grazie
>              Max
>
>
Puoi farlo con una query di aggiornamento (vedi help).
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: maschere a tutto schermo

author: walter

text:
Mi serve un suggerimento su come fare in modo che le maschere si mantengano
a tutto schermo anche quando passo da una maschera all'altra.
Solo con docmd.maximize non funziona.
grazie per l'aiuto
Walter


title: maschere a tutto schermo

author: ALE TIRI

text:
"walter" <
val...@inwind.it
> ha scritto nel messaggio
news:7aPe9.20361$AW6.4...@twister2.libero.it...

a tutto schermo senza la barra di access?? questo non te lo saprei dire,
altrimenti prova con una macro (anche la autoexec) col comando "ingrandisci"
prima di  "apri maschera".


title: maschere a tutto schermo

author: mino

text:

1 maschera popup impostalo a sě
2 stile bordo nessuno
3 nel codice copia questo testo
Private Sub Form_Open(Cancel As Integer)
DoCmd.Maximize
End Sub
ciao
--------------------------------
Inviato via
http://usenet.libero.it


title: AGGIORNAMENTO TABELLA SUL BE DA FE

author: Stefano Garagnani

text:
Ho un Form sul BE con un pulsante che mi attiva una Macro
Tale macro mi importa una tabella dal mio gestionale ,attraverso
specifici driver ODBC e chiave HW.
Vorrei aggiornare anche tale tabella da FE ma se inserisco il tutto sul
FE mi da errore in quanto non trova la chiave HW.
Forse mi sto perdendo in un bicchier d'acqua ma non "riesco a cliccare"
sul pulsante del form sul BE dal FE
ps: BE sul server e FE sui client
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: AGGIORNAMENTO TABELLA SUL BE DA FE

author: Alessandro Cara

text:
Stefano Garagnani wrote:
Partecipo:
Come diceva una pubblicita' "we aren't deaf" i.e. scrivi minuscolo
(anche l'oggetto) cfr. netiquette
>
> Ho un Form sul BE con un pulsante che mi attiva una Macro
> Tale macro mi importa una tabella dal mio gestionale ,attraverso
> specifici driver ODBC e chiave HW.
Questo mi sembra chiaro
>
> Vorrei aggiornare anche tale tabella da FE ma se inserisco il tutto sul
> FE mi da errore in quanto non trova la chiave HW.
Questo e' gia' un po meno chiaro, per me.
So nulla di chiavi HW. Per le leggi della fisica qualcuno gestisce
la chiave HW. Chi? e/o dove?
>
> Forse mi sto perdendo in un bicchier d'acqua ma non "riesco a cliccare"
> sul pulsante del form sul BE dal FE
Qui l'oscurita' si fa pesante. Cos'e' sto pulsante? Sta su un form
Access?
Sul BE? Hai quindi il BE collegato come libreria?
>
> ps: BE sul server e FE sui client
Scusa l'ironia. Ma questa e' "maestosa". Ed io che metto sempre il
BE su client e il FE sul server!
Ma non entriamo in disquisizioni logiche altrimenti qualche purista
mi si inc....
--
a.cara
Togli qualcosa dall'email


title: Evitare duplicazioni nella form

author: Maicol

text:
Ciao a tutti.
Ho una maschera "immissione" associata ad una tabella "Dati".
Ho poi due campi nella tabella uno "datadal" di tipo data ed uno di tipo
testo "descrizione" che non devono mai ripetersi entrambi per due records,
cioe' un record non deve mai avere la data e la descrizione di un altro
record.
Come faccio a far si' che se nella form di inserimento avviene cio' esca un
messaggio personalizzato che avvisi della cosa e la blocchi ?


title: Evitare duplicazioni nella form

author: gabriele

text:

La via piu' rapida è di impostare nella definizione della tabella entrambi i
CAMPI come
chiavi primarie e indici e impostare la porprietà primario e univoco a si.
In pratica:
Apri tabella visualizzazione struttura - col mouse seleziona le righe
"datadal" e "descrizione" - premi chiave primaria - vai a visualizza indici
e imposta primario e univoco a si.
Ogni volta che si tenterà di immettere valori duplicati per datadal e
descrizione
apparirà l'errore.


title: Evitare duplicazioni nella form

author: VT @ work

text:


E' necessario che la tabella Dati abbaia una una chiave primaria, per
esempio ID_Record.
Allora potresti fare cosě:
sull'evento BeforeUpdate, oppure AfterUpdate, oppure Exit (scegli tu
quello che fa meglio al caso tuo) di entrambi i controlli (che ho
supposto si chiamino txtDataDal e txtDescrizione) scrivi:
If Dcount("ID_Record","Dati","ID_Record<>" & me!ID_Record & " AND
Descrizione='" & me.txtDescrizione & "' AND DataDal=#" & me.txtDataDal
& "#" ) > 0 then
msgbox "Esiste un altro record con gli stessi dati !"
endif
Nell'istruzione che ti ho postato, presta particolare attenzione agli
apici singoli e doppi !
Vincenzo Turturro
---------------------------------------------
il sito comune di it.comp.appl.access:
http://www.sitocomune.com/
---------------------------------------------
E quello di it.comp.as400:
http://www.faq400.com/
---------------------------------------------


title: Evitare duplicazioni nella form

text:
"gabriele" <
REMOVEg...@cyberfil.it
> ha scritto nel messaggio
news:akgr2v$593$1...@lacerta.tiscalinet.it...

Ti ringrazio della risposta .Conoscevo gia' questo sistema e quindi speravo
in qualcosa di piu' personalizzabile.
Ciao
>
>
>


title: Evitare duplicazioni nella form

text:
"VT @ work" <
V...@work.it
> ha scritto nel messaggio
news:3d6c769d...@firewall.regione.toscana.it...
> On Tue, 27 Aug 2002 20:59:21 GMT, "Maicol" <
enzo...@libero.it
> wrote:
>
> >Ciao a tutti.
> >Ho una maschera "immissione" associata ad una tabella "Dati".
> >Ho poi due campi nella tabella uno "datadal" di tipo data ed uno di tipo
> >testo "descrizione" che non devono mai ripetersi entrambi per due
records,
> >cioe' un record non deve mai avere la data e la descrizione di un altro
> >record.
> >Come faccio a far si' che se nella form di inserimento avviene cio' esca
un
> >messaggio personalizzato che avvisi della cosa e la blocchi ?
> >
> E' necessario che la tabella Dati abbaia una una chiave primaria, per
> esempio ID_Record.
> Allora potresti fare così:
> sull'evento BeforeUpdate, oppure AfterUpdate, oppure Exit (scegli tu
> quello che fa meglio al caso tuo) di entrambi i controlli (che ho
> supposto si chiamino txtDataDal e txtDescrizione) scrivi:
>
> If Dcount("ID_Record","Dati","ID_Record<>" & me!ID_Record & " AND
> Descrizione='" & me.txtDescrizione & "' AND DataDal=#" & me.txtDataDal
> & "#" ) > 0 then
> msgbox "Esiste un altro record con gli stessi dati !"
> endif
>
> Nell'istruzione che ti ho postato, presta particolare attenzione agli
> apici singoli e doppi !
>
Provo subito a realizzare la cosa. Grazie mille


title: Provate

author: Carmelo

text:
Ciao a tutti se cercate informazione e risposte su access
potete provare su
http://web.tiscalinet.it/programmazione/
Fatemi sapere


title: OT news group su access

author: Ditta Cerri (Sib)

text:
Avete notato che il news gruop di Microsoft su Access e' suddiviso per
argomenti? (Come proponeva qualcuno di fare anche per il nostro)
Io non sono d'accordo per i seguenti motivi:
1. Se uno deve fare una maschera e a problemi postera' il suo messaggio nel
NG dedicato alle maschere (forms) e magari il suo problema si risolveva
cambiando il RecordSource e quindi una query (cui è dedicato un altro NG), e
questo vale anche per report eccetera.
2. Chi è interessato in generale a leggere il NG, ne deve scaricare una
decina, non che questo faccia differenza per la quantità di dati scaricati,
ma e' sicuramente piu' farraginoso da gestire.
3. Chi vuole aiutare gli altri, rispondendo alle varie domande, deve
saltellare da un NG all'altro in modo piuttosto fastidioso e il risultato
finale, infatti, e' che sono ben pochi i quesiti che ottengono una risposta
(provare per credere, se vi scaricate uno di questi NG troverete si e no una
risposta ogni dieci domande)
In conclusione: ICAA e' meglio!! (hehehehe)
Ciao, Sib


title: OT news group su access

author: Giovanni Albertone

text:
On Thu, 27 Apr 2000 15:33:01 +0200, "Ditta Cerri (Sib)"
<
cerriserv...@tiscalinet.it
> wrote:
>Avete notato che il news gruop di Microsoft su Access e' suddiviso per
>argomenti?
I newsgroup della gerarchia microsoft.public.* sono una fonte
inesauribile di informazioni. Solo che vanno usati con un motore di
ricerca tipo deja, e non come un newsgroup classico. Purtroppo gli
americani che ci scrivono hanno la tolleranza di un rottweiler
incazzato, e sono anche molto poco spiritosi, per cui risulta
noiosissimo seguirli regolarmente.
--
Ciao,
Giovanni


title: problema con maiuscole e minuscole

author: wildsurfer

text:
ho costruito la seguente funzione che analizza se il carattere inserito è
una lettera maiuscola.
Function AlfabeticoMaiusc(s As String) As Boolean
    Select Case s
    Case "Q", "W", "E", "R", "S", "T", "Y", "U", "I", "O", "P", "A", "S",
"D", "F", "G", "H", "J", "K", "L", "Z", "X", "C", "V", "B", "N", "M"
        AlfabeticoMaiusc = True
    Case Else
        AlfabeticoMaiusc = False
    End Select
End Function
ma così facendo ottengo true sia se eseguo itero per la lettera "a" sia per
la lettera "A".
"Roberto da casa" diceva in un post di qualche gg fa in cui si parlava di
maiscole e minuscole che il metodo FindRecord non fa distinzione tra
maiuscole e minuscole per default. io qui ho qualcosa di molto simile ma non
devo utilizzare questo metodo.esiste una opzione da settare per far
riconoscere la differenza tra le minuscole e le maiuscole?come potrei
modificare la mia funzione?
grazie mille
p.s. scusate se ho riproposto questo quesito ma non avevo realmente capito
come utilizzare il suggerimento dato ad un post simile!


title: problema con maiuscole e minuscole

author: Sergio MAZZA

text:
"wildsurfer" <
wildsu...@libero.it
> ha scritto nel messaggio
news:gOxo6.74500$Y93.2...@news.infostrada.it...
> ho costruito la seguente funzione che analizza se il carattere inserito č
> una lettera maiuscola.
>
> Function AlfabeticoMaiusc(s As String) As Boolean
>     Select Case s
>     Case "Q", "W", "E", "R", "S", "T", "Y", "U", "I", "O", "P", "A", "S",
> "D", "F", "G", "H", "J", "K", "L", "Z", "X", "C", "V", "B", "N", "M"
>         AlfabeticoMaiusc = True
>     Case Else
>         AlfabeticoMaiusc = False
>     End Select
>
> End Function
>
>
>
> ma cosě facendo ottengo true sia se eseguo itero per la lettera "a" sia
per
> la lettera "A".
> "Roberto da casa" diceva in un post di qualche gg fa in cui si parlava di
> maiscole e minuscole che il metodo FindRecord non fa distinzione tra
> maiuscole e minuscole per default. io qui ho qualcosa di molto simile ma
non
> devo utilizzare questo metodo.esiste una opzione da settare per far
> riconoscere la differenza tra le minuscole e le maiuscole?come potrei
> modificare la mia funzione?
> grazie mille
>
> p.s. scusate se ho riproposto questo quesito ma non avevo realmente capito
> come utilizzare il suggerimento dato ad un post simile!
>
Forse ti conviene controllare il codice ascii del carattere:
'----------------
Function AlfabeticoMaiusc(s As String) As Boolean
    if asc(s)>64 and asc(s)<91 then
        AlfabeticoMaiusc = True
    Else
       AlfabeticoMaiusc = False
    End IF
End Function
'----------------
Le lettere maiuscole iniziano dal codice ascii 65 (A) e terminano a 90 (Z),
le minuscole da 97 (a) a 122 (z)...
Ciao.


title: problema con maiuscole e minuscole

author: Lbo

text:
>Le lettere maiuscole iniziano dal codice ascii 65 (A) e terminano a 90 (Z),
>le minuscole da 97 (a) a 122 (z)...
e se uno non si ricorda i codici ascii:
select case asc(lettera)
	case asc("a") to asc("z")
		' minuscolo
	case asc("A") to asc("Z")
		' maiuscolo
	case else
		' qualcos'altro...
end select
--
non studio non lavoro non guardo la tv
non vado al cinema non faccio sport
----------------------------------------
il sito comune di it.comp.appl.access:
http://www.sitocomune.com


title: problema con maiuscole e minuscole

author: Silvio Berruti

text:
"Lbo" <
L...@NOSPAM.blunet.it
> ha scritto nel messaggio
news:3aa3eb3d...@news.edisons.it...
> >Le lettere maiuscole iniziano dal codice ascii 65 (A) e terminano a 90
(Z),
> >le minuscole da 97 (a) a 122 (z)...
>
> e se uno non si ricorda i codici ascii:
Function AlfabeticoMaiusc(s As String) As Boolean
    if asc(ucase(s))=asc(s) then
        AlfabeticoMaiusc = True
    Else
       AlfabeticoMaiusc = False
    End IF
End Function
--
Silvio



title: Autocompletamento casella di testo

author: John

text:
Un cordiale saluto a tutti.
in una casella di testo, devo inserire dei valori da 1 a 9 nella forma 01,
02, 03, 04, etc, ma spesso si digita solamente 1, 2, 3, 4, etc. Vi è un
modo, che indipendentemente dal valore di input (1, piuttosto che 01) la
casella di testo riporti sempre 01, 02, 03.
Questa forma, mi aiuta poi nel report nell'ordinare i risultati in colonne.
Grazie per il Vs aiuto.
Giovanni


title: Autocompletamento casella di testo

author: VT @ home

text:
Il Sun, 20 May 2007 07:19:43 +0200, "John" <
jo...@tin.it
> ha scritto:
>(.....)

Se lo scopo è solo quello di ordinare i report, usa come origine dati di questi una query dove definirai una colonna
in questo modo:
TuoValore: Format$(TuoCampo;"00")
A questo punto ti basterà ordinare il report in base a questa colonna.
Se invece vuoi proprio che nella tabella venga memorizzato "01" invece di "1" (pensaci bene, però !), puoi fare così:
nella routine associata all'evento "Dopo aggiornamento" della form, scrivi
  With Me.RecordsetClone
    .Bookmark = Me.Bookmark
    .Edit
    !TuoCampo= Format$(!TuoCampo,"00")
    .Update
  End With
>
>Grazie per il Vs aiuto.
>Giovanni
>
Vincenzo Turturro
---------------------------------------------
il sito comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------
risorse Access:
http://www.accessgroup.it
---------------------------------------------
Il sito comune di it.comp.as400
http://www.faq400.com
---------------------------------------------


title: Autocompletamento casella di testo

text:
Grazie delle dritte, tuttavia un ulteriore chiarimento relativo a "(pensaci
bene, però !)", in quanto come avrai colto dalla domanda non sono molto
"navigato" in Access e i relativi concetti sulle base dati.
Quali sono gli svantaggi memorizzando il dato 01, 02 nella tabella?
Grazie e buona domenica.
Giovanni


title: Autocompletamento casella di testo

text:
Il Sun, 20 May 2007 08:07:39 +0200, "John" <
jo...@tin.it
> ha scritto:
>(.....)
>Grazie delle dritte, tuttavia un ulteriore chiarimento relativo a "(pensaci
>bene, però !)", in quanto come avrai colto dalla domanda non sono molto
>"navigato" in Access e i relativi concetti sulle base dati.
>Quali sono gli svantaggi memorizzando il dato 01, 02 nella tabella?
Nessuno in particolare: l'unico aspetto a cui prestare attenzione è la corrispondenza fra il dato memorizzato e la
realtà.
Ovvero: se nella realtà il dato può assumere un valore da 1 a 9, quindi di tipo numerico, perchè memorizzare valori da
"01" a "09", quindi di tipo testo ?
Per esempio in questo modo precludi (o rendi molto complicata) la possibilità di effettuare calcoli su tali valori.
Probabilmente non è il tuo caso, però ...
E tutto solo per ordinare il report ?
Allora memorizza il valore così com'è nella realtà e usa qualche "trucco" per ordinare il report come ti serve.
>
>Grazie e buona domenica.
>Giovanni
>



title: Creare uno script sql

author: Fabio Civ

text:
Da access e possibile creare uno script sql di una tabella?
Dovrei crearmi una tabella con uno script sql
del tipo
Create table Tlabel(Form Varchar(50) not null, Campo text(50) null);
Solo che non riesco a definire alcuni parametri come che deve accettare
caratteri unicod etc..


title: Creare uno script sql

author: Sib

text:
"Fabio Civ" <
massi...@virgilio.it
> ha scritto nel messaggio

non e' chiaro se usi file mdb o adp.
se usi adp, la sintassi potrebbe essere corretta, se usi un mdb la sintassi
e' sbagiata.
ad ogni modo non e' chiaro perche' chiami "script" una stringa sql (quindi
una query).
Sib


title: Creare uno script sql

text:
"Sib" <si...@SPAMiol.it> ha scritto nel messaggio
> non e' chiaro se usi file mdb o adp.
> se usi adp, la sintassi potrebbe essere corretta, se usi un mdb la
sintassi
> e' sbagiata.
> ad ogni modo non e' chiaro perche' chiami "script" una stringa sql (quindi
> una query).
>
> Sib
script di solito si indica comandi sql per generare tabella modificarle
oppure elimniarle, cioč
tutte le operazioni da compire su una tabella o piů.
Scusa l'ignoranza ma cos'č adp?


title: Creare uno script sql

text:
"Fabio Civ" <
massi...@virgilio.it
> ha scritto nel messaggio

In access si chiamano query di comando. Query di creazione tabella ecc.
> Scusa l'ignoranza ma cos'č adp?
adp e' un tipo di file access che si collega direttamente a una fonte dati
SQL Server o MSDE senza driver.
Non so che origine abbia la sintassi che hai postato, ma se cerchi sull'help
"query di creazione tabella" credo che troverai quello che cerchi.
Sib


title: Creare uno script sql

author: ringo

text:
"Fabio Civ" <
massi...@virgilio.it
> ha scritto nel messaggio
news:atmnnr$3fd$1...@newsreader.mailgate.org...

scusa se vado fuori tema... ma se devi esportare
i dati in mysql o postgresql utilizza i drive ODBC....
bye
ringo


title: Creare uno script sql

author: Giorgio prx

text:
"Fabio Civ" <
massi...@virgilio.it
> ha scritto nel messaggio
news:atmnnr$3fd$1...@newsreader.mailgate.org...

Ciao Fabio, per eseguire uno script di creazione tabella con caratteri
unicode o altri tipi come decimal puoi utilizzare ...
Currentproject.Connection.Execute "Create table Tlabel(Id_rec INT
IDENTITY(1,1) PRIMARY KEY, Form NVarchar(50) not null, Campo Nchar(50) null,
Numero Decimal(28,6) NOT NULL DEFAULT 0 )"
Oppure per creare una nuova Query
Currentproject.Connection.Execute "Create View Qry1 as SELECT * FROM Tlabel"
Ciao Giorgio.


title: Problema campo DATA

author: Giady

text:
Salve, ho un campo data denominato INSERITODA, vorrei, attraverso una query,
fare in modo che vengano filtrate le date che rispondono al criterio di
essere precedenti rispetto alla data inserita come criterio. Inoltre vorrei
che la query visualizzasse tra queste solo la più recente...
grazie


title: Problema campo DATA

author: Carlo Costarella

text:
"Giady" <
lor...@alchimiaweb.net
> ha scritto nel messaggio
news:4800baa2$0$17935$5fc...@news.tiscali.it...
> Salve, ho un campo data denominato INSERITODA, vorrei, attraverso una
> query, fare in modo che vengano filtrate le date che rispondono al
> criterio di essere precedenti rispetto alla data inserita come criterio.
> Inoltre vorrei che la query visualizzasse tra queste solo la piů
> recente...
> grazie
>
Ad occhio e croce direi due query se ti servono entrambi i dati:
la prima con criterio < #TuaData#;
la seconda, alimentata dalla prima, e raggruppata affinche mostri solo
"Ultimo" o "Max".
Se non ti interessano entrambi i recorset:
una query raggruppata con "Ultimo" o "Max" e, nel criterio della data,
<#tuadata#
Ciao, Carlo


title: Problema campo DATA

text:
"Carlo Costarella" <
carloco...@libero.it
> ha scritto nel messaggio
news:ftqecl$j93$1...@tdi.cu.mi.it...

>Ho creato  una query con solo idPaziente (che viene filtrato ed č perciň
>uguale in tutte le righe) e il campo data... filtrando con questo codice
><[Forms]![RicercaTerapie mese]![DataRichiesta] mi trova effettivamente
>tutte le date precedenti a data richiesta, ma inserendo max non trova
>niente, inserendo ultimo trova la data meno recente di tutte (dando
>qualsiasi ordinamento).. come se questi raggruppamenti continuasse a farli
>in tutti i record senza tenere conto del criterio inserito (perciň se la
>data max č superiore a quella del criterio non visualizza niente..) stň
>impazzendo con questa cosa....


title: Problema campo DATA

text:
"Giady" <
lor...@alchimiaweb.net
> ha scritto nel messaggio
news:4801c12c$0$29975$5fc...@news.tiscali.it...
>
> "Carlo Costarella" <
carloco...@libero.it
> ha scritto nel messaggio
> news:ftqecl$j93$1...@tdi.cu.mi.it...
>>
>> "Giady" <
lor...@alchimiaweb.net
> ha scritto nel messaggio
>> news:4800baa2$0$17935$5fc...@news.tiscali.it...
>>> Salve, ho un campo data denominato INSERITODA, vorrei, attraverso una
>>> query, fare in modo che vengano filtrate le date che rispondono al
>>> criterio di essere precedenti rispetto alla data inserita come criterio.
>>> Inoltre vorrei che la query visualizzasse tra queste solo la più
>>> recente...
>>> grazie
>>>
>>
>> Ad occhio e croce direi due query se ti servono entrambi i dati:
>> la prima con criterio < #TuaData#;
>> la seconda, alimentata dalla prima, e raggruppata affinche mostri solo
>> "Ultimo" o "Max".
>> Se non ti interessano entrambi i recorset:
>> una query raggruppata con "Ultimo" o "Max" e, nel criterio della data,
>> <#tuadata#
>>
>> Ciao, Carlo
>>Ho creato  una query con solo idPaziente (che viene filtrato ed è perciò
>>uguale in tutte le righe) e il campo data... filtrando con questo codice
>><[Forms]![RicercaTerapie mese]![DataRichiesta] mi trova effettivamente
>>tutte le date precedenti a data richiesta, ma inserendo max non trova
>>niente, inserendo ultimo trova la data meno recente di tutte (dando
>>qualsiasi ordinamento).. come se questi raggruppamenti continuasse a farli
>>in tutti i record senza tenere conto del criterio inserito (perciò se la
>>data max è superiore a quella del criterio non visualizza niente..) stò
>>impazzendo con questa cosa....
>
>
Se fai un raggruppamento e mi dici che tutti i record contengono lo stesso
ID, penso che hai inserito degli altri dati nella query o che non hai
raggruppato.
Fai così: crea una query dalla tua tabella e inserisci la sola
data...raggruppa e scegli MAX nella formula. Cosa vedi?
Un dubbio; ma il campo data è di tipo data/ora?
Ciao, Carlo


title: Problema campo DATA

text:
"Carlo Costarella" <
carloco...@libero.it
> ha scritto nel messaggio
news:ftt119$440$1...@tdi.cu.mi.it...

>risolto, ho fatto una prima query dove ho filtrato le date in base alla
>data inserita, poi con una seconda query ho raggruppato con max e tutto è
>andato ok.
grazie e ciao alla prossima


title: Problema campo DATA

text:
"Giady" <
lor...@alchimiaweb.net
> ha scritto nel messaggio
news:48021739$0$17946$5fc...@news.tiscali.it...
>
cut
>>risolto, ho fatto una prima query dove ho filtrato le date in base alla
>>data inserita, poi con una seconda query ho raggruppato con max e tutto č
>>andato ok.
> grazie e ciao alla prossima
Era esattamente quello che ti avevo detto nel primo reply...
meglio cosě.
Ciao, Carlo


title: Move / Resize su altra SCHEDA VIDEO. Si può fare?

author: OneEDP

text:
Buon giorno,
è possibile con qualche API eseguire un "inventario" delle schede video presenti su un PC ed eseguire move / resize / maximise di una determinata form su una delle schede video presenti?
Esempio pratico: scheda video con una uscita HDMI, una VGA con modalità desktop estesa (e non clonata).
Access 2010 - 2016 - Win10
Grazie.
Daniele


text:

Fatico a capire la domanda... ma solo perchè la trovo in parte tecnicamente assurda.
Cosa ti interessa quale scheda video hai installata...?
Qualsiasi scheda Video, consente una serie N di risoluzioni, a te non servono TUTTE, ma solo quella attiva o impostata, della scheda e delle sue N opzioni ... quindi direi che ce ne possiamo fregare... o sbaglio...?

Ti parlo per esperienza personale, solo per il fatto che feci un tool proprio per gestire il resize delle forms, sia su trascinamento che su modifica risoluzione...
Ti assicuro che ti basta sapere la risoluzione di SVILUPPO, e la risoluzione attuale e questa la trovi anche con le API, per poi andare a calcolare il RATIO(rapporto in X e Y) tra le 2, e fare di conseguenza il MOVE se la vuoi riposizionare.

Per il RESIZE io ci penserei bene... se vuoi dimensionare SOLO la Form, allora anche se ha poco senso in quanto poi si decentrano tutti i controlli in essa contenuti, va bene...(se si allarga, perchè se si stringe poi non vedi tutto) ma se vuoi applicare un vero RESIZE, quindi anche a tutti i controlli in essa contenuti, è bene tu conosca tutte le complicazioni che forse sottovaluti...

Non ultimo la compilazione condizionale del codice con le API a 64Bit.

@Alex


text:
Il giorno venerdì 2 dicembre 2016 12:33:59 UTC+1, @Alex ha scritto:
> Il giorno venerdì 2 dicembre 2016 10:50:49 UTC+1, OneEDP ha scritto:
> > Buon giorno,
> > è possibile con qualche API eseguire un "inventario" delle schede video presenti su un PC ed eseguire move / resize / maximise di una determinata form su una delle schede video presenti?
> > Esempio pratico: scheda video con una uscita HDMI, una VGA con modalità desktop estesa (e non clonata).
> > Access 2010 - 2016 - Win10
> > Grazie.
> > Daniele
>
> Fatico a capire la domanda... ma solo perchè la trovo in parte tecnicamente assurda.
> Cosa ti interessa quale scheda video hai installata...?
Ho bisogno di sapere le varie schede video installate perché le form dovranno essere spostate/visualizzate/maximizzate su determinate "schede".
Su un monitor FormA + Application, su un secondo monitor FormB, su un terzo FormB. Una specie di "regia".
Se non si può fare da codice, mi tocca farlo con drag & drop a mano.
> Qualsiasi scheda Video, consente una serie N di risoluzioni, a te non servono TUTTE, ma solo quella attiva o impostata, della scheda e delle sue N opzioni ... quindi direi che ce ne possiamo fregare... o sbaglio...?
Si ovviamente serve quella attiva e non le N opzioni.
>
> Ti parlo per esperienza personale, solo per il fatto che feci un tool proprio per gestire il resize delle forms, sia su trascinamento che su modifica risoluzione...
> Ti assicuro che ti basta sapere la risoluzione di SVILUPPO, e la risoluzione attuale e questa la trovi anche con le API, per poi andare a calcolare il RATIO(rapporto in X e Y) tra le 2, e fare di conseguenza il MOVE se la vuoi riposizionare.
>
> Per il RESIZE io ci penserei bene... se vuoi dimensionare SOLO la Form, allora anche se ha poco senso in quanto poi si decentrano tutti i controlli in essa contenuti, va bene...(se si allarga, perchè se si stringe poi non vedi tutto) ma se vuoi applicare un vero RESIZE, quindi anche a tutti i controlli in essa contenuti, è bene tu conosca tutte le complicazioni che forse sottovaluti...
Assolutamente sì! diventerebbe una castigo. I controlli dovranno essere pochissimi!
>
> Non ultimo la compilazione condizionale del codice con le API a 64Bit.
Vero
>
> @Alex
Grazie


title: Ricerca con apici

author: ALCAU (ST1)

text:
Come posso gestire la ricerca da una query quando il dato che devo trovare
contiene un'apice (CA' DE STAOLI)
Sò che tempo fa è stato trattato l'argomento ma non trovo + il 3d e sul sito
comune non l'ho trovato
Grazie, Alberto


title: Ricerca con apici

text:
"ALCAU (ST1)" <
help...@proservplus.com
> ha scritto nel messaggio
news:IHh36.146139$IP1.5...@news1.giganews.com...

Vedi il mex "Me.RecordsetClone.FindFirst" di Pivo postato ieri con le
relative risposte.
--
Silvio
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access


title: Ricerca con apici

text:
>Come posso gestire la ricerca da una query quando il dato che devo trovare
>contiene un'apice (CA' DE STAOLI)
devi raddoppiare l'apice: CA'' DE STAOLI.
--
non studio non lavoro non guardo la tv
non vado al cinema non faccio sport
----------------------------------------



title: Ricerca con apici

text:
"ALCAU (ST1)" <
help...@proservplus.com
> ha scritto nel messaggio
news:IHh36.146139$IP1.5...@news1.giganews.com...

Grazie a Voi ho risolto!


title: lettori codice a barre, help

author: Lopez Fabio Holgado

text:
Ciao, sapreste dirmi se e' possibile integrare un a applicazione Access, con un lettore di codice a barre (per esempio penna ottica). Sapreste darmi qualche informazione in proposito, visto che sono completamente ignorante in materia.
Grazie mille.
Ogni informazione mi sarebbe utile, anche quella che vi sembra piu' banale.
Ciao


title: lettori codice a barre, help

author: FasoN

text:
I lettori ottici vengono letti normalmete da Access, puoi scrivere con la
tastiera oppure leggere il tuo bel codice a barre con il lettore (se
esattamente configurato) ed il risultato verra inserito nel controllo
attivo.
Ciao
<LuigI>
Lopez Fabio Holgado <
lh54...@silab.dsi.unimi.it
> wrote in message
85f1up$ktc$3...@pluto.sm.dsi.unimi.it...



title: Importazione dati da Informix 7.2 e interfaccia con Excel

author: stefano

text:
Salve a tutti.
Uso A00/W2000 e AXP /wXP tutte versioni developer
Ho interfacciato una banca dati Informix 7.2 con odbc per recuperare diversi
dati, funziona tutto correttamente eccetto un campo numerico di informix che
è di tipo (8,8) ciè puo avere da 0 a 8 cifre decimali.
Il problema  è che quando tento di importare i dati di quel campo mi  dice è
impossibile importare i dati  le cifre decimali sono troppe.
Premesso che:
La stessa query da excel funziona perfettamente e importa i dati,
Se importo i dati da Excell ad access funziona.
è eventualmente possibile collegare excel ad access
mi spiego meglio:
In una combo o listbox di access sclielgo un valore e recupero con una
Function (vba) tutti i parametri che devo passare alla query e creo la
query.
Ha questo punto come si può  fare eseguire la query inun foglio di excel e
poi a collegare questo foglio ad una tabella di access.
Grazie in anticipo per l'aiuto.


title: Lanciare da Excel una query access

author: Alex

text:
E' possibile accedendo in Excel al comando : "Origine Dati Esterni"
importare i risultati restituiti da una query parametrica residente in
un database access ?
Colgo l'occasione per ringraziare tutti coloro che volessero fornirmi
qualche dritta.


title: catturare eccezioni

author: Gigi

text:
Salve a tutti
qualcuno mi sa dire come faccio a catturare le eccezioni
tipo:
" L'apporto modifiche non è riuscito perchè si è cercato di duplicare i
valori nell'indice....... "
si presentano con un punto esclamativo in un triangolo giallo
Spero che possiate aiutarmi
Grazie
Gigi
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: catturare eccezioni

author: vuLCan Karayan

text:
> qualcuno mi sa dire come faccio a catturare le eccezioni
Ma "cattura" in senso grafico?
Premi STAMP, apri un qualsiasi programma di grafica e fai INCOLLA.
Ciao.


title: catturare eccezioni

author: Nick

text:
"Gigi" <
myuse...@email.it
> ha scritto nel messaggio
news:192Z107Z81Z40Y1...@usenet.libero.it...

non so se ho capito, ma cmq ogni errore di access ha un numero
se tu nella tua sub inserisci:
on error goto Errore ' da inserire subito dopo la dichiarazione della sub o function
Errore: ' da metere in teoria sul fondo della sub(più facile da trovare e non si mischia con altro
codice)
select case err.number
    case else
        msgbox err.number &" " & err.description
end select
con questo codice ogni errore ti viene segnalato con il suo numero e la sua descrizione.
per utilizzarlo basta che all'interno del select metti
    case numeroerrore
            istruzioni
ricorda che se devi tornare al punto da cui è partito l'errore devi inserre un
resume next 'torna al punto successivo in cui si è verificato l'errore
spero di essere stato chiaro
ciao
Nick


title: catturare eccezioni

author: MA

text:
"vuLCan Karayan" <noEmail...@NoSpam.com> ha
scritto nel messaggio
news:XexEc.396775$hc5.17...@news3.tin.it...

Credo intyenda Intercettare errori
MAssimiliano


title: catturare eccezioni

text:
>
> non so se ho capito, ma cmq ogni errore di access ha un numero
> se tu nella tua sub inserisci:
>
> on error goto Errore ' da inserire subito dopo la dichiarazione della sub
o function
>
> Errore: ' da metere in teoria sul fondo della sub(più facile da trovare e
non si mischia con altro
> codice)
> select case err.number
> case else
> msgbox err.number &" " & err.description
> end select
>
> con questo codice ogni errore ti viene segnalato con il suo numero e la
sua descrizione.
> per utilizzarlo basta che all'interno del select metti
> case numeroerrore
> istruzioni
>
> ricorda che se devi tornare al punto da cui è partito l'errore devi
inserre un
> resume next 'torna al punto successivo in cui si è verificato l'errore
>
> spero di essere stato chiaro
> ciao
> Nick
>
Non credo che sia un errore "catturabile" in questo modo
in effetti a me sembra più un avviso.
Ho provato gia' con
on error goto
Questo e' il codice :
Public Function RicaricaRighe()
On Error GoTo Err_RicaricaRighe
    strQuery = "select * from vendita where id_fattura=" & _
    Form_M_fattura_vendita.ID_FATTURA
    Form_Sottomaschera_righe_fattura.RecordSource = strQuery
    Form_Sottomaschera_righe_fattura.Refresh
    Form_Sottomaschera_righe_fattura.Requery
    [Form_Sottomaschera totali].Refresh
    [Form_Sottomaschera totali].Requery
Exit_RicaricaRighe:
    MsgBox ("ERRORE EXIT" & Err.Number)
    Exit Function
Err_RicaricaRighe:
    MsgBox ("ERRORE CATTURATO")
' MsgBox ("errore di caricamento " & Err.Description)
    'CODICE_ARTICOLO.SetFocus
    Resume Exit_RicaricaRighe
Stranamente (credo) non mi visualizza il messaggio in
Err_RicaricaRighe:
ma solo quello in
Exit_RicaricaRighe:
e comunque fatto questo non mi da più quel messaggio che dicevo inizialmente
ma solo una msgbox vuota
Qualcuno puo' spiegarmi cosa e' successo?
Grazie
Gigi
End Function



title: catturare eccezioni

text:
> Exit_RicaricaRighe:
>     MsgBox ("ERRORE EXIT" & Err.Number)
>     Exit Function
> Err_RicaricaRighe:
>     MsgBox ("ERRORE CATTURATO")
> ' MsgBox ("errore di caricamento " & Err.Description)
>     'CODICE_ARTICOLO.SetFocus
>     Resume Exit_RicaricaRighe
>
prova a togliere le parentesi
probabilmente genera un errore, solo che dopo ne genra subito un altro e non avendo un controllo sul
numero va in uscita e pertanto segnala solo l'ultimo msgbox
altro non saprei...
ciao
Nick


title: catturare eccezioni

author: TheMax

text:
"Gigi" <
myuse...@email.it
> ha scritto nel messaggio
news:192Z107Z81Z40Y1...@usenet.libero.it...
> Salve a tutti
>
> qualcuno mi sa dire come faccio a catturare le eccezioni
>
> tipo:
>
> " L'apporto modifiche non è riuscito perchè si è cercato di duplicare i
> valori nell'indice....... "
> si presentano con un punto esclamativo in un triangolo giallo
>
> Spero che possiate aiutarmi
Credo che tu debba intercettare l'evento Error della Form
L'evento ti passa DataErr e Response, il primo ti comunica il numero
dell'errore
Il secondo lo puoi usare per annullare la msgbox con l'errore di access,
impostando
Response = acDataErrContinue
> Grazie
Prego
> Gigi
Ciao,
Massimo
--
web:
www.piubelli.net
Vuoi il mio indirizzo? Togli _cut_ per rispondermi


title: catturare eccezioni

author: Marco Antonioli

text:
> Non credo che sia un errore "catturabile" in questo modo
> in effetti a me sembra più un avviso.
E' catturabile e credo sia il numero 3022
Ciao
Marco
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: catturare eccezioni

text:
> E' catturabile e credo sia il numero 3022
Ragazzi, scusate, ma non è più corretto "intercettare"?
Un errore non è che si "cattura" ....... :)
CIauz


title: Report Vuoto

author: Paolo

text:
Ciao a tutti,
Ho un report con 4 sottoreport, in fondo al report ho inserito delle caselle
di testo che mi fanno delle operazioni, fin tanto che i sottoreport
espongono dei dati il tutto funziona ma quando uno dei sottoreport è vuoto
nelle caselle di testo compare l'errore. Ho provto con nz() ma senza
successo, penso che dovrei scrivere del codice nel report sull'evento su
formattazione o simile ma non riesco a risolvere il problema!
Grazie


title: Report Vuoto

author: Karl Donaubauer

text:

#Errore per riferimento ad oggetti vuoti
www.donkarl.com/it?FAQ2.16
In un report puoi anche usare <F1> "HasData".
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it


title: Cancellare un valore

author: Alessandro

text:
Ciao a tutti.
Con questo codice scrivo nel campo IDcliente per abbinare il prodotto al
cliente:
Private Sub Comando28_Click()
Dim rst As Recordset
Set rst = CurrentDb.OpenRecordset("VO")
rst.MoveFirst
Do Until rst.EOF
    If rst!Targa = Me!TargaVOVenduto Then
        rst.Edit
        rst!IDcliente = Me!IDcliente
        rst.Update
        Exit Do
    End If
rst.MoveNext
Loop
rst.Close
Set rst = Nothing
End Sub
Ora vorrei dare la possibilità all'utente di "disabbinare cliente e
prodotto" (annullamento dell'ordine).
In poche parole vorrei un pulsante per cancellare (Null) il campo IDcliente.
Ho provato a mettere le doppie virgolette dopo rst!IDcliente ma mi da Errore
di run-time '3421'.
Se vado a cancellare il valore scritto in IDcliente direttamente dal
controllo della maschera mi dice che sto provando ad assegnare un valore
Null che non è una "Variant data type".
Eppure il valore Null per quella variabile è il valore di default.
Help Me!


title: Cancellare un valore

author: Sergio MAZZA

text:
"Alessandro" <
abia...@freemail.it
> ha scritto nel messaggio
news:znOV6.1841$GZ5....@news1.tin.it...

Prova con:
'--------------
rst!IDcliente = 0
'--------------
Ciao.


title: [OT] Ritorno..al lavoro

author: sv

text:
Rientrato.
Un saluto a tutto il NG.
--
SC
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: [OT] Ritorno..al lavoro

author: Pablitomf (Maurizio Facciuti)

text:
> Rientrato.
>
> Un saluto a tutto il NG.
>
> --
> SC
Uč Salvě... bentornato!!!!!!!!


title: [OT] Ritorno..al lavoro

author: Gaspare Calia

text:
[CUT]
Bentornato ! :-)


title: [OT] Ritorno..al lavoro

text:
"Pablitomf (Maurizio Facciuti)" <
maurizio...@accessgroup.it
> ha scritto
nel messaggio news:dfhl9h$h4i$1...@domitilla.aioe.org...

Ora mettiamoci a lavoro e buttiamo qualche riga di codice per una della
procedura DIMAGRIMENTO-DIETA !!! :-D
Sti cannoli siciliani abbinati alle cassate e al cous cous, hanno fatto il
loro effetto.


title: [OT] Ritorno..al lavoro

author: Roberto dalla campagna

text:
"sv" <
sal...@nospaccessgroup.it
> ha scritto nel messaggio
news:dfhl2q$gpe$1...@news.newsland.it...
> Rientrato.
Era ora. :-)
>
> Un saluto a tutto il NG.
>
> --
> SC
--
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------


title: [OT] Ritorno..al lavoro

text:
sv wrote:
> Rientrato.
>
> Un saluto a tutto il NG.
>
> --
> SC
Ciao vecchia roccia,
un caloroso abbraccio da Napoli
--
_ _
Ciao
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:
www.donkarl.com/it


title: [OT] Ritorno..al lavoro

text:
"sv" <
sal...@nospaccessgroup.it
> ha scritto nel messaggio news:dfhl2q$gpe$1...@news.newsland.it...
> Rientrato.
>
> Un saluto a tutto il NG.
>
> --
> SC
>
> --
E l'ultimo chiude la porta...
Ciao.
--
Sergio MAZZA


title: Pulsante per visualizzare a foto di un oggetto

author: Raffaele C.

text:
Salve a tutti,

ho una maschera in visualizzazione "Maschere continue" che elenca
tutti prodotti in magazzino.
Siccome nel mio pc ho una cartella "c:\prodotti" con all'interno tutte
le foto nominate con lo stesso codice "rif" (univoco) della maschera,
vorrei inserire un pulsante (a fianco di ogni record), cliccando il
quale mi si apra il visualizzatore immagini di windows con la foto del
prodotto corrispondente al rif.
Meglio ancora, se invece che il visualizzatore di windows, mi si
aprisse un'altra maschera, interna ad access, con la foto del
prodotto.

Ho provato (per realizzare questo secondo passaggio) a fare così:
nella query sulla quale è basata la maschera, ho inserito un campo
[Fotoq:"C:\Prodotti" & Format([Rif]) & ".jpg"] e [Fotor:"C:\Prodotti
\no_foto.jpg"] per controllare se non ci fossero foto di quel
prodotto, e ho poi riportato i due campi in maschera (non visibili).
Ho quindi inserito un controllo "Img" immagine collegata in maschera,
ed ho inserito sull'evento corrente della stessa maschera la seguente:

If (Dir(Me.Fotoq) <> "") Then
        Me.Img.Picture = Me.Fotoq
    Else
        Me.Img.Picture = Me.Fotor

    End If

In effetti, la cosa già così funziona, ma esteticamente non mi piace
che la foto sia sempre presente.....vorrei quindi che apparisse come
un popup solo alla pressione di un pulsante che metterei a fianco di
ogni record.
Come fare?
Grazie anticipate....ovviamente! ;)
Raf


text:

Risolto!
Ho creato un pulsante che aprisse la maschera "Image" che conteneva
solo il controllo "img" (Immagine collegata).
Ho quindi impostata una routine evento "su corrente" della maschera
"Image"così:

If (Dir(Forms!Giacenza!Fotoq) <> "") Then
        Me.Img.Picture = Forms!Giacenza!Fotoq
    Else
        Me.Img.Picture = Forms!Giacenza!Fotor

    End If

GRazie lo stesso a tutti....
Ma...per conoscenza....vorrei comunque sapere come avrei dovuto fare
se avessi voluto aprire la foto in Visualizzatore immagini di Windows.


title: R: convertire formato data su un evento

author: Ombra MC

text:
Ho provato cosě:
Private Sub Command1_Click()
txtseriale = DateSerial(Year(txtFirstName), Month(txtFirstName),
Day(txtFirstName))
End Sub
dove: command1 č il pulsante da cliccare per cambiare la data; seriale č una
textbox che assume il valore della data in formato generico all'evento click
di command1
txtFirstName č invece la textbox che contiene la data in formato esteso.
Questo codice funziona in access2000, ma in visualbasic6.0 ottengo questo
errore:
Errore di run-time '13':
Tipo non corrispondente
Come mai? Cosa vuol dire errore di run-time '13'?
Lupo wrote in message xz_n9.56047$Eu.13...@twister1.libero.it...
>
> Vedi DateSerial, Day, Month, Year
>


title: R: convertire formato data su un evento

author: Lupo

text:
"Ombra MC" <
nos...@interfree.it
> ha scritto
> Private Sub Command1_Click()
> txtseriale = DateSerial(Year(txtFirstName), Month(txtFirstName),
> Day(txtFirstName))
> End Sub
>
> dove: command1 č il pulsante da cliccare per cambiare la data;
> seriale č una textbox
Volevi dire txtseriale, vero?!
> che assume il valore della data in formato generico all'evento click di
command1
> txtFirstName č invece la textbox che contiene la data in formato esteso.
> Questo codice funziona in access2000, ma in visualbasic6.0 ottengo questo
> errore:
>
> Errore di run-time '13':
> Tipo non corrispondente
>
> Come mai? Cosa vuol dire errore di run-time '13'?
Vuol dire quello che la descrizione dice, niente di piů, niente di meno.
Facci vedere un po' di codice in piů, e prova con:
> Private Sub Command1_Click()
> txtseriale.Text = DateSerial(Year(txtFirstName.text),
Month(txtFirstName.text),
> Day(txtFirstName.text))
> End Sub
Perň scommetto che quella "textbox che contiene la data in formato esteso"
non contiene affatto una data in formato esteso secondo il formato previsto
dal pannello di controllo.


title: R: convertire formato data su un evento

text:
Lupo <lupoches'č
rotto...@liberatelo.it
> wrote in message
MdGp9.18918$RO.4...@twister1.libero.it...
>
> Volevi dire txtseriale, vero?!
si
> Facci vedere un po' di codice in piů, e prova con:
>
> > Private Sub Command1_Click()
> > txtseriale.Text = DateSerial(Year(txtFirstName.text),
> Month(txtFirstName.text),
> > Day(txtFirstName.text))
> > End Sub
mi ritorna sempre lo stesso errore
> Perň scommetto che quella "textbox che contiene la data in formato esteso"
> non contiene affatto una data in formato esteso secondo il formato
previsto
> dal pannello di controllo.
No, corrisponde, o almeno credo:
in impostazioni internazionali, come data estesa c'č selezionato:
gggg g MMMM aaaa
mentre il formato della textbox corrisponde alla riga di codice che in
un'altro post mi hai inviato:
txtFirstName.Text = Format(rsRecordSet.Fields("FirstName").Value, "dddddd")
Grazie per la collaborazione.


title: R: convertire formato data su un evento

text:
Lupo <lupoches'č
rotto...@liberatelo.it
> wrote in message
MdGp9.18918$RO.4...@twister1.libero.it...
>
> Volevi dire txtseriale, vero?!
si
> Facci vedere un po' di codice in piů, e prova con:
>
> > Private Sub Command1_Click()
> > txtseriale.Text = DateSerial(Year(txtFirstName.text),
> Month(txtFirstName.text),
> > Day(txtFirstName.text))
> > End Sub
mi ritorna sempre lo stesso errore
> Perň scommetto che quella "textbox che contiene la data in formato esteso"
> non contiene affatto una data in formato esteso secondo il formato
previsto
> dal pannello di controllo.
No, corrisponde, o almeno credo:



title: R: convertire formato data su un evento

text:
"Ombra MC" <
nos...@interfree.it
> ha scritto
> > Però scommetto che quella "textbox che contiene la data in formato
esteso"
> > non contiene affatto una data in formato esteso secondo il formato
> previsto
> > dal pannello di controllo.
>
> No, corrisponde, o almeno credo:
> in impostazioni internazionali, come data estesa c'è selezionato:
> gggg g MMMM aaaa
>
> mentre il formato della textbox corrisponde alla riga di codice che in
> un'altro post mi hai inviato:
>
> txtFirstName.Text = Format(rsRecordSet.Fields("FirstName").Value,
"dddddd")
Non mi sono spiegato:
Dicci cosa contiene txtFirstName (i caratteri che vedi sul video, uno per
uno), niente altro.


title: R: convertire formato data su un evento

text:
sabato 24 agosto 2002
Lupo <lupoches'č
rotto...@liberatelo.it
> wrote in message
VK_p9.22695$RO.5...@twister1.libero.it...



title: R: convertire formato data su un evento

text:
Fa in modo che txtFirstName contenga una data nel formato (salvo i
separatori da adeguare):
12/10/2002
12/10/02
12 ott 2002
12 ottobre 2002
Una data del tipo "sabato 12 ottobre 2002" non viene accettata
Vedi Datevalue sulla guida


title: R: convertire formato data su un evento

author: Roberto da casa

text:
"Ombra MC" <
nos...@interfree.it
> ha scritto nel messaggio
news:3da72...@news.dada.it...

Scusate l'intrusione.
Le fuzioni Year, Month e Day  possono essere usate solo con controlli che
contengono valori di tipo Data/ora, e siccome, come scrivi nel tuo messaggio
dell' 11/10/2002 delle ore 23:00, il valore di  txtFirstName lo hai
determinato con la seguente riga di coice VBA:
txtFirstName.Text = Format(rsRecordSet.Fields("FirstName").Value, "dddddd")
č innegabile che txtFirstName contiene un valore di tipo testo, quindi non
puoi usare quelle tre funzioni e di conseguenza la funzione DateSerial.
A mio avviso ottieni quello che ti serve con questa riga di codice VBA:
Me!txtseriale = CDate(Mid(Me!txtFirstName, InStr(Me!txtFirstName, " ")))
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: R: convertire formato data su un evento

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto
> Le fuzioni Year, Month e Day  possono essere usate solo con controlli che
> contengono valori di tipo Data/ora, e siccome, come scrivi nel tuo
messaggio
> dell' 11/10/2002 delle ore 23:00, il valore di  txtFirstName lo hai
> determinato con la seguente riga di coice VBA:
>
> txtFirstName.Text = Format(rsRecordSet.Fields("FirstName").Value,
"dddddd")
>
> è innegabile che txtFirstName contiene un valore di tipo testo, quindi non
> puoi usare quelle tre funzioni e di conseguenza la funzione DateSerial.
Vero, così dice la guida. Evidentemente (io ho provato passando direttamente
la proprietà Text di un TextBox) entrano in ballo le conversioni
automatiche, a condizione che il textbox contenga qualcosa di paragonabile a
una data.


title: R: convertire formato data su un evento

text:
Ho inserito la riga di codice che mi hai gentilmente fornito, ed ho ottenuto
un nuovo tipo di errore:
Errore di compilazione: Per la funzione o l'interfaccia sono state impostate
delle restrizioni oppure la funzione utilizza un tipo di automazione non
supportato in visual basic.
Il tuo codice funziona forse solo in vb for application?
Oppure è il mio computer impazzito?
Roberto da casa wrote in message Epeq9.25157$RO.6...@twister1.libero.it...



title: R: convertire formato data su un evento

text:
"Ombra MC" <
nos...@interfree.it
> ha scritto nel messaggio
news:3dac6...@news.dada.it...
> Ho inserito la riga di codice che mi hai gentilmente fornito, ed ho
ottenuto
> un nuovo tipo di errore:
>
> Errore di compilazione: Per la funzione o l'interfaccia sono state
impostate
> delle restrizioni oppure la funzione utilizza un tipo di automazione non
> supportato in visual basic.
>
> Il tuo codice funziona forse solo in vb for application?
> Oppure č il mio computer impazzito?
>
[CUT]
Sarebbe bene, quando rispondi, che tu scrivessi DOPO e non prima dei
messaggi precedenti.
Io uso solo Access, quindi VBA: non ho e non conosco VB 6.0.
Prova a porre il problema in qualche NG su VB.



title: R: convertire formato data su un evento

text:
HO RISOLTOOOO!!!!!!
Ho inserito questa riga di codice:
seriale.Text = Format(rsRecordSet.Fields("FirstName").Value, "ddddd")
In pratica porto il formato data estesa con
txtFirstName.Text = Format(rsRecordSet.Fields("FirstName").Value, "dddddd")
e lo trasformo in data generica con la nuova riga di codice.
La cosa + strana č che č avvenuto tutto in modo molto casuale!! :-)


title: R: convertire formato data su un evento

author: Maurizio Borrelli

text:
> "Ombra MC"
news:3db1b...@news.dada.it
:
> HO RISOLTOOOO!!!!!!
[...]
> La cosa + strana è che è avvenuto tutto in modo molto casuale!! :-)
    Hai notato che caos e' l'anagramma di caso?
--
Ciao :-)
Maurizio
--------
?SPQR(C)
 X
--------


title: Query con virgolette

author: Sandrobi

text:
Non riesco a trovare una soluzione per formulare una query nel caso in cui
la stringa di ricerca contiene virgolette e/o apici. Per gli apici risolvo
delimitando la stringa con chr(34), ma se poi la stringa contiene virgolette
sono di nuovo nei guai.
--
Ciao, Sandrobi
------------------
Se la tua email è fasulla, ti invito a leggere qui:
http://wiki.news.nic.it/AntiSpam


title: Query con virgolette

author: ciroteo

text:
"Sandrobi" <
sand...@libero.it
> ha scritto nel messaggio
news:43b2929a$0$1083$4faf...@reader4.news.tin.it...
> Non riesco a trovare una soluzione per formulare una query nel caso in cui
> la stringa di ricerca contiene virgolette e/o apici. Per gli apici risolvo
> delimitando la stringa con chr(34), ma se poi la stringa contiene
virgolette
> sono di nuovo nei guai.
>
> --
Forse dovresti raddoppiarli, ma non sono sicuro del risultato al momento non
posso provare la soluzione proposta.