title: Problemi con cambio stampante per invio fax o creazione pdf

author: Progetto Uno

text:
S.O. WinXP, Microsoft Access 2000.
Non funziona in nessuno dei due casi di cambio stampante nella funzione Test
.... perchè ? (vedi codice sottostante)
Grazie a chiunque volesse aiutarmi.
    Ciao da Mauro
Private Const GMEM_MOVEABLE As Long = &H2
Private Const GMEM_DDESHARE As Long = &H2000
Private Const GMEM_ZEROINIT As Long = &H40
Private Const GHND As Long = (GMEM_MOVEABLE Or GMEM_DDESHARE Or
GMEM_ZEROINIT)
Private Const CF_TEXT = 1
Private Const MAXSIZE = 4096
Private Const MAX_SIZE = 255
Private Const MAX_SECTION = 2048
Private Declare Function aht_apiGetPrivateProfileInt Lib "kernel32" Alias
"GetPrivateProfileInt" (ByVal strAppName As String, ByVal strKeyName As
String, ByVal intDefault As Integer, ByVal strFileName As String) As Integer
Private Declare Function aht_apiGetPrivateProfileString Lib "kernel32" Alias
"GetPrivateProfileStringA" (ByVal strAppName As String, ByVal strKeyName As
String, ByVal strDefault As String, ByVal strReturned As String, ByVal
lngSize As Long, ByVal strFileName As String) As Long
Private Declare Function aht_apiGetProfileString Lib "kernel32" Alias
"GetProfileStringA" (ByVal strAppName As String, ByVal strKeyName As String,
ByVal strDefault As String, ByVal strReturned As String, ByVal lngSize As
Long) As Long
Private Declare Function aht_apiGetProfileInt Lib "kernel32" Alias
"GetProfileInt" (ByVal strAppName As String, ByVal strKeyName As String,
ByVal intDefault As Integer) As Integer
Private Declare Function aht_apiGetProfileSection Lib "kernel32" Alias
"GetProfileSectionA" (ByVal lpAppName As String, ByVal lpReturnedString As
String, ByVal nSize As Long) As Long
Private Declare Function aht_apiGetPrivateProfileSection Lib "kernel32"
Alias "GetPrivateProfileSectionA" (ByVal lpAppName As String, ByVal
lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String)
As Long
Private Declare Function aht_apiWritePrivateProfileString Lib "kernel32"
Alias "WritePrivateProfileStringA" (ByVal strAppName As String, ByVal
strKeyName As String, ByVal strValue As String, ByVal strFileName As String)
As Integer
Private Declare Function aht_apiWriteProfileString Lib "kernel32" Alias
"WriteProfileStringA" (ByVal strAppName As String, ByVal strKeyName As
String, ByVal strValue As String) As Integer
Type aht_tagDeviceRec
   drDeviceName As String
   drDriverName As String
   drPort As String
End Type
Type aht_tagDEVMODE
   dmDeviceName(1 To 32) As Byte
   dmSpecVersion As Integer
   dmDriverVersion As Integer
   dmSize As Integer
   dmDriverExtra As Integer
   dmFields As Long
   dmOrientation As Integer
   dmPaperSize As Integer
   dmPaperLength As Integer
   dmPaperWidth As Integer
   dmScale As Integer
   dmCopies As Integer
   dmDefaultSource As Integer
   dmPrintQuality As Integer
   dmColor As Integer
   dmDuplex As Integer
   dmYResolution As Integer
   dmTTOption As Integer
   dmCollate As Integer
   dmFormName(1 To 32) As Byte
   dmLogPixels As Integer
   dmBitsPerPixel As Long
   dmPelsWidth As Long
   dmPelsHeight As Long
   dmDisplayFlags As Long
   dmDisplayFrequency As Long
   dmICMMethod As Long
   dmICMIntent As Long
   dmMediaType As Long
   dmDitherType As Long
   dmICCManufacturer As Long
   dmICCModel As Long
   dmDriverExtraBytes(1 To 1024) As Byte
End Type
Type aht_tagDEVMODEStr
   DMStr As String * 1024
End Type
Type aht_tagDEVNAMES
   dnDriverOffset As Integer
   dnDeviceOffset As Integer
   dnOutputOffset As Integer
   dnDefault As Integer
End Type
Type aht_tagDEVNAMEStr
   DNStr As String * 4
End Type
Type aht_tagMIP
   xLeftMargin As Long
   yTopMargin As Long
   xRightMargin As Long
   yBotMargin As Long
   fDataOnly As Long
   xFormSize As Long
   yFormSize As Long
   fDefaultSize As Long
   cxColumns As Long
   xFormSpacing As Long
   yFormSpacing As Long
   radItemOrder As Long
   fFastPrinting As Long
   fDataSheet As Long
End Type
Type aht_tagMIPSTR
   MIPStr As String * 28
End Type
Public Function Test(StampanteSelezionata As Integer, Funzione As Integer)
    Dim StampAttuale As String
    Dim TipoStampante As String
    Select Case StampanteSelezionata
        Case 1
            TipoStampante = "WinFax"
        Case 2
            TipoStampante = "PDF995"
    End Select
    Select Case Funzione
        Case 1
            StampAttuale = GetDefaultPrinter()
            If SetDefaultPrinter(Nz(TipoStampante, "")) = False Then Exit
Function
            MsgBox "Stampante predefinita: " & StampAttuale & vbCrLf &
"Stampante selezionata : " & GetDefaultPrinter()
            DoCmd.RunCommand acCmdPrint
            Call SetDefaultPrinterEx(StampAttuale)
        Case 2
            StampAttuale = GetDefaultPrinter()
            StampAttuale = Left(StampAttuale, InStr(1, StampAttuale, ",",
vbTextCompare) - 1)
            If SetDefaultPrinter2(Nz(TipoStampante, "")) = False Then Exit
Function
            MsgBox "Stampante predefinita: " & StampAttuale & vbCrLf &
"Stampante selezionata : " & GetDefaultPrinter()
            DoCmd.RunCommand acCmdPrint
            Call SetDefaultPrinter2(StampAttuale)
    End Select
End Function
Function ahtGetDefaultPrinter(dr As aht_tagDeviceRec) As Boolean
    Dim strBuffer As String
    strBuffer = ahtGetINIString("Windows", "Device")
    If Len(strBuffer) > 0 Then
        With dr
            .drDeviceName = ahtGetToken(strBuffer, ",", 1)
            .drDriverName = ahtGetToken(strBuffer, ",", 2)
            .drPort = ahtGetToken(strBuffer, ",", 3)
        End With
        ahtGetDefaultPrinter = True
    Else
        ahtGetDefaultPrinter = False
    End If
End Function
Function ahtSetDefaultPrinter(dr As aht_tagDeviceRec) As Boolean
   Dim strBuffer As String
   strBuffer = dr.drDeviceName & ","
   strBuffer = strBuffer & dr.drDriverName & ","
   strBuffer = strBuffer & dr.drPort
   ahtSetDefaultPrinter = (aht_apiWriteProfileString("Windows", "Device",
strBuffer) <> 0)
End Function
Function ahtFillPrinterList(Ctl As Control, varID As Variant, varRow As
Variant, varCol As Variant, varCode As Variant)
    Static atagDevices() As aht_tagDeviceRec
    Static intCount As Integer
    Dim varRetval As Variant
    Select Case varCode
        Case acLBInitialize
            intCount = ahtGetPrinterList(atagDevices())
            varRetval = True
        Case acLBOpen
            varRetval = Timer
        Case acLBGetRowCount
            varRetval = intCount
        Case acLBGetColumnCount
            varRetval = 1
        Case acLBGetValue
            varRetval = atagDevices(varRow + 1).drDeviceName & " on " &
atagDevices(varRow + 1).drPort
       Case acLBEnd
            Erase atagDevices
    End Select
    ahtFillPrinterList = varRetval
End Function
Function ahtGetPrinterList(atagDevices() As aht_tagDeviceRec) As Integer
    Dim astrPrinters() As String
    Dim intCount As Integer
    Dim varPrinters As Variant
    varPrinters = ahtGetProfileSection("DEVICES")
    If Len(varPrinters & "") = 0 Then
        ahtGetPrinterList = 0
    Else
        intCount = GetDevices(varPrinters, atagDevices())
    End If
    ahtGetPrinterList = intCount
End Function
Private Function GetDevices(ByVal strPrinters As String, atagDevices() As
aht_tagDeviceRec) As Integer
    Dim intI As Integer
    Dim strBuffer As String
    Dim intCount As Integer
    For intI = 1 To Len(strPrinters)
        If Mid$(strPrinters, intI, 1) = Chr$(0) Then
            intCount = intCount + 1
        End If
    Next intI
    ReDim atagDevices(1 To intCount)
    For intI = 1 To intCount
        strBuffer = ahtGetToken(strPrinters, Chr$(0), intI)
        atagDevices(intI).drDeviceName = ahtGetToken(strBuffer, "=", 1)
        strBuffer = ahtGetToken(strBuffer, "=", 2)
        atagDevices(intI).drDriverName = ahtGetToken(strBuffer, ",", 1)
        atagDevices(intI).drPort = ahtGetToken(strBuffer, ",", 2)
    Next intI
    GetDevices = intCount
End Function
Function ahtGetINIInt(ByVal strGroup As String, ByVal strItem As String) As
Variant
    ahtGetINIInt = aht_apiGetProfileInt(strGroup, strItem, -1)
End Function
Function ahtGetINIString(ByVal strGroup As String, ByVal strItem As String)
As Variant
    Dim intChars As Integer
    Dim strBuffer As String
    strBuffer = String(MAX_SIZE, 0)
    intChars = aht_apiGetProfileString(strGroup, strItem, "", strBuffer,
MAX_SIZE)
    ahtGetINIString = Left(strBuffer, intChars)
End Function
Function ahtGetPrivateINIInt(ByVal strGroup As String, ByVal strItem As
String, ByVal strFile As String) As Variant
    ahtGetPrivateINIInt = aht_apiGetPrivateProfileInt(strGroup, strItem, -1,
strFile)
End Function
Function ahtGetPrivateIniString(ByVal strGroup As String, ByVal strItem As
String, ByVal strFile As String) As Variant
    Dim intChars As Integer
    Dim strBuffer As String
    strBuffer = String(MAX_SIZE, 0)
    intChars = aht_apiGetPrivateProfileString(strGroup, strItem, "",
strBuffer, MAX_SIZE, strFile)
    ahtGetPrivateIniString = Left(strBuffer, intChars)
End Function
Function ahtGetProfileSection(ByVal strGroup As String) As Variant
    Dim strBuffer As String
    Dim intCount As Integer
    strBuffer = Space(MAX_SECTION)
    intCount = aht_apiGetProfileSection(strGroup, strBuffer, MAX_SECTION)
    ahtGetProfileSection = Left(strBuffer, intCount)
End Function
Function ahtGetPrivateProfileSection(ByVal strGroup As String, ByVal strFile
As String) As Variant
    Dim strBuffer As String
    Dim intCount As Integer
    strBuffer = Space(MAX_SECTION)
    intCount = aht_apiGetPrivateProfileSection(strGroup, strBuffer,
MAX_SECTION, strFile)
    ahtGetPrivateProfileSection = Left(strBuffer, intCount)
End Function
Function ahtGetToken(ByVal strValue As String, ByVal strDelimiter As String,
ByVal intPiece As Integer) As Variant
    Dim intPos As Integer
    Dim intLastPos As Integer
    Dim intNewPos As Integer
    On Local Error GoTo ahtGetTokenExit
    strDelimiter = Left(strDelimiter, 1)
    If (InStr(strValue, strDelimiter) = 0) Or (intPiece <= 0) Then
        ahtGetToken = strValue
    Else
        intPos = 0
        intLastPos = 0
        Do While intPiece > 0
            intLastPos = intPos
            intNewPos = InStr(intPos + 1, strValue, strDelimiter)
            If intNewPos > 0 Then
                intPos = intNewPos
                intPiece = intPiece - 1
            Else
                intPos = Len(strValue) + 1
                Exit Do
            End If
        Loop
        If intPiece > 1 Then
           ahtGetToken = Null
        Else
           ahtGetToken = Mid$(strValue, intLastPos + 1, intPos -
intLastPos - 1)
        End If
    End If
ahtGetTokenExit:
    Exit Function
ahtGetTokenErr:
    MsgBox "Error in ahtGetToken: " & Error & " (" & Err & ")"
    Resume ahtGetTokenExit
End Function
Function SetDefaultPrinter(ByVal NomeStampante As String) As Boolean
    Dim atagDevices() As aht_tagDeviceRec
    Dim intCount As Integer, I As Long, ok As Boolean
    SetDefaultPrinter = False
    intCount = ahtGetPrinterList(atagDevices())
    If intCount = 0 Then
        Exit Function
    End If
    For I = LBound(atagDevices) To UBound(atagDevices)
        If atagDevices(I).drDeviceName = NomeStampante Then
            ok = ahtSetDefaultPrinter(atagDevices(I))
            SetDefaultPrinter = ok
            Exit For
        End If
    Next I
End Function
Public Function SetDefaultPrinter2(s As String) As Boolean
On Error GoTo Esci
    Dim WshNetwork As Object
    If s = "" Then GoTo Esci
    Set WshNetwork = CreateObject("WScript.Network")
        WshNetwork.SetDefaultPrinter (s)
        DoEvents
    Set WshNetwork = Nothing
    SetDefaultPrinter2 = True
    Exit Function
Esci:
    SetDefaultPrinter2 = False
End Function
Public Function GetDefaultPrinter() As String
    Dim X As Long, szTmp As String, dwBuf As Long
    On Local Error GoTo GestErr
    GetDefaultPrinter = ""
    dwBuf = 1024
    szTmp = Space(dwBuf + 1)
    X = aht_apiGetProfileString("windows", "device", "", szTmp, dwBuf)
    GetDefaultPrinter = Trim(Left(szTmp, X))
    Exit Function
GestErr:
    MsgBox "Errore in GetDefaultPrinter: " & Err.Description & " (" &
Err.Number & ")", vbCritical
End Function
Public Function SetDefaultPrinterEx(ByVal sDeviceInfo As String) As Long
    On Local Error GoTo GestErr
    SetDefaultPrinterEx = aht_apiWriteProfileString("windows", "device",
sDeviceInfo)
    Exit Function
GestErr:
    MsgBox "Errore in SetDefaultPrinterEx: " & Err.Description & " (" &
Err.Number & ")", vbCritical
End Function


author: Roberto da casa

text:
"Progetto Uno" <
proget...@email.it
> ha scritto nel messaggio
news:QD%de.79402$IN.13...@twister2.libero.it...

Onestamente non me la sono sentita, o meglio non ho avuto voglia di
spulciare tutto il tuo codice VBA.
Se però il tuo problema è quello di modificare da codice VBA la stampante
predefinita, vai sul Sito Comune (link qui sotto) e nella Sezione General
leggi la FAQ di Carlo Costarella e Lorenzo Coronati intitolata "6.66 Gestire
la stampante predefinita" (6.66 ? Ma questa è la FAQ del diavolo :-) ).
Se poi devi inviare un fax da VBA leggi nella Sezione General del Sito
Comune le seguenti FAQ:
1) 6.65 Inviare Fax da MSAccess di Giorgio Valsangiacomo
2) 6.111 Inviare da VBA per FAX una copertina e/o un file usando SDK di
WinFax PRO 10.0 di Symantec
3) 6.112 Inviare da VBA una copertina e/o un report per FAX usando WinFax
PRO 10.0 di Symantec
4) 6.131 Inviare da VBA uno o più file per fax usando FaxServer di Windows
XP di Sergio MAZZA
Se invece il tuo problema è ottenere file PDF da un report vai sul Sito
Comune e nella Sezione Reports leggi la FAQ di Walter Negrinelli intitolata
"4.21 Esportare un report in un file PDF".
--
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------


title: come spaziare una data..

author: GM

text:
salve.. in un report ho un campo =Data() che deve entrare nelle
caselline di un foglio
prestampato...nel Formato ho inserito gg mm aa tutto ok fin qui...
ma a me servirebbe che fossero g g m m a a ...
ho già provato con il carattere Courier, ed ho già provato ad inserire
gli @ @
ma non esce bene il formato data... come posso fare ??
Pino


title: come spaziare una data..

author: MA

text:

trasformali in stringa cstr(tuadata) e poi formatti con @ @
--
--
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana Sviluppatori Access
Segrate (MI), 7-8 giugno 2007


title: come spaziare una data..

text:
"MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
news:f6i9m1$mmg$1...@tdi.cu.mi.it...
GM wrote:
> salve.. in un report ho un campo =Data() che deve entrare nelle
> caselline di un foglio
> prestampato...nel Formato ho inserito gg mm aa tutto ok fin qui...
> ma a me servirebbe che fossero g g m m a a ...
> ho già provato con il carattere Courier, ed ho già provato ad inserire
> gli @ @
> ma non esce bene il formato data... come posso fare ??
> Pino
trasformali in stringa cstr(tuadata) e poi formatti con @ @
---------------------
perdona la mia ignoranza...mi spieghi coma faccio a trasformare in
stringa cstr ??
grazie


title: come spaziare una data..

text:

ci metti cstr(Tuadata)



title: come spaziare una data..

text:
"MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
news:f6ii72$2rm$1...@tdi.cu.mi.it...
GM wrote:
> trasformali in stringa cstr(tuadata) e poi formatti con @ @
> ---------------------
> perdona la mia ignoranza...mi spieghi coma faccio a trasformare in
> stringa cstr ??
> grazie
ci metti cstr(Tuadata)
--------------------
Cia Ma... ho provato...in Formato ho inserito cstr(g g m m a a )
ma mi escono numerio strani come 70tr(6 6 7 7 187 187)
provato altri modi ... nulla ... cmq come inserisco cstr me lo trasforma
in cs"tr".
Ciao


title: come spaziare una data..

text:

no,
cstr(tuadata) e hai una stringa
poi vai nel formato del controllo e spazi con le @



title: come spaziare una data..

text:
"MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
news:f6kvsi$cos$1...@tdi.cu.mi.it...
GM wrote:
> Cia Ma... ho provato...in Formato ho inserito cstr(g g m m a a )
> ma mi escono numerio strani come 70tr(6 6 7 7 187 187)
> provato altri modi ... nulla ... cmq come inserisco cstr me lo
> trasforma in cs"tr".
> Ciao
no,
cstr(tuadata) e hai una stringa
poi vai nel formato del controllo e spazi con le @
-------------
scusami Massimiliano, abbi un pň di pazienza... sono di coccio..
ma la stringa cstr(miadata???) dove la devo inserire, in Origine
controllo ???
l'ho fatto ed esce Cstr=([Data])
e mettendo gli @  poi esce errore..
Ciao e grazie


title: come spaziare una data..

text:
GM wrote:
> "MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
> news:f6kvsi$cos$1...@tdi.cu.mi.it...
> GM wrote:
>
>> Cia Ma... ho provato...in Formato ho inserito cstr(g g m m a a )
>> ma mi escono numerio strani come 70tr(6 6 7 7 187 187)
>> provato altri modi ... nulla ... cmq come inserisco cstr me lo
>> trasforma in cs"tr".
>> Ciao
> no,
> cstr(tuadata) e hai una stringa
> poi vai nel formato del controllo e spazi con le @
> -------------
> scusami Massimiliano, abbi un pò di pazienza... sono di coccio..
> ma la stringa cstr(miadata???) dove la devo inserire, in Origine
> controllo ???
> l'ho fatto ed esce Cstr=([Data])
> e mettendo gli @  poi esce errore..
> Ciao e grazie
L'errore sta nell'aver usato una parola riservata da access
Mettilo cmq nella select della form



title: come spaziare una data..

author: GiacoXp

text: E cioè cosa è la select form ?


title: come spaziare una data..

text:
GiacoXp wrote:
> E cioè cosa è la select form ?
Se vai nell propietà della form (maschera) trovi
Origine
lì o trovi il nome della tabella/query oppurre puoi comporre tu la query origine della form



title: come spaziare una data..

text:
"MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
news:f6slm2$pf6$1...@tdi.cu.mi.it...
GM wrote:
>> Cia Ma... ho provato...in Formato ho inserito cstr(g g m m a a )
>> ma mi escono numerio strani come 70tr(6 6 7 7 187 187)
>> provato altri modi ... nulla ... cmq come inserisco cstr me lo
>> trasforma in cs"tr".
>> Ciao
> no,
> cstr(tuadata) e hai una stringa
> poi vai nel formato del controllo e spazi con le @
> -------------
> l'ho fatto ed esce Cstr=([Data])
> e mettendo gli @  poi esce errore..
> Ciao e grazie
L'errore sta nell'aver usato una parola riservata da access
Mettilo cmq nella select della form
------------------
Ciao Massimiliano... ho risloto cosě inserendo questa funzione in un
modulo
ed usando nel report... =addSpace(Format(Now();"gg mm aa"))
che ne dici ???
Ciao
Function addSpace(valore As String)
    Dim tmp As String
    For i = 1 To Len(valore)
        addSpace = addSpace + Mid(valore, i, 1) + " "
    Next
End Function


title: come spaziare una data..

text:
GM wrote:
> "MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
> news:f6slm2$pf6$1...@tdi.cu.mi.it...
> GM wrote:
>>> Cia Ma... ho provato...in Formato ho inserito cstr(g g m m a a )
>>> ma mi escono numerio strani come 70tr(6 6 7 7 187 187)
>>> provato altri modi ... nulla ... cmq come inserisco cstr me lo
>>> trasforma in cs"tr".
>>> Ciao
>> no,
>> cstr(tuadata) e hai una stringa
>> poi vai nel formato del controllo e spazi con le @
>> -------------
>> l'ho fatto ed esce Cstr=([Data])
>> e mettendo gli @  poi esce errore..
>> Ciao e grazie
> L'errore sta nell'aver usato una parola riservata da access
> Mettilo cmq nella select della form
> ------------------
>
> Ciao Massimiliano... ho risloto così inserendo questa funzione in un
> modulo
> ed usando nel report... =addSpace(Format(Now();"gg mm aa"))
> che ne dici ???
> Ciao
>
> Function addSpace(valore As String)
>    Dim tmp As String
>
>    For i = 1 To Len(valore)
>        addSpace = addSpace + Mid(valore, i, 1) + " "
>    Next
> End Function
Anche valore è una parola riservata
occhio a che non ti faccia brutti scherzi



title: problemi con run-time access

text:
Utilizzo access97 e ode97 (ode per la prima volta perchè ho sempre
distribuito su pc con access97) per ovviare al problema db in access 97 e pc
con access2000 visto il disastro della conversione .....
Al di la del fatto che non sono sicura che installando run-time 97 su pc
access 2000 non crei disastri e tutto funzioni regolarmente ho problemi con
il setup wizard dell'ODE.
1. Creando il cd di installazione si apre una finestra find file (in
inglese, come ODE) che cerca il file VBA3EN.DLL
che è sul cd office97, il problema è che nonostante il sistema sia impostato
per visualizzare tutti i file (anche nascosti e di sistema) dalla finestra
find file impostando l'opzione tutti i file (anzichè application file di
default) vengono visualizzati tutti i tipi di file tranne i *.dll.....,
mentre da gestione risorse e trova di windows si vedono tutti
2. Rinomino il file .dll in .txt (così a caso per vedere se lo vede ed
infatti è così) e lo accetta (non sò comunque se è corretto fare una cosa
del genere o se poi non funziona niente!!), quindi cerca un'altro file
mrt7enu.dll che non esiste ne nel sistema, ne nel cd ode o office97...come è
possibile che richieda un file che non ho?
Grazie per l'aiuto spero che riuscirete ad evitarmi un lavoraccio di
conversione che non so se vale la pena fare...
Ciao Laura.


title: control.value da report

author: Remigio

text:
Ciao,
ho un report con un subreport.
Nel subreport vi sono alcuni campi, tra cui un checkbox.
Vorrei fare in modo che il subreport non fosse visibile nel caso il checkbox non è selezionato.
Ho provato in diversi modi, per es.

if me!cehckbox.value = 0 then
subreport.visible = false
end if

ma l'espressione me!cehckbox.value = 0 non viene accettata, sembra che non funzioni nei report.
Ho provato con maschera e sottomaschera e tutto funziona normalmente.
Come si può risolvere?
Grazie e saluti.

Remigio


title: control.value da report

author: Karl Donaubauer

text:
Remigio wrote:
> ho un report con un subreport.
> Nel subreport vi sono alcuni campi, tra cui un checkbox.
> Vorrei fare in modo che il subreport non fosse visibile nel caso il
> checkbox non � selezionato.
> Ho provato in diversi modi, per es.
>
> if me!cehckbox.value = 0 then
> subreport.visible = false
> end if
>
> ma l'espressione me!cehckbox.value = 0 non viene accettata, sembra
> che non funzioni nei report.
> Ho provato con maschera e sottomaschera e tutto funziona
> normalmente.

Strano che funziona in una maschera siccome dovresti
sempre usare la sintassi che riferisce il campo/controllo
nel sottooggetto (vedi:
http://www.donkarl.com/it?FAQ4.2
).

Inoltre non � chiaro dove hai usato questo codice.

Puoi p.e. provare questo nell'evento "Su formatazione"
della sezione, dove si trova il sottoreport:

Dim blnFlag As Boolean

blnFlag = Me!NomeSottoReport.Report!NomeCheckbox

Me!NomeSottoReport.Visible = blnFlag

--
Ciao
Karl
*********
Access FAQ:
http://www.donkarl.com/it


title: control.value da report

text:
Il giorno sabato 29 giugno 2013 01:05:22 UTC+2, Karl Donaubauer ha scritto:
> Remigio wrote:
>
> > ho un report con un subreport.
>
> > Nel subreport vi sono alcuni campi, tra cui un checkbox.
>
> > Vorrei fare in modo che il subreport non fosse visibile nel caso il
>
> > checkbox non è selezionato.
>
> > Ho provato in diversi modi, per es.
>
> >
>
> > if me!cehckbox.value = 0 then
>
> > subreport.visible = false
>
> > end if
>
> >
>
> > ma l'espressione me!cehckbox.value = 0 non viene accettata, sembra
>
> > che non funzioni nei report.
>
> > Ho provato con maschera e sottomaschera e tutto funziona
>
> > normalmente.
>
>
>
> Strano che funziona in una maschera siccome dovresti
>
> sempre usare la sintassi che riferisce il campo/controllo
>
> nel sottooggetto (vedi:
http://www.donkarl.com/it?FAQ4.2
).
>
>
>
> Inoltre non è chiaro dove hai usato questo codice.
>
>
>
> Puoi p.e. provare questo nell'evento "Su formatazione"
>
> della sezione, dove si trova il sottoreport:
>
>
>
> Dim blnFlag As Boolean
>
>
>
> blnFlag = Me!NomeSottoReport.Report!NomeCheckbox
>
>
>
> Me!NomeSottoReport.Visible = blnFlag
>
>
>
> --
>
> Ciao
>
> Karl
>
> *********
>
> Access FAQ:
http://www.donkarl.com/it

Ciao Karl,
grazie per la tua gentile risposta.
Ho usato questo codice nell'evento "su apertura" del subreport.
Volevo chiederti se nei report la sintassi per riferirsi agli oggetti è la stessa di quella delle maschere.
Un saluto.

Remigio


title: control.value da report

text:
...
è inutile, non riesco.
Avendo:

verbale - report principale
sr_fuori_setting - sottoreport

nel sr_fuori_setting c'è un checkbox chiamato "fuori_setting", se questo non è selezionato (= 0) allora sr_fuori_setting non si deve vedere, altrimenti deve essere visibile.
Come scrivere la funzione if?
Ciao e grazie.

Remigio


title: control.value da report

text:
Remigio wrote:
> Karl Donaubauer ha scritto:
>> ...
>> Puoi p.e. provare questo nell'evento "Su formatazione"
>> della sezione, dove si trova il sottoreport:
>>
>> Dim blnFlag As Boolean
>>
>> blnFlag = Me!NomeSottoReport.Report!NomeCheckbox
>>
>> Me!NomeSottoReport.Visible = blnFlag
> ...
> Ho usato questo codice nell'evento "su apertura" del subreport.
> Volevo chiederti se nei report la sintassi per riferirsi agli oggetti
> č la stessa di quella delle maschere.

Temo che non posso essere piů esatto di sopra dove ho
descritto l'evento e il codice. Hmm, forse se aggiungio

..."Su formatazione" della sezione _nel report principale_,
dove si trova il sottoreport...

?

--
Ciao
Karl
*********
Access FAQ:
www.donkarl.com/it


title: filtri multivalore

author: mario rossi

text:
Buongiorno a tutti, qualcuno da dirmi se access prevede la possibilità di fare filtri multivalore su una colonna come prevede excel

esempio (poter cliccare sia 2002 sia 2004 ottenendo 3 record)
nome  anno
-------------------
pippo  2002
pluto   2003
pippo  2004
pluto   2004
pippo  2005


title: filtri multivalore

author: Alex

text:
mario rossi <
tmtu...@gmail.com
> ha scritto:r
> Buongiorno a tutti, qualcuno da dirmi se access prevede la possibilità di fare filtri multivalore su una colonna come prevede excel esempio (poter cliccare sia 2002 sia 2004 ottenendo 3 record)nome  anno-------------------pippo  2002pluto   2003pippo  2004pluto   2004pippo  2005

Se predisponi le cose tu lo permette...

--
@Alex

----Android NewsGroup Reader----
https://piaohong.s3-us-west-2.amazonaws.com/usenet/index.html


title: filtri multivalore

text:

ho sempre usato filtri singoli oppure multivalore ma scritti in un unica casella di testo splittandoli con uno spazio vuoto
ma non ho mai fatto un filtro che mi permetta di cliccare multivalori fra quelli in elenco

un consiglio su come fare?


title: filtri multivalore

text:
> ho sempre usato filtri singoli oppure multivalore ma scritti in un unica casella di testo splittandoli con uno spazio vuoto
> ma non ho mai fatto un filtro che mi permetta di cliccare multivalori fra quelli in elenco
>
> un consiglio su come fare?

Non esiste nulla di nativo che puoi richiamare... devi costruirti tu l'interfaccia per operare in quel modo... non è complicato in linea di massima... ma è da costruire.
Io l'ho fatto usando una Maschera Popup in modalità maschere continue associata ad un RS ADO, popolato con i dati di una Query costruita per esporre l'elenco valori selezionabili.

Il RS ADO è perchè, non voglio usare tabelle Temporanee esterne, ho aggiunto un campo Boolean che consente l'associazione ad una CheckBox per la selezione dei criteri.
Poi per costruire la WHERE filtro il RS con solo i Selected e ciclo per costruire la stringa:
NomeCampo IN(Val1,Val4, Val6 ecc...)

Su Unload applico alla Form Chiamante sulla propretà Filter la WHERE ricavata.

Molto banale ma funziona bene.

@Alex


title: filtri multivalore

author: RobertoA

text:
Il 18/12/2020 08:52, @Alex ha scritto:
> Il RS ADO è perchè, non voglio usare tabelle Temporanee esterne

Questa non l'ho capita
Non bastava anche una form con dati presi da query dao?


title: filtri multivalore

text:

Roberto... ti manca l'immaginazione.
Se usassi una Query in una Form, questa non conterrebbe l'implementazione di un controllo CheckBox per la SELEZIONE dei criteri... non esiste nella Tabella di Origine.
Quindi per consentire le selezioni MultipleEstese, avrei solo 2 opzioni:
1) ListBox, ma in questo caso non mi piace esteticamente
2) TempTable con i campi della Query + il campo Selected, associo la Form alla TempTable e visualizzo le CheckBox di selezione accando ai Records

Come ho detto non mi piace usare la TempTable, è una considerazione personale basata sull'idea di non avere dipendenze da oggetti esterni o il meno possibile, quando realizzo maschere riutilizzabili.

Per aggirare la cosa uso un RS ADO in memoria che sostituisce la Tabella Temporanea, e che implementa il campo Booleano SELECTED, in questo modo dal Form visualizza i dati e mi consente di Selezionare.

@Alex


title: filtri multivalore

text:

l'idea mi sembra ottima ma non ho ben capito come  crei volante un campo boolean associato che resta memorizzato?

io avevo pensato di prevedere nativamente un campo selected proprio nella tabella principale e aprire una mascheda popop con origine record select distinct nomecampo, selected from miatabella order by id
e quando tolgono il filtro eseguo una query di aggiornamento che pone a 0 i campi selected a -1 della tabella di orgine
magari funziona anche il mio metodo, ma il tuo mi sembra migliore anche se non ho capito quel campo boolean come lo tieni memorizzato


title: filtri multivalore

text:
....
> io avevo pensato di prevedere nativamente un campo selected proprio nella tabella principale e aprire una mascheda popop con origine record select distinct nomecampo, selected from miatabella order by id
> e quando tolgono il filtro eseguo una query di aggiornamento che pone a 0 i campi selected a -1 della tabella di orgine
> magari funziona anche il mio metodo, ma il tuo mi sembra migliore anche se non ho capito quel campo boolean come lo tieni memorizzato

Non funziona il tuo metodo prova a riflettere...
La Tabella ha 10 Records... ma non è detto che siano 10 le condizioni da filtrare in base a quel campo...
Esempio:
Paolo Rossi
Paolo Bianchi
Roberto Rossi

Se volessi avere come elenco Opzioni i Cognomi, saresti a Raggruppare o ad usare una DISTINCTROW... credi che il campo Booleano nella Tabella sarebbe editabile...?
NO ovviamente, quindi non sarebbe fattibile.

La base di premessa da considerare è sermpre quella di far funzionare le cose a prescindere dal Tipo di Campo, quindi a prescindere dal FieldType...
Quindi "in teoria" la cosa è fattibile con una Tabella Temporanea... ma come definisci i campi...?
Se li metti tutti poi trasferisci il problema allo SWITCH del controlSource nella Form, oppure devi definire il campo come Stringa con i problemi poi di capire poi qual'era il DataType del campo iniziale.

Gestendo un RS invece la creazione della Tabella in memoria è dinamica, e se l'estrazione del RS lo fai con ADO, anche la creazione del Campo Dinamico è banale copia incolla del campo del RS originale... ed a mio avviso più comoda.
Si fa tutto con pochissime righe di codice

La gestione dei RS in memoria o non associato la trovi quì:
http://www.riolab.org/index.php?option=com_content&view=article&id=135:recordset-non-associati&catid=46:access&Itemid=69

@Alex


title: filtri multivalore

text:

ho optato per delle tabelle locali temporanee
esempio ho creato una tabella filtroAnno con 2 campi selected e anno
su click del filtro anno nella form elenco record una query accoda gli anni nella tabella filtroAnno che poi mi propone nella form popup
con un pulsante che crea in modo dinamico il filtro e lo applica alla form

un pulsante X se cliccato svuota la tabella filtroanno e impsta filterON = false

è una possibile strada


title: gestione remota..

author: Carry

text:
salve a tutti
avrei la necessità di utlizzare un database di access in romoto,
precisamente un db che si trova su un server web.
vorrei evitare di progettare l'interfaccia in asp per la gestione del db...
è possibile aprire un db che si trova ad esempio in:
www.xxx.com/dati/xxx.mdb
 ????
naturalmente il provider mi fornisce i permessi per accedere al db....
quali possibilità ho???
sono obbligato a usare asp???
grazie  atutti per l'attenzione
carry


title: gestione remota..

author: Massimo

text:
prova
Carry <
ca...@telvia.it
> wrote in message
8ujk7h$f0b$1...@fe2.cs.interbusiness.it...



title: gestione remota..

text:
"Massimo" <
ron...@tin.it
> ha scritto nel messaggio
news:8uk1gh$2u0$1...@fe2.cs.interbusiness.it...

Ti dispiace rispondere dopo la domanda?
--
Roberto
---------------------------------------------
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/
---------------------------------------------


title: gestione remota..

author: sib

text:
Carry <
ca...@telvia.it
> wrote in message
8ujk7h$f0b$1...@fe2.cs.interbusiness.it...
> avrei la necessità di utlizzare un database di access in romoto,
> precisamente un db che si trova su un server web.
>
> vorrei evitare di progettare l'interfaccia in asp per la gestione del
db...
>
> è possibile aprire un db che si trova ad esempio in:
>
>
www.xxx.com/dati/xxx.mdb
 ????
Ovviamente puoi farlo, in teoria. In pratica e' un'operazione molto
sconveniente in quanto Access, seppure piuttosto pratico e potente, non e'
progettato come db client/server, quindi, quando lo apri, ti spara tutto il
file mbd e non solo i recordset che selezioni. Puoi immagina re il
risultato, e' come fare continuamente un download.
Con ASP invece ricevi solo i recordset che richiedi con una diminuzione del
traffico imponente.
Ciao, Sib
--
------------------------------------------------------
il sito comune di it.comp.database.access:
http://members.xoom.it/it_db_access
------------------------------------------------------
4000 anni fa', il saggio egizio Ptahhotep scrisse:
"... perche' non esistono saggi per nascita."
------------------------------------------------------
Saturiamo ECHELON:
bomba saddam attentato medio oriente


title: testare se il file è già aperto

author: luciotisc

text:
In un applicazione apro un file di testo su hard disk con i comandi:
Open "c:\testo.txt" For Input As #2
Line Input #2, risultato
C'è la possibilità che questo file sia invece ancora aperto in output e, al
quel punto, mi va tutto in "confusione".
Dovrei testare, prima di aprire, se il file "c:\testo.txt" è già aperto per
l'output!!!
E' possibile in qualche modo?
Grazie per l'attenzione
Lucio


title: testare se il file è già aperto

author: giorgio rancati

text:
"luciotisc" <
luci...@tiscalinet.it
> ha scritto nel messaggio
news:cRfRd.38940$QG6.6...@twister2.libero.it...

Ciao Lucio,
Puoi aprire il file e bloccarlo per la scrittura
------------
Open "c:\testo.txt" For Input Access Read Lock Write As #1
-------------
Se il file è già aperto in scrittura ti verrà reso l'errore 70
Ciao Giorgio


title: testare se il file è già aperto

text:
"giorgio rancati" <
giorgio_No_Sp...@tiscali.it
> ha scritto nel
messaggio news:4215a09f$0$32352$5fc...@news.tiscali.it...
> Puoi aprire il file e bloccarlo per la scrittura
> ------------
> Open "c:\testo.txt" For Input Access Read Lock Write As #1
> -------------
> Se il file è già aperto in scrittura ti verrà reso l'errore 70
>
> Ciao Giorgio
Preciso....Preciso!
Funziona perfettamente.
Ti ringrazio, alla prossima
Lucio


title: Annullare inserimento record corrente

author: GS

text:
Ciao a tutti,
potete aiutarmi con questo problema?
ho una maschera continua, che lavora sulla tabella "righi", con i seguenti
campi : codice a barre, codice articolo, peso, lotto.
utilizzo un lettore di barcode in emulazione tastiera per come input del
campo "codice a barre"
Su evento Uscita del campo "codice a barre", estraggo e compilo
automaticamente gli altri campi e passo subito ad un nuovo record.
Alla fine ho creato un bottone "nuovo ordine" con il quale, archivio i dati
inseriti nella tabella "storicoRighi" e azzero la tabella "Righi" per un
nuovo input...    e fin qui tutto funziona bene
Adesso vorrei eliminare il bottone "nuovo ordine" (il cliente si lamenta che
deve usare il mouse ....) e ho pensato di stampare un codice a barre (es:
con la parola "fine"), sparando sul quale gli faccio eseguire
l'archiviazione e l'eliminazione...
Morale, mi servirebbe sapere come annullare l'inserimento del record
corrente...
Scusate se sono stato lungo......
Grazie anticipatamente
GS


title: Annullare inserimento record corrente

author: Cosimo S,

text:

cioè l'ultimo ?
me.undo


title: Annullare inserimento record corrente

text:
"Cosimo S," <
cosi...@gmail.com
> ha scritto nel messaggio
news:e5b5eba3-5c55-4c28...@q23g2000yqd.googlegroups.com...

> cio� l'ultimo ?
> me.undo
>
Grazie 1000 Cosimo,
era quello che mi serviva.
Ciao
GS


title: Access 97 si intruppa con Windows 2000 server?

author: Antonio Biso

text:
Questa che vado a descrivere è una di quelle cose per le quali vorresti
prendere il computer e buttarlo da una finestra di un ventesimo piano.
O ricominciare ad usare il pallottoliere!!!
C'è un mio applicativo con Access 97 che esegue una serie di operazioni
standard (query, add su recordset ecc.) Questo applicativo ha sempre
funzionato sul mio PC con windows 98.
Adesso sono costretto ad usarlo su un PC con windows 2000 server.
L'elaborazione prevede alcuni passi automatici, quindi un intervento manuale
su alcune tabelle, quindi la terminazione automatica del lavoro.
Vado per fare questa cosa, tento di aprire una delle tabelle, doppio clic
e...
gran rumore di hard disk che macina, 5 secondi e access si chiude
brutalmente.
Ho effettuato molti test per vedere cosa c'era che non andava ma non ho
trovato nulla di strano.
Il problema si verifica sia aprendo tabelle locali che remote.
Se uso un altro database e accedo alle stesse tabelle, non ci sono problemi.
MA... reggetevi forte perchè questa è stata la goccia che ha fatto roteare i
miei gioielli di famiglia a svariate decine di migliaia di rpm.
Casualmente provo ad aprire le tabelle con invio, dopo averle selezionate...
FUNZIONA! Si aprono senza problemi. Chiudo la tabella, di nuovo doppio
clic.. .SI INTRUPPA nuovamente...
Ma cazzarola! Un problema per cui la tabella si "rovinava" e non mi
permetteva di aprirla potevo anche immaginarlo, ma una differenza tra il
modo di aprire la tabella stessa proprio no!!!!
Qualche idea?!?!
Antonio


author: Alfiero Ricci

text:
"Antonio Biso" <
> Questa che vado a descrivere è una di quelle cose per le quali vorresti
> prendere il computer e buttarlo da una finestra di un ventesimo piano.
> O ricominciare ad usare il pallottoliere!!!
>
> C'è un mio applicativo con Access 97 che esegue una serie di operazioni
> standard (query, add su recordset ecc.) Questo applicativo ha sempre
> funzionato sul mio PC con windows 98.
> Adesso sono costretto ad usarlo su un PC con windows 2000 server.
La cosa sicuramente non ti consola: io non ho rilevato particolari problemi
con win 2000 Server ... anzi  ;-)
Ti faccio una domanda: avviando in modalità provvisoria incontri lo stesso
problema?
Ciao: Alfiero


text:
"Alfiero Ricci" <
alfio...@libero.it
> ha scritto nel messaggio
news:XKXw8.78143$m41.1...@twister2.libero.it...

Non ci ho provato, ma che senso avrebbe?
Antonio


text:
"Antonio Biso
> > > Questa che vado a descrivere è una di quelle cose per le quali
vorresti
> > > prendere il computer e buttarlo da una finestra di un ventesimo piano.
> > > O ricominciare ad usare il pallottoliere!!!
> > >
> > > C'è un mio applicativo con Access 97 che esegue una serie di
operazioni
> > > standard (query, add su recordset ecc.) Questo applicativo ha sempre
> > > funzionato sul mio PC con windows 98.
> > > Adesso sono costretto ad usarlo su un PC con windows 2000 server.
> >
> > La cosa sicuramente non ti consola: io non ho rilevato particolari
> problemi
> > con win 2000 Server ... anzi  ;-)
> > Ti faccio una domanda: avviando in modalità provvisoria incontri lo
stesso
> > problema?
> Non ci ho provato, ma che senso avrebbe?
Ha senso: potrebbe essere un driver, magari della scheda video, che spezza i
coglioni.
Se in modalità provvisoria funzia, hai individuato la causa dei tuoi
problemi.
In qualche occasione ho incontrato casini analoghi risolti aggiornando
determinati drivers.
Ah, tra l'altro ho scoperto una discreta documentazione di M$ su questi
problemi:
http://support.microsoft.com/default.aspx?scid=kb;IT;q294301
Ciao: Alfiero


text:
"Alfiero Ricci" <
alfio...@libero.it
> ha scritto nel messaggio
news:kQvx8.4266$W9.9...@twister2.libero.it...
>
> "Antonio Biso
>
> > > > Questa che vado a descrivere è una di quelle cose per le quali
> vorresti
> > > > prendere il computer e buttarlo da una finestra di un ventesimo
piano.
> > > > O ricominciare ad usare il pallottoliere!!!
> > > >
> > > > C'è un mio applicativo con Access 97 che esegue una serie di
> operazioni
> > > > standard (query, add su recordset ecc.) Questo applicativo ha sempre
> > > > funzionato sul mio PC con windows 98.
> > > > Adesso sono costretto ad usarlo su un PC con windows 2000 server.
> > >
> > > La cosa sicuramente non ti consola: io non ho rilevato particolari
> > problemi
> > > con win 2000 Server ... anzi  ;-)
> > > Ti faccio una domanda: avviando in modalità provvisoria incontri lo
> stesso
> > > problema?
>
> > Non ci ho provato, ma che senso avrebbe?
>
> Ha senso: potrebbe essere un driver, magari della scheda video, che spezza
i
> coglioni.
Capisco che sarebbe un driver, ma che differenza ci sarebbe tra doppio
cliccare e fare invio?
> Se in modalità provvisoria funzia, hai individuato la causa dei tuoi
> problemi.
Ci proverò, anche se non ci sarebbe poi soluzione...
Antonio


author: Alessandro

text:
"Antonio Biso" <
ch...@etruria.net
> wrote in message
news:2UWw8.77687$m41.1...@twister2.libero.it...
> Questa che vado a descrivere è una di quelle cose per le quali vorresti
> prendere il computer e buttarlo da una finestra di un ventesimo piano.
> O ricominciare ad usare il pallottoliere!!!
>
> C'è un mio applicativo con Access 97 che esegue una serie di operazioni
> standard (query, add su recordset ecc.) Questo applicativo ha sempre
> funzionato sul mio PC con windows 98.
> Adesso sono costretto ad usarlo su un PC con windows 2000 server.
>[CUT]
> MA... reggetevi forte perchè questa è stata la goccia che ha fatto roteare i
> miei gioielli di famiglia a svariate decine di migliaia di rpm.
> Casualmente provo ad aprire le tabelle con invio, dopo averle selezionate...
> FUNZIONA! Si aprono senza problemi. Chiudo la tabella, di nuovo doppio
> clic.. .SI INTRUPPA nuovamente...
> Ma cazzarola! Un problema per cui la tabella si "rovinava" e non mi
> permetteva di aprirla potevo anche immaginarlo, ma una differenza tra il
> modo di aprire la tabella stessa proprio no!!!!
> Antonio
SONO CONTENTO.(Si fa per dire...!)
In realtà mal comune mezzo gaudio, ma credevo di essere l'unico
ad avere guai di conflitto tra W2000Se e A97.
A me la cosa è un pò differente, non funzionano le Lib DAO 3.51, ma
l'Help si, mentre se carico DAO 3.6 Funzionano le Lib e non l'Help.
Con W98 nessun problea.
Spicente ma non ho soluzioni.
Alessandro.
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


author: Sergio MAZZA

text:
"Alessandro" <
ik2...@libero.it
> ha scritto nel messaggio
news:2f3873dd7c4b057858...@mygate.mailgate.org...
>
> SONO CONTENTO.(Si fa per dire...!)
>
> In realtà mal comune mezzo gaudio, ma credevo di essere l'unico
> ad avere guai di conflitto tra W2000Se e A97.
> A me la cosa è un pò differente, non funzionano le Lib DAO 3.51, ma
> l'Help si, mentre se carico DAO 3.6 Funzionano le Lib e non l'Help.
>
> Con W98 nessun problea.
> Spicente ma non ho soluzioni.
>
> Alessandro.
>
>
Non voglio rompere le uova nel paniere ma io utilizzo Win2000srv (ita/eng) e
Win2000pro (ita) con office'97pro (in alcuni) e office'2000 in altri.
Non ho riscontrato nessun problema di questa natura; tanto per la cronaca o
installato le sr 1/2 e i il rollpack security... Ma potrebbe non essere
quella la soluzione...
Ciao.
--
Sergio MAZZA


author: S. Savoldi

text:
"Sergio MAZZA" <
> > In realtà mal comune mezzo gaudio, ma credevo di essere l'unico
> > ad avere guai di conflitto tra W2000Se e A97.
> > A me la cosa è un pò differente, non funzionano le Lib DAO 3.51, ma
> > l'Help si, mentre se carico DAO 3.6 Funzionano le Lib e non l'Help.
> >
> > Con W98 nessun problea.
> > Spicente ma non ho soluzioni.
> >
> > Alessandro.
> Non voglio rompere le uova nel paniere ma io utilizzo Win2000srv (ita/eng)
e
> Win2000pro (ita) con office'97pro (in alcuni) e office'2000 in altri.
> Non ho riscontrato nessun problema di questa natura
Confermo.


author: raffar

text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:2UWw8.77687$m41.1...@twister2.libero.it...
> Questa che vado a descrivere è una di quelle cose per le quali vorresti
> prendere il computer e buttarlo da una finestra di un ventesimo piano.
> O ricominciare ad usare il pallottoliere!!!
>
> C'è un mio applicativo con Access 97 che esegue una serie di operazioni
> standard (query, add su recordset ecc.) Questo applicativo ha sempre
> funzionato sul mio PC con windows 98.
> Adesso sono costretto ad usarlo su un PC con windows 2000 server.
>
> modo di aprire la tabella stessa proprio no!!!!
cut
>
> Qualche idea?!?!
>
> Antonio
>
nessuna idea purtroppo!
a me succede (dopo mesi di uso normale) di non poter fare l'anteprima dei
reports
primo tentativo ..zzzzzzzzzzzzzzz....e poi niente
seconto tentativo ...zzzzzzzz...FUORI
oppure errore sulla memoria 00000000000000000000   che non può essere read
ho provato anche a disinstallare tutto office e reinstallarlo  ma...
niente
se non scoprite qualcosa voi  .....io non ce la farò
Raffaele


author: Roberto da casa

text:
"raffar" <
raf...@iol.it
> ha scritto nel messaggio
news:4%aF8.74523$5k4.1...@twister2.libero.it...
>
> "Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
> news:2UWw8.77687$m41.1...@twister2.libero.it...
> > Questa che vado a descrivere č una di quelle cose per le quali vorresti
> > prendere il computer e buttarlo da una finestra di un ventesimo piano.
> > O ricominciare ad usare il pallottoliere!!!
> >
> > C'č un mio applicativo con Access 97 che esegue una serie di operazioni
> > standard (query, add su recordset ecc.) Questo applicativo ha sempre
> > funzionato sul mio PC con windows 98.
> > Adesso sono costretto ad usarlo su un PC con windows 2000 server.
> >
> > modo di aprire la tabella stessa proprio no!!!!
>
> cut
>
> >
> > Qualche idea?!?!
> >
> > Antonio
> >
>
> nessuna idea purtroppo!
>
> a me succede (dopo mesi di uso normale) di non poter fare l'anteprima dei
> reports
> primo tentativo ..zzzzzzzzzzzzzzz....e poi niente
> seconto tentativo ...zzzzzzzz...FUORI
> oppure errore sulla memoria 00000000000000000000   che non puņ essere read
>
> ho provato anche a disinstallare tutto office e reinstallarlo  ma...
> niente
>
> se non scoprite qualcosa voi  .....io non ce la farņ
>
> Raffaele
Beh, se comici ad avere le schermate blu con gli errori di memoria, potrebbe
essere che c'č qualcosa dell'hardware che comincia ad andare a p...allino.
Mi ricorda tanto i miei guai di quando mi si era fottuto il processore.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


author: warp

text:
"raffar"
> a me succede (dopo mesi di uso normale) di non poter fare l'anteprima dei
> reports
> primo tentativo ..zzzzzzzzzzzzzzz....e poi niente
> seconto tentativo ...zzzzzzzz...FUORI
> oppure errore sulla memoria 00000000000000000000   che non può essere read
>
> ho provato anche a disinstallare tutto office e reinstallarlo  ma...
> niente
Cose che succedono con tutte le realeses di M$$$,$$$  Windows.
Leggi con attenzione (si riferisce ad A 'XP ma è valido per quasi tutte le
applicazioni)
http://support.microsoft.com/default.aspx?scid=kb;IT;q294301
Ciao, warp


text:
"warp" <
war...@libero.it
> ha scritto nel messaggio
news:4BbF8.74718$5k4.1...@twister2.libero.it...

Grazie
spero di aver risolto sostituendo il FE con una sua copia
(se faccio in tempo a scriverlo )
ciao e ancora grazie
Raffaele


title: ritardo esecuzione comando

author: desio

text:
Dovrei far aprire con 10 minuti di ritardo una form dall' apertura di access
mi potete dare na dritta
ciao desio


title: ritardo esecuzione comando

text:
"desio" <
nos...@dada.it
> ha scritto nel messaggio
news:4051c...@news.dada.it...

Prova con questa funzione (rimaneggiata dall'help):
Function AvviaFormDopoXSecondi()
Dim pauseTime As Single, Start As Single, Finish As Single, totalTime As
Single
    pauseTime = 10   ' Imposta la durata in secondi.
    Start = Timer   ' Imposta l'ora di inizio.
    Do While Timer < Start + pauseTime
        DoEvents        ' Passa il controllo ad altri processi.
    Loop
    DoCmd.OpenForm "nomeForm"
End Function
La inserisi in un modulo; crei una macro autoexec con il comando
EseguiCodice puntando la predetta funzione.
Ciao.
--
Sergio MAZZA


title: DB Libri - per Roberto

author: Vitt

text:
La maschera "CitazioniLibri" si basa sulla tab "Libri" da cui desume i
controlli Titolo, Editore, Collocazione; essa contiene una sottomaschera
"Citazioni sottomaschera", basata sulla tab. "Citazioni", la quale permette
di inserire o consultare le citazioni relative al libro selezionato nella
maschera principale. In questa sottomaschera c'è un controllo (Casella di
testo) il cui nome elemento è "IDCitazione" e che riporta il numero di
citazioni di quel determinato libro; nella proprietà Origine controllo ho
posto la stringa:
=IIf(IsNull(DLookUp("[IDCitazione]";"Citazioni";"IDLibro=" &
[IDLibro]));"Nessuna";DCount("[IDCitazione]";"Citazioni";"IDLibro=" &
[IDLibro]))
Questo controllo funziona bene se il libro ha una o più citazioni;
altrimenti (ossia se il libro non ha citazioni) riporta la parola Errore.
Vorrei che comparisse invece la parola "Nessuna", come accade per un uguale
controllo presente nella maschera "Libri".  Dove sbaglio? Mi puoi dare
qualche indicazione?
Come fare (se possibile) per ottenere che tale controllo si aggiorni subito
quando si inserisce o si elimina una citazione, senza dover chiudere la
maschera principale e riaprirla?
Grazie. Vitt.


title: DB Libri - per Roberto

author: Karl Donaubauer

text:
Vitt <
vit...@infinito.it
> ha scritto:
>...
> nella proprietà Origine controllo ho posto la stringa:
> =IIf(IsNull(DLookUp("[IDCitazione]";"Citazioni";"IDLibro=" &
> [IDLibro]));"Nessuna";DCount("[IDCitazione]";"Citazioni";"IDLibro=" &
> [IDLibro]))
> Questo controllo funziona bene se il libro ha una o più citazioni;
> altrimenti (ossia se il libro non ha citazioni) riporta la parola Errore.
> Vorrei che comparisse invece la parola "Nessuna", come accade per un uguale
> controllo presente nella maschera "Libri".  Dove sbaglio? Mi puoi dare
> qualche indicazione?
>...
Prova con:
=IIf(DCount("[IDCitazione]";"Citazioni";"IDLibro=" &
[IDLibro]) = 0;"Nessuna";DCount("[IDCitazione]";"Citazioni";"IDLibro=" &
[IDLibro]))
BTW Per i regulars di questo NG:
Normalmente nel usenet è considerato scortese se uno chiede per/a
una persona particolare nel subject (spec. con una domanda generica)
- e non si risponde per questo motivo.
Ma non so se è anche una regola nel icaa perché qui vedo queste cose
qualche volta. Per questo ho risposto (e per chiamare:-). Mi schiarate p.f.
--
Karl
*********
Non meravigliarti del mio strano italiano. M'esercito qui.
Access-FAQ (tedesco):
http://www.donkarl.com


title: DB Libri - per Roberto

text:
"Karl Donaubauer" <
ad...@donkarl.com
> ha scritto nel messaggio
news:9lnaal$aj0ve$1...@ID-46617.news.dfncis.de...
> Vitt <
vit...@infinito.it
> ha scritto:
> >...
> > nella proprietà Origine controllo ho posto la stringa:
> > =IIf(IsNull(DLookUp("[IDCitazione]";"Citazioni";"IDLibro=" &
> > [IDLibro]));"Nessuna";DCount("[IDCitazione]";"Citazioni";"IDLibro=" &
> > [IDLibro]))
> > Questo controllo funziona bene se il libro ha una o più citazioni;
> > altrimenti (ossia se il libro non ha citazioni) riporta la parola
Errore.
> > Vorrei che comparisse invece la parola "Nessuna", come accade per un
uguale
> > controllo presente nella maschera "Libri".  Dove sbaglio? Mi puoi dare
> > qualche indicazione?
> >...
>
> Prova con:
> =IIf(DCount("[IDCitazione]";"Citazioni";"IDLibro=" &
> [IDLibro]) = 0;"Nessuna";DCount("[IDCitazione]";"Citazioni";"IDLibro=" &
> [IDLibro]))
Purtroppo non cambia nulla. Però, se sposto il comando dalla sottomaschera
alla maschera principale, il funzionamento ritorna regolare (ossia, in caso
di assenza di citazioni del libro, il comando riporta "Nessuna"). Io
sospetto che il comando debba in qualche modo "sentire" il titolo del libro
e non solo il numero delle citazioni ad esso riferite; nella sottomaschera,
appunto, il titolo non viene riportato (esso compare, ovviamente, solo nella
maschera principale).
Mi piacerebbe capire come bisogna fare.
Resta comunque il fatto che il comando si aggiorna solo quando si aggiorna
la maschera principale, mentre invece sarebbe bello che il suo aggiornamento
fosse isatantaneo (aggiungendo o togliendo una citazione del libro). Ma, in
fondo, ciò non è poi molto rilevante.
> BTW Per i regulars di questo NG:
> Normalmente nel usenet è considerato scortese se uno chiede per/a
> una persona particolare nel subject (spec. con una domanda generica)
> - e non si risponde per questo motivo.
> Ma non so se è anche una regola nel icaa perché qui vedo queste cose
> qualche volta. Per questo ho risposto (e per chiamare:-). Mi schiarate
p.f.
>
Credo che questa regola valga anche qui; Roberto, però, è un riferimento per
molti di noi e viene spontaneo rivolgersi direttamente a lui, specie quando
vi è un discorso aperto. Grazie comunque per l'osservazione: ne terrò conto
in futuro.
Ciao. Vitt.


title: DB Libri - per Roberto

author: Roberto dal portabile

text:
"Vitt" <
vit...@infinito.it
> ha scritto nel messaggio
news:9lllln$m3q$1...@serv1.albacom.net...
> La maschera "CitazioniLibri" si basa sulla tab "Libri" da cui desume i
> controlli Titolo, Editore, Collocazione; essa contiene una sottomaschera
> "Citazioni sottomaschera", basata sulla tab. "Citazioni", la quale
permette
> di inserire o consultare le citazioni relative al libro selezionato nella
> maschera principale. In questa sottomaschera c'è un controllo (Casella di
> testo) il cui nome elemento è "IDCitazione" e che riporta il numero di
> citazioni di quel determinato libro; nella proprietà Origine controllo ho
> posto la stringa:
> =IIf(IsNull(DLookUp("[IDCitazione]";"Citazioni";"IDLibro=" &
> [IDLibro]));"Nessuna";DCount("[IDCitazione]";"Citazioni";"IDLibro=" &
> [IDLibro]))
> Questo controllo funziona bene se il libro ha una o più citazioni;
> altrimenti (ossia se il libro non ha citazioni) riporta la parola Errore.
> Vorrei che comparisse invece la parola "Nessuna", come accade per un
uguale
> controllo presente nella maschera "Libri".  Dove sbaglio? Mi puoi dare
> qualche indicazione?
Non riesco ad ipotizzare perché ti compare la segnalazione di #Errore. A me
sembra tutto corretto.
Prova con:
 =IIf(DCount("[IDCitazione]";"Citazioni";"IDLibro=" & [IDLibro])= 0
;"Nessuna";DCount("[IDCitazione]";"Citazioni";"IDLibro=" & [IDLibro]))
> Come fare (se possibile) per ottenere che tale controllo si aggiorni
subito
> quando si inserisce o si elimina una citazione, senza dover chiudere la
> maschera principale e riaprirla?
Sia a fronte dell'evento "Dopo aggiornamento" che a fronte dell'evento "Su
eliminazione" della sottomaschera "Citazioni sottomaschera" genera questa
riga di codice VBA:
Forms!CitazioniLibri.Refresh
> Grazie. Vitt.
>
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: DB Libri - per Roberto

text:
"Roberto dal portabile" <
r.ma...@libero.it
> ha scritto nel messaggio
news:ynLf7.7483$i9.3...@news.infostrada.it...
>
Scusami, ma non avevo letto bene il tuo messaggio e non avevo capito che il
il controllo era nella sottomaschera.
E allora nell'origine controllo di IDCitazione scrivi:
=IIf(DCount("[IDCitazione]";"Citazioni";"IDLibro=" &
[Forms]![CitazioniLibri]![IDLibro])=0;"Nessuna";DCount("[IDCitazione]";"Cita
zioni";"IDLibro=" & [Forms]![CitazioniLibri]![IDLibro]))
e a fronte dell'evento "Dopo aggiornamento" che a fronte dell'evento "Su
eliminazione" della sottomaschera "Citazioni sottomaschera" genera questa
riga di codice VBA:
Me.Refresh



title: DB Libri - per Roberto

text:
> Non riesco ad ipotizzare perché ti compare la segnalazione di #Errore. A
me
> sembra tutto corretto.
> Prova con:
>  =IIf(DCount("[IDCitazione]";"Citazioni";"IDLibro=" & [IDLibro])= 0
> ;"Nessuna";DCount("[IDCitazione]";"Citazioni";"IDLibro=" & [IDLibro]))
Inutile, il piccolo inconveniente rimane; però non ha molta rilevanza: come
ho detto nella risposta a Karl Donaubauer, se sposto il comando dalla
sottomaschera alla maschera principale, il funzionamento ritorna regolare
(ossia, in caso
di assenza di citazioni del libro, il comando riporta "Nessuna"). Ai fini
pratici va bene anche così, ma resta la curiosità "tecnica".
> Sia a fronte dell'evento "Dopo aggiornamento" che a fronte dell'evento "Su
> eliminazione" della sottomaschera "Citazioni sottomaschera" genera questa
> riga di codice VBA:
>
> Forms!CitazioniLibri.Refresh
Fatto e funzionante.
Un'altra curiosità fastidiosa: nella sottomaschera ci sono i 4 pulsanti per
la spostamento tra i record: "Vai al primo record" e "Vai all'ultimo record"
funzionano bene; invece:
1) il pulsante "Vai al record successivo", quando muove dall'ultimo record,
apre prima un record vuoto e poi fa comparire il logico avviso "Impossibile
passare al record specificato"; poichè c'è anche un pulsante dedicato
all'inserimento di un nuovo record, sarebbe comodo e più pratico che il
pulsante facesse comparire subito l'avviso di impossibilità a passare al
record successivo (essendo quest'ultimo inesistente).
2) il pulsante "Vai al record precedente", immediatamente dopo l'inserimento
nella sottomaschera di un nuovo record, non riesce a funzionare perchè,
premendolo, la sottomaschera si aggiorna presentando la prima delle
citazioni, ed ovviamente il pulsante non riesce ad aprire un record
precedente al primo.
Sono piccolezze, ma garantisco che sono noiose; c'è un qualche rimedio?
L'amico tedesco mi ha fatto osservare che è maleducazione rivolgersi in un
NG ad una persona in particolare; per questa volta (dato che questo
messaggio è Re:) uso ancora lo stesso oggetto, ma in seguito forse è meglio
che tralasci il tuo nome; non so francamente cosa pensare dato che non
frequento molto i NG, però un pò mi dispiace perchè è evidente che tu sei
un riferimento importante e sicuro in questo NG.
Ciao,Vitt.


title: DB Libri - per Roberto

text:
> Scusami, ma non avevo letto bene il tuo messaggio e non avevo capito che
il
> il controllo era nella sottomaschera.
> E allora nell'origine controllo di IDCitazione scrivi:
>
> =IIf(DCount("[IDCitazione]";"Citazioni";"IDLibro=" &
>
[Forms]![CitazioniLibri]![IDLibro])=0;"Nessuna";DCount("[IDCitazione]";"Cita
> zioni";"IDLibro=" & [Forms]![CitazioniLibri]![IDLibro]))
>
> e a fronte dell'evento "Dopo aggiornamento" che a fronte dell'evento "Su
> eliminazione" della sottomaschera "Citazioni sottomaschera" genera questa
> riga di codice VBA:
>
> Me.Refresh
 Ho da poco risposto al tuo messaggio precedente senza aver visto questo tuo
secondo messaggio.
Ora eseguo e domani ti dirň. Grazie. Ciao. Vitt


title: DB Libri - per Roberto

text:
> =IIf(DCount("[IDCitazione]";"Citazioni";"IDLibro=" &
>
[Forms]![CitazioniLibri]![IDLibro])=0;"Nessuna";DCount("[IDCitazione]";"Cita
> zioni";"IDLibro=" & [Forms]![CitazioniLibri]![IDLibro]))
>
> e a fronte dell'evento "Dopo aggiornamento" che a fronte dell'evento "Su
> eliminazione" della sottomaschera "Citazioni sottomaschera" genera questa
> riga di codice VBA:
>
> Me.Refresh
Fatto. Grazie.
Altro...:
1) Nella maschera "GestionePrestiti" un pulsante apre la maschera
"LibriInPrestitoQuery" basata sull'omonima query che visualizza i libri
attualmente in prestito. L'aggiornamento di tale query avviene solo
chiudendo e riaprendo la maschera "GestionePrestiti". Come fare per
aggiornare questa query istantaneamente quando si inseriscono i dati nei
controlli "PrestatoIl" e "PrestatoA" della maschera "GestionePrestiti" o,
almeno, quando si clicca sul suo pulsante di apertura?
Ci sarebbe anche il problema dei pulsanti di spostamento tra i record nella
maschera "CitazioniLibri" e relativa sottomaschera che ho esposto nel
precedente messaggio....
Grazie. Ciao. Vitt


title: DB Libri - per Roberto

author: Silvio Berruti

text:
"Vitt" <
vit...@infinito.it
> ha scritto nel messaggio
news:9loq4o$394$1...@serv1.albacom.net...
>
> L'amico tedesco mi ha fatto osservare che è maleducazione rivolgersi in un
>
Non vorrei sbagliarmi, ma mi pare che Karl sia austriaco.
--
Silvio
il sito comune di it.comp.appl.access:
http://www.sitocomune.com


title: DB Libri - per Roberto

text:
Silvio Berruti ha scritto:
> "Vitt" <
vit...@infinito.it
> ha scritto:
> > L'amico tedesco mi ha fatto osservare che è maleducazione rivolgersi in un
> >
> Non vorrei sbagliarmi, ma mi pare che Karl sia austriaco.
Ciao Silvio,
Si, ma in in qualche situazione (particolarmente politico) non
mi disturba molto se in estero mi prendono per un tedesco.
--
;-)
Karl
*********
Access-FAQ (tedesco):
http://www.donkarl.com


title: DB Libri - per Roberto

author: Roberto dal portatile

text:
"Vitt" <
vit...@infinito.it
> ha scritto nel messaggio
news:9lrc2d$ssa$1...@serv1.albacom.net...
>
> > =IIf(DCount("[IDCitazione]";"Citazioni";"IDLibro=" &
> >
>
[Forms]![CitazioniLibri]![IDLibro])=0;"Nessuna";DCount("[IDCitazione]";"Cita
> > zioni";"IDLibro=" & [Forms]![CitazioniLibri]![IDLibro]))
> >
> > e a fronte dell'evento "Dopo aggiornamento" che a fronte dell'evento "Su
> > eliminazione" della sottomaschera "Citazioni sottomaschera" genera
questa
> > riga di codice VBA:
> >
> > Me.Refresh
>
> Fatto. Grazie.
> Altro...:
> 1) Nella maschera "GestionePrestiti" un pulsante apre la maschera
> "LibriInPrestitoQuery" basata sull'omonima query che visualizza i libri
> attualmente in prestito. L'aggiornamento di tale query avviene solo
> chiudendo e riaprendo la maschera "GestionePrestiti". Come fare per
> aggiornare questa query istantaneamente quando si inseriscono i dati nei
> controlli "PrestatoIl" e "PrestatoA" della maschera "GestionePrestiti" o,
> almeno, quando si clicca sul suo pulsante di apertura?
>
Poichè gli aggiornamenti ai due controlli della maschera GestionePrestiti
potresti farli quando la maschera LibriInPrestitoQuery è chiusa, la cosa
migliore, a mio avviso è quella di inserire un pulsante di comando nella
maschera LibriInPrestitoQuery e a fronte dell'evento "Su clic" genera la
riga di codice VBA:
Me.Requery
> Ci sarebbe anche il problema dei pulsanti di spostamento tra i record
nella
> maschera "CitazioniLibri" e relativa sottomaschera che ho esposto nel
> precedente messaggio....
Non riesco a localizzare il tuo messaggio e/o il problema di cui parli;
riposta il problema.
> Grazie. Ciao. Vitt



title: DB Libri - per Roberto

text:
"Karl Donaubauer" <
ad...@donkarl.com
> ha scritto nel messaggio
news:9lrd7m$aonp2$1...@ID-46617.news.dfncis.de...
> Silvio Berruti ha scritto:
> > "Vitt" <
vit...@infinito.it
> ha scritto:
> > > L'amico tedesco mi ha fatto osservare che è maleducazione rivolgersi
in un
> > >
> > Non vorrei sbagliarmi, ma mi pare che Karl sia austriaco.
>
> Ciao Silvio,
>
> Si, ma in in qualche situazione (particolarmente politico) non
> mi disturba molto se in estero mi prendono per un tedesco.
>
A tutto pensavo meno che alla nazionalità; scusami comunque se sono stato
irriverente :-)


title: DB Libri - per Roberto

text:
> > 1) Nella maschera "GestionePrestiti" un pulsante apre la maschera
> > "LibriInPrestitoQuery" basata sull'omonima query che visualizza i libri
> > attualmente in prestito. L'aggiornamento di tale query avviene solo
> > chiudendo e riaprendo la maschera "GestionePrestiti". Come fare per
> > aggiornare questa query istantaneamente quando si inseriscono i dati nei
> > controlli "PrestatoIl" e "PrestatoA" della maschera "GestionePrestiti"
o,
> > almeno, quando si clicca sul suo pulsante di apertura?
> >
>
> Poichè gli aggiornamenti ai due controlli della maschera GestionePrestiti
> potresti farli quando la maschera LibriInPrestitoQuery è chiusa, la cosa
> migliore, a mio avviso è quella di inserire un pulsante di comando nella
> maschera LibriInPrestitoQuery e a fronte dell'evento "Su clic" genera la
> riga di codice VBA:
>
> Me.Requery
Il pulsante non risolve: se prima non aggiorno la maschera
"GestionePrestiti", il pulsante non funziona (evidentemente la query non
rileva variazioni nella tab. "Libri"); e se la maschera "GestionePrestiti"
viene aggiornata, la maschera "LibriInPrestitoQuery" riporta i dati
corretti.Il problema, mi pare di capire, riguarda l'aggiornamento della
maschera "GestionePrestiti" e della query LibriInPrestitoQuery.
In entrambe le maschere vi sono tre controlli critici uguali: "PrestatoIl" ,
"PrestatoA" e la casella testo che conta i libri in prestito. Ma nella
maschera "GestionePrestiti" i tre controlli si basano sulla tab. "Libri",
mentre nella maschera "LibriInPrestitoQuery" coinvolgono la query omonima
(che filtra i dati della tab. "Libri"). Ad entrambe le maschere ho applicato
il VBA Me.Refresh nelle routine evento a fronte di "Dopo Aggiornamento" e
"Su eliminazione", ma non risolve.
Bisognerebbe ottenere che, cancellando la data dal controllo "PrestatoIl"
nella maschera "GestionePrestiti",  ci fosse un aggiornamento automatico di
tutti e tre i campi in entrambe le maschere  (senza dover riaggiornare, come
adesso, la maschera "GestionePrestiti" chiudendola e riaprendola oppure
scorrendo i record).
Per chiarezza, ricordo le impostazioni attuali dei controlli delle due
maschere:
1)"PrestatoIl" in entrambe le maschere ha, a fronte dell'evento
DopoAggiornamento, il VBA
    If IsNull(Me!PrestatoIl) Then
        Me!PrestatoA = Null
    End If
2) il controllo che riporta il num. dei libri in prestito, nella maschera
"GestionePrestiti", ha a fronte di OrigineControllo la stringa:
=IIf(DCount("[PrestatoIl]";"Libri")=0;"Nessuna";DCount("[PrestatoIl]";"Libri
"))
e, nella maschera "LibriInPrestitoQuery", la stringa:
=IIf(DCount("[PrestatoIl]";"LibriInPrestitoQuery")=0;"Nessuno";DCount("[Pres
tatoIl]";"LibriInPrestitoQuery"))
3) "PrestatoA" in entrambe le maschere non ha particolari impostazioni.
Vitt.


title: DB Libri - per Roberto

text:
"Vitt" <
vit...@infinito.it
> ha scritto nel messaggio
news:9ls1le$m31$1...@serv1.albacom.net...
[CUT]

Caro Vitt
affinchè il contenuto della maschera LibriInPrestitoQuery venga aggiornato
con le variazioni da te operate nella maschera GestionePrestiti o nella
maschera LibriInPrestitoQuery è necessario che venga eseguita la seguente
riga di codice VBA:
[Forms]![LibriInPrestitoQuery].Requery
Solo così potrai avere quello che tu chiami "aggiornamento in tempo reale"
della query LibriInPrestitoQuery e quindi del contenuto della maschera su di
essa basata.
Dove devi generare tale riga di codice VBA?
A fronte di tutti quegli eventi che cambiano lo stato del libro (da non
prestato a prestato e viceversa); visto che il pulsante di comando non ti va
bene, decidi tu dove.
Naturalmente devi fare in modo che quando il codice VBA di cui sopra viene
eseguito, la maschera LibriInPrestitoQuery risulti aperta.
Comunque a mio avviso non è funzionale aprire la maschera
LibriInPrestitoQuery; io inserirei una casella di riepilogo
nell'intestazione della maschera GestionePrestiti; detta casella di
riepilogo avrebbe come origine riga la query LibriInPrestitoQuery;
naturalmente a questo punto il requery lo effettuerei della casella di
riepilogo.



title: strutturare una timeline (solo concetti per le tabelle e le relazioni)

author: IvanDaBologna

text:
buongiorno a tutti.
Spero di non farvi perdere tempo prezioso ma sono incartato in un dedalo da cui non esco.
Vorrei creare un DB di avvenimenti [fatti] accaduti in una data o in un periodo.
Il problema mi nasce quando cerco di immaginare una linea (argomento) a cui il fatto puo' appartenere.
ES.

1/1/1948 - Luigi De Nicola viene eletto Presidente della Repubblica.

questo è un fatto, che puo' appartenere a diverse linee temporali : Presidenti della repubblica Italiana, Storia d'Italia, Biografia di De Nicola Luigi, Storia Europea, etc etc.

Oggi queste linee, probabilmente, sono conosciute come TAG, ma alla fine si tratta di classificazioni fittizie(soggettive) e, purtroppo, infinite.

Quindi ci vedo almeno due tabelle

AVVENIMENTI : [idAvven], [dataOperiodo], [fatto]
LINEE       : [idLinea], [descrizione]

ed almeno una query a campi incrociati
ELENCO    : [idAvven],[idLinea], [AVVENIMENTI].[fatto], [LINEE].[descrizione]

ed ecco il problema, in IMMISSIONE di una biografia esisteranno i fatti: Nasce e Muore, che devono avere una linea già determinata altrimenti risulteranno notizie avulse da qualsiasi personaggio ....

Stessa cosa per l'inizio e la fine di una linea.
Es: Inizio, 476     riferito al Medioevo.

Ma certe linee non hanno una dicitura Inizia o Finisce, ma un fatto preciso che magari scatena un periodo : tipo Guerra fredda, oppure Corsa al Nucleare .....

LA DOMANDA: cosa usereste per raccogliere questa base dati? (ACCESS, struttura tipo wiki (che non saprei gestire), o altro ?)

vi ringrazio per qualsiasi suggerimento

Ivan


author: ogrn

text:
Due possibili strade:

- il primo "accademico" è quello di progettare le tabelle anagrafica, eventi
parametrizzati, e quindi una tabella degli eventi temporali; nel modo
seguente:

Anagrafica
1 Rubbia
2 Pluto

Evento
1 Presidente Repubblica
2 Premio Nobel
3 Senatore a vita

Eventi
1 (Rubbia) 2 (Premio Nobel) 01/01/1986
1 (Rubbia) 3 (Senatore a vita) 01/01/2016

e quindi fai i filtri considerando puntualmente i valori di Evento e data.

- il secondo tipo "motore di ricerca basato su tag", consente di avere una
sola tabella dove usi le descrizioni libere su un campo Memo:

Eventi
1 (Rubbia) (Premio Nobel per la fisica) 01/01/1986
1 (Rubbia) (Senatore a vita nel Parlamento della Repubblica Italiana)
01/01/2016
2 (Pluto) (Personaggio di Walt Disney) 01/01/1930
2 (Pluto) (Prima apparizione cinematografica) 01/01/1935

e quindi fai i filtri sul campo descrizione con una LIKE del tipo: LIKE "'*"
& Replace(Nz(Me.Ricerca.Value," ")," ","*") & "*'

In entrambi i casi è quasi d'obbligo che la data sia un campo dedicato, a
parte, e non mescolata con testo che descrive l'evento.
Questo consente di effettuare elaborazioni avanzate tipo estrazione di
eventi per intervallo e disegno di grafici in stile Project (Gantt) e/o con
Pivot in Excel

La seconda soluzione è piu flessibile perchè l'utente può inserire al volo
tutte le classificazioni arbitrarie senza per forza parametrizzarle.
Tuttavia si paga il costo delle query LIKE con l'aumentare dei record e la
lunghezza delle descrizioni (ma prima di riscontrare rallentamenti
fastidiosi bisogna superare circa i 500.000 record).

Ultimamente io uso una soluzione mista:
- i dati stanno su un server come SQL Server o MySQL o Oracle;
- entrambi hanno comandi ottimizzati alternativi al LIKE per le
interrogazioni velocissime sui campi testuali (es. in MySQL hai indici FULL
TEXT e costrutto MATCH ... AGAINST);
- creo un campo automatico al momento dell'inserimento dati chiamato
"Keywords" nel quale elimino caratteri che non servono, ottenendo di fatto
dei Tag di ricerca;
- uso query Pass-Through che modifico al volo con la stringa di filtro
passandole al DB server e alla restituzione del recordset lo aggancio alla
sottomaschera.

"IvanDaBologna"  ha scritto nel messaggio
news:516df838-1879-4e62...@googlegroups.com...



author: RobertoA

text:

E' chiaro che qui, noi, useremmo Access & company
Un idraulico, con la stessa efficacia, userebbe la sua cassettiera
guarnizioni per classificare
Un meccanico userebbe la rastrelliera dei dadi e viti

Dal punto di vista del programmatore di database, per le tue ricerche
non vedrei problema
Se nella 'tabella' avvenimenti ci metti anche il campo 'tag' sei a
cavallo nel senso che potrai poi eseguire delle interrogazioni per
avvenimenti:
- entro un certo range di date
- che contengono il tag xxx e/o yyy
- il tutto ordinato per data

che credo sia quello che ti serve
Quando si tratta di raccogliere informazioni e poi ricercare, filtrarle,
ordinarle, un sistema come Access e' molto efficace


author: Davide La Mantia

text:
Mi sembra una normale relazione molti a molti, e come tutte le relazioni di questo tipo si risolve con una tabella intermedia.

LineeTemporali IDLT,Descrizione
Personaggi IDP,Nome
Eventi IDE, Data, Descrizione, IDLT, IDP

In questo esempio è la stessa tabella Eventi che fa da tabella di collegamento.

Ciao
Sib


text:
....
>
> Ciao
> Sib

Caspita ciao Davide... un doveroso saluto.

@Alex


text:

Ciao a te :-)


title: Help x realizzazione progetto universitario in Access.

author: Unknown

text:
Dunque dunque...
devo fare un bel progettino x l'università in access (io uso il 2000
se puo' esservi di qualche aiuto) e ho un paio di problemini.
1) devo mettere un qualche controllo che mi verifichi che il dato
inserito in un form non  sia già presente nella tabella (in pratica io
quando aggiungo il nominativo di un cliente devo controllare che esso
non sia già stato inserito) pensavo di farlo attraverso un controllo
sul codice fiscale...ho realizzato un form di inserimento che si basa
su una tabella "clienti", dentro alla tabella c'e' una colonna "CF"
(codice fiscale ;) ho messo che i valori inseriti sono "Indicizzati,
no duplicati". Fin qui e' ok...pero' non posso/non riesco a impostare
un messaggio di errore nel form che mi dice "Ue'...quel codice fiscale
e' gia dentro e corrisponde all'utente xxx"...credo che cio' si possa
fare con un espressione "Valido Se.." e "Messaggio di errore..:" ma
non riesco a capire dall'help come poter far cio'...
2) dovrei fare una specie di pulsante/combo simile alle procedure che
uno vede in Html quando si registra su un freenet (tanto x fare un
esempio) io scelgo una regione, e in automatico la scelta successiva
mi offre solo i nodi di accesso della regione (spero di essere stato
chiaro); il mio problema è un po' più complicato ma partendo
dall'esempio dovrei essere in grado di andare avanti ;) how do this??
risposte anchre succinte ;) e magari con insulti perchè i miei
problemi sono chiariti direttamente nell'help sono gradite ;)
thx
giru


author: Lbo da casa

text:
>1) devo mettere un qualche controllo che mi verifichi che il dato
>inserito in un form non  sia già presente nella tabella (in pratica io
vedi sull'help dlookup e/o dcount.
>esempio) io scelgo una regione, e in automatico la scelta successiva
>mi offre solo i nodi di accesso della regione (spero di essere stato
mmmh... io andrei sull'sql dinamico.  come te la cavi in sql?
--------------------------------------------------
ATTENZIONE!
it.comp.database.access diventera' it.comp.appl.access!
cercalo tra i nuovi ng e linkalo!
-----------------------------------
rimuovere NOSPAM. per mandare email
-----------------------------------
il sito comune di it.comp.database.access:
http://members.xoom.it/it_db_access


text:
2 ore di lezione all'univ...
On Wed, 05 Jan 2000 23:09:46 GMT,
l...@NOSPAM.blunet.it
 (Lbo da casa )
wrote:
>
>vedi sull'help dlookup e/o dcount.
>
>



text:
>>mmmh... io andrei sull'sql dinamico.  come te la cavi in sql?
>2 ore di lezione all'univ...
dovrebbero bastare.
le combo dispongono dell'evento dopoaggiornamento.  in seguito a
quest'evento puoi far eseguire del codice.  in questo codice usi il
valore della combo stessa per creare una stringa sql e passarla come
origine dati ad un'altra combo.
ad es. ho una tabella di tutte le citta' italiane con i campi Comune e
Regione.
ho una combo (cmbRegioni) che visualizza le regioni (il cui rowsource
potrebbe essere ad esempio "SELECT Regione FROM Tabella GROUP BY
Regione").
clicco sul Lazio.  avviene l'evento dopoaggiornamento della Combo
cmbRegioni.
allora nel dopoaggiornamento scrivo una rowsource per la combo che
visualizza i comuni:
me.cmbComuni.rowsource="SELECT Comuni FROM Tabella WHERE Regione = '"
& me.cmbRegioni & "'"
siccome cmbRegioni vale Lazio quella roba li' sara' equivalente a:
me.cmbComuni.rowsource="SELECT Comuni FROM Tabella WHERE Regione =
'Lazio'"
se avessi cliccato il Piemonte sarebbe
me.cmbComuni.rowsource="SELECT Comuni FROM Tabella WHERE Regione =
'Piemonte'"
e cosi' via.  dopo aver modificato la proprieta' rowsource della combo
cmbComuni e' opportuno che la rinfreschi cosi':
me.cmbComuni.requery.
nota che nella stringa sql la regione viene scritta tra apici:
'Lazio', 'Piemonte'...  questo perche' in sql si usa cosi': le
stringhe di confronto tra apici, le date tra #cancelletti# e nel
formato mese giorno anno (meglio ancora anno in quattro cifre, mese in
due, giorno in due, cosi': 2000/01/06), i numeri niente.



text:
Grazie per questo (per me nuovo) metodo.
Una domanda banale:
da tastiera come si apre l'elenco della combo?
Ciao
Marco


author: AntoGal

text:
maga58 <
map...@tiscalinet.it
> wrote in message
85aeto$l69$1...@pegasus.tiscalinet.it...
> Una domanda banale:
> da tastiera come si apre l'elenco della combo?
F4
--
Ciao, AntoGal
*************************************************
Home Page (area programmatori di VolFtp)
http://volftp.tin.it/italiani/galletta/
per scaricare un gioco di DAMA ITALIANA
*************************************************


text:
>> da tastiera come si apre l'elenco della combo?
>
>F4
oppure Alt-freccia giu'.



text:
grazie
Marco


title: Intercettare report in stampa - come fare?

text:
Sto cercando di seguire questo esempio, di Karl

https://www.youtube.com/watch?v=k9jgkzG2IaU

Al punto 8 c'e' la descrizione di come 'capire' da codice quando un
report viene lanciato in stampa
In se e' molto semplice, si tratta di intercettare l'evento
ReportHeader_Print  per sapere quando il report e' inviato in stampa o
in anteprima, distinguendo le due cose con un flag settato in precedenza

Tiro giu' il codice esempio come allegato al video su youtube, provo e
funziona esattamente come atteso
Bene bene penso, adesso metto le due routine sul mio report e cosi'
posso intercettare il report inviato in stampa
Copio pari pari le due routine e la variabile globale sul modulo, avvio
il report, l'evento  Report_Activate parte correttamente, mai il
ReportHeader_Print non parte mai
Allora metto fianco a afianco l'esempio di Karl ed il mio, e vado step
by step avanti sia con l'uno che con l'altro
Come invio in stampa uno il tastone nella ribbon che appare quando il
report e' in anteprima, e mando verso una stampante pdf
Ma sul codice mio l'evento ReportHeader_print non parte mai
Controllo le proprieta' dei due report, che sono identiche (a parte
l'origine dati del mio) e riprovo piu' volte ma sempre con esito negativo

La domanda e': l'evento ReportHeader_Print  da cosa e' inibito?

In subordine, come fare per capire da codice se un report e' inviato in
stampa?


text:
Il 10/06/2023 20:37, RobertoA ha scritto:
> Sto cercando di seguire questo esempio, di Karl
>
>
https://www.youtube.com/watch?v=k9jgkzG2IaU

>
> Al punto 8 c'e' la descrizione di come 'capire' da codice quando un
> report viene lanciato in stampa
> In se e' molto semplice, si tratta di intercettare l'evento
> ReportHeader_Print  per sapere quando il report e' inviato in stampa o
> in anteprima, distinguendo le due cose con un flag settato in precedenza
>
> La domanda e': l'evento ReportHeader_Print  da cosa e' inibito?
>
> In subordine, come fare per capire da codice se un report e' inviato in
> stampa?
>

Il problema era la dimensione in verticale della sezione ReportHeader
Se la sezione e' alta zero, Access la considera vuota di tutto ed anche
l'evento ReportHeader_Print NON viene fatto partire


title: PULSANTI DI CHIUSURA E RIDUZIONE

author: RICATTI GIULIA

text:
devo utilizzare un'applicazione fatta con access 97 per sistema operativo
windows 98 sul windows XP, nel programma c'è una funzione che disabilita i
pulsantini di chiusura e riduzione (quelli in alto a destra ), tale funzione
nello stesso programma su windows xp non funziona, mi dà un errore di
overflow. C'è qualcuno che può aiutarmi a risolvere questo problema


title: PULSANTI DI CHIUSURA E RIDUZIONE

author: 'gnurant

text:

l'overflow avviene quando fai un calcolo che supera il limite consentito
di una variabile. Se ad esempio usi una variabile x di tipo byte e ad
essa assegni 1000, avverrà l'overflow. Analizza bene la funzione per
vedere quale calcolo ti da' il problema. Se non riesci, scrivi qui la
funzione, così ci provo io :o)
Ciauz
--
'gnurant come una cucuzza
Inviato da
www.mynewsgate.net


title: PULSANTI DI CHIUSURA E RIDUZIONE

text:
Questo è il modulo che sul sistema operativo windows 98 funziona
perfettamente, mentre su windows xp mi va in overflow su "ModifyAppWind",
Grazie a tutti per l'aiuto
Const GWL_STYLE = -16
Const WS_SYSMENU = &H80000
Const WS_MINIMIZEBOX = &H20000
Const WS_MAXIMIZEBOX = &H10000
Declare Function GetWindowLong Lib "User32" Alias "GetWindowLongA" _
(ByVal hWnd%, ByVal Index%) As Long
Declare Function SetWindowLong Lib "User32" Alias "SetWindowLongA" _
(ByVal hWnd%, ByVal Index%, ByVal Style&) As Long
Declare Function GetParentWind% Lib "User32" Alias "GetParent" (ByVal hWnd%)
Public Sub LockAppWindow(fForm As Form)
ModifyAppWind fForm.hWnd
End Sub
Public Sub ModifyAppWind(wChildWnd)
Dim wParentWnd%
wParentWnd = GetParentWind(GetParentWind(wChildWnd))
Dim PrevWinStyle As Long, NewWinStyle As Long
PrevWinStyle = GetWindowLong(wParentWnd, GWL_STYLE)
NewWinStyle = PrevWinStyle _
And Not WS_SYSMENU _
And Not WS_MINIMIZEBOX _
And Not WS_MAXIMIZEBOX
PrevWinStyle = SetWindowLong(wParentWnd, GWL_STYLE, NewWinStyle)
End Sub
"'gnurant" <
6751i...@mynewsgate.net
> ha scritto nel messaggio
news:200411161...@mynewsgate.net...



title: PULSANTI DI CHIUSURA E RIDUZIONE


title: gestione magazzino

author: Luigi

text:
Ciao a tutti, qualcuno mi può mandare un DB modificabile (ossia in cui posso
vedere come sono state fatte le query, le maschere ecc) per la gestione del
magazzino sono in crisi con un lavoro e devo assolutamente avere un esempio
con cui lavorare. Se volete questa è la mail
dio...@libero.it


title: gestione magazzino

author: Catlory

text:
Se legge il tuo messaggio Roberto ti risponde con le regole del "buon
senso" del NG.


title: gestione magazzino

author: Sergio MAZZA

text:
"Catlory" <
cat...@libero.it
> ha scritto nel messaggio
news:1128527365....@g49g2000cwa.googlegroups.com...
> Se legge il tuo messaggio Roberto ti risponde con le regole del "buon
> senso" del NG.
Eh! Eh!
Ciao.
--
Sergio MAZZA


title: agg. programma e xp dev

author: desio

text:
Quando aggiorno un fe su una macchina a cui ho fornito solo le run time(dove
non c'è acces per intendersi) ma si deve ripacchettizare tutto o basta
sostituire il fila .mdb o mdb
grazie
P.s.
ma il raduno si fa o no?
desio


title: agg. programma e xp dev

author: Fabrizio Quercia

text:
"desio" <
giscar...@dada.it
> ha scritto nel messaggio
news:3ddfa...@news.dada.it...
> non c'è acces per intendersi) ma si deve ripacchettizare tutto o basta
> sostituire il fila .mdb o mdb
sostituisci solo il file.mdb (o .mde) che usi come interfaccia :) e basta.
Ciao :)


title: Passaggio automatico alla casella di controllo successiva

author: Giuseppe

text:
Salve a tutti.
Espongo il mio problema.
Nella form ogni controllo su evento attivato verifica che il controllo precedente non sia nullo; se nullo il focus torna al controllo precedente.
Ho inserito in un modulo la variabile: Public txtNome As Object
Nella suddetta form apro con un pulsante un'altra form per selezionare un valore. Su evento click del pulsante ho messo: Set txtNome = Me.Tipo
Sul pulsante "conferma" della seconda form il codice è:
Forms(Me.OpenArgs).IdAzienda = Forms!RicercaAzienda!Elenconominativi
e su evento scaricamento ha: txtNome.SetFocus
Chiudo la seconda form che in automatico mi aggiorna il controllo IdAzienda della form chiamante spostandomi il focus sul controllo "Tipo".
Il problema sorge nel momento in cui questa soluzione la adotto per selezionare una data.
Quando la form calendario scarica la data, il controllo data non ha ancora ricevuto il valore e quindi il controllo che riceve il focus valuta nullo il controllo precedente e mi restituisce il messaggio "errore di run-time 2110 - impossibile spostare lo stato attivo sul controllo "miocontrollo".
Sbaglio qualcosa io o per le date bisogna adottare un sistema diverso?
Grazie.
Giuseppe.
PS: scusate se mi dilungo troppo.


title: [OT]sito comune .. sei morto?

author: Ivan

text:
riprendo un post di maggio:
come si può fare a dare una mano nell'aggiornamento del sito ?
 ... [Antonello Galletta, Federico Luciani e Luciano Piazza ] ...
hanno bisogno di aiuto?
io posso collaborare (no profit, volontariamente) per lo meno alla
menutenzione del materiale da pubblicare o che sò, qualsiasi compito sia
ritenuto valido.
ciao  Ivan


title: AIUTOOOO ACCESS

author: shahriar shirnia

text:
    Ciao mi chiamo Shari
 Se qualcuno puň Aiutarmi a risolvere un problema con access ,lo ringraziero
di cuore
 - prima di tutto , visuslizzare risultato di un calcolo in una maschera che
provviene da una tabella,per esempio per calcolo [Przdollaro]  formula č
=[PrzLire]/[RataLit-Usd]
Ma io vorrei fare in modo che il valore [RataLit_Usd] senza ripeterlo per
ogni record, ad esempio 50 record ,rimanga costante e risulti nei record
relativi.(senza ricorrere aduna query aggiornanto)
2 - la funzione =date()   se io la inserisco in una query vorrei che mi
indica la data del giorno attuale di aggiornamento e che rimane invariato
dopo che stato aggiornato . ma nel caso mio quando ritorno alla query mi
cambia le date inserite precedentemente ,cosa dovrei fare??
3 - come posso all'interno di una maschera scaricare tutto il contenuto
della tabella di base in un altra tabella?
    Grazie shari
ss...@tin.it


title: AIUTOOOO ACCESS

author: Antonio Biso

text:
shahriar shirnia <
ss...@tin.it
> wrote in message
8shl2o$rvo$1...@nslave3.tin.it...
>     Ciao mi chiamo Shari
>  Se qualcuno puň Aiutarmi a risolvere un problema con access ,lo
ringraziero
> di cuore
Primo aiuto: non scrivere i post con quel subject alquanto poco indicativo
del problema
>  - prima di tutto , visuslizzare risultato di un calcolo in una maschera
che
> provviene da una tabella,per esempio per calcolo [Przdollaro]  formula č
> =[PrzLire]/[RataLit-Usd]
> Ma io vorrei fare in modo che il valore [RataLit_Usd] senza ripeterlo per
> ogni record, ad esempio 50 record ,rimanga costante e risulti nei record
> relativi.(senza ricorrere aduna query aggiornanto)
Non capisco dove sia il problema.
>
> 2 - la funzione =date()   se io la inserisco in una query vorrei che mi
> indica la data del giorno attuale di aggiornamento e che rimane invariato
> dopo che stato aggiornato . ma nel caso mio quando ritorno alla query mi
> cambia le date inserite precedentemente ,cosa dovrei fare??
Devi usare un campo data: alla modifica di un nuovo record ci scriverai la
data attuale, in consultazione avrai la data di modifica e sempre quella
> 3 - come posso all'interno di una maschera scaricare tutto il contenuto
> della tabella di base in un altra tabella?
Prepari una query che accodi la recordsource corrente della maschera in
un'altra tabella
Antonio


title: AIUTOOOO ACCESS

author: sib

text:
Antonio Biso
> shahriar shirnia
[cut]
> >  - prima di tutto , visuslizzare risultato di un calcolo in una maschera
> che
> > provviene da una tabella,per esempio per calcolo [Przdollaro]  formula č
> > =[PrzLire]/[RataLit-Usd]
> > Ma io vorrei fare in modo che il valore [RataLit_Usd] senza ripeterlo
per
> > ogni record, ad esempio 50 record ,rimanga costante e risulti nei record
> > relativi.(senza ricorrere aduna query aggiornanto)
>
> Non capisco dove sia il problema.
Probabilmente ha inserito un campo nella tabella e quindi riporta il valore
in ogni record, in questo caso la soluzione e' semplice, usare una variabile
globale.
[cut]
Ciao, Sib


title: AIUTOOOO ACCESS

text:
sib <
sibN...@iol.it
> wrote in message
xS1H5.35513$Nz.10...@news.infostrada.it...

Maschera continua?
Ahia ahiaihiaiaiii !!!
Antonio


title: AIUTOOOO ACCESS

text:
Grazie per avermi risposto ,forse non ho impostato bene il problema, e lo so
la colpa è mia ,e cerco di farmi capire meglio.A proposito della prima
domanda:
" 1- prima di tutto , visualizzare il risultato di un calcolo in una
maschera che provviene da una tabella,per esempio per calcolo [Przdollaro]
formula è =[PrzLire]/[RataLit-Usd] Ma io vorrei fare in modo che il valore
[RataLit_Usd] senza ripeterlo per ogni record, ad esempio 50 record ,rimanga
costante e risulti nei recordrelativi.(senza ricorrere aduna query
aggiornanto)": Se io ho 50record di articoli vorrei fare una maschera a
parte in modo di attribuire rataLit-Usd (e la data del gg) a tutti i record
e che venga registrato nell'apposito campo nella tabella sottostante.
IL problema è qui : 1° - che nella tabella,campo [przDollaro] non
restituisce valori calcolati ( formule inserite in Controlli di testo in
maschera) ed è vuoto.
2° - che bisogna ripetere il valore di campo[RataLit_Usd] per tutti record
uno per uno, mentre io vorrei fare contrario ,cioè fare in modo che
inserendo una volta, il valore rimanga invariata
per tutti i record .
grazie Ciao, Shari


title: LED

author: Stefano

text:
C'è qualcuno in grado di dirmi se esiste un controllo activex che mi metta a
disposizione un "LED" (rosso e verde a seconda della situazione)
Grazie
Stefano


title: LED

text:
"Stefano" <
stefa...@libero.it
> ha scritto nel messaggio
news:669b7.9626$fA3.3...@news.infostrada.it...

lo puoi fare anche tu senza usare gli active X
fai una rettangolo di colore verde poi dirgli attraveso del codice che se un
certo campo ha un valore di cambiare colore o sparire.
esempio:
if me![data]< data(now()) then
led.backcolor=rgb(255,0,0)
else
led.backcolor=rgb(0,125,0)
end if
ciao


title: LED

author: koo

text:
Oppure è possibile utilizzare due o più immaginette.
[...]
> lo puoi fare anche tu senza usare gli active X
>
> fai una rettangolo di colore verde poi dirgli attraveso del codice che se
un
> certo campo ha un valore di cambiare colore o sparire.
[...]


title: LED

text:
koo <koo@k.k> wrote in message 9klo5p$nhk$1...@serv1.iunet.it...
> Oppure è possibile utilizzare due o più immaginette.
Oppure si può scrivere DOPO il quoting
Antonio


title: (forse OT) query access in front page

author: Digital

text:
Salve a tutti.
Ho questo problema : ho creato un DB con Access 2000 per pubblicarlo
sul mio sito web con Front Page tramite pagine ASP. Un valore VALUTA
viene correttamente visualizzato nella query visualizzata con Access
ma all'interno della pagina WEB dove ho inserito questa query il
valore mi viene visualizzato solamente come numero, la stessa cosa
succede con un valore in EURO : con due decimali in access mentre
nella pagina WEB vengono visualizzati tutti i decimali.
Non sono riuscito a trovare il modo di visualizzarle correttamente,
qualcuno mi può dare una dritta ?
Grazie
Del NOSPAM from address
nemrut...@tiscalinet.it


title: (forse OT) query access in front page

author: Lbo

text:
>Ho questo problema : ho creato un DB con Access 2000 per pubblicarlo
>sul mio sito web con Front Page tramite pagine ASP. Un valore VALUTA
bah, non conosco fp, ma in una pagina asp puoi usare le funzioni del
vbscript, tra cui la formatnumber.
per formattare un valore in euro, quindi con puntini e due decimali:
formatnumber(valore, 2)
--
non studio non lavoro non guardo la tv
non vado al cinema non faccio sport
----------------------------------------
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access


title: Cambiare l'ordine di un testo (farlo apparire da destra a sinistra)

author: Pino

text:
In una tabella ho delle date in formato testo del tipo 080515. Come
faccio a fare in modo che in una text appaia la data nel modo corretto
e cioe' 150508..cioe' facendo apparire la stringa di testo a partire
da destra. Con Right non cambia nulla.
Grazie.


author: MA

text:

metti in un modulo questa funzione
Function MioReverse(strNumero as string) as string
dim i as integer
dim strNum as string
for i = len(strNumero) to 1 step -1
strnum = strnum & mid(strnum, i,i)
next
strnumero = strnum
end function
Poi dove la dev iusare metti
=Mioreverse(TuoNumero)
dove tuonumero è il numero da convertire
--
--
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana Sviluppatori Access


author: Alessandro Cara

text:
MA wrote:
> Pino wrote:
>> In una tabella ho delle date in formato testo del tipo 080515. Come
>> faccio a fare in modo che in una text appaia la data nel modo corretto
>> e cioe' 150508..cioe' facendo apparire la stringa di testo a partire
>> da destra. Con Right non cambia nulla.
>> Grazie.
>
> metti in un modulo questa funzione
> Function MioReverse(strNumero as string) as string
> dim i as integer
> dim strNum as string
> for i = len(strNumero) to 1 step -1
> strnum = strnum & mid(strnum, i,i)
> next
> strnumero = strnum
> end function
>
> Poi dove la dev iusare metti
> =Mioreverse(TuoNumero)
> dove tuonumero č il numero da convertire
>
MA! Vuole "formattare" una data.
Non credo voglia ottenere 805051
;<)
--
ac
y-1=x


text:
Alessandro Cara wrote:
> MA wrote:
>> Pino wrote:
>>> In una tabella ho delle date in formato testo del tipo 080515. Come
>>> faccio a fare in modo che in una text appaia la data nel modo
>>> corretto e cioe' 150508..cioe' facendo apparire la stringa di testo
>>> a partire da destra. Con Right non cambia nulla.
>>> Grazie.
>>
>> metti in un modulo questa funzione
>> Function MioReverse(strNumero as string) as string
>> dim i as integer
>> dim strNum as string
>> for i = len(strNumero) to 1 step -1
>> strnum = strnum & mid(strnum, i,i)
>> next
>> strnumero = strnum
>> end function
>>
>> Poi dove la dev iusare metti
>> =Mioreverse(TuoNumero)
>> dove tuonumero è il numero da convertire
>>
> MA! Vuole "formattare" una data.
> Non credo voglia ottenere 805051
>
> ;<)
M'ha fregato con l'object del post!!!
Infatto adesso torna il perchè anagrammava le cifre!!!
e allora è
right(TuoNumero;2)&mid(tuonumero;3;2)&left(tuonumero;2)
oppure format



title: errore calcolo età con formula

author: tmtube

text:
ho trovato nel newsgroup questa formula per il calcolo preciso dell'età ma
restituisce #errore
il campo a cui l'ho associata è di tipo intero decimali zero

=DateDiff("aaaa";[natodata];Date())+(Format(Date();"mmgg")<Format([natodata];"mmgg"))

secondo voi cosa non và?


title: errore calcolo età con formula

author: Karl Donaubauer

text:

Cosa vuoi dire con "associata"?
Oppure: Dove usi quest'espressione se non nella proprietà
"origine controllo" di una casella di testo in una maschera o report?

--
Ciao
Karl
*********
Access FAQ:
http://www.donkarl.com/it


title: errore calcolo età con formula

text:
>Cosa vuoi dire con "associata"?
>Oppure: Dove usi quest'espressione se non nella propriet�
>"origine controllo" di una casella di testo in una maschera o report?

>--
>Ciao
>Karl

intendevo nell'origine controllo  del mio campo
ma non funziona restituisce #ERRORE eppure natodata � un campo con valore
data

cosa non v�?


title: errore calcolo età con formula

text:
tmtube wrote:
>> Cosa vuoi dire con "associata"?
>> Oppure: Dove usi quest'espressione se non nella proprietà
>> "origine controllo" di una casella di testo in una maschera o report?
>
> intendevo nell'origine controllo  del mio campo
> ma non funziona restituisce #ERRORE eppure natodata è un campo con
> valore data
>
> cosa non và?

Non l'hai rivelato, ma forse con "associata" intendevi che il controllo
con la formula (cioè la casella di testo) ha lo stesso nome di un
campo dell'origine dati della maschera. In questo caso devi cambiare
il nome del controllo per evitare il conflitto con la formula.



title: errore calcolo età con formula

text:
>Non l'hai rivelato, ma forse con "associata" intendevi che il controllo
>con la formula (cioè la casella di testo) ha lo stesso nome di un
>campo dell'origine dati della maschera. In questo caso devi cambiare
>il nome del controllo per evitare il conflitto con la formula.

In effetti era presenta un controllo con lo stesso  nome del campo l'ho
cambiato in natodata2
e nella formula ho lasciato natodata (il nome del campo)

=DateDiff("aaaa";[NatoData];Date())+(Format(Date();"mmgg")<Format([NatoData];"mmgg"))

ma restituisce ancora #ERRORE

altre idee? grazie.


title: errore calcolo età con formula

text:
tmtube wrote:
>> Non l'hai rivelato, ma forse con "associata" intendevi che il
>> controllo con la formula (cioè la casella di testo) ha lo stesso
>> nome di un campo dell'origine dati della maschera. In questo caso
>> devi cambiare il nome del controllo per evitare il conflitto con
>> la formula.
>
> In effetti era presenta un controllo con lo stesso  nome del campo
> l'ho cambiato in natodata2
> e nella formula ho lasciato natodata (il nome del campo)

Intendevo il controllo con la formula, non altri controlli.

> =DateDiff("aaaa";[NatoData];Date())+(Format(Date();"mmgg")<Format([NatoData];"mmgg"))
>
> ma restituisce ancora #ERRORE

Prova se ricevi l'errore anche con solo:

=DateDiff("aaaa";[NatoData];Date())
o
=Format(Date();"aaaa")
o
=Format(Now();"aaaa")

Se tuttu ti danno l'errore prova con un po' d'inglese:

=DateDiff("yyyy";[NatoData];Date())+(Format(Date();"mmdd")<Format([NatoData];"mmdd"))



title: errore calcolo età con formula

text:
>Se tuttu ti danno l'errore prova con un po' d'inglese:

>=DateDiff("yyyy";[NatoData];Date())+(Format(Date();"mmdd")<Format([NatoData];"mmdd"))

>--
>Ciao
>Karl

funziona quest'ultima in inglese!
santo subito!!


Il nuovo magazine dedicato alla Playstation e Playstation2, aggiornato tutti i giorni!
http://www.superps2.com


title: visualizzazione condizionata dei pulsanti

text:
Salve a tutti.
Leggendo i vari post precedenti ho trovato qualcosa simile a quello
che mi serve ma non è proprio la soluzione ideale in quanto la
condizione è diversa.
Io bisogno di far apparire no o più pulsanti (che ho inserito nel piè
di pagina maschera) solo quando mi posiziono su una casella di testo
della maschera.
Ho provato a mettere su evento attivato della casella di controllo il
seguente codice
Me.F1.Enabled = False
e su evento disattivato
Me.F1.Enabled = True
ma non cambia niente.
Cosa bisogna cambiare?
Ciao.
Giuseppe.


text:
Giuseppe ha scritto:
>Salve a tutti.
>Leggendo i vari post precedenti ho trovato qualcosa simile a quello
>che mi serve ma non =E8 proprio la soluzione ideale in quanto la
>condizione =E8 diversa.
>Io bisogno di far apparire no o pi=F9 pulsanti (che ho inserito nel pi=E8
>di pagina maschera) solo quando mi posiziono su una casella di testo
>della maschera.
>Ho provato a mettere su evento attivato della casella di controllo il
>seguente codice
>Me.F1.Enabled =3D False
>
>e su evento disattivato
>Me.F1.Enabled =3D True
>ma non cambia niente.
>Cosa bisogna cambiare?
>Ciao.
>Giuseppe.
Su evento GotFocus me.TuoPulsante.visible = false (lo rende invisibile ma non inattivo) su LostFocus me.TuoPulsante.visible = true. Enable per renderlo inattivo
Ciao
--
Questo articolo e` stato inviato dal sito web
http://www.nonsolonews.it


text:

Così praticamente resta sempre invisibile da quando apro la maschera e
sia che sono posizionato o meno sulla casella.
Puoi verificare?