text:
"strano...mavero" <
mauro.c...@gmail.com
> wrote in message
news:426f8...@x-privat.org

Pingalo.
Se esegui un Ping all'IP vedi se risponde attendendo l'ECHO...!
Io uso questo sistema per verificare sempre prima di accedere
al Server SQL se è attivo, ma è sempre tramite un'interrogazione
all'IP pertanto dovrebbe andare.
If PINGIP("xx.xx.xx.xx")="OK" then msgbox "ATTIVO"
' --------------  MODULO  ---------------------
Option Compare Database
Option Explicit
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Copyright ©1996-2001 VBnet, Randy Birch, All Rights Reserved.
' Some pages may also contain other copyrights by the author.
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' You are free to use this code within your own applications,
' but you are expressly forbidden from selling or otherwise
' distributing this source code without prior written consent.
' This includes both posting free demo projects made from this
' code as well as reproducing the code in text or html format.
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Const IP_STATUS_BASE As Long = 11000
Private Const IP_SUCCESS As Long = 0
Private Const IP_BUF_TOO_SMALL As Long = (11000 + 1)
Private Const IP_DEST_NET_UNREACHABLE As Long = (11000 + 2)
Private Const IP_DEST_HOST_UNREACHABLE As Long = (11000 + 3)
Private Const IP_DEST_PROT_UNREACHABLE As Long = (11000 + 4)
Private Const IP_DEST_PORT_UNREACHABLE As Long = (11000 + 5)
Private Const IP_NO_RESOURCES As Long = (11000 + 6)
Private Const IP_BAD_OPTION As Long = (11000 + 7)
Private Const IP_HW_ERROR As Long = (11000 + 8)
Private Const IP_PACKET_TOO_BIG As Long = (11000 + 9)
Private Const IP_REQ_TIMED_OUT As Long = (11000 + 10)
Private Const IP_BAD_REQ As Long = (11000 + 11)
Private Const IP_BAD_ROUTE As Long = (11000 + 12)
Private Const IP_TTL_EXPIRED_TRANSIT As Long = (11000 + 13)
Private Const IP_TTL_EXPIRED_REASSEM As Long = (11000 + 14)
Private Const IP_PARAM_PROBLEM As Long = (11000 + 15)
Private Const IP_SOURCE_QUENCH As Long = (11000 + 16)
Private Const IP_OPTION_TOO_BIG As Long = (11000 + 17)
Private Const IP_BAD_DESTINATION As Long = (11000 + 18)
Private Const IP_ADDR_DELETED As Long = (11000 + 19)
Private Const IP_SPEC_MTU_CHANGE As Long = (11000 + 20)
Private Const IP_MTU_CHANGE As Long = (11000 + 21)
Private Const IP_UNLOAD As Long = (11000 + 22)
Private Const IP_ADDR_ADDED As Long = (11000 + 23)
Private Const IP_GENERAL_FAILURE As Long = (11000 + 50)
Private Const MAX_IP_STATUS As Long = (11000 + 50)
Private Const IP_PENDING As Long = (11000 + 255)
Private Const PING_TIMEOUT As Long = 500
Private Const WS_VERSION_REQD As Long = &H101
Private Const MIN_SOCKETS_REQD As Long = 1
Private Const SOCKET_ERROR As Long = -1
Private Const INADDR_NONE As Long = &HFFFFFFFF
Private Const MAX_WSADescription As Long = 256
Private Const MAX_WSASYSStatus As Long = 128
Private Type WSADATA
   wVersion As Integer
   wHighVersion As Integer
   szDescription(0 To MAX_WSADescription) As Byte
   szSystemStatus(0 To MAX_WSASYSStatus) As Byte
   wMaxSockets As Long
   wMaxUDPDG As Long
   dwVendorInfo As Long
End Type
Private Type ICMP_OPTIONS
   Ttl             As Byte
   Tos             As Byte
   Flags           As Byte
   OptionsSize     As Byte
   OptionsData     As Long
End Type
Public Type ICMP_ECHO_REPLY
   Address         As Long
   status          As Long
   RoundTripTime   As Long
   DataSize        As Long
  'Reserved        As Integer
   DataPointer     As Long
   Options         As ICMP_OPTIONS
   Data            As String * 250
End Type
Private Type HOSTENT
   hName As Long
   hAliases As Long
   hAddrType As Integer
   hLen As Integer
   hAddrList As Long
End Type
Private Declare Function gethostbyname Lib "WSOCK32.DLL" _
  (ByVal hostname As String) As Long

Private Declare Sub CopyMemory Lib "kernel32" _
   Alias "RtlMoveMemory" _
  (xDest As Any, _
   xSource As Any, _
   ByVal nbytes As Long)
Private Declare Function lstrlenA Lib "kernel32" _
  (lpString As Any) As Long
Private Declare Function WSAStartup Lib "WSOCK32.DLL" _
   (ByVal wVersionRequired As Long, _
    lpWSADATA As WSADATA) As Long

Private Declare Function WSACleanup Lib "WSOCK32.DLL" () As Long
Private Declare Function IcmpCreateFile Lib "icmp.dll" () As Long
Private Declare Function IcmpCloseHandle Lib "icmp.dll" _
   (ByVal IcmpHandle As Long) As Long

Private Declare Function IcmpSendEcho Lib "icmp.dll" _
   (ByVal IcmpHandle As Long, _
    ByVal DestinationAddress As Long, _
    ByVal RequestData As String, _
    ByVal RequestSize As Long, _
    ByVal RequestOptions As Long, _
    ReplyBuffer As ICMP_ECHO_REPLY, _
    ByVal ReplySize As Long, _
    ByVal Timeout As Long) As Long

Private Declare Function inet_addr Lib "WSOCK32.DLL" _
   (ByVal s As String) As Long
Public Function PINGIP(ipadd as string) as string
   Dim ECHO As ICMP_ECHO_REPLY
   Dim success As Long
   Dim sIPAddress As String

   If SocketsInitialize() Then
     'ping the ip passing the address, text
     'to use, and the ECHO structure
      success = Ping(ipadd , ("Test"), ECHO)
     'display the results
      PINGIP = GetStatusCode(success)
      SocketsCleanup
   Else
        MsgBox "Windows Sockets for 32 bit Windows " & _
               "environments is not successfully responding."
   End If
End Function
Public Function Ping(sAddress As String, _
                     sDataToSend As String, _
                     ECHO As ICMP_ECHO_REPLY) As Long
  'If Ping succeeds :
  '.RoundTripTime = time in ms for the ping to complete,
  '.Data is the data returned (NULL terminated)
  '.Address is the Ip address that actually replied
  '.DataSize is the size of the string in .Data
  '.Status will be 0
  '
  'If Ping fails .Status will be the error code

   Dim hPort As Long
   Dim dwAddress As Long

  'convert the address into a long representation
   dwAddress = inet_addr(sAddress)

  'if dwAddress is valid
   If dwAddress <> INADDR_NONE Then

     'open a port
      hPort = IcmpCreateFile()

     'and if successful,
      If hPort Then

        'ping it.
         Call IcmpSendEcho(hPort, _
                           dwAddress, _
                           sDataToSend, _
                           Len(sDataToSend), _
                           0, _
                           ECHO, _
                           Len(ECHO), _
                           PING_TIMEOUT)
        'return the status as ping success
         Ping = ECHO.status
        'close the port handle
         Call IcmpCloseHandle(hPort)

      End If  'If hPort

   Else:

        'the address format was probably invalid
         Ping = INADDR_NONE

   End If

End Function
Public Function GetStatusCode(status As Long) As String
   Dim Msg As String

      Select Case status
      Case IP_SUCCESS:               Msg = "ip success"
      Case INADDR_NONE:              Msg = "inet_addr: bad IP format"
      Case IP_BUF_TOO_SMALL:         Msg = "ip buf too_small"
      Case IP_DEST_NET_UNREACHABLE:  Msg = "ip dest net unreachable"
      Case IP_DEST_HOST_UNREACHABLE: Msg = "ip dest host unreachable"
      Case IP_DEST_PROT_UNREACHABLE: Msg = "ip dest prot unreachable"
      Case IP_DEST_PORT_UNREACHABLE: Msg = "ip dest port unreachable"
      Case IP_NO_RESOURCES:          Msg = "ip no resources"
      Case IP_BAD_OPTION:            Msg = "ip bad option"
      Case IP_HW_ERROR:              Msg = "ip hw_error"
      Case IP_PACKET_TOO_BIG:        Msg = "ip packet too_big"
      Case IP_REQ_TIMED_OUT:         Msg = "ip req timed out"
      Case IP_BAD_REQ:               Msg = "ip bad req"
      Case IP_BAD_ROUTE:             Msg = "ip bad route"
      Case IP_TTL_EXPIRED_TRANSIT:   Msg = "ip ttl expired transit"
      Case IP_TTL_EXPIRED_REASSEM:   Msg = "ip ttl expired reassem"
      Case IP_PARAM_PROBLEM:         Msg = "ip param_problem"
      Case IP_SOURCE_QUENCH:         Msg = "ip source quench"
      Case IP_OPTION_TOO_BIG:        Msg = "ip option too_big"
      Case IP_BAD_DESTINATION:       Msg = "ip bad destination"
      Case IP_ADDR_DELETED:          Msg = "ip addr deleted"
      Case IP_SPEC_MTU_CHANGE:       Msg = "ip spec mtu change"
      Case IP_MTU_CHANGE:            Msg = "ip mtu_change"
      Case IP_UNLOAD:                Msg = "ip unload"
      Case IP_ADDR_ADDED:            Msg = "ip addr added"
      Case IP_GENERAL_FAILURE:       Msg = "ip general failure"
      Case IP_PENDING:               Msg = "ip pending"
      Case PING_TIMEOUT:             Msg = "ping timeout"
      Case Else:                     Msg = "unknown  msg returned"
   End Select
   'GetStatusCode = CStr(status) & "   [ " & msg & " ]"
    If status = 0 Then
        GetStatusCode = "OK"
    Else
        GetStatusCode = "Errore"
    End If

End Function
Public Function GetIPFromHostName(ByVal sHostName As String) As String
  'converts a host name to an IP address.
   Dim nbytes As Long
   Dim ptrHosent As Long  'address of hostent structure
   Dim ptrName As Long    'address of name pointer
   Dim ptrAddress As Long 'address of address pointer
   Dim ptrIPAddress As Long
   Dim sAddress As String

   sAddress = Space$(4)
   ptrHosent = gethostbyname(sHostName & vbNullChar)
   If ptrHosent <> 0 Then
     'assign pointer addresses and offset

     'ptrName is the official name of the host (PC).
     'If using the DNS or similar resolution system,
     'it is the Fully Qualified Domain Name (FQDN)
     'that caused the server to return a reply.
     'If using a local hosts file, it is the first
     'entry after the IP address.
      ptrName = ptrHosent

     'Null-terminated list of addresses for the host.
     'The Address is offset 12 bytes from the start of
     'the HOSENT structure. Note: Here we are retrieving
     'only the first address returned. To return more than
     'one, define sAddress as a string array and loop through
     'the 4-byte ptrIPAddress members returned. The last
     'item is a terminating null. All addresses are returned
     'in network byte order.
      ptrAddress = ptrHosent + 12

     'get the IP address
      CopyMemory ptrName, ByVal ptrName, 4
      CopyMemory ptrAddress, ByVal ptrAddress, 4
      CopyMemory ptrIPAddress, ByVal ptrAddress, 4
      CopyMemory ByVal sAddress, ByVal ptrIPAddress, 4
      GetIPFromHostName = IPToText(sAddress)
   End If

End Function
Private Function IPToText(ByVal IPAddress As String) As String
   IPToText = CStr(Asc(IPAddress)) & "." & _
              CStr(Asc(Mid$(IPAddress, 2, 1))) & "." & _
              CStr(Asc(Mid$(IPAddress, 3, 1))) & "." & _
              CStr(Asc(Mid$(IPAddress, 4, 1)))

End Function
Public Sub SocketsCleanup()

   If WSACleanup() <> 0 Then
       MsgBox "Windows Sockets error occurred in Cleanup.",
vbExclamation
   End If

End Sub
Public Function SocketsInitialize() As Boolean
   Dim WSAD As WSADATA

   SocketsInitialize = WSAStartup(WS_VERSION_REQD, WSAD) = IP_SUCCESS

End Function
@Alex
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: [VB] Verificare se un PC (descritto su file ini esterno alla procedura) è acceso o meno

text:
[cut]
Fantastico funziona ma se invece di questa stringa:
If PINGIP("xx.xx.xx.xx")="OK" then msgbox "ATTIVO"
al posto dell'ip volessi passargli un dato contenuto in un file di tipo ini
esterno come la scrivo?
Ho provato cosě ... ma mi da errore:
If PINGIP(LeggiIniFile(App.Path & "\config.ini", "RETE", "IP", "")) = "OK"
Then Me.Timer1.Enabled = True
Else: Me.Timer1.Enabled = False
COSA DOVREI SCRIVERE, O MEGLIO ... COME DOVREI SCRIVERLO?
Funzione LeggiIniFile (usata regolarmente)
Public Function LeggiIniFile(FileIni As String, Sezione As String, Campo As
String, ValDefault As String) As String
Dim Comodo As String
Dim x As Integer
    On Error GoTo Errore
    Comodo = String(2048, 32)
    x = GetPrivateProfileString(Sezione, Campo, ValDefault, Comodo,
Len(Comodo), FileIni)
    LeggiIniFile = Mid(Comodo, 1, x)
    Exit Function
Errore:
    If GestoreErrori Then Resume
End Function
Grazie !!
--
strano...mavero


author: Alessandro Baraldi

text:
"strano...mavero" <
mauro.c...@gmail.com
> wrote in message
news:426f99e7$
1...@x-privat.org
> [cut]
> Fantastico funziona ma se invece di questa stringa:
>
> If PINGIP("xx.xx.xx.xx")="OK" then msgbox "ATTIVO"
>
> al posto dell'ip volessi passargli un dato contenuto in un file di tipo ini
> esterno come la scrivo?
>
> Ho provato cosě ... ma mi da errore:
>
> If PINGIP(LeggiIniFile(App.Path & "\config.ini", "RETE", "IP", "")) = "OK"
> Then Me.Timer1.Enabled = True
> Else: Me.Timer1.Enabled = False
>
> COSA DOVREI SCRIVERE, O MEGLIO ... COME DOVREI SCRIVERLO?
[CUT]
Cosa ci vorresti fare con il file.INI...?
Quel metodo apre una connessione via Socket al Server
pertanto serve l'IP, quindi gli invia una stringa qualsiasi, alla
quale il Server risponde con un messaggio compreso nell'elenco,
si chiama ECHO.
Se non c'č l'ECHO non č attivo.
A questo punto ti richiedo cosa vuoi fare con il File INI...?
Devi sempre avere l'elenco degli IP, oppure il ServerHostName
dal quale ricavare l'IP tramite la funzione GetIPFromHostName
che ti ho lasciato,  e passarlo al PING.
Non mi č chiaro.



text:
[cut]
mi serve il file ini perchč installerň la procedura su diversi abienti e su
ciascuno di questi ci sono famiglie di indirizzi differenti e quindi ogni
installazione avrebbe il proprio file ini con il relativo IP al quale
punterei ... cosě č piů chiaro?
Scusa, ma non ho mai provato a fare ping via codice e sono un pň a digiuno!
--
strano...mavero


text:
"strano...mavero" <
mauro.c...@gmail.com
> wrote in message
news:426f9...@x-privat.org

Non preoccuparti, quello che non capivo era il file INI.
Quindi usi il file INI per recuperare l'indirizzo IP..?
Allora non c'č problema, peschi dall'INI l'IP e lo passi
alla funzione PINGIP.
Prima hai scritto cosě:
If PINGIP(LeggiIniFile(App.Path & "\config.ini", "RETE", "IP", "")) =
"OK"
Quě c'č un errore, nel senso che a prescindere dal
dato reso dalla funzione LeggiIniFile che come mi hai
spiegato non č altro che un IP, non hai inserito il messaggio
da inviare al Server per l'ECHO.
Prova questo:
If PINGIP(LeggiIniFile(App.Path & "\config.ini", "RETE", "IP",
""),"TEST") = "OK"
Ciao



text:
[cut]
ho risolto così:
Me.iping.Text = LeggiIniFile(App.Path & "\config.ini", "RETE", "IP", "")
    If PINGIP(Me.iping.Text) = "OK" Then
       Me.Timer1.Enabled = True
       Me.Timer2.Enabled = False
    Else
       Me.Timer1.Enabled = False
       Me.Timer2.Enabled = True
    End If
nel caso negativo ... il timer2 ritenta ogni 5 minuti fino a quando la
macchina richiesta non è pingabile a quel punto abilito il timer1 il quale
piloterà la funzione da me richiesta.
Saluti,
--
strano...mavero


text:
"strano...mavero" <
mauro.c...@gmail.com
> wrote in message
news:426fa...@x-privat.org

Ottimo.
Attenzione a questo:
Me.iping.Text
Me!iPing non mettere Text, deve essere attivo.
Poi se non ti serve visualizzare il valore IP nel controllo
usa una stringa:
strIP=LeggiInifile(....)



title: Casella combinata acc/97

author: BelloBello

text:
Scusate e non mi ammazzate.
Ho un problema con le news:cioe'
se io metto
powernews.libero.it
 mi visualizza tutti i ng. collegato con adsl
wind.pero e' lento rispetto al news
news.tin.it
 che usavo prima con modem 52
k.
Quando imposto quest'ultimo mi visualizza pochi news group e access non
c'e'.
Mi sapete spiegare il motivo.
Non so + dove sbattre la testa.
Ciao e grazie


title: Casella combinata acc/97

author: Roberto da casa

text:
"BelloBello" <
be...@tin.it
> ha scritto nel messaggio
news:Kl5Ub.12771$Mt6.4...@twister2.libero.it...

Scusami tu, ma, come direbbe il buon Di Pietro, che ci azzecca questo
problema con ilsubject che hai usato; inoltre sei OT con questo argomento e
la netiquette vorrebbe che tu lo segnalassi sempre nel subject.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Casella combinata acc/97

author: Antonio Biso

text:
"BelloBello" <
be...@tin.it
> ha scritto nel messaggio
news:Kl5Ub.12771$Mt6.4...@twister2.libero.it...
> Scusate e non mi ammazzate.
E che c'entra la casella combinata?
Antonio


title: raggruppare e sommare i valori

author: francesco

text:
Ciao a tutti; ho una tabella cosě composta:
cliente || prezzo
gianni || 1000
gianni || 1500
giulio || 1000
giulio || 2000
marco || 3000
marco || 2500
con una query di creazione tabella vorrei avere come risultato una tabella
che contenga il cliente con la somma dei valori dei record presi dalla
tabella di partenza, cioč:
gianni || 2500
giulio || 3000
marco || 5500
Ho provato con una query di raggruppamento ma mi da errore. Come si puň
ovviare?
grazie
Francesco

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


title: raggruppare e sommare i valori

author: EmMeCi - Style

text:
"francesco" <
d...@tin.it
> ha scritto nel messaggio
news:151Z37Z87Z22Y1...@usenet.libero.it...
> Ciao a tutti; ho una tabella cosě composta:
>
> cliente || prezzo
>
> gianni || 1000
> gianni || 1500
> giulio || 1000
> giulio || 2000
> marco || 3000
> marco || 2500
>
> con una query di creazione tabella vorrei avere come risultato una tabella
> che contenga il cliente con la somma dei valori dei record presi dalla
> tabella di partenza, cioč:
>
> gianni || 2500
> giulio || 3000
> marco || 5500
>
> Ho provato con una query di raggruppamento ma mi da errore. Come si puň
> ovviare?
>
> grazie
>
> Francesco
>
>
Passaggio 1: query di selezione con i campi CLiente e Prezzo
Attivi selezione Raggruppamento e selezioni la voce raggruppamento per iol
campo cliente e somma per il campo prezzo.
Salva la query
Passaggio 2: Query creazione tabella che si appoggia sulla precedente quary
Ciao.
--
**********
EmMeCi
**********
Blog:
http://www.setfocus.it


title: Copia dati record precedente

author: Nox

text:
Ciao al Ng,
è possibile copiare alcuni campi dai record inseriti precedentemente?
Esempio.
campi: ARTICOLO   PESO     PREZZO
avrei la necessità che una volta compilato il primo record, il successivo
all'inserimento dell'ARTICOLO riportasse nei campi PESO e PREZZO i soliti
dati del record precedente...è fattible?
ciao


title: Copia dati record precedente

author: Marco Antonioli

text:
"Nox" <
no...@ngi.it
> wrote in message news:efaevf$rne$
1...@nnrp.ngi.it

Prova ad intervenire sulla proprietà DefaultValue
Ciao
MArco
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Copia dati record precedente

author: Noce

text:
"Marco Antonioli"  ha scritto nel messaggio
> Prova ad intervenire sulla proprietą DefaultValue
Non sono molto pratico in access...puoi aiutarmi?
Praticamente i dati andranno aggiornati da una maschera alla quale č
collegata la tabella.
Per cui dovrei impostare un evento su una casella combinata sul campo
"Articolo" con il quale dico dopo aggiornamento copia i dati dei campi "PESO
e PREZZO dal record precente.
e come glielo dico? quale č la formula?
Ciao e grazie


title: Copia dati record precedente

author: sv

text:
Noce ha scritto:



L'esempio lo trovi qui:
http://www.donkarl.com/it/
FAQ 4.22
--
sv
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Apertura maschera da casella combinata

author: mic

text:
Ciao a tutti.
In una sottomaschera ho una casella combinata , chiamata Cod_stato,con 5
valori.
Quando vado a selezionare il valore 4 vorrei che mi aprisse la maschera
"copia_commissione".
Nell'evento qui diseguito per provare se funziona l'idea ho fatto generare
un msgbox.
Private Sub Cod_Stato_AfterUpdate()
If Me![cod.stato] = 4 Then MsgBox "Passa a registrare la Copia Commissione"
 End Sub
Domanda:
Che codice devo scrivere per sostituire il msgbox ed avere l'apertura della
maschera
copia_commissione?
Infinitamente grazie
Michele b.


title: Apertura maschera da casella combinata

author: Massimo Tin

text:
mic <
mic...@ba.dada.it
> wrote in message
9g4r7h$i4q$1...@pegasus.tiscalinet.it...

docmd.openform "copia_commissione"


title: Apertura maschera da casella combinata

author: Leo

text:
"mic" <
mic...@ba.dada.it
> ha scritto nel messaggio news:9g4r7h$i4q$1...@pegasus.tiscalinet.it...

Io ho appena cominciato ad usare access e quindi
non sono la persona + indicata a dar consigli;
comunque ti suggerisco di creare un pulsante con
la creazione guidata (bacchetta magica selezionata)
scegliendo 'Operazioni su maschere' e poi 'Apri maschera'
indicando la tua maschera "copia_commissione".
Fatto questo dai un occhio al codice che Access ti genera
nell'evento OnClick per quel pulsante....
forse,con i dovuti aggiustamenti, potresti inserirlo
nell'evento AfterUpdate della tua ComboBox .
Ciao
Leo


title: Importazione Foglio Excel

author: Tom

text:
Ciao a tutti dovrei importarmi in access un foglio di excel, e fino a qui
nessun problema, il problema invece nasce dal fatto che il foglio di excel
non č strutturato perfettamente con le righe uniformemente compilate, ma
presenta le prime righe del testo che non dovrei importare poi una serie di
righe che dovrei importare poi di nuovo una serie di righe con del testo che
non dovrei importare e cosi via, qualcuno sa consigliarmi una soluzione per
potermi importare o collegare (quest'ultima č la soluzione che ho provato
io, ma molto confusa) soltanto le righe del  foglio  excel direttamente da
codice?
Grazie Tommy
P.S. il file xls da importarmi č praticamente un listino di prodotti con
delle descrizioni inserite in alcune righe. Questo file viene mandato
periodicamente diciamo settimanalmente quindi dovrei crearmi un a procedura
automatizzata che mi permetta di impormelo aggiornato.


title: Importazione Foglio Excel

author: Claudio(BS)

text:
Tom ha scritto:
 > Ciao a tutti dovrei importarmi in access un foglio di excel, e fino a qui
 > nessun problema, il problema invece nasce dal fatto che il foglio di
excel
 > non è strutturato perfettamente con le righe uniformemente compilate, ma
 > presenta le prime righe del testo che non dovrei importare poi una
serie di
 > righe che dovrei importare poi di nuovo una serie di righe con del
testo che
 > non dovrei importare e cosi via, qualcuno sa consigliarmi una
soluzione per
 > potermi importare o collegare (quest'ultima è la soluzione che ho provato
 > io, ma molto confusa) soltanto le righe del  foglio  excel
direttamente da
 > codice?
 > Grazie Tommy
 >
 > P.S. il file xls da importarmi è praticamente un listino di prodotti con
 > delle descrizioni inserite in alcune righe. Questo file viene mandato
 > periodicamente diciamo settimanalmente quindi dovrei crearmi un a
procedura
 > automatizzata che mi permetta di impormelo aggiornato.
 >
 >
Immagino che vi siano delle righe di intestazione o simili da saltare,
quindi un test se tutte le celle della riga corrispondono ad alcuni
criteri davrebbe risolverti il problema.
Es.
Intestazione - vuoto       - altro
codice       - descrizione - prezzo
vuoto        - vuoto       - vuoto
codice       - descrizione - prezzo
codice       - descrizione - prezzo
codiceVBA:
scorri tutte le righe
    OK=0
    scorri tutte le colonne (in questo caso 3)
    SELECT CASE colonna
    CASE colonna=1
	IF la cella ha un valore AND il valore nella cella è testo THEN
             OK=OK+1
         ENDIF
    CASE colonna=2
	IF la cella ha un valore AND il valore nella cella è testo THEN
             OK=OK+1
         ENDIF
    CASE colonna=3
	IF la cella ha un valore AND il valore nella cella è numero THEN
             OK=OK+1
         ENDIF
    END SELECT
    SE OK=3 la riga è da importare, altrimenti nisba!
loop
per i casi disperati potrei aggiungere una x in fondo alla riga ed
importare solo le righe che hanno la x ;-)
byez
--
Claudio(BS)
per rispondere aggiungi claudio
Posted from X-Privat Free NNTP server -
www.x-privat.org


title: ComboBox per ricerca record

author: M. Rick

text:
Seguendo il consiglio in un altro post datomi da Roberto da casa, ho creto
una comboBox con origine riga nella tabella che mi interessa.
Questa tabella è in relazione uno-a-molti con una altra tabella, de entrambe
risiedono in una maschera con sottomaschera.
Nella ComboBox ho fatto in modo do visualizzare 3 colonne per facilitare la
selezione (Cognome, Nome, Data di nasc).
Il sistema funziona per quello che servirebbe a me, però:
1) c'è la possibilità di ordinare le colonne delle comboBox in ordine
crescente, cioè, prima ordina i cognomi, a parità di cognomi i nomi, e a
parità di nomi le date di nascita?
2) se il record (il nominativo) è presente, mi viene visualizzato l'ultimo
record inserito nella sottomaschera, però mi sarebbe più utile se
automaticamente iniziasse l'inserimento dei nuovi dati nella sfrm, passando
automaticamente nel primo controllo della sfrm (ho provato con un SetFocus
su uscita dalla ComboBox ma non va) e iniziando un nuovo record nella
tabella della sfrm
3) se il record non è presente, c'è la possibilità di farlo automaticamente
predisporre all'inserimento dei dati nella frm e nella sfrm, o devo creare
per forza un pulsante del tipo "Nuovo" ?
Grazie
Andrea


title: ComboBox per ricerca record

author: omnitow

text:
"M. Rick" <
now...@libero.it
> ha scritto nel messaggio
news:tAWea.37441$Lr4.1...@twister2.libero.it...
> Seguendo il consiglio in un altro post datomi da Roberto da casa, ho creto
> una comboBox con origine riga nella tabella che mi interessa.
> Questa tabella è in relazione uno-a-molti con una altra tabella, de
entrambe
> risiedono in una maschera con sottomaschera.
> Nella ComboBox ho fatto in modo do visualizzare 3 colonne per facilitare
la
> selezione (Cognome, Nome, Data di nasc).
> Il sistema funziona per quello che servirebbe a me, però:
> 1) c'è la possibilità di ordinare le colonne delle comboBox in ordine
> crescente, cioè, prima ordina i cognomi, a parità di cognomi i nomi, e a
> parità di nomi le date di nascita?
Imposta l'origine riga della combo, azichè col nome della tabella, con una
stringa sql del genere
SELECT CampoIDnominativo, CampoCognome, CampoNome, CampoDataDiNascita
FROM Nometabella
ORDER BY CampoCognome, CampoNome, CampoDataDiNascita
Propietà larghezza colonne = 0 (nascondendo la prima colonna ID)
Propietà colonna associata = 1 (riferita all'ID)
> 2) se il record (il nominativo) è presente, mi viene visualizzato l'ultimo
> record inserito nella sottomaschera, però mi sarebbe più utile se
> automaticamente iniziasse l'inserimento dei nuovi dati nella sfrm,
passando
> automaticamente nel primo controllo della sfrm (ho provato con un SetFocus
> su uscita dalla ComboBox ma non va) e iniziando un nuovo record nella
> tabella della sfrm
> 3) se il record non è presente, c'è la possibilità di farlo
automaticamente
> predisporre all'inserimento dei dati nella frm e nella sfrm, o devo creare
> per forza un pulsante del tipo "Nuovo" ?
Per spostare il setfocus su un controllo nella subform devi prima spostare
il focus nel form padre sul controllo subForm, quindi nel modulo del
FormPadre insersci:
    Me.CtrSubForm.SetFocus
    Me.CtrSubForm.Form.PrimoControllo.SetFocus
Qui non capisco bene se e come la subform venga filtrate, comunque:
Per controllare se nel sub form, dopo essere stato filtrato o ricaricato,
non esiste nessun campo
    With Me.CtrSubForm.Form.Recordset
        FormVuoto = (.EOF And .BOF)
    End With
    If FormVuoto Then
Per controllare se nel sub form non esiste nessun campo riferito al
nominativo
    With Me.CtrSubForm.Form.RecordsetClone
        .FindFirst "IDnominativo=" & Me.Combo.Value
        FormVuoto = .EOF
    End With
    If FormVuoto Then
Per sostarti al nuovo record, dopo aver spostato il focus al controllo
suform
    Docmd.Gotorecord AcNewrec
Oppure senza impostare il focus
    Me.CtrSubForm.Form.recorset.AddNew
Per inserire valori nel form figlio
    With Me.CtrSubForm.Form
        .ControlloIDNominativo = Me.ComboNominativo.value
        .Controllo2 = Valore2
        .....
    End With
>
> Grazie
> Andrea
>
Ciao, omnitow


title: ComboBox per ricerca record

text:
Grazie, anche se penso di essere stato poco chiaro nell'esposizione del
problema, tuttavia i tuoi suggeriementi mi sono stati di grande aiuto nel
risolvere il problema.
Andrea


title: Condizione su stampa report

author: Gianni

text:
Ciao a tutti qualcuno sa dirmi come e possibile applicare in fase di stampa
di un report una condizione che mi renda visibile ho no un campo o una
etichetta ?
ciao e  grazie


title: Condizione su stampa report

author: Nick

text:
Gianni ha detto: in data 15/12/2005 15.49:

sull'evento "su formattazione" della sezione che contiene il campo metti
if condizione then
controllo.visible = true
else
controllo.visible = false
end if
ciao
Nick


title: Access/Outlook conflitto chiave registro MAPIVI32.ddl

author: Pablitomf

text:
Riposto il problema a cui non è stato dato purtroppo seguito... nella
speranza di nozioni aggiunte acquisite...
Sui PC su cui è installato sia Outlook Expr. che Outlook di Office il
richiamo al programma di posta (predefinito o non) già solo con un
semplice SendObject mi restituisce un errore di codice macro non valido...
Pur eliminando la chiave
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\8.0\Common\MapiDLL con tutto
il suo contenuto compreso la dll MAPIVI32 (che secondo Microsoft è causa
di questo problema), la cosa non si risolve...
Embè? Che faccio? qualcuno ne sa qualcosa?
--
Pablitomf
Lentamente muore chi abbandona un progetto prima di iniziarlo, chi non fa
domande sugli argomenti che non conosce, chi non risponde quando gli
chiedono qualcosa che conosce. (P.Neruda)
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


text:
"Pablitomf" <
pabl...@virgilio.it
> ha scritto nel messaggio
news:c8t0e7$lev$1...@news.newsland.it...

il ciabattino che gira scalzo?!!!
sei talmente bravo Pablitomf che i tuoi problemi risultano quasi
insormontabili!!!!
Buona fortuna, non sono certo io la persona + idonea a risolvere il tuo bug!
Buona giornata,
--
strano...mavero
la vita è un dono prezioso, apprezzala per quello che potrà offrirti
www.spammer.it


title: Implementare "Trova" senza aprire il Trova

author: Marco Fontana

text:
Ciao al NG,
volevo chiedervi se mi sapete dire come posso creare una routine per
Trovare un record in una maschera senza però usare il trova di access
che si apre quando uso la creazione guidata bottoni di comando.
Grazie a tutti.
Marco
--
Posted from
smtp3.libero.it
 [193.70.192.53]
via Mailgate.ORG Server -
http://www.Mailgate.ORG


author: Roberto da casa

text:
"Marco Fontana" <
m-fo...@iol.it
> ha scritto nel messaggio
news:3A8E59DD...@iol.it...
> Ciao al NG,
>
> volevo chiedervi se mi sapete dire come posso creare una routine per
> Trovare un record in una maschera senza però usare il trova di access
> che si apre quando uso la creazione guidata bottoni di comando.
>
> Grazie a tutti.
> Marco
>
>
Secondo me puoi farlo aprendo un recordset sull'oggetto che è origine record
della tua maschera e sfruttando le peculiarità della proprietà Bookmark
(vedi help).
Apri il recordset e verifica che supporti i "segnalibri" testandone la
proprietà Bookmarkable (vedi help a Esempio di proprietà Bookmark e
Bookmarkable). Se la verifica dà esito positivo, cerca nel recordset il tuo
record con i metodi Find (vedi help a Esempi di metodi FindFirst, FindLast,
FindNext, FindPrevious). Una volta trovato il record desiderato passa il
Bookmark del recordset al Bookmark della maschera.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Creare un cornice in report via codice...

author: Io [Lavoro]

text:
Scusate se vi rompo nuovamente le scatole... Stò "copiando" dei moduli
cartacei in report di Access ed ho la necessità che siano uguali agli
originali; in uno di questi moduli ho una tabella con bordo sottile
all'interno e bordo esterno più grosso:
ho predisposto il report con delle label e delle caselle di testo e gli ho
dato il bordo sottile ed ora vorrei creare, via codice, un rettangolo, sopra
il bordo esterno delle caselle di testo, con un bordo un po' pù grosso... Il
problema è che non so come creare un rettangolo via codice delle dimensioni
uguali a quelli della tabella che variano a seconda del numero dei record
visualizzati nel report...
Help please!
Ciao
--
PS


text:
Io [Lavoro] ha scritto:
> ho predisposto il report con delle label e delle caselle di testo e gli ho
> dato il bordo sottile ed ora vorrei creare, via codice, un rettangolo, sopra
> il bordo esterno delle caselle di testo, con un bordo un po' pů grosso...
Via codice? Scusa e perkč via codice? non x impicciarmi, ma non fai prima
a disegnarli a mano?
> Help please!
> Ciao
Il metodo č visualizzabile nell'help con CreateReportControl... anche se
non ho ben inteso la frase "Il problema č che non so come creare un
rettangolo via codice delle dimensioni uguali a quelli della tabella che
variano a seconda del numero dei record visualizzati nel report..."
--
Pablitomf (Maurizio Facciuti)
Lentamente muore chi abbandona un progetto prima di iniziarlo, chi non fa
domande sugli argomenti che non conosce, chi non risponde quando gli
chiedono qualcosa che conosce. (P.Neruda)
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


text:
"Pablitomf" <
maurizio...@accessgroup.it
> ha scritto nel messaggio
news:cel5li$stg$1...@news.newsland.it...
> Io [Lavoro] ha scritto:
>
> > ho predisposto il report con delle label e delle caselle di testo e gli
ho
> > dato il bordo sottile ed ora vorrei creare, via codice, un rettangolo,
sopra
> > il bordo esterno delle caselle di testo, con un bordo un po' pů
grosso...
>
> Via codice? Scusa e perkč via codice? non x impicciarmi, ma non fai prima
> a disegnarli a mano?
Pardon... Lo ho disegnato a mano e voglio cambiare l'altezza del rettangolo
cornice...
> > Help please!
> > Ciao
>
> Il metodo č visualizzabile nell'help con CreateReportControl...
Non ci ho trovato nulla a riguardo li...
> anche se
> non ho ben inteso la frase "Il problema č che non so come creare un
> rettangolo via codice delle dimensioni uguali a quelli della tabella che
> variano a seconda del numero dei record visualizzati nel report..."
Il report puň avere 10 record ed il rettangolo dovrebbe essere 10cm oppure
15 record ed il rettangolo dovrebbe avere 15cm e cosě via...


text:
"Io [Lavoro]" <I...@Io.it> ha scritto nel messaggio
news:2n6l1cF...@uni-berlin.de...

Dimenticavo: ho provato nell'evento supagina del report ad impostare
l'altezza del rettangolo come l'altezza del corpo del report ma cosi mi fa
una riga grossa per ogni record...


text:
Io [Lavoro] ha scritto:
[CUT]
> Il report può avere 10 record ed il rettangolo dovrebbe essere 10cm oppure
> 15 record ed il rettangolo dovrebbe avere 15cm e così via...
Bhè a dire il vero non è che ci stia capendo proprio tanto in quello che
descrivi, cmq da quello che ho letto puoi prima contarti i record è poi in
base al risultato calcolarti l'altezza (sapendo che come hai detto è un
centimetro a record la formula è facile no?)...
Scusa ma approfondendo ancora non capisco... ma la cornice la vuoi al di
fuori di un sottoreport espandibile o è interna? Perchè ti ho sentito
parlare di "ogni"record... e questo mi confonde!



text:
"Pablitomf" <
maurizio...@accessgroup.it
> ha scritto nel messaggio
news:celb00$ljo$1...@news.newsland.it...
> Io [Lavoro] ha scritto:
>
> [CUT]
> > Il report può avere 10 record ed il rettangolo dovrebbe essere 10cm
oppure
> > 15 record ed il rettangolo dovrebbe avere 15cm e così via...
>
> Bhè a dire il vero non è che ci stia capendo proprio tanto in quello che
> descrivi, cmq da quello che ho letto puoi prima contarti i record è poi in
> base al risultato calcolarti l'altezza (sapendo che come hai detto è un
> centimetro a record la formula è facile no?)...
>
> Scusa ma approfondendo ancora non capisco... ma la cornice la vuoi al di
> fuori di un sottoreport espandibile o è interna? Perchè ti ho sentito
> parlare di "ogni"record... e questo mi confonde!
Provo ad essere più chiaro... Ho creato un report come se fosse una tabella
di excel (per intenderci) e nell'intestazione pagina ho messo le
intestazioni delle colonne, nel corpo del report invece ci sono una serie di
textbox che formano una riga (una a fianco all'altra attaccate una
all'altra) con un bordo sottilissimo... In una pagina ci stanno al massimo
15 righe, ma potrebbero esserci meno di 15 righe in un report oppure più di
15 righe, le prime 15 in una pagina e le successive in una nuova pagina
(dipende dal numero di record da visualizzare, che man mano che li inserisco
aumentano ovviamente).
Ho necessità che, in ogni pagina del report, intorno alle righe formate dai
record ci sia un rettangolo col bordo settato ad 1pt che racchiuda tutte le
righe sovrapponendosi al bordo esterno di queste...
Mettendo il codice nell'evento SuPagina del report:
    Me.Cornice.Height = Me.Section(acDetail).Height
mi fa un rettangolo col bordo di 1pt per ogni riga (record) mentre io lo
voglio solo intorno alla tabella...
Spero di essere stato chiaro ora e che mi possiate dare una mano...
Ciao


text:
Io [Lavoro] ha scritto:


>     Me.Cornice.Height = Me.Section(acDetail).Height

Hai provato ad inserire una linea verticale sovrapposta al bordo esterno?
Se l'altezza del corpo é uguale a quella delle caselle, dovrebbe andare
bene.
--
rgrds
SC
www.accessgroup.it

--



text:
Io [Lavoro] ha scritto:


>     Me.Cornice.Height = Me.Section(acDetail).Height

Mo' si!!!
Da quanto scritto non usi report e sottoreport, quindi l'unica cosa da
fare è costruire il bordo...
operazioni :
1) Inserire Riga orizzontale dello spessore 1 sotto le intestazioni
attaccata all'inizio del corpo...
2) A dx e sx del corpo per ogni record inserisci riga verticale
corrispondente ai margini della riga orizzontale di cui al punto 1
(ovviamente l'altezza delle due righe a dx e sx deve coprire l'intera
altezza del corpo così da creare continuità con il resto dei record.)
3) Segui il punto uno per il piè di report per chiudere la cornice
Va bene? funziona?



text:
"Pablitomf" <
maurizio...@accessgroup.it
> ha scritto nel messaggio
news:celhp1$24d$1...@news.newsland.it...
> Io [Lavoro] ha scritto:
>
> > "Pablitomf" <
maurizio...@accessgroup.it
> ha scritto nel messaggio
> > news:celb00$ljo$1...@news.newsland.it...

Non va... Per le linee verticali va bene ma per le orizzontali non va perchè
rimane spazio tra la tabella e la linea del piè di pagina sia quando ci sono
tutti i record nella pagina che, anche peggio, quando ci sono pochi record
nella pagina... La riga viene stampata sempre alla stessa distanza dal bordo
inferiore del foglio, non dall'ultima riga della tabella... Questo era ciò
che mi aveva spinto a cercare di farlo con un rettangolo...
Ciao


text:
Io [Lavoro] ha scritto:
> Non va... Per le linee verticali va bene ma per le orizzontali non va perchč
> rimane spazio tra la tabella e la linea del pič di pagina sia quando ci sono
> tutti i record nella pagina che, anche peggio, quando ci sono pochi record
> nella pagina... La riga viene stampata sempre alla stessa distanza dal bordo
> inferiore del foglio, non dall'ultima riga della tabella... Questo era ciň
> che mi aveva spinto a cercare di farlo con un rettangolo...
> Ciao
Inviami id DB solo con la tabellq/query e il report di riferimento



text:
"Pablitomf" <
maurizio...@accessgroup.it
> ha scritto nel messaggio
news:celj6n$i12$1...@news.newsland.it...
> Io [Lavoro] ha scritto:
>
> > Non va... Per le linee verticali va bene ma per le orizzontali non va
perchè
> > rimane spazio tra la tabella e la linea del piè di pagina sia quando ci
sono
> > tutti i record nella pagina che, anche peggio, quando ci sono pochi
record
> > nella pagina... La riga viene stampata sempre alla stessa distanza dal
bordo
> > inferiore del foglio, non dall'ultima riga della tabella... Questo era
ciò
> > che mi aveva spinto a cercare di farlo con un rettangolo...
> > Ciao
>
> Inviami id DB solo con la tabellq/query e il report di riferimento
Non posso mandartelo perchè ci sono dati dentro... Mi chiedo se ci sia un
modo di formattare condizionalmente una linea se questa è l'ultima della
sezione del corpo... ho risolto tutto tranne il piè di pagina come ti dicevo
perchè il piè di pagina è in fondo alla pagina mentre la mia tabella può
terminare anche a metà della pagina e quindi tra la fine della tabella e la
linea che faccio io c'è mezza pagina vuota...
CIao e grazie della pazienza...


text:
Io [Lavoro] ha scritto:
> Non posso mandartelo perchè ci sono dati dentro... Mi chiedo se ci sia un
> modo di formattare condizionalmente una linea se questa è l'ultima della
> sezione del corpo... ho risolto tutto tranne il piè di pagina come ti dicevo
> perchè il piè di pagina è in fondo alla pagina
Buuuuuuuuuuuuu!!!! Il Piè di pagina pagina è in fondo, non il piè di
pagina report... mettila nel piè di pagina report e vedi come funziona. :-)
Fammi sapere.



text:
"Pablitomf" <
maurizio...@accessgroup.it
> ha scritto nel messaggio
news:cell3s$5ao$1...@news.newsland.it...
> Io [Lavoro] ha scritto:
>
>
> > Non posso mandartelo perchè ci sono dati dentro... Mi chiedo se ci sia
un
> > modo di formattare condizionalmente una linea se questa è l'ultima della
> > sezione del corpo... ho risolto tutto tranne il piè di pagina come ti
dicevo
> > perchè il piè di pagina è in fondo alla pagina
>
> Buuuuuuuuuuuuu!!!! Il Piè di pagina pagina è in fondo, non il piè di
> pagina report... mettila nel piè di pagina report e vedi come funziona.
:-)
Io la metto nel "Piè di pagina pagina" come dici tu ma non va bene... rimane
lo spazio! mi fa la riga staccata dal resto in fondo al foglio!
Ciauz...
PS: Se abbandoni non mi offendo... mi sa che lascio perdere e faccio il
bordo sottile come tutto il resto...


author: ALESSANDRO Baraldi

text:
"Io [Lavoro]" <I...@Io.it> ha scritto nel messaggio
news:2n744rF...@uni-berlin.de...
Mi sono perso il 3D, ma non mi pare abbiate preso in considerazione
la soluzione usuale:
Sub Line(flags As Integer, x1 As Single, y1 As Single, x2 As Single, y2 As
Single, color As Long)
    Membro di Access.Report
Ciao.
@Alex.


text:
"ALESSANDRO Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:celnk3$94o$1...@lacerta.tiscalinet.it...

Scusami ma non lo trovo nell'help... potresti essere un po' meno criptico?
dove dovrei inserire quel codice ed in che versione di access? (io ho la 2k)
cosa intendi con "membro di access.report"?
Ciao


text:
"Io [Lavoro]" <I...@Io.it> ha scritto nel messaggio
news:2n76q2F...@uni-berlin.de...
>
[CUT]
> > Mi sono perso il 3D, ma non mi pare abbiate preso in considerazione
> > la soluzione usuale:
> >
> > Sub Line(flags As Integer, x1 As Single, y1 As Single, x2 As Single, y2
As
> > Single, color As Long)
> >     Membro di Access.Report
> >
>
> Scusami ma non lo trovo nell'help... potresti essere un po' meno criptico?
> dove dovrei inserire quel codice ed in che versione di access? (io ho la
2k)
> cosa intendi con "membro di access.report"?
> Ciao
Lo sai che sono conciso di mio.
La puoi usare dalla versione A97.
Per trovarla devi andare nel Report aprire il Visualizzatore Oggetti
e digitare Line.
Ne troverai più di uno, ma quello che ti serve è il metodo di Report
come ti ho indicato.
Con quella Funzione disegni quello che vuoi anche Rettangoli, io la
metto Su Formattazione nel mio Caso, e qualunque sia il Numero di
Record la dimensione del Rettangolo non DEVE cambiare in quanto
è tipico del Protocollo di STAMPA avere la riquadratura.
Ciao.
@Alex


text:
"Io [Lavoro]" <I...@Io.it> ha scritto nel messaggio
news:2n76q2F...@uni-berlin.de...
>
Errata Corrige, lo metto su Evento come segue:
Private Sub Report_Page()
    ' Draw a line around the entire page.
    Me.Line (0, 0)-(Me.ScaleWidth - 250, Me.ScaleHeight - 50), , B
End Sub
In questo caso B è l'Opzione che crea un rettangolo utilizzando le
coordinate come angoli opposti del rettangolo.
@Alex.


text:
Io [Lavoro] ha scritto:
> Io la metto nel "Piè di pagina pagina" come dici tu ma non va bene... rimane
> lo spazio! mi fa la riga staccata dal resto in fondo al foglio!
> Ciauz...
> PS: Se abbandoni non mi offendo... mi sa che lascio perdere e faccio il
> bordo sottile come tutto il resto...
Ti assicuro che funziona tranquillamente... ti mando l'esempio Ver.A97



text:
"ALESSANDRO Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:celq3d$avn$1...@lacerta.tiscalinet.it...

Mi dispiace ma non riesco comunque a fare quello che voglio fare... Non
riesco a trovare le coordinate giuste per i vertici ed il rettangolo mi
parte dall'intestazione pagina al piè di pagina pagina me ntre io vorrei che
mi contornasse la sola sezione del corpo pagina dove sono presenti dei
record (che quindi non ha una altezza fissa dato che il numero dei record è
variabile)...
Ciao


title: Concatenazione record in un record solo

author: roma

text:
Buon giorno
vi ricordate la problematica, risolta, in questo post di seguito riportato?

https://groups.google.com/d/msg/it.comp.appl.access/BWORQDr_1Ag/wC9siXwUEQAJ

=========================================
RIPORTO IL PROBLEMA IN SINTESI
=========================================
Ho il seguente problema:
Utilizzo ACCESS 2003
Concatenare una colonna di record in un unico record spaziandolo tra di loro con un simbolo/segno, mi spiego meglio.

NOME     VERSIONE      CILINDRATA     TARGA
500         L            1200         ABCD
500         L            1200         ABCA
500         L            1200         ABCE
500         L            1300         ABCD
500         L            1300         ABCA
500         L            1300         ABBB

il risultato che vorrei è

NOME     VERSIONE      CILINDRATA           QUANTITA       TARGHE
500        L            1200            3        ABCD,ABCA,ABCE
500        L            1300            3        ABCD,ABCA,ABBB

Come posso fare, significando che non sono molto ferrato con il VBA e vorrei riportare il tutto su un report. grazie
=========================================
La risposta che mi ha risolto il problema è stata questa
=========================================
Public Function strTarghe(Cilindrata) As String
    Dim rs As DAO.Recordset
    Dim db As DAO.Database
    strTarghe = ""
    Set db = CurrentDb
    Set rs = db.OpenRecordset("miaTabella", dbOpenDynaset, dbFailOnError + dbSeeChanges)
    Do Until rs.EOF
        If rs!Cilindrata = Cilindrata Then
            strTarghe = strTarghe & rs!targa & ", "
        End If
        rs.MoveNext
    Loop
    If Len(strTarghe) > 0 Then
        strTarghe = Left(strTarghe, Len(strTarghe) - 2)
    End If
    Set rs = Nothing
End Function

E poi la richiami in una query:

SELECT First(miaTabella.Nome) AS PrimoDiNome, First(miaTabella.Versione) AS PrimoDiVersione, miaTabella.Cilindrata, Count(miaTabella.Cilindrata) AS Quantita, strTarghe([Cilindrata]) AS Targhe
FROM miaTabella
GROUP BY miaTabella.Cilindrata;
=========================================
=========================================

Ebbene, seppur funzioni bene, in questo momento sto utilizzando MAccess 2010, al momento della domanda utilizzavo la versione 2013, la risposta alla query è lentissima, esiste un altro sistema per fare ciò?
Aggiungo inoltre che il campo TARGA, purtroppo, ultimamente si è ingrandito di molto, se può aiutare la risultanza mi serve da mettere in un report.

Grazie


title: Concatenazione record in un record solo

author: Potone

text:
Il giorno mercoledì 12 ottobre 2016 06:51:18 UTC+2, roma ha scritto:
> Buon giorno
[Cut]

Ciao,
credo che il problema della lentezza sia dato dalla combinazione dell'uso nella query di una funzione che impiega tempo per essere eseguita e dal fatto che sia eseguita diverse volte perché è compresa nel raggruppamento su cui è basata la query.
In questo modo la funzione di concatenamento viene eseguita tante volte quanti sono i records da raggruppare portando al tempo di attesa che hai visto.

Arrivando al sodo, per ridurre i tempi di esecuzione proverei per prima cosa a dividere in due la query attuale:
una prima query (Q1) che esegue il raggruppamento e il conteggio delle targhe
una seconda query basata su Q1 che esegue la concatenazione dei campi targa:

Q1) SELECT First(miaTabella.Nome) AS PrimoDiNome, First(miaTabella.Versione) AS PrimoDiVersione, miaTabella.Cilindrata, Count(miaTabella.Cilindrata) AS Quantita
FROM miaTabella
GROUP BY miaTabella.Cilindrata;

Q2) SELECT Q1.PrimoDiNome, Q1.PrimoDiVersione, Q1.Cilindrata, Q1.Quantita, strTarghe(Q1.Cilindrata) AS Targhe
FROM Q1

In questo modo la funzione viene eseguita una singola volta per ogni gruppo.

Riguardo la funzione io la modificherei in due punti:
l'apertura di un recordset di tipo ForwardOnly (da un po' di sprint visto che i record sono solo da leggere) ma in particolare applicherei un filtro sulla cilindrata direttamente nell'sql anziché scorrere tutti i record e verificare uno per uno se appartiene alla cilindrata richiesta

Set rs = db.OpenRecordset("SELECT Targa FROM miaTabella WHERE Cilindrata=" & Cilindrata, dbOpenForwardOnly, dbFailOnError + dbSeeChanges)
Do Until rs.EOF
    strTarghe = strTarghe & rs!targa & ", "

    rs.MoveNext
Loop

Se il campo Cilindrata è di tipo testo devi aggiungere gli apici nella clausola del filtro: ... WHERE Cilindrata='" & Cilindrata & "'" ...

Per il fatto che il campo Targa si sta allungando la prima cosa che mi viene in mente è che potresti aggiungere una condizione all'interno della funzione che inserisca una coppia di caratteri di ritorno a capo ogni x targhe aggiunte al risultato in modo che nel tuo report tu possa controllare un po' meglio la larghezza del testo che viene visualizzato nel controllo (ovviamente la dimensione aumenterà in altezza).

Ciao
Mat.


title: Concatenazione record in un record solo

text:

Nello scusarmi per il ritardo
Grazie è perfetta
di nuovo scusami


title: Concatenazione record in un record solo

text:
Il giorno domenica 13 settembre 2020 alle 07:58:28 UTC+2 roma ha scritto:
[Cut]
> > Ciao
> > Mat.
> Nello scusarmi per il ritardo
> Grazie è perfetta
> di nuovo scusami

Prego :-)
ciao
Mat.


title: Cesella di opzioni: HELP.

author: agcuboni

text:
Ringrazierei molto chi riuscisse a dare una
risposta al seguente quesito (Access 2000).

Come posso modificare il valore che mi restituisce
una casella di opzioni? Lui restituisce un intero a me serve che
restituisca una stringa. Si può usare una macro, il generatore di espressioni,
un codice VBA ? Come posso fare?

Vorrei che la stringa (per esempio anche il nome
dell'ettichetta) mi venga copiata in una casella della tabella del database,
dove attualmente mi copia solo un valore: 1, 2, 3 .... che identifica l'opzione
scelta.

So che il problema lo risolverei impigando una
casella combinata o simile, ma vorrei usare lo stesso una check
box.

Vi ringrazio per l'aiuto che saprete
darmi.

Antonio Cuboni

agcu...@tiscalinet.it


title: Cesella di opzioni: HELP.

author: Sergio MAZZA

text:
Domanda:
""agcuboni"" <
agcu...@tiscalinet.it
> ha scritto nel messaggio
news:002101c01b36$a36a23c0$0100007f@agcuboni...


Antonio Cuboni
agcu...@tiscalinet.it
Risposta:
Non inviare messaggi in formato html.
Ho fatto delle prove e non mi sembra sia possibile se non inserendo (per
esempio) nell'evento "dopo aggiornamento" del gruppo di opzioni un test sul
valore che ti viene restituito:
es.
Private Sub NomeGruppoOpzioni_AfterUpdate()
Me!nomeControllo = Choose(Me!NomeGruppoOpzioni, "Prima stringa", "Seconda
stringa", "Terza stringa")
End Sub
Ciao.


title: Office 2000 developer

author: Simone

text:
Ciao a tutti,
Sono intenzionato ad acquistare access developer, prima, però, volevo sapere
se il prodotto è facilmente utilizzabile anche da un utente che non conosce
molto bene il Vba e Quanto può costare.
Ciao e grazie


title: Esportare dati in excel

author: Winston Smith

text:
Salve a tutti,
vorrei esportare dei dati da access in excel, inserendo il dato in una
colonna precisa ma scegliendo la riga in base al codice che passo da
access.
Es.

Access:
Codice     Valore
5010200    1.000

Excel:
vorrei scorrere la colonna A fino a che non trova il codice 5010200,
dopo inserire il valore 1000 in una colonna fissa per esempio la "F".

E' possibile, se si come?

Grazie
WS

--

WS


title: Esportare dati in excel

text:
Vedi se questo esempio può aiutarti:
http://www.accessgroup.it/forms/definire-i-campi-da-esportare-in-excel-e-sequenza-di-esportazione.html

Oppure guarda questo:

Function EXP2XLS(SQL As String, _
                 Optional ByRef NomeFile As String = vbNullString, _
                 Optional OpenDialog As Boolean = False, _
                 Optional CloseExcel As Boolean = True) As Boolean
    On Error GoTo Handle_err
    Dim xlApp   As Object   ' Oggetto EXCEL
    Dim oWkb    As Object   ' Oggetto WORKBOOK

    Dim x           As Integer
    Dim rs          As DAO.Recordset
    Dim strFilter   As String
    Dim intTypeXLS  As Integer

    EXP2XLS = False

    ' APRE SE ESISTE GIA' UN'OGGETTO EXCEL
    Set xlApp = CreateObject("Excel.Application")

    Set oWkb = xlApp.Workbooks.Add()

    If Val(xlApp.Version) >= 11 Then
        strFilter = "Excel 2000-2003 Workbook (*.xls), *.xls, "
        strFilter = strFilter & "Excel 2007-2010 Workbook (*.xlsx), *.xlsx,"
        strFilter = strFilter & "Excel 2007-2010 Binary Workbook (*.xlsb), *.xlsb"
    Else
       strFilter = "Excel 2000-2003 Workbook (*.xls), *.xls"
    End If

    If OpenDialog = True Then

        Do Until NomeFile <> ""
            NomeFile = xlApp.GetSaveAsFilename(InitialFileName:="C:\TestExport.xls", _
                                               fileFilter:=strFilter, _
                                               Title:="SELEZIONA NOME FILE")

            DoEvents
        Loop

    End If
 If Len(NomeFile) = 0 Then Exit Function

    If EsisteFile(NomeFile) Then Kill NomeFile

    '--------------------------------------------------------------
    ' Per   O2003               usare il valore 43  (VERSION 11.0)
    ' Per > O2007 (file xlsB)   usare il valore 50  (VERSION > 11)
    ' Per > O2007 (file xlsX)   usare il valore 51  (VERSION > 11)
    ' Per > O2007 (file xls)    usare il valore 56  (VERSION > 11)
    '--------------------------------------------------------------

    'uso la proprietà FileFilter come variabile per assegnare il valore corretto relativo a Workbook SaveAs
    If Val(xlApp.Version) > 11 Then
        Select Case Mid$(NomeFile, InStrRev(NomeFile, ".") + 1, Len(NomeFile))
            Case Is = "xlsx"
                intTypeXLS = 51
            Case Is = "xlsb"
                intTypeXLS = 50
            Case Is = "xls"
                intTypeXLS = 56 '"xls" con versione office > 11
        End Select
    Else
        intTypeXLS = 43 '"xls" con versione office < 11
    End If
    oWkb.SaveAs NomeFile, intTypeXLS

    ' Elimino i Fogli che Excel crea di DEFAULT
    For x = oWkb.Sheets.Count To 2 Step -1
        oWkb.Sheets(x).Delete
    Next

    ' Assegno un nome al Foglio(Sheet) rimasto.
    oWkb.Sheets(1).Name = "MANUTENZIONI"

    Set rs = CurrentDb.OpenRecordset(SQL, dbOpenDynaset, dbReadOnly)

    ' Scrivo nella Cella A1
    oWkb.Sheets(1).Range("A1").CopyFromRecordset rs
   rs.Close
    Set rs = Nothing

    EXP2XLS = True

Exit_Here:
    oWkb.Save
    If CloseExcel Then
        oWkb.Close True
        xlApp.Quit
    Else
        xlApp.Visible = True
    End If
    Set oWkb = Nothing
    Set xlApp = Nothing
    Exit Function

Handle_err:
    MsgBox Err.Number & " " & Err.Description
    Resume Exit_Here
End Function

Public Function EsisteFile(ByVal str As String) As Boolean
    On Error Resume Next
    EsisteFile = (GetAttr(str) And vbDirectory) = 0
End Function

Ciao


title: Esportare dati in excel

text:
@Alex ha spiegato il 12/10/2013 :
> Vedi se questo esempio può aiutarti:
>
http://www.accessgroup.it/forms/definire-i-campi-da-esportare-in-excel-e-sequenza-di-esportazione.html

>
> Oppure guarda questo:
>
-CUT-
>
> Ciao

Ok, grazie.

--

WS


title: Selezione report

author: steafno cicognani

text:
Ho una tabella A
ID reparti 		 contatore chiave primaria
Reparti
Ho una tabella B
ID ambienti		contatore chiave primaria
Ambienti
id reparti		numerico
in relazione 1 a molti con la tabellaA
di esso ho un reportB

Ho una tabella C
ID lista attività             contatore chiave primaria
lista attività
id reparti		numerico
in relazione 1 a molti con la tabellaA
di esso ho un reportC
Ho una tabella D
ID reparti            	 contatore chiave primaria
Reparti
id reparti		numerico
in relazione 1 a molti con la tabellaA
di esso ho un reportD
Dopo una ricerca su una tabella A
Devo poter selezionare i report  che mi interessano A B C o alcuni o
tutti 3 in modo che per ogni reparto mi si visualizzi i report che di
quel reparto poi seguano i report degli altri reparti
Spero di essere stato chiaro
Qualcuno ha qualche idea di come dovrei ragionare o come dovrei
affrontare il problema
Grazie a chiunque mi dia una dritta


title: Selezione report

text:
ho messo report principale e varie sottoreport
per non visualizzare i sottoreport che non mi interessano vorrei
cambiare recordsource e farlo puntare a una tabella vuota
ho pensato di mettere all'apertura dei sottoreport una if
if forms![maschera1]!opzione64 = true then
Me.RecordSource = "vuota dichiarazioni"
else Me.RecordSource = "dichiarazioni"
end if
ma da errore cosa sbaglio?
un grazie a chi mi da un consiglio


title: apici e pedici

author: Akery

text:
Buongiorno,

gentilmente qualcuno mi sa indicare come formattare parte del testo con
apice e pedici?

es: CO2 vorrei memorizzarlo con il 2 in pedice

grazie
Akery

---
Questa e-mail è stata controllata per individuare virus con Avast antivirus.
https://www.avast.com/antivirus


title: apici e pedici

text:
Il giorno venerdì 9 marzo 2018 12:30:33 UTC+1, Akery ha scritto:
> Buongiorno,
>
> gentilmente qualcuno mi sa indicare come formattare parte del testo con
> apice e pedici?
>
> es: CO2 vorrei memorizzarlo con il 2 in pedice
>
> grazie
> Akery
>

Teoricamente non puoi usando Testo standard..., normalmente sono formattazioni fattibili in HTML, o RTF, ma per quanto ricordo la formattazione RTF di Access, che è limitata, non supporta il SubScript o SuperScript(Pedice/Apice)...

Tuttavia alcune opzioni ci sono, ad esempio per l'APICE ti mostro questa possibilità:

Me.TextBox="Prova " & Chr(178)
Tra i caratteri normali tuttavia non trovi il PEDICE che ti serve, per questi devi ricorrere ai Caratteri UNICODE..., sfruttando quindi la funzione CHRW e passando il Codice corrispondente... devi cercare tuttavia se è previsto un Carattere di quel tipo...

Esempio prova a scrivere una cosa simile in una TextBox:

Me.NomeTextBox.Value= "CO" & ChrW(8322)

Per scoperire le opzioni devi usare la MAPPA CARATTERI, convertendo il VALORE che vedi da HEX a Decimal.

Ovviamente poi lascio a TE capire come formattare a RUNTIME il testo affinchè tu riesca a visualizzare il desiderato... e questo è un BEL problema, risolvibile... forse ma da rifletterci bene...!

@Alex


title: apici e pedici

author: akery

text:
Il 09/03/2018 18:01, @Alex ha scritto:
> Il giorno venerdì 9 marzo 2018 12:30:33 UTC+1, Akery ha scritto:
>> Buongiorno,
>>
>> gentilmente qualcuno mi sa indicare come formattare parte del testo con
>> apice e pedici?
>>
>> es: CO2 vorrei memorizzarlo con il 2 in pedice
>>
>> grazie
>> Akery
>>
>
> Teoricamente non puoi usando Testo standard..., normalmente sono formattazioni fattibili in HTML, o RTF, ma per quanto ricordo la formattazione RTF di Access, che è limitata, non supporta il SubScript o SuperScript(Pedice/Apice)...
>
> Tuttavia alcune opzioni ci sono, ad esempio per l'APICE ti mostro questa possibilità:
>
> Me.TextBox="Prova " & Chr(178)
> Tra i caratteri normali tuttavia non trovi il PEDICE che ti serve, per questi devi ricorrere ai Caratteri UNICODE..., sfruttando quindi la funzione CHRW e passando il Codice corrispondente... devi cercare tuttavia se è previsto un Carattere di quel tipo...
>
> Esempio prova a scrivere una cosa simile in una TextBox:
>
> Me.NomeTextBox.Value= "CO" & ChrW(8322)

ottimo! quello che volevo
>
> Per scoperire le opzioni devi usare la MAPPA CARATTERI, convertendo il VALORE che vedi da HEX a Decimal.
>
> Ovviamente poi lascio a TE capire come formattare a RUNTIME il testo affinchè tu riesca a visualizzare il desiderato... e questo è un BEL problema, risolvibile... forse ma da rifletterci bene...!

ho creato una tabella dei composti con testo gia formattato e li
richiamo da combobox
>
> @Alex
>

grazie per il supporto!



title: Report con DATA

author: NewHold

text:
Ciao,
Ho un report con campo:
Nome ; Cognome ; .....   DATA.
Da un form scrivo la data es. 18/11/02  dal Cmd.ApriReport  apro il report
visualizza il primo foglio con la data 18/11/02  e relativi dati .
E' possibile far stampare e visualizzare tutta la settimana?.
Es. Quando scrivo 18/11/02 posso avere la stampa dei giorni 19, 20, 21, 22
giorni lavoativi.
Grazie mille


title: Report con DATA

text:
"NewHold" <
new...@virgilio.it
> ha scritto nel messaggio
news:sLoC9.15420$Ka3.4...@twister1.libero.it...

Se il report si chiama Pippo.
Se il controllo della maschera dove digiti la data della settimana da
visualizzare si chiama CercaData.
Apri il report con questa riga di codice VBA:
DoCmd.OpenReport "Pippo", acViewPreview, , _
"Format(Data,'yyyyww')=" & Chr$(34) & _
Format(CercaData, "yyyyww") & Chr$(34)
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Err -2147217883 Per ottenere......

author: nando

text:
Ciao a tutti, non riesco a venire a capo del seguente errore di Access2000:
-
2147217883
 per ottenere nuovi handles di riga č innanzitutto necessario
rilasciare quelli in uso.
Sto leggendo in modo sequenziale una tabella (do while not .eof ) per
popolarne una seconda utilizzando il metodo seek quando,
dopo alcuni records esce il suddetto errore( lo da sulla seconda tabella
naturalmente).
Chi mi dice qualcosa?
Dove posso trovare l'elenco de cod. err di access?
II quesito: Un modo veloce per verificare l'esistenza di una tabella
all'interno del database(MDB) e appurare se č aperta?
Grazie, buona serata a tutti
    Nando


title: Err -2147217883 Per ottenere......

text:
"nando" <
f.bi...@virgilio.it
> ha scritto nel messaggio
news:kqvVb.207110$VW.85...@news3.tin.it...
> Ciao a tutti, non riesco a venire a capo del seguente errore di
Access2000:
> -
2147217883
 per ottenere nuovi handles di riga è innanzitutto necessario
> rilasciare quelli in uso.
> Sto leggendo in modo sequenziale una tabella (do while not .eof ) per
> popolarne una seconda utilizzando il metodo seek quando,
> dopo alcuni records esce il suddetto errore( lo da sulla seconda tabella
> naturalmente).
> Chi mi dice qualcosa?
Per me non è molto chiaro cosa intendi con popolare una tabella con il
metodo Seek.
Le tabella sono contenute nel database o sono collegate?
> Dove posso trovare l'elenco de cod. err di access?
> II quesito: Un modo veloce per verificare l'esistenza di una tabella
> all'interno del database(MDB) e appurare se è aperta?
Per verificare se esiste una tabella nei database, vai sul Sito Comune (link
qui sotto) e nella Sezione Tables leggi la FAQ di Lbo intitolata
"Controllare se una tabella esiste in un qualsiasi database.".
Non ho invece la più pallida idea di csa tu intenda con tabella aperta.
> Grazie, buona serata a tutti
>     Nando
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: scusate i doppioni ma.........

text:
ci sono dei miei messaggi doppi ma non li vedevo comparire quindi li ho
reinviati per sbaglio....


title: validare un campo email

author: Amoa Onlus

text:
ciao
vorrei sapere come, tramite vba, si possa validare la correttezza di
un'indirizzo email in una casella di testo, (con A2003),
stessa cosa, se c'è, anche con  un campo di testo per l'indirizzo web,
magari che controlli l'assenza di spazi, errori di punteggiatura ecc..

ciao e buon annooooooo!!
Luciano


title: validare un campo email

author: Pablitomf

text:
Amoa Onlus <
amoa...@gmail.com
> ha scritto:

> ciao
> vorrei sapere come, tramite vba, si possa validare la correttezza di
> un'indirizzo email in una casella di testo, (con A2003),
> stessa cosa, se c'ï¿œ, anche con  un campo di testo per l'indirizzo web,
> magari che controlli l'assenza di spazi, errori di punteggiatura ecc..
>
> ciao e buon annooooooo!!
> Luciano

Google non ti piace vero?

1)
http://www.geeksengine.com/article/validate-email-vba.html

2)
http://www.vbforums.com/showthread.php?513283-VBA-quot-quot-email-validation

3)
http://www.ozgrid.com/forum/showthread.php?t=57332

4) e tanti altri...

--
------------
Pablitomf
Napoli sempre nel "Q"uore!
"mammasantissima" si nasce, non si diventa.

TheSpaceCowboy :
Britos deve recuperare per arrivare in forma al prossimo
infortunio - 24/10/12


title: validare un campo email

text:

Function RegExEmail(ByVal sEmail As String) As Boolean
    Dim re As Variant
    Set re = CreateObject("vbscript.regexp")
    re.Pattern = "\w+([-+.']\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*"
    ' re.Pattern = "^([a-zA-Z0-9_\-\.]+)@[a-z0-9-]+(\.[a-z0-9-]+)*(\.
[a-z]{2,3})$"
    re.Global=True
    re.IgnoreCase = True

    RegExEmail = re.Test(sEmail)

    Set re = Nothing
End Function

Sono 2 pattern simili ma non completamente equivalenti... vedi quale
dei 2 ti da maggiori garanzie...

Ciao
@Alex


title: Come leggere/scrivere formato xml SENZA aggiungere riferimenti esterni?

author: RobertoA

text:
Devo leggere e poi scrivere dei file formato xml
Tovo un sacco di esempi che sfruttano librerie esterne ad Access, msxml3,
Ado, ecc...
Sveltiscono sicuramente il lavoro ma obbligano ad aggiungere dei 'pezzi'
esterni
Sapete se c'e' qualche esempio che illustri come leggere/scrivere un file
xml, usando codice vba, senza caricare librerie esterne ad Access (2003)?
Ciao e grazie
RobertoA


author: Alessandro Cara

text:

Come se fosse un file sequenziale qualsiasi?

--

ac (x=y-1) e non uso il KillFile.
La violenza e' l'ultimo rifugio degli incapaci (Salvor Hardin)


text:
"Alessandro Cara" <
aley-1....@gmail.com
> ha scritto nel messaggio
news:bdy2v.30988$Th2....@tornado.fastwebnet.it...
> Il 13/04/2014 11.24, RobertoA ha scritto:
>> Devo leggere e poi scrivere dei file formato xml
>> Tovo un sacco di esempi che sfruttano librerie esterne ad Access, msxml3,
>> Ado, ecc...
>> Sveltiscono sicuramente il lavoro ma obbligano ad aggiungere dei 'pezzi'
>> esterni
>> Sapete se c'e' qualche esempio che illustri come leggere/scrivere un file
>> xml, usando codice vba, senza caricare librerie esterne ad Access (2003)?
>> Ciao e grazie
>>
> Come se fosse un file sequenziale qualsiasi?

Un parser xml usando solo codice vba 'nativo'
Si, sostanzaialmente leggendo il file sequenzialmente e poi elaborandolo per
trovare i nodi e le informazioni contenute


title: Incrementi non univoci, chiavi e altro

author: vulcanbrain

text:
Vi ripropongo la situazione nella quale mi trovo perchè capire come uscirne
mi aiuterebbe non poco anche in altre situazioni...
In sintesi, in una tabella 'tblProtoc' registro almeno (gli altri campi per
ora non servono):
- un campo 'ID' contatore autoincrementante;
- un campo 'Anno' (Testo);
- un campo 'Progressivo' (Intero lungo).
Dalla maschera relativa, dei controlli rilevano il max dei progressivi
dell'anno e lo incrementano di 1. Il numero così ottenuto viene allegato in
una codifica etc.. e di questo chi se ne frega.
L'utente, quindi, non interagisce con il numero progressivo. Inoltre, in
ogni anno non ci può essere più volte lo stesso numero.
Il problema sorge nel momento in cui, da più FrontEnd, gli utenti ignari si
mettono a registrare le loro cose: è molto probabile infatti che vengano
registrati due 'Progressivo' uguali... d'altra parte non posso impostare
l'univocità di 'Progressivo' in tabella dal momento che tale univocità è
solamente relativa all'anno!
Mi avete consigliato di mettere una chiave di fianco ad 'Anno' e di fianco a
'Progressivo' ma... (SUSPENCE)... non funge!
Nella mia ignoranza penso che, nel momento dell'incremento del
'Progressivo', ci sia bisogno di una routine che apre il RecordSet, verifica
il numero maggiore e lo incrementa ma, ahimè, questo non so farlo...
Ptete aiutarmi voi?


title: Incrementi non univoci, chiavi e altro

author: ramblers

text:
"vulcanbrain" <
NO_SPAM_v...@wappi.com
> ha scritto nel messaggio
news:KefZ7.11473$%B.42...@twister2.libero.it...

Il problema presumo sorga quando il programma assegna un progressivo e il
record a cui è assegnato non è ancora salvato, per cui se un'altro utente,
prima che il primo abbia salvato il record sul quale sta lavorando, richiede
l'apertura di un nuovo record si trova con il medesimo numero.
Una soluzione sarebbe quella di assegnare il numero solo al momento del
salvataggio del record; quindi l'utente lavora sul record senza il numero e
solo al momento del salvataggio questo gli viene assegnato. Riduci di molto
la possibilità di aggiornamenti contemporanei.
Un altra soluzione  talvolta adottata è quella di una tabella con dei campi
che gestiscono dei contatori, in questo caso assegni il numero ad un record
leggendolo da questa tabella e immediatamente dopo lo aggiorni, in modo da
offrire il contatore aggiornato a chi ne fa una richiesta prima che il
precedente abbia completato le sue operazioni.
Alcuni inconvenienti sorgono se non puoi ammettere buchi nella numerazione.
ciao.


title: Incrementi non univoci, chiavi e altro

text:
> Il problema presumo sorga quando il programma assegna un progressivo e il
> record a cui è assegnato non è ancora salvato, per cui se un'altro utente,
> prima che il primo abbia salvato il record sul quale sta lavorando,
richiede
> l'apertura di un nuovo record si trova con il medesimo numero.
>
> Una soluzione sarebbe quella di assegnare il numero solo al momento del
> salvataggio del record; quindi l'utente lavora sul record senza il numero
e
> solo al momento del salvataggio questo gli viene assegnato. Riduci di
molto
> la possibilità di aggiornamenti contemporanei.
>
> Un altra soluzione  talvolta adottata è quella di una tabella con dei
campi
> che gestiscono dei contatori, in questo caso assegni il numero ad un
record
> leggendolo da questa tabella e immediatamente dopo lo aggiorni, in modo da
> offrire il contatore aggiornato a chi ne fa una richiesta prima che il
> precedente abbia completato le sue operazioni.
> Alcuni inconvenienti sorgono se non puoi ammettere buchi nella
numerazione.
>
>
> ciao.
>
Ora provo secondo quanto mi hai indicato. non mi è molto chiara la tabella
coi contatori ma, come hai arguito, il probelma si propone poi se non sono
tollerati buchi nella numerazione.
Circa la mia idea di creare la routine che controllo il RS bla bla bla che
ne dici?
Come la metteresti su?
Saluti


title: Incrementi non univoci, chiavi e altro

text:
"vulcanbrain" <
NO_SPAM_v...@wappi.com
> ha scritto nel messaggio
news:BOfZ7.11799$SE3.4...@twister1.libero.it...

Il problema non è come farlo, puoi usare un dmax o una query, ma quando
farlo.
a mio avviso va fatto sull'evento after insert della maschera.
in questo modo, l'utente lavora sul record senza il numero (o si potrebbe
visualizzargli quello probabile...) fino al momento in cui passa ad un'altro
record o chiude la maschera, fino a a quando cioè non conferma l'inserimento
del record.
potrebbe essere così:
sub form_afterinsert
    me.numero = ProxProg
end sub
function ProxProg () as long
    dim Rs as recordset, SQL as string
    SQL = "SELECT Max(tuaTabella.Progressivo) AS MaxProg FROM tuaTabella;"
    set rs = currentdb.openrecordset(sql)
    if nz(rs("MaxProg"),0) = 0 then
        ProxProg = 1
    else
        ProxProg = rs("MaxProg") + 1
    end if
    set rs = nothing
end function
ciao.


title: Incrementi non univoci, chiavi e altro

text:
> Il problema non č come farlo, puoi usare un dmax o una query, ma quando
> farlo.
> a mio avviso va fatto sull'evento after insert della maschera.
> in questo modo, l'utente lavora sul record senza il numero (o si potrebbe
> visualizzargli quello probabile...) fino al momento in cui passa ad
un'altro
> record o chiude la maschera, fino a a quando cioč non conferma
l'inserimento
> del record.
>
> potrebbe essere cosě:
>
>
> sub form_afterinsert
>     me.numero = ProxProg
> end sub
>
> function ProxProg () as long
>     dim Rs as recordset, SQL as string
>     SQL = "SELECT Max(tuaTabella.Progressivo) AS MaxProg FROM tuaTabella;"
>     set rs = currentdb.openrecordset(sql)
>     if nz(rs("MaxProg"),0) = 0 then
>         ProxProg = 1
>     else
>         ProxProg = rs("MaxProg") + 1
>     end if
>     set rs = nothing
> end function
>
> ciao.
>
>
>
Sei molto gentile. Ora provo a lavorarci ma purtoppo non posso farlo
sull'AfterInsert perchč il valore va visualizzato ad uso dell'ignaro utente.
Ora vedo. Potrei farlo come hai detto tu ed eventualmente farlo seguire da
un msgbox riportante il codice creato (che comprende il 'Progressivo').
A tra poco


title: Incrementi non univoci, chiavi e altro

text:
> Il problema non č come farlo, puoi usare un dmax o una query, ma quando
> farlo.
> a mio avviso va fatto sull'evento after insert della maschera.
> in questo modo, l'utente lavora sul record senza il numero (o si potrebbe
> visualizzargli quello probabile...) fino al momento in cui passa ad
un'altro
> record o chiude la maschera, fino a a quando cioč non conferma
l'inserimento
> del record.
>
> potrebbe essere cosě:
>
>
> sub form_afterinsert
>     me.numero = ProxProg
> end sub
>
> function ProxProg () as long
>     dim Rs as recordset, SQL as string
>     SQL = "SELECT Max(tuaTabella.Progressivo) AS MaxProg FROM tuaTabella;"
>     set rs = currentdb.openrecordset(sql)
>     if nz(rs("MaxProg"),0) = 0 then
>         ProxProg = 1
>     else
>         ProxProg = rs("MaxProg") + 1
>     end if
>     set rs = nothing
> end function
>
> ciao.
>
>
>
Ok, pare che funga... ora devo fare un pň di betatesting!
Grazie mille! Senza queste poche righe non avrei saputo come fare... Tra le
altre cose, odio l'SQL perchč non azzecco mai la sintassi corretta e mi si
pianta lě tutto


title: Problemi con  immissione parametro in una query a campi incrociati

author: Dino

text:
Ciao a tutti sono Dino.I problemi non finiscono mai.
Mi e' capitata questa problematica.Voglio filtrare una query a campi
incrociati selezionando il nome del cliente.
Normalmente con una query "semplice" vado nella riga criteri e nel
campo in esame "nome cliente"  scrivo  like[Inserire il nome del
cliente]. Quando lancio la query mi si presenta la finestra mobile di
immissione parametro e il gioco e' fatto.
Con la query a campi incrociati invece mi si presenta la segnalazione
"IL MODULO DI GESTIONE DATABASE MICROSOFT JET NON RICONOSCE ...ECC"
Come si puo' bypassare tale problema???
Grazie a tutti in anticipo
Dino


author: Cinzia

text:
"Dino" <
verreng...@alice.it
> ha scritto nel messaggio
news:cc321857-f14a-4544...@t54g2000hsg.googlegroups.com...

Ciao Dino,
aggiungi il Parametro nella lista dei Parametri indicandogli il Tipo,
Vai su Menu Query/Parametri
--
Cinzia [Office Access MVP]
_______________________

www.riolab.org
http://accessdaziacin.live.spaces.com
----------------------------------------


text:
On 21 Set, 20:44, "Cinzia" <
cinziapagani-no-spam_ple...@tiscali.it
>
wrote:
> "Dino" <
verrengia.d...@alice.it
> ha scritto nel messaggionews:cc321857-f14a-4544...@t54g2000hsg.googlegroups.com...

> ----------------------------------------- Nascondi testo citato
>
> - Mostra testo citato -
Ciao Cinzia Grazie per la risposta.ho gia' provato;mi da lo stesso
problema.
Grazie per la risposta.
Dino


author: Carlo Costarella

text:
"Dino" <
verreng...@alice.it
> ha scritto nel messaggio
news:cc321857-f14a-4544...@t54g2000hsg.googlegroups.com...

Nei parametri non devi inserire Like [Parametro] ma bensì solo quello che
era contenuto tra le quadre...non dimenticare il tipo di dati (testo,
numero, ecc.).
Questa operazione va fatta dopo aver selezionato il campo a cui attribuire
il parametro e a cui avrai impostato la formula su "Dove".
Ciao, Carlo


text:
On 22 Set, 08:55, "Carlo Costarella"
<
carloantoniocostare...@gmail.com
> wrote:
> "Dino" <
verrengia.d...@alice.it
> ha scritto nel messaggionews:cc321857-f14a-4544...@t54g2000hsg.googlegroups.com...

> Ciao, Carlo- Nascondi testo citato
>
> - Mostra testo citato -
Ciao Carlo grazie per la risposta.Il problema era dovuto ai parametri
della qcampiincrociati. Io mettevo DOVE ma non toglievo INTESTAZIONE
DI RIGA.
Ciao e grazie ancora.
NB:Posso chiederti gentilmente  di dare un occhiata al post
riguardante l'automatismo della scrittura dei campi nella subform???
Grazie ancora
Dino


title: Preventivo

author: Linux

text:
Funzionano alcune cose Grazie!!!
Ho comunque 3 quesiti:
1)    a cosa serve IDRiga?
2)    Come faccio a acquisire il prezzo degli articoli selezionati in
un'altra casella della sotto mascher, e fare il totale unico nella maschera
principale?
3)    mi Ri-Spieghi con parole più semplici questa parte?:
> a questo punto puoi crearti una maschera per la creazione dei preventivi
(la
> crei una volta sola!) che potrebbe essere del tipo maschera-sottomaschera
> dove la maschera avra' per origine dati la tabella "Preventivi" e la
> sottomaschera avra' come origine dati la tabella "PreventiviDettaglio".
> Per ovviare ad una maschera di ricerca potresti semplicemente creare nella
> sottomaschera una combobox associata al campo [IDArticolo] che abbia come
> origine dati una query che punti alla tabella "Articoli" e visualizzi le
> informazioni che ti interessano.
Grazie mille per l'aiuto...Ciao. Linux.
"Rob" <dg.rob[noSPam]@
libero.it
> ha scritto nel messaggio
news:EqN39.40396$n04.1...@twister2.libero.it...
>
> "Linux" <
gemcompu...@virgilio.it
> ha scritto nel messaggio
> news:BYM39.191922$vm5.6...@news2.tin.it...
> > Ho un'altra richiesta per i maghi di access...=D
> > allora, io devo creare un preventivo in base agli articoli che seleziono
> in
> > una maschera ricerca
> >
> > Esempio:
> >
> > Tabella Articoli:
> >
> > Id Articolo-----
> > Codice-------
> > Categoria---------
> > Descrizione------
> > Prezzo Fornitore---------
> > Prezzo iniziale----------
> > Sconto--------
> > Imponibile--------
> > I.V.A.-------------
> > Prezzo Ivato----------
> > Spese di trasporto---------
> > Spese di assemblaggio--------
> > Prezzo compreso trasporto e assemblaggio
> >
> > Maschera ricerca:
> >
> > Id articolo
> > Descrizione
> > Prezi vari ecc...
> >
> > da qui io dovrei creare un bottone che mi seleziona l'articolo che ho
> > cercato (quello visualizzato per intenderci) e inserirlo in una nuova
> > Maschera(praticamente ne crea una), da qui devo avere la possibilità di
> > cercare e di selezionare molti articoli (o solo uno) e inserirli nella
> nuova
> > maschera, creando così un preventivo.
> >
> > Nella nuova maschera creata però di default dev'esserci anche lo spazio
> per
> > mettere i dati del cliente, il numero del preventivo, e la data con il
> > conseguente importo parziale degli articoli e quello totale.
> >
> > E' una cosa possibile?
> > Come posso fare?
> >
> > La Maschera con la ricerca l' ho creata, e qui non ci sono problemi, ma
il
> > bottone, che mi crea la nuova maschera con le impostazioni predefinite e
> che
> > mi crea il preventivo non l'ho ancora fatto. Grazie a tutti e a chiunque
> > possa aiutarmi. Buone ferie per chi è in procinto di partire, e per chi
è
> > gia partito. Ciao. Gavino
> >
>
> Dovresti innanzitutto crearti una tabella "Preventivi":
> IDPreventivo
> IDCliente
> Data
> ...
>
> poi una tabella "PreventiviDattaglio"
> IDRiga
> IDPreventivo
> IDArticolo
> Quantita
> ....
> e successivamente relazioni il campo [IDPreventivo]-tabella
Preventivi(lato
> UNO)
> con il campo [IDPreventivo]-tabella Articoli (lato MOLTI)
>
> a questo punto puoi crearti una maschera per la creazione dei preventivi
(la
> crei una volta sola!) che potrebbe essere del tipo maschera-sottomaschera
> dove la maschera avra' per origine dati la tabella "Preventivi" e la
> sottomaschera avra' come origine dati la tabella "PreventiviDettaglio".
> Per ovviare ad una maschera di ricerca potresti semplicemente creare nella
> sottomaschera una combobox associata al campo [IDArticolo] che abbia come
> origine dati una query che punti alla tabella "Articoli" e visualizzi le
> informazioni che ti interessano.
>
> Mandi, Rob.
>
>


title: In un solo controllo di un report Fontweight diversi

author: MA

text:
Salve a tutti,
sto creando un report in cui nello stesso controllo finiscono due campi
diversi. Ora mi serve evidenziare il secondo campo. Per farlo lo mado
d'accapo, lo metto in maiuscolo e mi servirebbe o cambiare il colore o
scriverlo in grassetto o addiritura entrambi.
Per le prime due opzioni ho facilemnte risolto così
=[pippo] & Chr(13) & Chr(10) & UCase([pluto]), ma per le proprietà di
formattazione del campo pluto???
Esiste una soluzione?
Io nel mentre continuo a studiarmi la cosa.
Grazie
Massimiliano
--------------------------------
Inviato via
http://usenet.libero.it


text:
"MA" <
massimilia...@kksrl.com
> ha scritto nel messaggio
news:62Z94Z12Z126Y1...@usenet.libero.it...
> Salve a tutti,
> sto creando un report in cui nello stesso controllo finiscono due campi
> diversi. Ora mi serve evidenziare il secondo campo. Per farlo lo mado
> d'accapo, lo metto in maiuscolo e mi servirebbe o cambiare il colore o
> scriverlo in grassetto o addiritura entrambi.
> Per le prime due opzioni ho facilemnte risolto così
> =[pippo] & Chr(13) & Chr(10) & UCase([pluto]), ma per le proprietà di
> formattazione del campo pluto???
> Esiste una soluzione?
> Io nel mentre continuo a studiarmi la cosa.
> Grazie
> Massimiliano
>
>
Non credo con gli strumenti ordinari di Access.
Puoi ricorrere ad un controllo RichText che è liberamente distribuibile se
hai la versione Developer o VB.
Esiste anche un'altra soluzione che fà ricorso alle API di windows.
Per questo visita il sito di
www.lebans.com
Per esempio:
http://www.lebans.com/baseline.htm
oppure:
http://www.lebans.com/Report.htm
Ciao, Carlo


text:
Il 22 Mag 2003, 13:11, "Carlo Costarella"
<
carloantoni...@virgilio.it
> ha scritto:

Grazie ci do un'occhiata
MAssimiliano



title: funzione arrotondamento matematico

author: pfm

text:
salve

esiste una funzione VBA per l'arrotondamento matematico

ecco la definizione
L'arrotondamento al centesimo è effettuato con metodo matematico
in base al terzo decimale
(se il terzo decimale è minore o uguale a 4 si procede all'arrotondamento al centesimo per difetto; se il terzo decimale è uguale o superiore a 5 si procede all'arrotondamento per eccesso).

Round lo fa dal 5 i su


title: funzione arrotondamento matematico

text:
Facciamo pubblicità a Karl:
http://www.donkarl.com/it?FAQ2.1

@Alex


title: Domanda Difficile

author: Kris

text:
  Volevo sapere se è possibile dividere un database di access, e il file mdb
con le tabelle metterle su un server ftp oppure sullo spazio che ho per il
mio sito, e poterci accedere cosi da casa e dall'ufficio. Ho provato con il
server ftp ma non sono riuscito a farlo funzionare. Non è per caso che
qualcuno ha già affrontato il problema?????
Grazie per il vostro aiuto anticipatamente.

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


title: Domanda Difficile

author: Gaspare

text:
"Kris" <
kri...@libero.it
> ha scritto nel messaggio
news:81Z75Z218Z135Y1...@usenet.libero.it...

Ciao,
che vuol dire dividere un database? Forse considerare solo alcune tabelle
che costituiscono il tuo db?
Puoi uploadare tutto l'mdb e poi effettuare le operazioni di routine
(archivio, modifica, interrogazione etc...) tramite pagine web implementate
con un linguaggio di script come asp, php o (se è supportato)
asp.net
.
Tieni conto che determinati provider (come Aruba) ti mettono a disposizione
una cartella in remoto (../mdb-database) nel quale "sei costretto" ad
uploadare il tuo db (access): perchè ovviamente parliamo di access vero?
Gaspare


title: Domanda Difficile

text:
"Kris" <
kri...@libero.it
> ha scritto nel messaggio
news:81Z75Z218Z135Y1...@usenet.libero.it...

Cmq non è una domanda "difficile" ...più che altro [OT] penso...dovresti
chiedere un pò agli altri...
Gaspare


title: Domanda Difficile

author: ciroteo

text:
"Kris" <
kri...@libero.it
> ha scritto nel messaggio
news:81Z75Z218Z135Y1...@usenet.libero.it...

Più che altro il messaggio ha un oggetto assolutamente poco significativo!


title: Between..and

author: lostra

text:
Saluti a tutti, vorrei un suggerimento per risolvere il seguente problema:
Ho realizzato una query che ricerca i record di una tabella utilizzando l'
espressione in oggetto per delimitare il campo data, il risultato viene
visualizzato in un report, ora vorrei che nell'intestazione del report
venissero visualizzate le date immesse nei criteri della query.
E' possibile?
Grazie Aldo


title: Between..and

author: Antonio Biso

text:
lostra <
arn...@libero.it
> wrote in message
6l_18.7660$ly.2...@twister1.libero.it...

Fai così: crea la query senza mettere criteri e passala al report come
origine record.
Prepara una maschera ove inserire la data di inizio e la data di fine, nei
controlli Data_Da e Data_A. Al clic del pulsante fai
crit = "DATA between " & converti(Data_Da) & " AND " & converti(Data_A)
DoCmd.OpenReport "TuoReport", acViewPreview, , crit
Converti è una mia funzione per sistemare una data formato italiano gg-mm-aa
in quello americano circondato da #, usato dalla query cioè mm-gg-aa ed è
così:
Public Function converti(X As Date) As String
    Dim gg As String, mm As String
    gg = Left(X, 3)
    mm = Mid(X, 4, 3)
    converti = "#" & mm & gg & Right(X, 2) & "#"
End Function
In questo modo il report darà solo i record della data desiderata.
infine nell'evento open del report scriverai
Tit.caption = "Elenco dati dal " & form("TuaForm").Data_Da & " al " &
forms("TuaForm").Data_A
dove Tit è un'etichetta messa in testa al report.
Antonio


title: Evitare Lost-Focus

author: antcim

text:
Cordialita' a chi mi legge.
In una maschera per inserimento dati, la prima text_box deve
avere un dato obbligatorio. Ho una sub sul lost_focus della
medesima casella di testo che esegue egregiamente il controllo.
Il guaio:
Esegue il controllo (ovviamente) anche quando chiudo la
maschera. E' possibile bypassare la sub prima citata in uscita
dalla maschera..?
Grazie in anticipo
Antcim


title: Evitare Lost-Focus

author: Alessandro

text:
"antcim" <
gabriel...@virgilio.it
> wrote in message
news:jSZz8.87119$
vF6.2...@news2.tin.it

Imposta un Flag di Chiusura e leggilo all'inizio della Sub.
Ovviamente ti conviene pilotare la Chiusura con un Pulsante
dedicato:
Su evento Chiudi---->FlClose=True
Su evento Lost_Focus
If FlClose then Exit Sub
Quì fai eseguire la SUB di Lost_Focus....!
Alessandro.
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Evitare Lost-Focus

text:
Grazie Alessandro
Antcim
"Alessandro" <
ik2...@libero.it
> ha scritto nel messaggio
news:b85d93d12c202109c8...@mygate.mailgate.org...



title: Stampa e ricerca da una pagina di accesso dati (html)

author: Claudio Bedino

text:
Come da oggetto vorrei sapere come si può aggiungere un bottone (nel caso
della stampa) e un campo di ricerca (nel caso appunto della ricerca).
Per la prima è importante che venga stampato anche il contenuto di alcuni
form in cui è presente uno scroller.
Per la seconda deve effettuare una ricerca all'interno di tutti i record
presenti.
Grazie in anticipo a tutti.
Claudio Bedino
claudio...@avantee.com


title: Problema con istruzione IIf

text:
Ciao a tutti sono Dino ho questa problematica.In un report ho
impostato in un controllo un istruzione IIF che deve verificare 3
condizioni :
La prima deve essere solo "Bonifico"
La seconda puo' essere "Riba"o "RD a vista" 0 "RD"
La terza puo' essere "Riba"o "RD a vista" 0 "RD".
Se si verificano queste 3 condizioni il risultato e' la Banca
d'appoggio altrimenti null.
Ad esempio se inserisco  "Bonifico" Bonifico"e"RD"  mi dovrebbe dare
null,invece mi da come risultato la Banca d'appoggio.Di seguito vi
riporto la sintassi del controllo.
=IIf([Pagamento]="Bonifico" And [Descrizione pagamento effettivo2]
="Riba" Or "RD a vista" Or "RD" And [Descrizione pagamento effettivo3]
="Riba" Or "RD a vista" Or "RD";[Banca d'appoggio];"")
Secondo voi dove e' l'errore???
Grazie in anticipo Dino
Come vedete dall'istruzione


title: Problema con istruzione IIf

author: Bruno Campanini

text:
"Dino" <
verreng...@alice.it
> wrote in message
news:20021fb1-2ebe-4bb6...@k8g2000yqn.googlegroups.com...

Prima spiega che cosa significano:
     "Riba"o "RD a vista" 0 "RD"
     "Riba"o "RD a vista" 0 "RD"
     "Bonifico" Bonifico"e"RD"
Bruno


title: Problema con istruzione IIf

text:
On 21 Mag, 17:25, "Bruno Campanini" <
B...@gmail.com
> wrote:
> "Dino" <
verrengia.d...@alice.it
> wrote in message

> Bruno- Nascondi testo citato
>
> - Mostra testo citato -
Ciao Bruno grazie per la risposta.
Ti ho scritto la sintassi corretta del controllo.Ad ogni modo  in due
di queste condizioni il testo puo' essere o "Riba"o "RD a vista" 0
"RD"e' per questo che ho inserito operatore OR.
Volevo fare una precisazione. Ho parlato di istruzione If. In realta'
sto usando la funzione IIf,ma il concetto non cambia.
Grazie Dino


title: Problema con istruzione IIf

author: Giovanni

text:
"Dino" <
verreng...@alice.it
> ha scritto nel messaggio
news:20021fb1-2ebe-4bb6...@k8g2000yqn.googlegroups.com...

Prova un p� cos�:
=IIf(([Pagamento]="Bonifico") And ([Descrizione pagamento effettivo2]"Riba"
Or [Descrizione pagamento effettivo2]="RD a vista" Or [Descrizione pagamento
effettivo2]="RD") And ([Descrizione pagamento effettivo3]="Riba" Or
[Descrizione pagamento effettivo3]="RD a vista" Or [Descrizione pagamento
effettivo3]="RD");[Banca d'appoggio];"")
Ciao


title: Problema con istruzione IIf

text:
"Dino" <
verreng...@alice.it
> wrote in message
news:c035c6d5-e6fd-46c4...@e21g2000yqb.googlegroups.com...
Ciao Bruno grazie per la risposta.
Ti ho scritto la sintassi corretta del controllo.Ad ogni modo  in due
di queste condizioni il testo puo' essere o "Riba"o "RD a vista" 0
"RD"e' per questo che ho inserito operatore OR.
Volevo fare una precisazione. Ho parlato di istruzione If. In realta'
sto usando la funzione IIf,ma il concetto non cambia.
Grazie Dino
------------------------------------------
[...]
di queste condizioni il testo puo' essere o "Riba"o "RD a vista" 0
"RD"e' per questo che ho inserito operatore OR.
Nella prima delle due righe che ho riportato, l'ultimo
carattere di destra � 0 (ZERO).
Devesi invece leggere come la lettera "o"?
Bruno


title: Problema con istruzione IIf

text:
On 21 Mag, 17:53, "Giovanni" <
artigli...@deejaymail.it
> wrote:
> "Dino" <
verrengia.d...@alice.it
> ha scritto nel messaggionews:20021fb1-2ebe-4bb6...@k8g2000yqn.googlegroups.com...
>
>
>
>
>
> > Ciao a tutti sono Dino ho questa problematica.In un report ho
> > impostato in un controllo un istruzione IIF che deve verificare 3
> > condizioni :
> > La prima deve essere solo "Bonifico"
> > La seconda puo' essere "Riba"o "RD a vista" 0 "RD"
> > La terza puo' essere "Riba"o "RD a vista" 0 "RD".
> > Se si verificano queste 3 condizioni il risultato e' la Banca
> > d'appoggio altrimenti null.
> > Ad esempio se inserisco  "Bonifico" Bonifico"e"RD"  mi dovrebbe dare
> > null,invece mi da come risultato la Banca d'appoggio.Di seguito vi
> > riporto la sintassi del controllo.
> > =IIf([Pagamento]="Bonifico" And [Descrizione pagamento effettivo2]
> > ="Riba" Or "RD a vista" Or "RD" And [Descrizione pagamento effettivo3]
> > ="Riba" Or "RD a vista" Or "RD";[Banca d'appoggio];"")
>
> > Secondo voi dove e' l'errore???
> > Grazie in anticipo Dino
>
> Prova un pò così:
>
> =IIf(([Pagamento]="Bonifico") And ([Descrizione pagamento effettivo2]"Riba"
> Or [Descrizione pagamento effettivo2]="RD a vista" Or [Descrizione pagamento
> effettivo2]="RD") And ([Descrizione pagamento effettivo3]="Riba" Or
> [Descrizione pagamento effettivo3]="RD a vista" Or [Descrizione pagamento
> effettivo3]="RD");[Banca d'appoggio];"")
>
> Ciao- Nascondi testo citato
>
> - Mostra testo citato -
Gio grazie mille funziona tutto correttamente.


title: Problema con istruzione IIf

text:
On 21 Mag, 17:59, "Bruno Campanini" <
B...@gmail.com
> wrote:
> "Dino" <
verrengia.d...@alice.it
> wrote in message

> carattere di destra è 0 (ZERO).
> Devesi invece leggere come la lettera "o"?
>
> Bruno
Bruno grazie per la risposta.Il mio era ovviamente un errore di
battuta.In realta' volevo tradurre Or in italiano(siamo un po'
campanilisti).
Ho comunque risolto con Giovanni.Era un problema di sintassi.Eh
passano gli anni e le cose che ti "fregano" informaticamente parlando
sono sempre le stesse.
Dino


title: Problema con istruzione IIf

text:
"Dino" <
verreng...@alice.it
> ha scritto nel messaggio
news:5f0d44ee-60d8-4d27...@l12g2000yqo.googlegroups.com...
On 21 Mag, 17:53, "Giovanni" <
artigli...@deejaymail.it
> wrote:
> "Dino" <
verrengia.d...@alice.it
> ha scritto nel
> messaggionews:20021fb1-2ebe-4bb6...@k8g2000yqn.googlegroups.com...
>
>
>
>
>
> > Ciao a tutti sono Dino ho questa problematica.In un report ho
> > impostato in un controllo un istruzione IIF che deve verificare 3
> > condizioni :
> > La prima deve essere solo "Bonifico"
> > La seconda puo' essere "Riba"o "RD a vista" 0 "RD"
> > La terza puo' essere "Riba"o "RD a vista" 0 "RD".
> > Se si verificano queste 3 condizioni il risultato e' la Banca
> > d'appoggio altrimenti null.
> > Ad esempio se inserisco "Bonifico" Bonifico"e"RD" mi dovrebbe dare
> > null,invece mi da come risultato la Banca d'appoggio.Di seguito vi
> > riporto la sintassi del controllo.
> > =IIf([Pagamento]="Bonifico" And [Descrizione pagamento effettivo2]
> > ="Riba" Or "RD a vista" Or "RD" And [Descrizione pagamento effettivo3]
> > ="Riba" Or "RD a vista" Or "RD";[Banca d'appoggio];"")
>
> > Secondo voi dove e' l'errore???
> > Grazie in anticipo Dino
>
> Prova un p� cos�:
>
> =IIf(([Pagamento]="Bonifico") And ([Descrizione pagamento
> effettivo2]"Riba"
> Or [Descrizione pagamento effettivo2]="RD a vista" Or [Descrizione
> pagamento
> effettivo2]="RD") And ([Descrizione pagamento effettivo3]="Riba" Or
> [Descrizione pagamento effettivo3]="RD a vista" Or [Descrizione pagamento
> effettivo3]="RD");[Banca d'appoggio];"")
>
> Ciao- Nascondi testo citato
>
> - Mostra testo citato -
>Gio grazie mille funziona tutto correttamente.
De Nada


title: problema con now

author: Lucio Lovato

text:
salve,
nella mia tabella ho il campo DataRichiamare e OraRichiamare, ho creato una
query per ricercare solo i record di oggi inserendo nei criteri di
DataRichiamare l'istruzione Date(), fin qui tutto bene. Poi nella
OraRichiamare volevo inserire l'istruzione per selezionare solo i record
scaduti in questo momento e nei criteri del campo OraRichiamare ho inserito
now(). Non funziona nella tabella entrambi i campi hanno formato data.
Potete aiutarmi, grazie
un saluto a tutti


title: problema con now

author: MikyArt

text:
La funzione Date() restituisce effettivamente la data corrente del sistema
(gg/mm/aa); la funzione Now() restituisce la data e l'ora corrente del
sistema (gg/mm/aa hh.mm.ss); la funzione Time() restituisce l'ora corrente
del sistema (hh.mm.ss). Non ho ben capito se ti servono anche i secondi
comunque nel caso non ti servissero utilizza Format(Time(), "hh:nn").
N.B. ricorda di sostituire le virgole con il punto e virgola nel caso in cui
utilizzi tali funzioni in SQL.
Ciao, MikyArt.
Lucio Lovato <
luc...@keycomm.it
> wrote in message
8jg31f$3mu$1...@geronimo.keycomm.it...



title: problema con now

author: Paolo Ballarin

text:
Prova a correggere l'istruzione now() con la seguente :
<Format(Now();"hh:nn")
Lucio Lovato <
luc...@keycomm.it
> wrote in message
news:8jg31f$3mu$1...@geronimo.keycomm.it...



title: problema con now

text: grazie