title: Query su server da associare ad una subform

author: Pisinho

text:
Buongiorno,
ho una maschera con sottomaschera che vorrei associare ad una query fatta su
un server SQL per prelevare i dati in tempo reale senza fare tabelle
collegate etc, dato che ho timore che qualcuno possa far casino sui dati.
Ho associato la query a Me!NomeSubForm.Form.recordsource ma credo che manchi
qualcosa dato che non funziona.
Sapete qual'� il modo per popolare la subform, premetto che la subform �
vuota dato che vorei proprio visualizzare il recordset come foglio dati.
Grazie mille.


author: Carlo Costarella

text:
"Pisinho" <
pis...@gmail.com
> ha scritto nel messaggio
news:4ab33716$1...@news.x-privat.org...

Usare una query Pass-through?
Vedi sulla guida.
Domandina: nella sottomaschera ci sono dei controlli?
Ciao, Carlo


title: RunTime

author: Fabio

text:
Cosa significa runtime di microsoft office?
Grazie per l'aiuto
Fabio


title: RunTime

author: Sergio Della Giora

text:
"Fabio" <
giod...@tin.it
> ha scritto nel messaggio
news:3A793EBB...@tin.it...
> Cosa significa runtime di microsoft office?
>
> Grazie per l'aiuto
>
> Fabio
Il runtime di Access è quella applicazione che ti consente di distribuire un
tuo db creato con access ad altri utenti che non hanno access installato sul
pc.
Saluti
Sergio Della Giora


title: RunTime

text:
Sergio Della Giora ha scritto:

Io ho Microsoft Office 2000 Professional, come posso sapere se ho
questa  applicazione?



title: RunTime

author: Giuseppe

text:
"Fabio" <
giod...@tin.it
> ha scritto nel messaggio
news:3A796883...@tin.it...

No. Va acquistata a parte
giuseppe


title: RunTime

text:
Giuseppe ha scritto:
>
> "Fabio" <
giod...@tin.it
> ha scritto nel messaggio
> news:3A796883...@tin.it...
> > Sergio Della Giora ha scritto:
> > >
> > > "Fabio" <
giod...@tin.it
> ha scritto nel messaggio
> > > news:3A793EBB...@tin.it...
> > > > Cosa significa runtime di microsoft office?
> > > >
> > > > Grazie per l'aiuto
> > > >
> > > > Fabio
> > >
> > > Il runtime di Access è quella applicazione che ti consente di
> distribuire un
> > > tuo db creato con access ad altri utenti che non hanno access installato
> sul
> > > pc.
> > >
> > > Saluti
> > >
> > > Sergio Della Giora
> >
> > Io ho Microsoft Office 2000 Professional, come posso sapere se ho
> > questa  applicazione?
>
> No. Va acquistata a parte
> giuseppe
grazie Giuseppe
Ciao
Fabio


title: Creare un File di Guida

author: Perego Roberto

text:
Ciao a tutti, vorrei creare un file di guida per un mio database, qualcuno
sa dirmi con che programma posso crearlo? possibilmente in Italiano.
Grazie a tutti.


title: Creare un File di Guida

author: sv

text:
Perego Roberto ha scritto:
> Ciao a tutti, vorrei creare un file di guida per un mio database, qualcuno
> sa dirmi con che programma posso crearlo? possibilmente in Italiano.
> Grazie a tutti.
Utilizzo Shalom Help Maker
che trovi al seguente link:
www.danish-shareware.dk/soft/shelpm/
--
rgrds
SC
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Creare un File di Guida

author: Umberto

text:
Sul web se ne trovano a bizzeffe ... comunque io utilizzo un software
vecchissimo che neanche credo esista più, che si chiama ForeHelp.
E' naturalmente in inglese ma, per quanto mi riguarda, svolge
magnificamente la sua funzione di creare un help in linea senza
diventare matti a capire come funziona l'applicativo. Se non trovi
niente di meglio ti posso procurare:
- un mio file .hlp di esempio
- l'applicativo
Umberto


title: Creare un File di Guida

author: Alex NSB

text:
> Ciao a tutti, vorrei creare un file di guida per un mio database,
> qualcuno sa dirmi con che programma posso crearlo? possibilmente in
> Italiano.
http://www.helpscribble.com/
HTH.
Alessandro


title: [OT] query access query ASP

text:
Tornato dalle vacanze sono di nuovo a cimentarmi nell'impresa di
tradìsferire un Db Access sul wEB attrverso le Asp.
In un report di Access utilizzo la seguente query:
SELECT Contratti.ID, Contratti.COD, Contratti.CLIENTE, gruppi.gruppo,
gruppi.quantità, gruppi.tipo_contratto, gruppi.px, gruppi.destinazione,
Contratti.[CONT DAL], Contratti.[CONT AL], Contratti.disdetta
FROM Contratti INNER JOIN gruppi ON Contratti.ID = gruppi.idcliente
WHERE (((Contratti.[CONT DAL])<Date()) AND ((Contratti.[CONT AL])>Date())
AND ((Contratti.disdetta) Is Null))
ORDER BY Contratti.CLIENTE;
trasferita con Asp se vado non mi funziona e se vado a visualizzarla
mi visualizza:
SELECT Contratti.ID, Contratti.COD, Contratti.CLIENTE, gruppi.gruppo,
gruppi.quantità, gruppi.tipo_contratto, gruppi.px, gruppi.destinazione,
Contratti.[CONT DAL], Contratti.[CONT AL], Contratti.disdetta FROM
Contratti INNER JOIN gruppi ON Contratti.ID = gruppi.idcliente WHERE
(((Contratti.[CONT DAL])Date()) AND ((Contratti.disdetta) Is Null))ORDER
BY Contratti.CLIENTE;
Mi ha "saltato" una condizione e non stampa il >
COme devo modificare la sintassi?
CIao e Grazie Sergio
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: [OT] query access query ASP

author: Cinzia

text:
"francesco73" <
f...@bar.it
> ha scritto nel messaggio
news:ch23qm$fvh$1...@news.newsland.it...
> Tornato dalle vacanze sono di nuovo a cimentarmi nell'impresa di
> tradìsferire un Db Access sul wEB attrverso le Asp.
> In un report di Access utilizzo la seguente query:
>
> SELECT Contratti.ID, Contratti.COD, Contratti.CLIENTE, gruppi.gruppo,
> gruppi.quantità, gruppi.tipo_contratto, gruppi.px, gruppi.destinazione,
> Contratti.[CONT DAL], Contratti.[CONT AL], Contratti.disdetta
> FROM Contratti INNER JOIN gruppi ON Contratti.ID = gruppi.idcliente
> WHERE (((Contratti.[CONT DAL])<Date()) AND ((Contratti.[CONT AL])>Date())
> AND ((Contratti.disdetta) Is Null))
> ORDER BY Contratti.CLIENTE;
>
>
> trasferita con Asp se vado non mi funziona e se vado a visualizzarla
> mi visualizza:
>
> SELECT Contratti.ID, Contratti.COD, Contratti.CLIENTE, gruppi.gruppo,
> gruppi.quantità, gruppi.tipo_contratto, gruppi.px, gruppi.destinazione,
> Contratti.[CONT DAL], Contratti.[CONT AL], Contratti.disdetta FROM
> Contratti INNER JOIN gruppi ON Contratti.ID = gruppi.idcliente WHERE
> (((Contratti.[CONT DAL])Date()) AND ((Contratti.disdetta) Is Null))ORDER
> BY Contratti.CLIENTE;
>
> Mi ha "saltato" una condizione e non stampa il >
> COme devo modificare la sintassi?
>
> CIao e Grazie Sergio
>
>
>
Ciao Francesco,
prova così:
sql = "SELECT Contratti.ID, Contratti.COD, Contratti.CLIENTE, gruppi.gruppo,
 gruppi.quantità, gruppi.tipo_contratto, gruppi.px, gruppi.destinazione,
Contratti.[CONT DAL], Contratti.[CONT AL], Contratti.disdetta FROM
 Contratti INNER JOIN gruppi ON Contratti.ID = gruppi.idcliente WHERE
 (((Contratti.[CONT DAL])<#" & Date() & "#) AND ((Contratti.[CONT AL])>#" &
Date() & "#) AND ((Contratti.disdetta) Is Null))ORDER BY Contratti.CLIENTE"
Saluti
Cinzia


title: [OT] query access query ASP

text:
Cinzia ha scritto:

> Saluti
> Cinzia
I cancelletti!!!..Grazie mi sei stata di grande aiuto!!Sei un tesoro!!
Fra



title: Visualizzare immagini in RunTime

author: Sandrobi

text:
Ho provato sul Sito Comune, nella Sezione General,
la FAQ di Silvio Savoldi intitolata "Implementare un archivio di
immagini":
nelle istruzioni segnala che il RunTime di Acces supporta solo bitmap.
In effetti č cosě, anzi va in errore anche con qualche bitmap.
Con Imaging/Wang si aprono tutti ma da Acess no.
Io devo visualizzare delle immagini prelevate da una macchina fotografica
digitale:
1) come faccio a sapere come deve essere l'immagine per non dare problemi?
2) nell'articolo si parla di filtri di conversione: cosa sono e come si
installano?
3) si parla anche di controlli immagine Activex: dove si trovano?
Grazie a chi sa dirmi qualcosa.
Sandro


title: Visualizzare immagini in RunTime

author: MA

text:
> Ho provato sul Sito Comune, nella Sezione General,
> la FAQ di Silvio Savoldi intitolata "Implementare un archivio di
> immagini":
> nelle istruzioni segnala che il RunTime di Acces supporta solo bitmap.
> In effetti è così, anzi va in errore anche con qualche bitmap.
> Con Imaging/Wang si aprono tutti ma da Acess no.
>
> Io devo visualizzare delle immagini prelevate da una macchina fotografica
> digitale:
> 1) come faccio a sapere come deve essere l'immagine per non dare problemi?
> 2) nell'articolo si parla di filtri di conversione: cosa sono e come si
> installano?
> 3) si parla anche di controlli immagine Activex: dove si trovano?
>
> Grazie a chi sa dirmi qualcosa.
> Sandro
Guarda su Lebans, c'è un modulo molto più performante della proprietà
picture e con qualsisasi estensione e valido per il runtime.
Io sto convertendo tu i miei facili .picture con quella funzione sigh!
MAssimiliano


title: Visualizzare immagini in RunTime

author: Roberto da casa

text:
"Sandrobi" <
sandb...@libero.it
> ha scritto nel messaggio
news:RkVTb.12795$U4.4...@twister1.libero.it...

Gli ActiveX per il trattamento immagini sono gli ActiveX Kodak.
Se, come mi sembra di capire, sul tuo PC č installato il programma Imaging,
anche tali ActiveX sono installati: sino alla versione Windows 2000 la
Microsoft li consegnava gratuitamente con il sistema operativo.
>
> Grazie a chi sa dirmi qualcosa.
> Sandro
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Visualizzare immagini in RunTime

text:

Puoi dirmi più precisamente di quale si tratta?  Ho trovato un PictureBoxA97
ma non mi sembra che sia quello che mi serve, che è di aprire dei file jpg
da Runtime di Access97.
Grazie
Sandro


title: Visualizzare immagini in RunTime

text:
> > Guarda su Lebans, c'è un modulo molto più performante della proprietà
> > picture e con qualsisasi estensione e valido per il runtime.
> > Io sto convertendo tu i miei facili .picture con quella funzione sigh!
> >
> > MAssimiliano
> >
> Puoi dirmi più precisamente di quale si tratta?  Ho trovato un
PictureBoxA97
> ma non mi sembra che sia quello che mi serve, che è di aprire dei file jpg
> da Runtime di Access97.
>
> Grazie
Chiedo scusa a tutto il NG se appesantisco il post ma non ricordo
precisamente dove l'ho preso
Option Compare Database
Option Explicit
Private Type POINTAPI
    X As Long
    Y As Long
End Type
Public Type RECTL
    Left As Long
    top As Long
    right As Long
    Bottom As Long
End Type
Private Type SIZEL
    cx As Long
    cy As Long
End Type
Private Declare Sub CopyMem Lib "kernel32" Alias "RtlMoveMemory" _
(Destination As Any, Source As Any, ByVal Length As Long)
Declare Function CopyEnhMetaFile Lib "gdi32" Alias "CopyEnhMetaFileA" (ByVal
hemfSrc As Long, ByVal lpszFile As String) As Long
Private Declare Function PlayEnhMetaFile Lib "gdi32" (ByVal hDC As Long,
ByVal hEMF As Long, lpRect As RECTL) As Long
Private Declare Function apiCloseEnhMetaFile Lib "gdi32" _
Alias "CloseEnhMetaFile" (ByVal hDC As Long) As Long
Private Declare Function apiCreateEnhMetaFileRECT Lib "gdi32" _
Alias "CreateEnhMetaFileA" (ByVal hDCref As Long, _
ByVal lpFileName As String, ByRef lpRect As RECTL, ByVal lpDescription As
String) As Long
Private Declare Function apiDeleteEnhMetaFile Lib "gdi32" _
Alias "DeleteEnhMetaFile" (ByVal hEMF As Long) As Long
Private Declare Function GetEnhMetaFileBits Lib "gdi32" _
(ByVal hEMF As Long, ByVal cbBuffer As Long, lpbBuffer As Byte) As Long
Private Declare Function apiSelectObject Lib "gdi32" _
 Alias "SelectObject" (ByVal hDC As Long, ByVal hObject As Long) As Long
Private Declare Function apiGetDC Lib "user32" _
  Alias "GetDC" (ByVal hWnd As Long) As Long
Private Declare Function apiReleaseDC Lib "user32" _
  Alias "ReleaseDC" (ByVal hWnd As Long, _
  ByVal hDC As Long) As Long
Private Declare Function apiDeleteObject Lib "gdi32" _
  Alias "DeleteObject" (ByVal hObject As Long) As Long
Private Declare Function GetStockObject Lib "gdi32" (ByVal nIndex As Long)
As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hWnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, lParam As Any) As Long
Private Declare Function SetStretchBltMode Lib "gdi32" (ByVal hDC As Long, _
ByVal nStretchMode As Long) As Long
Private Declare Function SetMapMode Lib "gdi32" (ByVal hDC As Long, ByVal
nMapMode As Long) As Long
Private Declare Function SetViewportExtEx Lib "gdi32" _
(ByVal hDC As Long, ByVal nX As Long, ByVal nY As Long, lpSize As SIZEL) As
Long
Private Declare Function SetViewportOrgEx Lib "gdi32" _
(ByVal hDC As Long, ByVal nX As Long, ByVal nY As Long, lpPoint As POINTAPI)
As Long
Private Declare Function SetWindowOrgEx Lib "gdi32" _
(ByVal hDC As Long, ByVal nX As Long, ByVal nY As Long, lpPoint As POINTAPI)
As Long
Private Declare Function SetWindowExtEx Lib "gdi32" _
(ByVal hDC As Long, ByVal nX As Long, ByVal nY As Long, lpSize As SIZEL) As
Long
Private Declare Function apiGetDeviceCaps Lib "gdi32" Alias "GetDeviceCaps"
_
(ByVal hDC As Long, ByVal nIndex As Long) As Long
Private Declare Function SetBkMode Lib "gdi32" (ByVal hDC As Long, ByVal
nBkMode As Long) As Long
Private Const BLACKONWHITE = 1
Private Const WHITEONBLACK = 2
Private Const COLORONCOLOR = 3
Private Const HALFTONE = 4
Private Const MAXSTRETCHBLTMODE = 4
Private Const WM_HSCROLL = &H114
Private Const WM_VSCROLL = &H115
Private Const SB_LINEUP = 0
Private Const SB_LINELEFT = 0
Private Const SB_LINEDOWN = 1
Private Const SB_LINERIGHT = 1
Private Const SB_PAGEUP = 2
Private Const SB_PAGELEFT = 2
Private Const SB_PAGEDOWN = 3
Private Const SB_PAGERIGHT = 3
Private Const SB_THUMBPOSITION = 4
Private Const SB_THUMBTRACK = 5
Private Const SB_TOP = 6
Private Const SB_LEFT = 6
Private Const SB_BOTTOM = 7
Private Const SB_RIGHT = 7
Private Const SB_ENDSCROLL = 8
Private Const SRCCOPY = &HCC0020 '
Private Const CF_TEXT = 1
Private Const CF_BITMAP = 2
Private Const CF_METAFILEPICT = 3
Private Const CF_SYLK = 4
Private Const CF_DIF = 5
Private Const CF_TIFF = 6
Private Const CF_OEMTEXT = 7
Private Const CF_DIB = 8
Private Const CF_PALETTE = 9
Private Const CF_PENDATA = 10
Private Const CF_RIFF = 11
Private Const CF_WAVE = 12
Private Const CF_UNICODETEXT = 13
Private Const CF_ENHMETAFILE = 14
Private Const MM_TEXT = 1
Private Const MM_LOMETRIC = 2
Private Const MM_HIMETRIC = 3
Private Const MM_LOENGLISH = 4
Private Const MM_HIENGLISH = 5
Private Const MM_TWIPS = 6
Private Const MM_ISOTROPIC = 7
Private Const MM_ANISOTROPIC = 8
Private Const vbPicTypeNone = 0 'Picture is empty
Private Const vbPicTypeBitmap = 1 'Bitmap (.bmpBMP files)
Private Const vbPicTypeMetafile = 2 'Metafile (.wmfWMF files)
Private Const vbPicTypeIcon = 3 'Icon (.icoICO files)
Private Const vbPicTypeEMetafile = 4 'Enhanced Metafile (.emfEMF files)
Private Const WHITE_BRUSH = 0
Private Const LTGRAY_BRUSH = 1
Private Const GRAY_BRUSH = 2
Private Const DKGRAY_BRUSH = 3
Private Const BLACK_BRUSH = 4
Private Const NULL_BRUSH = 5
Private Const HOLLOW_BRUSH = NULL_BRUSH
Private Const WHITE_PEN = 6
Private Const BLACK_PEN = 7
Private Const NULL_PEN = 8
Private Const OEM_FIXED_FONT = 10
Private Const ANSI_FIXED_FONT = 11
Private Const ANSI_VAR_FONT = 12
Private Const SYSTEM_FONT = 13
Private Const DEVICE_DEFAULT_FONT = 14
Private Const DEFAULT_PALETTE = 15
Private Const SYSTEM_FIXED_FONT = 16
Private Const STOCK_LAST = 16
' Background Modes
Private Const TRANSPARENT = 1
Private Const OPAQUE = 2
Private Const BKMODE_LAST = 2
' GetDeviceCaps
Private Const HORZSIZE = 4           '  Horizontal size in millimeters
Private Const VERTSIZE = 6           '  Vertical size in millimeters
Private Const HORZRES = 8            '  Horizontal width in pixels
Private Const VERTRES = 10           '  Vertical width in pixels
Private Const LOGPIXELSY = 90
Private Const LOGPIXELSX = 88
' How many Twips in 1 inch
Private Const TWIPSPERINCH = 1440
Function fStdPicToImageData(hStdPic As Object, ctl As Access.Image, _
Optional FileNamePath As String = "", Optional AutoSize As Boolean = False)
As Boolean
On Error GoTo ERR_SHOWPIC
Dim hDCref As Long
Dim sz As SIZEL
Dim pt As POINTAPI
Dim rc As RECTL
Dim lngRet As Long
Dim s As String
Dim hMetafile As Long
Dim hDCMeta As Long
Dim arrayMeta() As Byte
Dim sngConvertX As Single
Dim sngConvertY As Single
Dim ImageWidth As Long
Dim ImageHeight As Long
Dim Xdpi As Single
Dim Ydpi As Single
Dim TwipsPerPixelX As Single
Dim TwipsPerPixely As Single
Dim sngHORZRES As Single
Dim sngVERTRES As Single
Dim sngHORZSIZE As Single
Dim sngVERTSIZE As Single
hDCref = apiGetDC(0)
If hStdPic.Type = 0 Then
 Err.Raise vbObjectError + 523, "fStdPicToImageData.modStdPic", _
    "Sorry...This function can only read Image files." & vbCrLf & "Please
Select a Valid Supported Image File"
End If
sngHORZRES = apiGetDeviceCaps(hDCref, HORZRES)
sngVERTRES = apiGetDeviceCaps(hDCref, VERTRES)
sngHORZSIZE = apiGetDeviceCaps(hDCref, HORZSIZE)
sngVERTSIZE = apiGetDeviceCaps(hDCref, VERTSIZE)
sngConvertX = (sngHORZSIZE * 0.1) / 2.54
sngConvertY = (sngVERTSIZE * 0.1) / 2.54
sngConvertX = sngHORZRES / sngConvertX
sngConvertY = sngVERTRES / sngConvertY
Xdpi = sngConvertX
Ydpi = sngConvertY
sngConvertX = hStdPic.Width * 0.001
sngConvertY = hStdPic.Height * 0.001
sngConvertX = sngConvertX / 2.54
sngConvertY = sngConvertY / 2.54
sngConvertX = sngConvertX * 1440
sngConvertY = sngConvertY * 1440
TwipsPerPixelX = TWIPSPERINCH / Xdpi
TwipsPerPixely = TWIPSPERINCH / Ydpi
ImageWidth = sngConvertX / TwipsPerPixelX
ImageHeight = sngConvertY / TwipsPerPixely
rc.right = hStdPic.Width
rc.Bottom = hStdPic.Height
s = "Massimiliano Amendola" & Chr(0) & Chr(0) & "
www.massimiianoamendola.it
"
& Chr(0) & Chr(0)
hDCMeta = apiCreateEnhMetaFileRECT(hDCref, vbNullString, rc, s)
If hDCMeta = 0 Then
    Err.Raise vbObjectError + 525, "fStdPicToImageData.modStdPic", _
    "Mi dispiace...errore nella procedura "
End If
lngRet = SetMapMode(hDCMeta, MM_TEXT) 'ANISOTROPIC) 'TEXT)
lngRet = SetWindowExtEx(hDCMeta, ImageWidth, ImageHeight, sz)
lngRet = SetWindowOrgEx(hDCMeta, 0&, 0&, pt)
lngRet = SetWindowExtEx(hDCMeta, ImageWidth, ImageHeight, sz)
lngRet = SetBkMode(hDCMeta, TRANSPARENT)
lngRet = apiSelectObject(hDCMeta, GetStockObject(NULL_BRUSH))
lngRet = apiSelectObject(hDCMeta, GetStockObject(NULL_PEN))
lngRet = SetStretchBltMode(hDCMeta, COLORONCOLOR)
hStdPic.Render CLng(hDCMeta), 0&, 0&, CLng(ImageWidth), CLng(ImageHeight), _
0&, hStdPic.Height, hStdPic.Width, -hStdPic.Height, vbNull
DoEvents
hMetafile = apiCloseEnhMetaFile(hDCMeta)
If hMetafile = 0 Then
    fStdPicToImageData = False
    Exit Function
End If
lngRet = GetEnhMetaFileBits(hMetafile, 0, ByVal 0&)
If lngRet = 0 Then
    fStdPicToImageData = False
    Exit Function
End If
ReDim arrayMeta((lngRet - 1) + 8)
lngRet = GetEnhMetaFileBits(hMetafile, lngRet, arrayMeta(8))
lngRet = apiDeleteEnhMetaFile(hMetafile)
arrayMeta(0) = CF_ENHMETAFILE
ctl.PictureData = arrayMeta
If AutoSize Then
    If sngConvertX < ctl.Parent.Width Then
       ctl.Width = sngConvertX '+ 15
    Else
        ctl.Width = ctl.Parent.Width - 200
    End If
    If sngConvertY < ctl.Parent.Detail.Height Then
        ctl.Height = sngConvertY '+ 15
    Else
        ctl.Height = ctl.Parent.Detail.Height - 200
    End If
     ctl.SizeMode = acOLESizeStretch
End If
EXIT_SHOWPIC:
lngRet = apiReleaseDC(0&, hDCref)
Exit Function
ERR_SHOWPIC:
MsgBox Err.Description, vbOKOnly, Err.Source & ":" & Err.Number
Resume EXIT_SHOWPIC
End Function
Public Function fLoadPicture(ctl As Access.Image, Optional strfName As
String = "", Optional AutoSize As Boolean = False) As Boolean
' Inputs
' ctl -> Access Image control
' strfName -> Optional name of Image file to load and bypass File Dialog
On Error GoTo Err_fLoadPicture
' Temp Vars
Dim lngRet As Long
Dim blRet As Boolean
' Our StdPicture object returned by LoadPicture
Dim hPic As Object
' Were we passed the Optional FileName and Path
If Len(strfName & vbNullString) = 0 Then
    ' Call the File Common Dialog Window
    Dim clsDialog As Object
    Dim strTemp As String
    Set clsDialog = New clsCommonDialog
    ' Fill in our structure
    clsDialog.Filter = "All (*.*)" & Chr$(0) & "*.*" & Chr$(0)
    clsDialog.Filter = clsDialog.Filter & "JPEG (*.JPG)" & Chr$(0) & "*.JPG"
& Chr$(0)
    clsDialog.Filter = clsDialog.Filter & "Gif (*.GIF)" & Chr$(0) & "*.GIF"
& Chr$(0)
    clsDialog.Filter = clsDialog.Filter & "Bitmap (*.BMP)" & Chr$(0) &
"*.BMP" & Chr$(0)
    clsDialog.Filter = clsDialog.Filter & "Enhanced Metafile (*.EMF)" &
Chr$(0) & "*.EMF" & Chr$(0)
    clsDialog.Filter = clsDialog.Filter & "Windows Metafile (*.WMF)" &
Chr$(0) & "*.WMF" & Chr$(0)
    clsDialog.Filter = clsDialog.Filter & "Icon (*.ICO)" & Chr$(0) & "*.ICO"
& Chr$(0)
    clsDialog.Filter = clsDialog.Filter & "Cursor (*.CUR)" & Chr$(0) &
"*.CUR" & Chr$(0)
    clsDialog.hDC = 0
    clsDialog.MaxFileSize = 256
    clsDialog.Max = 256
    clsDialog.FileTitle = vbNullString
    clsDialog.DialogTitle = "Please Select an Image File"
    clsDialog.InitDir = vbNullString
    clsDialog.DefaultExt = vbNullString
    ' Display the File Dialog
    clsDialog.ShowOpen
    ' See if user clicked Cancel or even selected
    ' the very same file already selected
    strfName = clsDialog.FileName
    If Len(strfName & vbNullString) = 0 Then
    ' Raise the exception
      Err.Raise vbObjectError + 513, "LoadJpegGif.modStdPic", _
      "Please Select a Valid JPEG or GIF File"
    End If
' If we jumped to here then user supplied a FileName
End If
' It may take a few seconds to render larger JPEGs.
' Set the MousePointer to "HOURGLASS"
Application.Screen.MousePointer = 11
' Load the Picture as a StandardPicture object
Set hPic = LoadPicture(strfName)
If hPic = 0 Then
    Err.Raise vbObjectError + 514, "LoadJpegGif.modStdPic", _
    "Please Select a Valid JPEG or GIF File"
End If
' Call our function to convert the StdPicture object
' into a DIB wrapped within an Enhanced Metafile
blRet = fStdPicToImageData(hPic, ctl, , AutoSize)
' need error handling here
' Cleanup
fLoadPicture = True
Exit_LoadPic:
' Set the MousePointer back to Default
Application.Echo True
Application.Screen.MousePointer = 0
Err.Clear
Set hPic = Nothing
Set clsDialog = Nothing
Exit Function
Err_fLoadPicture:
fLoadPicture = False
Application.Screen.MousePointer = 0
MsgBox Err.Description, vbOKOnly, Err.Source & ":" & Err.Number
Resume Exit_LoadPic
End Function
' This function only works if the contents of the Image control
' are an Enhanced Metafile, which it will always be in
' this project. There is a general purpose solution
' for all formats on my site that uses the Clipboard to convert formats.
Public Function fSaveImagetoDisk(ctl As Access.Image) As Boolean
' User selected FileName from our File Dialog window
Dim sName As String
' Junk var
Dim lngRet As Long
' handle to Clipboard memory EMF
Dim hEMF As Long
' handle to our Disk based Metafile
Dim hMetafile As Long
' Array to hold binary copy of Enhanced Metafile
' we will create.
Dim arrayMeta() As Byte
' Open File Dialog
sName = fSavePicture
    If Len(sName & vbNullString) = 0 Then
    fSaveImagetoDisk = False
    Exit Function
End If
' resize our byte array to match length of PictureData prop
ReDim arrayMeta((LenB(ctl.PictureData) - 1))
arrayMeta = ctl.PictureData
' Verify CF_ENHMETAFILE
If arrayMeta(0) <> CF_ENHMETAFILE Then
    fSaveImagetoDisk = False
    MsgBox "Sorry..not a valid Enhanced Metafile contained in the Image
control"
    Exit Function
End If
' Grab a local copy of the memory EMF
CopyMem hEMF, arrayMeta(4), 4
' Create a disk based copy of the Metafile
hMetafile = CopyEnhMetaFile(hEMF, sName)
' Delete EMF memory footprint.
lngRet = apiDeleteEnhMetaFile(hMetafile)
End Function
Public Function fSavePicture(Optional strfName As String = "") As String
' Inputs
' strfName -> Optional name of Image file to Save
On Error GoTo Err_fSavePicture
' Temp Vars
Dim lngRet As Long
Dim blRet As Boolean
' Were we passed the Optional FileName and Path
If Len(strfName & vbNullString) = 0 Then
    ' Call the File Common Dialog Window
    Dim clsDialog As Object
    Dim strTemp As String
    Set clsDialog = New clsCommonDialog
    ' Fill in our structure
    ' ***********************************************
    ' WARNING
    ' You must specify lowercase "emf" for the file extension. I will
explain this
    ' and how it is related to the office graphics filters in detail on my
web site.
       clsDialog.Filter = clsDialog.Filter & "Enhanced Metafile (*.emf)" &
Chr$(0) & "*.emf" & Chr$(0)
    clsDialog.hDC = 0
    clsDialog.MaxFileSize = 256
    clsDialog.Max = 256
    clsDialog.FileTitle = vbNullString
    clsDialog.DialogTitle = "Please Enter a Valid FileName"
    clsDialog.InitDir = vbNullString
    clsDialog.DefaultExt = ".emf" 'vbNullString
    ' Display the File Dialog
    clsDialog.ShowSave
    ' See if user clicked Cancel or even selected
    ' the very same file already selected
    strfName = clsDialog.FileName
    If Len(strfName & vbNullString) = 0 Then
    ' Raise the exception
      Err.Raise vbObjectError + 513, "fSavePicture.modStdPic", _
      "Please Enter a Valid EMF Filename"
    End If
' If we jumped to here then user supplied a FileName
End If
' Cleanup
fSavePicture = strfName
Exit_SavePic:
Err.Clear
Set clsDialog = Nothing
Exit Function
Err_fSavePicture:
fSavePicture = strfName
MsgBox Err.Description, vbOKOnly, Err.Source & ":" & Err.Number
Resume Exit_SavePic
End Function
Public Sub ScrollToHome(ctl As Control)
Dim lngRet As Long
Dim lngTemp As Long
On Error Resume Next
Application.Echo False
For lngTemp = 1 To 9
lngRet = SendMessage(ctl.Parent.hWnd, WM_VSCROLL, SB_PAGEUP, 0&)
lngRet = SendMessage(ctl.Parent.hWnd, WM_HSCROLL, SB_PAGELEFT, 0&)
Next lngTemp
Application.Echo True
End Sub
MAssimiliano


title: Visualizzare immagini in RunTime

text:
Denghiu.
Sandro


title: Posizionarsi al fondo di un text..

author: Ali

text:
Salve..Problema:
- ho un textbox contenente una stringa;io da codice voglio poter
posizionare il cursore(a video) dopo l'ultimo carattere della
stringa,in modo tale che se l'utente digita un carattere esso vada a
concatenarsi alla stringa già esistente!Ma ho qualche esitazione..mi
potete aiutare?Grazie!
Inviato da
www.mynewsgate.net


title: Posizionarsi al fondo di un text..

author: Sergio MAZZA

text:
"Ali" <
6175i...@mynewsgate.net
> ha scritto nel messaggio news:200407280...@mynewsgate.net...

Devi controllare l'evento "su invio" della casella di testo ed inserire il codice:
Me!nomeCasellaTesto.SelStart = Me!nomeCasellaTesto.SelLength
Ciao.
--
Sergio MAZZA


title: Non visualizzare un dato nella casella combinata.

author: Studio Gamma

text:
Salve a tutti, vado subito al sodo:
ho una tabella principale (Tb_impegni) ed una secondaria (Tb_Autobus) con un
unico campo (TARGA), all'interno di una maschera ho creato una combo che
visualizza le targhe ed eventualmente immettendo una targa nuova l'aggiungo.
Chiaramente quando dalla combo scelgo la targa, la inserisco nella tabella
(Tb_impegni) fin qui tutto Ok, il problema che mi sta tormentando è il
seguente: è possibile in base alla giornata far visualizzare le targhe non
impegnate. Esempio
la tabella (Tb_autobus) contiene le seguenti targhe:
XX123456
YY123456
ZZ123456
quando inserisco il primo impegno nella tabella (Tb_impegni) per la data
01/01/01 chiaramente la combo mi visualizza tutte e tre le targhe, ma quando
inserisco il secondo impegno, esempio:
TB_IMPEGNI
Data   :01/01/01
Autista:Tizio
Targa:XX123456
al successivo inserimento per quella data (01/01/01) la combo dovrà
visualizzarmi solo le targhe YY123456 e ZZ123456.
Chiaramente se cancello l'impegno la targa viene resa di nuovo disponibile.
Secondo la Vostra esperienza è possibile realizzare qualcosa del genere.
Spero di essere stato chiaro Vi ringrazio anticipatamente per tutto.
--


author: Antonio Biso

text:
Studio Gamma <
sga...@mail.pandorasicilia.it
> wrote in message
9haevb$qdo$1...@pegasus.tiscalinet.it...
> al successivo inserimento per quella data (01/01/01) la combo dovrà
> visualizzarmi solo le targhe YY123456 e ZZ123456.
> Chiaramente se cancello l'impegno la targa viene resa di nuovo
disponibile.
> Secondo la Vostra esperienza è possibile realizzare qualcosa del genere.
> Spero di essere stato chiaro Vi ringrazio anticipatamente per tutto.
La combo dovrà avere come origine riga una query che lega la tabella delle
targhe con quella degli impegni sul campo targa, ed il join dovrà essere con
freccia rivolta da targhe ad impegni.
Poi selezioni il campo targa della tabella targa ed il campo targa della
tabella impegni e sotto quest'ultimo, come criterio, metti is null.
Ti darà solo le targhe non legate alla tabella impegni e quindi non
impegnate
Antonio


title: [Excel] File danneggiato

author: OrsoBruno

text:
L'altro giorno mi e' crashato il computer con un file di excel piuttosto
complesso aperto, adesso non riesco piu' ad aprie il file e compare questo
messaggio:
Il file potrebbe essere di sola lettura (non e' vero), si sta tentando di
accedere a una posizione di sola lettura o il server sul quale il documento
e' memorizzato non risponde.
E' possibile recuperare il file o devo rassegnarmi, sarebbe molto importante
recuperarlo perche' c'e' dentro un sacco di lavoro.
Ciao e grazie.


title: [Excel] File danneggiato

author: Roberto Pasqualini

text:
"OrsoBruno" <
antoni...@hotmail.com
> ha scritto nel messaggio
news:_I%I8.942$b4.3...@news2.tin.it...

Una volta ho avuto un problema simile e me la sono scampata facendo cosě:
1) Da access ho importato in una tabella il contenuto del foglio che era
danneggiato
2) Sempre da Access ho esportato in un nuovo foglio il contenuto della
tabella
Ovviamente tutte le formattazioni sono andate perse cosě come le macro, ma
almeno i dati li ho salvati!
Se vuoi provare buona fortuna!
Roberto Pasqualini


title: aumentare elementi set

author: LuigiPaolo

text:
So che il numero degli elementi di un Set (Delphi7) non può superare i 256.

Volevo sapere se però con qualche artifizio si poteva aumentare almeno da
256 a 512 elementi.

MioSet=Set of 1..512 ????

Grazie per una eventuale risposta


title: problema con Excel

author: Andrea

text:
Ciao a tutti, ho un problema che non riesco a risolvere con excel.
Devo, tra vari valori contenuti in varie celle, restituire il valore più
piccolo; fino a qui, nessun problema.
Devo, però indicare questo valore risultante sotto quale colonna si trova.
Mi potete aiutare?
Grazie.
Andrea


title: problema con Excel

author: Sandro

text:
Supponendo che i dati siano in A1:D1 e la formula in E1
=CONFRONTA(MIN(A1:D1);A1:D1;0)
restituisce il numero di colonna in modo relarivo all'intervallo
se invece vuoi il numero di colonna in modo assoluto:
=RIF.COLONNA(INDICE(A1:D1;;CONFRONTA(MIN(A1:D1);A1:D1;0)))
Andrea ha scritto:



title: problema con Excel

text:
grazie per l'indicazione;
e se volessi associare un riferimento testuale al numero di colonna
restituito?
(esempio 8=pippo, 10=pluto, 12=paperino)
Sandro <
api...@tvol.it
> wrote in message 395D8F08...@tvol.it...



title: problema con Excel

text:
Ti posto una mia risposta ad un quesito analogo al tuo di circa una anno fà:
> Salve! Scusate l'offtopic ma non ho trovato nessun newsgroup italiano
> dedicato a MS Excel, percio' provo a postare la mia domanda qui nella
> speranza che ci sia qualcuno pratico di questo spreadsheet.
>
> Espongo brevemente il quesito. data questa tabella:
> (supponiamo che inizi dalla cella A1)
>
>         A               B       C       D       E       F       G
>
> 1       CHIAMATE        TELECOM INFOST. TELE 2  WIND    WIND24  TISCALI
>
> 2       Regionali       266     200     195     250     240     180
> 3       Nazionali       266     220     195     300     280     180
> 4       Family          1239    1150    975     1100    1000    500
> 5       Business        526     490     475     500     490     500
>
> Vorrei creare una colonna, ad es la colonna H, che contenesse il nome della
> compagnia che pratica il prezzo minore. Dovrebbe dunque risultare cosi' nelle
> mie intenzioni:
>
>   A             B       C       D       E       F       G       H
>
> 1 CHIAMATE      TELECOM INFOST. TELE 2  WIND    WIND24  TISCALI
>
> 2 Regionali     266     200     195     250     240     180     TISCALI
> 3 Nazionali     266     220     195     300     280     180     TISCALI
> 4 Family        1239    1150    975     1100    1000    500     TISCALI
> 5 Business      526     490     475     500     490     500     TELE 2
>
Risposta:
=INDICE($A$1:$G$1;1;CONFRONTA(MIN(A2:G2);A2:G2;0))
Altrimenti puoi mettere in un modulo la funzione:
'----------------------------------------------------------------------------
'val - valore da ricercare
'interv - intervallo dove ricercare val
'interv1 - intervallo dove prendere l'uscita della funzione
Function cerca2(val As Variant, interv As Range, interv1 As Range) As String
Dim ncolonne As Integer
Dim str As String
ncolonne = interv.Columns.Count
str = ""
For i = 1 To ncolonne
    If val = interv.Cells(1, i) Then
         str = str & interv1.Cells(1, i).Value & " - "
    End If
Next i
If str <> "" Then
    cerca2 = Left(str, Len(str) - 3)
Else
    cerca2 = str
End If
End Function
'----------------------------------------------------------------------------
e la formula diventa da mettere in G2 e da trasportare in giù diventa:
=cerca2(MIN(B2:G2);B2:G2;$B$1:$G$1)
Se ci sono più compagnie con lo stesso prezzo, vengono visualizzate tutte
separate da un trattino.
Ciao
  Sandro


title: Consiglio

author: Maurizio

text:
Salve a tutti, posto per avere un piccolo consiglio sulla creazione di un Db
per la scuola di mio figlio in cui poter memorizzare i voti dei singoli
alunni. Io, dico la verità, lo avevo già realizzato con la stampa del
singolo pagellino e quelle della stampa di tutti i pagellini, ma il problema
mi si è presentato in quanto io avevo previsto l'inserimento dei voti per
singolo alunno, ma mi è stato fatto notare che forse era meglio poter
selezionare la materia, la classe, la sezione e il corso di studio e qui mi
sono fatto mille domande che ancora non sono riuscito a dare una risposta su
come gestire le valutazioni ( 4 scritte  e 4 orali). Sarebbe più logico
avere una tabella sola in cui inserire le valutazioni( col problema di avere
maggior difficoltà nella gestione per materia, classe, sezione e il corso di
studio, oppure avere una tabella per singola materia??? Qual'è secondo voi
il metodo migliore??
Un'ulteriore domanda, e per la consultazione tramite internet???
Grazie
Maurizio
P.S. La retribuzione offertami è: Grazie( lo faccio perché ho un po' di
tempo in cui non so cosa fare)


title: Consiglio

text:
"Maurizio" <
calma2...@libero.it
> ha scritto nel messaggio
news:Hc%n9.56326$Eu.13...@twister1.libero.it...
Ok.
Scrivi un subject più significativo!!!
Antonio


title: Consiglio

text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:TIdo9.60039$e31.1...@twister2.libero.it...

OK Antonio, vediamo un pò: prendiamo un bel sigaro e..... scherzo.
Io avevo già creato un semplice Db per inserire i voti degli alunni così
strutturato
tbl_Alunni
tbl_Materie
tbl_IndirizzoScolastico
tbl_Materie
tbl_Classe
tbl_Assenze
tbl_Sezioni
tbl_Voti
fin qui niente di trascindentale, ma giustamente il preside mi ha fatto
notare che l'inserimento dei voti sarebbe stato meglio se fosse stato
selezionando la materia, la classe, la sezione e l'indirizzo scolastico,
anzichè per singolo alunno. Ora mi stavo domandando: è più conveniente
mantenere la tbl_Voti e crearmi 18 qry per inserire le valutazioni, per
esempio qry_Diritto con id_RegAlunno, Nome Alunno, Classe, Sezione,
IndScolastico, DirOra1,DirOra2,DirOra3,DirOra4,
DirScri1,DirScr2,DirScr3,DirScr4, oppure creare tante tabelle quante le
materie per registrare le valutazioni degli studenti??, ma poi come faccio
ad applicare il filtro per la selezione su cmb multiple?
Teniamo presente che la tbl_Voti è, attualmente, così composta
:id_RegAlunno, Nome Alunno, Classe, Sezione, IndScolastico e poi altrettanti
campi per le valutazioni orali e scritte (4 per singola materia!!)
Sperando che la mia spiegazione possa dare un barlume di chiarezza
Grazie per i suggerimenti
Maurizio


title: Consiglio

text:
"> > "Maurizio" <
calma2...@libero.it
> ha scritto nel messaggio
> > news:Hc%n9.56326$Eu.13...@twister1.libero.it...
> >
> > Ok.
> > Scrivi un subject più significativo!!!
> >
> > Antonio
> >
> >
> OK Antonio, vediamo un pò: prendiamo un bel sigaro e..... scherzo.
>
> cut
ah dimenticavo, il tutto poi vorrebbe che si potesse consultare tramite
internet
Maurizio


title: Consiglio

author: Alessandro Cara

text:

Io ti "consiglio" di ripostare con un soggetto piu' esplicativo
poiche' la maggior parte dei NGppari non legge i post con
soggetto non significativo ed i piu' perfidi (come me) li
leggono ma non intervengono
--
a.cara


title: controllo calendario in italiano ?

author: Guitar

text:
Esiste un OCX per acces per gestire il controllo calendario in ITALIANO ?
Tipo quello che si trova standard in access 97 (cal 8.0) ma rigorosamente in
ITALIANO.
Oppure anche in inglese ma diverso da quello fornito con access 97.
Grazie a tutti.
--
Guitar (o)==#
pac...@netics.net


title: controllo calendario in italiano ?

author: Thierry Rega

text:
> Esiste un OCX per acces per gestire il controllo calendario in ITALIANO ?
> Tipo quello che si trova standard in access 97 (cal 8.0) ma rigorosamente
in
> ITALIANO.
> Oppure anche in inglese ma diverso da quello fornito con access 97.
> Grazie a tutti.
Guarda che il calendario di Access 97 può essere anche lui in italiano. Se
non lo è, è perché a97 è stato impostato male in un modo che non ho
scoperto, però ho trovato un modo (manuale però) per sistemare la cosa. Ho
cambiato un pò di variabili nel file di registro (con Regedit.exe), ma non
mi ricordo più cosa ho dovuto cambiare. Ho la soluzione in ufficio. Se me lo
ricordi lunedì, ti mando la soluzione.
Ciao
Thierry


title: controllo calendario in italiano ?

author: Thierry REGA

text:
Thierry Rega <
thier...@tiscalinet.it
> wrote in message
8j3he9$449$1...@pegasus.tiscalinet.it...
> > Esiste un OCX per acces per gestire il controllo calendario in ITALIANO
?
> > Tipo quello che si trova standard in access 97 (cal 8.0) ma
rigorosamente
> in
> > ITALIANO.
> > Oppure anche in inglese ma diverso da quello fornito con access 97.
> > Grazie a tutti.
Ho trovato!
Io ho risolto cambiando direttamente alcune variabili nel registro, così che
non hai bisogno di reinstallare Access97. Avevo provato a reinstallare solo
il calendario ma non ha funzionato. Quindi se te la senti di andare nel
registro, sappi che per quella modifica non è pericoloso, perché riguarda
solo il calendario di Access.
La prima regola è di copiare la variabile con il suo vecchio contenuto in
una nuova con il nome nomevariabile_old per esempio. Ovviamente la lasci
esattamente nella stessa cartella del registro!
Adesso cerchi la parola "calendar", e a un certo punto arriverai nella prima
cartella riguardante il calendario di A97 (ce ne sono due principali).
Cercando nelle sotto cartelle vedrai che ci sono sia il nome del file ocx
che il nome stesso del calendario. Tutti e due sono da modificare in
Mscal.ocx, invece di mascal70.ocx (per la versione 7), e MSCAL invece di
MSACAL.MSACALCtrl.7 per il nome.
Se ben ricordo non basta cambiare il nome del file ocx per vedere dopo il
calendario in italiano, ma bisogna anche cambiare i nomi con MSACALecc...
con MSCAL.
Comunque sia il file, della versione italiana, mscal.ocx ci dovrebbe essere
già (che normalmente c'è in x:\cartellaWin\System32\).
Quindi alla fine il tutto funziona, e se non dovesse funzionare al primo
colpo, ricerca bene dove c'è la parola "calendar" per verificare che hai
fatto i cambiamenti in tutte le cartelle dove ci sono le caratteristiche del
calendario di Access.
Infine, se non cambi per sbaglio altre variabili fuori dalle cartelle
riguardante il calendario, non ci sono pericoli.
Ciao
Thierry


title: Rotellina mouse

author: Marceme

text:
E' possibile disabilitare lo scorrimento dei record tramite la rotellina del
mouse?
Grazie Marceme


title: Rotellina mouse

author: Claudio

text:
Sun, 10 Nov 2002 10:14:40 GMT, Marceme ha scritto ben 7 righe per dire:
>E' possibile disabilitare lo scorrimento dei record tramite la rotellina del
>mouse?
E' stato chiesto giusto ieri. Una risposta è stata:
http://www.mvps.org/access/api/api0036.htm
.
Avevi provato a cercare e non ti andava bene questa risposta, o
semplicemente non hai nemmeno cercato nei messaggi del giorno prima?
Ciao. Claudio.


title: Rotellina mouse

author: Al

text:
"Claudio" <cld@NOSPAM&COsupereva.it> ha scritto nel messaggio
news:tcdssuc783q19gbfa...@4ax.com...

Scusa, ma la prima richiesta l'avevo inoltrata io (Alb) proprio ieri!
Comunque non ho risolto, anche provando ciò che mi è stato suggerito (e che
io avevo già provato)!
Alb


title: Rotellina mouse

text:

Beh, potresti provare ad argomentare il motivo per cui non ti funziona.
Tra l'altro ho provato a vedere anche l'altro indirizzo consigliatoti da
Roberto
(
http://support.microsoft.com/default.aspx?scid=kb;en-us;Q278379
), e mi
sembra tratti esattamente il vostro problema.
Ciao. Claudio.


title: Come collegare più Id contenuti in un unica cella

author: Plutoide

text:
Mi scuso per la domanda che potrebbe essere banalissima, ma mi sono da
pochissimo avvicinato ad access.
Dunque devo creare una query partendo, ovviamente, da diverse tabelle.
Nella tab1 ho questi 2 campi:
ID Nome
1  Antonio
2 Marco
3 Paolo
4 Pietro
5 Carlo
Nella tab2 ho diversi campi, uno dei quali è cos' fatto:
Elenco
2%3%1
1%4%5
Il risultato della mia query dovrebbe essere una "traduzio" il contenuto del
campo Elenco della tab2 sulla base dei dati (ID e nome) della tab1:
Cioé
Risultati
Marco Paolo Antonio
Antonio Pietro Carlo
Spero d'essermi spiegato e di non aver fatto una domanda troppo banale.
Qualsiasi aiuto sarà ben gradito
Grazie


author: Sergio MAZZA

text:
"Plutoide" <
i...@spam.no
> ha scritto nel messaggio news:4343bad1$0$8476$5fc...@news.tiscali.it...

Secondo me dovresti crearti una funzione che prende il valore (in verità i valori) e lo cerca nell'altra tabella restituendo i Nomi;
es.
'---
Function cercaNome(idDaCercare As String, nomeTabella As String, nomeCampoDarestituire as string) As String
Dim arrayDiIdDaCercare() As String, ciclo As Integer, strDaRestituire As String
Dim rst As DAO.Recordset
strDaRestituire = ""
arrayDiIdDaCercare = Split(idDaCercare, "%")
Set rst = CurrentDb.OpenRecordset(nomeTabella, dbOpenDynaset)
For ciclo = 0 To UBound(arrayDiIdDaCercare)
    rst.FindFirst "id=" & arrayDiIdDaCercare(ciclo)
    If Not rst.NoMatch Then
        strDaRestituire = strDaRestituire & " " & rst(nomeCampoDaRestituire)
    Else
        strDaRestituire = strDaRestituire & " " & "-- " & arrayDiIdDaCercare(ciclo) & " Non trovato --"
    End If
Next
cercaNome = strDaRestituire
Set rst = Nothing
End Function
'---
nella query crei un campo calcolato che utilizza la funzione:
es.
nomiTrovati: cercaNome("ID", "tab1","Nome")
Ciao.
--
Sergio MAZZA


title: Parametro in output non passato da una SP SQLserver

author: Eugenio

text:
Da un programma Access97(FE) eseguo una Stored Procedure di un database SQL7
(BE) utilizzando l'oggetto Command di ADO. Alla SP viene inviato un
parametro input e la stessa deve ritornare un secondo parametro in output.
Quest'ultimo parametro rappresenta l'esito dell'elaborazione.
La SP sicuramente funziona, e se la eseguo richiamandola dal Query Analyzer
di SQL7 in qualsiasi caso mi ritorna la stringa in cui è specificato
l'esisto dell'elaborazione.
Purtroppo se la SP viene eseguita da Access mi ritorna solo l'esito
positivo, mentre non viene ritornato nulla nel caso contrario, cioè quando
la funzione @@Error di SQL7 è > 0 e di conseguenza non posso evidenziare
l'esito dell'elaborazione.
Qualcuno può aiutarmi ?
Grazie
Eugenio
Di seguito riporto la parte essenziale del codice:
--- Codice
VBA ------------------------------------------------------------------------
---------------------
    ...
    ...
    Cmd.CommandText = "EliminaRecords"
    Cmd.CommandType = adCmdStoredProc
    Cmd.Parameters.Append Cmd.CreateParameter("@Cod", adVarChar,
adParamInput, 3, Me!Cod)
    Cmd.Parameters.Append Cmd.CreateParameter("@Msg", adVarChar,
adParamOutput, 250, strMsg)
    Cmd.CommandTimeout = 6000
    Cmd.Execute
    ...
    ...
--- Stored
Procedure ------------------------------------------------------------------
----------------------------
CREATE Procedure EliminaRecords  @Cod varchar(3)
                                                        , @Msg varchar(250)
output
as
...
...
...
Delete
From Tabella
Where Cod = @Cod
Set @Errore = @@Error
If @Errore = 547
   Begin
        Set @Msg = 'Non è possibile cancellare il codice - ' + @Cod + ' - .'
   End


author: Giorgio Prx

text:
"Eugenio" <EP_##_
NoS...@tiscali.it
> ha scritto nel messaggio
news:brq1sl$cbo$1...@lacerta.tiscalinet.it...
> Da un programma Access97(FE) eseguo una Stored Procedure di un database
SQL7
> (BE) utilizzando l'oggetto Command di ADO. Alla SP viene inviato un
> parametro input e la stessa deve ritornare un secondo parametro in output.
> Quest'ultimo parametro rappresenta l'esito dell'elaborazione.
> La SP sicuramente funziona, e se la eseguo richiamandola dal Query
Analyzer
> di SQL7 in qualsiasi caso mi ritorna la stringa in cui è specificato
> l'esisto dell'elaborazione.
> Purtroppo se la SP viene eseguita da Access mi ritorna solo l'esito
> positivo, mentre non viene ritornato nulla nel caso contrario, cioè quando
> la funzione @@Error di SQL7 è > 0 e di conseguenza non posso evidenziare
> l'esito dell'elaborazione.
>
> Qualcuno può aiutarmi ?
>
[CUT]
Ciao Eugenio
a prima vista è tutto corretto, ma non vedo dove memorizzi  il valore di
ritorno (o non lo memorizzi ?)
------------------
...
...
...
Cmd.Execute
strMsg=Cmd.Parameters(1)
-----------------
Ciao Giorgio


text:
> a prima vista č tutto corretto, ma non vedo dove memorizzi  il valore di
> ritorno (o non lo memorizzi ?)
>
> ------------------
> ...
> ...
> ...
> Cmd.Execute
> strMsg=Cmd.Parameters(1)
> -----------------
>
>
> Ciao Giorgio
>
>
>
Ho tralasciato quella parte di codice, dove valorizzo la variabile cosě come
hai fatto tu. Il mio problema č che in Cmd.Parameters(1) viene "ritornata"
una stringa vuota. Ma č vuota solo nel codice VBA, perchč, come dicevo, se
eseguo la SP da QueryAnalyzer la stringa ha un valore.
Sembrerebbe che SQL solo per il fatto di avere un valore <> da 0 in @@Error
non valorizzi @Msg, definito come output.  Ho provato anche a eseguire una
SP che richiama con Execute la SP in questione e in questo nel parametro
@MSG č contenuto un valore.
Grazie
Eugenio


text:
"Eugenio" <ep#nospam#####@
tiscali.it
> ha scritto nel messaggio
news:i%3Eb.10804$uv1....@nntpserver.swip.net...
[CUT]
> Ho tralasciato quella parte di codice, dove valorizzo la variabile cosě
come
> hai fatto tu. Il mio problema č che in Cmd.Parameters(1) viene "ritornata"
> una stringa vuota. Ma č vuota solo nel codice VBA, perchč, come dicevo, se
> eseguo la SP da QueryAnalyzer la stringa ha un valore.
> Sembrerebbe che SQL solo per il fatto di avere un valore <> da 0 in
@@Error
> non valorizzi @Msg, definito come output.  Ho provato anche a eseguire una
> SP che richiama con Execute la SP in questione e in questo nel parametro
> @MSG č contenuto un valore.
>
Ciao Eugenio,
č molto strano a me funziona, che sia un problema di versione ADO ?
Prova cosě
---------------------------------------
    Dim Rs As ADODB.Recordset
    Dim Sqltext As String
    ... 'prepari la connessione ecc.
    ...
    Cmd.CommandType = adCmdText
    Sqltext = "DECLARE @Msg varchar(255) " & _
                   "EXEC EliminaRecords '" & Me!Cod & "',@Msg OUTPUT " & _
                   "SELECT @Msg AS Messaggio"
    Cmd.CommandText = Sqltext
    Set Rs = Comm.Execute(Sqltext)
    'Valore di ritorno
    Debug.Print Rs!Messaggio
--------------------------------------
Ciao Giorgio


text:
> Prova cosě
>
>
Grazie, ora proverň.
Nel frattempo ho fatto altre prove e ho verificato che il problema si
genera, perchč nella stessa SP ci sono altre due query di cancellazione di
tabelle che hanno Foreign key con la tabella principale, cioe quella che ho
evidenziato nel codice. Per spiegarmi meglio di seguito espongo il codice
completo della SP.
----------------------------------------------------------------------------
-------------------------------------------------------------
CREATE Procedure CancellaMezzoSpedizione  @Cod varchar(3)
                                        , @Msg varchar(250) output
as
Declare @Errore int
Set @Errore = 0
Begin Transaction
-- Descrizione in Lingua
Delete
From MezziSped_Lingua
Where Cod = @Cod
If @@Error > 0
   Begin
        Set @Msg = 'Non č possibile cancellare la descrizione in lingua del
Mezzo di Spedizione - ' + @Cod + ' - .'
    GoTo ERRORE
End
-- Riferimenti
Delete
From MezziSped_Rifer
Where Cod = @Cod
If @@Error > 0
  Begin
       Set @Msg = 'Non č possibile cancellare i Riferimenti del Mezzo di
Spedizione - ' + @Cod + ' - .'
      GoTo ERRORE
   End
-- Vettore
Delete
From MezziSped
Where Cod = @Cod
Set @Errore = @@Error
If @Errore = 547
   Begin
        Set @Msg = 'Non č possibile cancellare il Mezzo di Spedizione - ' +
@Cod + ' - .'
    GoTo ERRORE
   End
If @Errore > 0
   Begin
        Set @Msg = 'Non č possibile cancellare il Mezzo di Spedizione - ' +
@Cod + ' - .'
    GoTo ERRORE
   End
Commit Transaction
GoTo FINE
ERRORE:
RollBack Transaction
FINE:
----------------------------------------------------------------------------
-------------------------------------------------------------------------
Sicuramente (!) le prime due query di cancellazione non generano errore,
perchč per il momento sono tabelle vuote.
Grazie
Ciao
Eugenio


text:
> Prova cosě
> ---------------------------------------
> Ciao Giorgio
>
>
>
Purtroppo anche cosě non funziona.
Grazie
Ciao
Eugenio


text:
"Eugenio" <EP_##_
NoS...@tiscali.it
> ha scritto nel messaggio
news:brrom2$asp$1...@lacerta.tiscalinet.it...
> > Prova cosě
> >
> >
>
> Grazie, ora proverň.
>
> Nel frattempo ho fatto altre prove e ho verificato che il problema si
> genera, perchč nella stessa SP ci sono altre due query di cancellazione di
> tabelle che hanno Foreign key con la tabella principale, cioe quella che
ho
> evidenziato nel codice. Per spiegarmi meglio di seguito espongo il codice
> completo della SP.
>
[CUT]
> Sicuramente (!) le prime due query di cancellazione non generano errore,
> perchč per il momento sono tabelle vuote.
>
Ciao Eugenio,
in questo caso il codice VB si interrompe alla riga "Cmd.Execute", hai una
gestione dell'errore ?
-----------------------
    On Local Error Resume Next
    Cmd.Execute
    Debug.Print Comm.Parameters("@Msg")
    On Local Error GoTo 0
------------------------
Ciao Giorgio


text:
> in questo caso il codice VB si interrompe alla riga "Cmd.Execute", hai una
> gestione dell'errore ?
>
> -----------------------
>     On Local Error Resume Next
>     Cmd.Execute
>     Debug.Print Comm.Parameters("@Msg")
>     On Local Error GoTo 0
> ------------------------
>
>
> Ciao Giorgio
>
>
>
Si, la gestione dell'errore esiste, ma non si verifica nessun errore, perchè
la SP funziona. Il problema è solo il parametro che non viene ritornato.
Grazie
Ciao, Eugenio


text:
"Eugenio" <EP_##_
NoS...@tiscali.it
> ha scritto nel messaggio
news:brs7ia$9qc$1...@lacerta.tiscalinet.it...
[CUT]
> Si, la gestione dell'errore esiste, ma non si verifica nessun errore,
perchè
> la SP funziona. Il problema è solo il parametro che non viene ritornato.
>
Ciao Eugenio
simulando la tua Sp io ricevo l'errore
-------------------
L'istruzione DELETE ha generato un conflitto con il vincolo COLUMN REFERENCE
'FK_Sp2_Sp1' nel database 'Prova', tabella 'Sp2', column 'IdCampo1'.
-------------------
ma continuando con il codice mi viene ritornato il parametro di output.
E' evidente che i comportamenti sono differenti ma visto che da Query
Analyzer funziona  l'unica cosa che mi viene in mente è la versione di ADO,
io ho la 2.8 (non so se funziona con SqlServer 7.0).
Che versione utilizzi ?
Ciao Giorgio


text:
> simulando la tua Sp io ricevo l'errore
> -------------------
> L'istruzione DELETE ha generato un conflitto con il vincolo COLUMN
REFERENCE
> 'FK_Sp2_Sp1' nel database 'Prova', tabella 'Sp2', column 'IdCampo1'.
> -------------------
> ma continuando con il codice mi viene ritornato il parametro di output.
> E' evidente che i comportamenti sono differenti ma visto che da Query
> Analyzer funziona  l'unica cosa che mi viene in mente è la versione di
ADO,
> io ho la 2.8 (non so se funziona con SqlServer 7.0).
> Che versione utilizzi ?
>
> Ciao Giorgio
>
>
>
>
>
La mia versione è la 2.5. Ora provo ad installare la versione che mi hai
segnalato.
Il messaggio che mi esponi lo vedo solo nel caso nella SP ci sia solo una
Delete.
Grazie
Ciao, Eugenio


text:
> E' evidente che i comportamenti sono differenti ma visto che da Query
> Analyzer funziona  l'unica cosa che mi viene in mente è la versione di
ADO,
> io ho la 2.8 (non so se funziona con SqlServer 7.0).
> Che versione utilizzi ?
>
> Ciao Giorgio
>
FUNZIONA !!!
GRANDE GIORGIO!!!
E' proprio un problema di versione. Ho installato la 2.7, perchè è la
versione che avevo disponibile al momento.
Sono poi andato sul sito Microsoft e ho scaricato la versione 2.8, ma prima
di installarla volevo chiederti se si verificano dei problemi con le
applicazioni Access 97, perchè nella pagina compare questa frase:
"This release does not include Microsoft Jet, the Microsoft Jet OLE DB
Provider or ODBC driver, the Desktop Database ODBC Drivers, or the Visual
FoxPro ODBC Driver."
Grazie Giorgio
Ciao
Eugenio


text:
"Eugenio" <EP_##_
NoS...@tiscali.it
> ha scritto nel messaggio
news:brsba2$cij$1...@lacerta.tiscalinet.it...

Ciao Eugenio,
non ho mai provato ad installare MDAC 2.8 su sistemi con Acc97, ma da quanto
dice il messaggio non è incluso MsJet e (acc97 usa la ves 3.5) e jet ole_db
o ODBC quindi continuerai ad utilizzare quelli esistenti.
Comunque maggiori info su MDAC 2.8 li puoi trovare qui
Release Manifest for MDAC 2.8 (2.80.1022.3)
http://support.microsoft.com/default.aspx?scid=kb;EN-US;828396
Ciao Giorgio


text:
> Ciao Eugenio,
> non ho mai provato ad installare MDAC 2.8 su sistemi con Acc97, ma da
quanto
> dice il messaggio non è incluso MsJet e (acc97 usa la ves 3.5) e jet
ole_db
> o ODBC quindi continuerai ad utilizzare quelli esistenti.
>
> Comunque maggiori info su MDAC 2.8 li puoi trovare qui
> Release Manifest for MDAC 2.8 (2.80.1022.3)
>
http://support.microsoft.com/default.aspx?scid=kb;EN-US;828396
>
>
> Ciao Giorgio
>
>
>
Grazie !
Ciao, Eugenio


title: Cambiare un valore in un report su condizione

author: FANCIULLO

text:
Salve sono Fanciullo,
(Access 97)
Ho un report con una situazione cosi descritta:
COGNOME         MATERIADEBITO  SUPERATO       MATERIADEBITO2  SUPERATO
Fanciullo                    Italiano                            S
storia                            N
Zinni                          Francese                          N
Inglese                        S
Ricci                          Matematica                      S
Storia                           null
Se nel campo SUPERATO è presente il valore S (sì) vorrei
che il campo MATERIADEBITO risultasse vuoto allora
nella mia semplicità sull'evento corpo_print del reporto ho scritto
if me.superato = "S" Then
me.materiadebito.value = " "
ma non funziona!
C'è un sistema diverso?
Grazie


author: Gabriele Bertolucci

text:
> me.materiadebito.value = " "
> C'è un sistema diverso?
me.materiadebito.visible = False
--
PBsoft di Gabriele Bertolucci
www.pbsoft.it
skype:pbsoftsolution


text:
"Gabriele Bertolucci" <"info[at]pbsoft[dot]it"> ha scritto nel messaggio
news:19nvflnnz3rcx$.kou3vymk2f9c$.dlg@40tude.net...
> > me.materiadebito.value = " "
>
> > C'č un sistema diverso?
>
> me.materiadebito.visible = False
>
> --
> PBsoft di Gabriele Bertolucci
>
www.pbsoft.it
> skype:pbsoftsolution
grazie funziona,
ma ora si č aperto un altro problema
siccome le caselle di testo sono contornate rendendole non visibili
sparisce anche il bordo creando cosě dei buchi.
Conosci una soluzione??


text:
> ma ora si č aperto un altro problema
> siccome le caselle di testo sono contornate rendendole non visibili
> sparisce anche il bordo creando cosě dei buchi.
> Conosci una soluzione??
me.materiadebito.ForeColor = me.materiadebito.BackColor



text:
"Gabriele Bertolucci" <"info[at]pbsoft[dot]it"> ha scritto nel messaggio
news:17zqspfnxgdum$.1c8b37e5v2prt$.dlg@40tude.net...

Grazie Gabriele ma non funziona nel senso che non riesco a visualizzare il
bordo
dopo che ho reso no visibile la casella di testo.
Comunque ho pensato di risolvere il tutto disegnando dei rettangoli
dentro ai quali inserire le caselle di testo quindi il contorno mi
č garantito dal rettangolo a prescindere dello stato visibile o meno
del controllo.
Ciao


text:
>> me.materiadebito.ForeColor = me.materiadebito.BackColor
> Grazie Gabriele ma non funziona nel senso che non riesco a visualizzare il
> bordo dopo che ho reso no visibile la casella di testo.
> Comunque ho pensato di risolvere il tutto disegnando dei rettangoli
> dentro ai quali inserire le caselle di testo quindi il contorno mi
> è garantito dal rettangolo a prescindere dello stato visibile o meno
> del controllo.
Prima di ricorrere a strani metodi che poi ti complicano la vita, perché
non controlli le proprietà della casella di testo?
Se vuoi nasconderne il contenuto senza nascondere la casella di testo, devi
impostare il colore di primo piano della casella uguale a quello dello
sfondo.
Ovviamente non devi mettere la proprietà Visible della casella a False: non
avrebbe senso.



title: Assegnare valori di un campo tabella a VBA

author: barbun

text:
In modulo VBa , con questo codice :
Num1 = Int(Rnd(1) * 32) + 1
genero un valore casuale da 1 a 32 , se volessi che il numero casuale fosse
scelto all'interno del campo
 "NR" della tabella "Pronostico" , come dovrei fare ??
ho provato con
Set Vin = CurrentDb().OpenRecordset("Pronostico")
Num1 = Int(Rnd(1) * vin) + 1
mi da errore tipo non corrispondente.
grazie
p.s.
tutti i campi interessati hanno dimensione campo byte


text:
"barbun" <
arist...@yahoo.it
> ha scritto nel messaggio
news:2gpdf3F...@uni-berlin.de...

Prova con:
Num1 = Int(Rnd(1) * Vin!NR) + 1
Ciao.
--
Sergio MAZZA


text:
> Prova con:
>
> Num1 = Int(Rnd(1) * Vin!NR) + 1
>
grazie per l'aiuto ma mi sono spiegato male :
il campo NR della tabella pronostico e ad esempio così formato :
NR
6
7
8
9
10
14
15
16
17
18
19
20
21
22
23
25
26
27
28
29
31
io vorrei che il codice mi restituisse un valore casuale all'interno di
questi.
grazie.ciao.


text:
"barbun" <
arist...@yahoo.it
> ha scritto nel messaggio
news:2gphgiF...@uni-berlin.de...

Veramente il codice che hai sottoposto tu nell'NG è sintatticamente errato.
Tu scrivi:
Set Vin = CurrentDb().OpenRecordset("Pronostico")
poi:
Num1 = Int(Rnd(1) * vin) + 1
e ti presenta l'errore: tipo non corrispondente.
E' chiaro, perché hai dichiarato un recordset (Vin) e nella riga successiva
non indichi il nome del campo da utilizzare nel recorset.
Le istruzioni corrette sono:
Set Vin = CurrentDb.OpenRecordset("Pronostico")
Num1 = Int(Rnd(1) * vin!NR) + 1
Poi, stai utilizzando rifierimenti DAO e se utilizzi acc'200x (che utilizza
ADO) devi inserire i riferimenti a quella libreria...
Ciao.
--
Sergio MAZZA


text:
> Veramente il codice che hai sottoposto tu nell'NG è sintatticamente
errato.
> Tu scrivi:
> Set Vin = CurrentDb().OpenRecordset("Pronostico")
> poi:
> Num1 = Int(Rnd(1) * vin) + 1
> e ti presenta l'errore: tipo non corrispondente.
> E' chiaro, perché hai dichiarato un recordset (Vin) e nella riga
successiva
> non indichi il nome del campo da utilizzare nel recorset.
> Le istruzioni corrette sono:
> Set Vin = CurrentDb.OpenRecordset("Pronostico")
> Num1 = Int(Rnd(1) * vin!NR) + 1
>
> Poi, stai utilizzando rifierimenti DAO e se utilizzi acc'200x (che
utilizza
> ADO) devi inserire i riferimenti a quella libreria...
>
    sul fatto che io combini pasticci col vba non ho dubbi :(
    debbo impararlo !
    cmq ho adattato come mi hai detto , questo è il codice completo :
Public Sub test()
Dim Num1 As Byte
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE * FROM Colonne;"
DoCmd.SetWarnings True
Set rst = CurrentDb.OpenRecordset("Colonne")
Set vin = CurrentDb.OpenRecordset("Pronostico")
For x = 1 To 10
Num1 = Int(Rnd(1) * vin!Nr) + 1
rst.AddNew
rst!Num1 = Num1
rst.Update
Next x
End Sub
ma il risultato è il seguente :
Num1
1
1
1
2
2
2
2
2
2
2
i valori presenti nel campo "Nr" della  tabella "Pronostico", da cui vorrei
restituirmi dei valori random per la tabella "Colonne" sono :
NR
2
4
6
8
10
12
14
16
18
20
22
24
26
28
30
dove sbaglio ???
grazie mille !!!
ciao.


text:
"barbun" <
arist...@yahoo.it
> ha scritto nel messaggio
news:2grbs8F...@uni-berlin.de...

--- omissis -----
>
>
> dove sbaglio ???
>
> grazie mille !!!
>
> ciao.
Intanto non hai più l'errore precedente; ora pensiamo al secondo problema.
Non ho mai affrontato il problema della generazione di numeri casuali e sono
sicuro che esistono altre tecniche; affidiamoci all'help dell'istruzione
Randomize e Rnd.
Il tuo codice diventerebbe:
Dim MyValue
Randomize ' Inizializza il generatore di numeri casuali.
For x = 1 To 10
    Num1 = Int((99 - (1 + 1)) * (Rnd) + 1)  '<-- dovrebbe genera numeri
casuali da 1 a 99
    rst.AddNew
    rst!Num1 = Num1
    rst.Update
Next x
Ciao.
--
Sergio MAZZA


author: Alberto S.

text:
On Sun, 16 May 2004 17:59:32 +0200, "barbun" <
arist...@yahoo.it
>
wrote:
[cut]

Ti spiego, colloquialmente, come farei io:
ipotizziamo che intNr sia il numero di record nella tabella da cui
vuoi effettuare la scelta
La formula sarà
Num1 = Int(Rnd(1) * intNr ) + 1
Il tuo valore sarà quello del record che occupa la posizione
corrispondente al risultato ottenuto (esempio: se il risultato sarà 3
il tuo valore sarà 8).
Non voglio - ovviamente - privarti del piacere di scrivere da solo il
codice :-)
Ciao
--
Alberto
No alle guerre


text:
> Intanto non hai più l'errore precedente; ora pensiamo al secondo problema.
> Non ho mai affrontato il problema della generazione di numeri casuali e
sono
> sicuro che esistono altre tecniche; affidiamoci all'help dell'istruzione
> Randomize e Rnd.
> Il tuo codice diventerebbe:
> Dim MyValue
> Randomize ' Inizializza il generatore di numeri casuali.
> For x = 1 To 10
>     Num1 = Int((99 - (1 + 1)) * (Rnd) + 1)  '<-- dovrebbe genera numeri
> casuali da 1 a 99
>     rst.AddNew
>     rst!Num1 = Num1
>     rst.Update
> Next x
    carissimo il mio problema è che voglio generare numeri casuali
all'interno di quelli
    contenuti nel campo Nr della tabella pronostico !
    Esempio il campo Nr contiene questi valori :
6
7
8
9
10
14
15
16
17
18
19
20
21
22
23
25
26
27
28
29
31
come faccio a far generare numeri casuali all'interno di questi ?????
grazie !!!!


text:
> >io vorrei che il codice mi restituisse un valore casuale all'interno di
> >questi.
> Ti spiego, colloquialmente, come farei io:
> ipotizziamo che intNr sia il numero di record nella tabella da cui
> vuoi effettuare la scelta
> La formula sarà
> Num1 = Int(Rnd(1) * intNr ) + 1
> Il tuo valore sarà quello del record che occupa la posizione
> corrispondente al risultato ottenuto (esempio: se il risultato sarà 3
> il tuo valore sarà 8).
> Non voglio - ovviamente - privarti del piacere di scrivere da solo il
> codice :-)
    ho fatto un test....ma mi restituisce sempre gli stessi valori....
grazie.ciao


text:
"barbun" <
arist...@yahoo.it
> ha scritto nel messaggio
news:2gro5hF...@uni-berlin.de...
>
>     carissimo il mio problema è che voglio generare numeri casuali
> all'interno di quelli
>     contenuti nel campo Nr della tabella pronostico !
>     Esempio il campo Nr contiene questi valori :
--- omissis -------
>
> come faccio a far generare numeri casuali all'interno di questi ?????
> grazie !!!!
Leggendo l'help della funzione Rnd:
Per generare interi casuali in un dato intervallo, utilizzare la seguente
formula:
Int((limitesup - limiteinf + 1) * Rnd + limiteinf)
In questo contesto, limitesup indica il numero maggiore presente
nell'intervallo, mentre limiteinf indica il numero minore.
Quindi applicandola diventa:
Dim MyValue
Randomize ' Inizializza il generatore di numeri casuali.
For x = 1 To 10
    Num1 = Int((Vin!nr - (1 + 1)) * (Rnd) + 1)  '<-- dovrebbe genera numeri
casuali da 1 a Nr
    rst.AddNew
    rst!Num1 = Num1
    rst.Update
Next x
Ciao.
--
Sergio MAZZA


text:
>     Num1 = Int((Vin!nr - (1 + 1)) * (Rnd) + 1)  '<-- dovrebbe genera
numeri
> casuali da 1 a Nr
    e se volessi generarli scegliendo SOLO fra :
2
4
5
6
ecc
tieni conto però che la prossima elaborazioni i valori potrebbero diventare
:
1
3
4
6
8
ecc
scusa se insisto, ma mi sembra che giro intorno allo stesso problema senza
centrarlo MAI !
grazie mille !!!


text:
"barbun" <
arist...@yahoo.it
> ha scritto nel messaggio
news:2grpreF...@uni-berlin.de...

Stai esagerando... Sarebbe gradita anche una tua collaborazione visto che io
sto seguendo l'help in linea e non documentazione introvabile; oltre al
fatto che l'interesse è tuo.
Comunque; questo vuol dire che vuoi generare non solo numeri casuali ma
anche diversi da quelli precedenti. Quindi ogni volta che fai girare la
routine devi controllare se il numero che hai generato già è stato inserito
in tabella; se lo trovi devi rigenerarlo non aggiornando il contatore del
ciclo For.
Es. (a braccio)
For x = 1 To 10
    Num1 = Int((Vin!nr - (1 + 1)) * (Rnd) + 1)  '<-- dovrebbe genera numeri
casuali da 1 a Nr
    if not isnull(Dlookup("Num1","Pronostico","Num1=" & Num1)) then
        x = x - 1 '<-- reimposto il valore del contatore x
    else
        rst.AddNew
        rst!Num1 = Num1
        rst.Update
    end if



text:
> Stai esagerando... Sarebbe gradita anche una tua collaborazione visto che
io
> sto seguendo l'help in linea e non documentazione introvabile; oltre al
> fatto che l'interesse è tuo.
Scusa ma fin dall'inizio io ho cercato solo questo !!!:)
Mi sto leggendo tutte le news americane con oggetto "Random"
!!!!!!!!!!!!!!!
tutti vogliono generare numeri da 1 a 1000 da 1000 a 10000 ecc ecc
nessuno che voglia generare numeri all'interno di un campo di una tabella
!!!
> Comunque; questo vuol dire che vuoi generare non solo numeri casuali ma
> anche diversi da quelli precedenti.
si ti ringrazio per l'interessamento, ma non volevo appesantire la cosa.....
alla fine avrei aggiunto del codice tipo :
If Num2 <> Num1 Then
Num2 = ecc
>Quindi ogni volta che fai girare la
> routine devi controllare se il numero che hai generato già è stato
inserito
> in tabella; se lo trovi devi rigenerarlo non aggiornando il contatore del
> ciclo For.
> Es. (a braccio)
> For x = 1 To 10
>     Num1 = Int((Vin!nr - (1 + 1)) * (Rnd) + 1)  '<-- dovrebbe genera
numeri
> casuali da 1 a Nr
>     if not isnull(Dlookup("Num1","Pronostico","Num1=" & Num1)) then
>         x = x - 1 '<-- reimposto il valore del contatore x
>     else
>         rst.AddNew
>         rst!Num1 = Num1
>         rst.Update
>     end if
> Next x
    ok......grazie ! sinceramente pensavo fosse una cosa facile da fare !
    possibile che non è implementata una funzione Randbetween() classica di
excel ?
scusa x il tempo che hai perso...ripeto pensavo fosse facile !
ciao !


text:
"barbun" <
arist...@yahoo.it
> ha scritto nel messaggio
news:2grs50F...@uni-berlin.de...
> > Stai esagerando... Sarebbe gradita anche una tua collaborazione visto
che
> io
> > sto seguendo l'help in linea e non documentazione introvabile; oltre al
> > fatto che l'interesse è tuo.
>
> Scusa ma fin dall'inizio io ho cercato solo questo !!!:)
>
> Mi sto leggendo tutte le news americane con oggetto "Random"
> !!!!!!!!!!!!!!!
> tutti vogliono generare numeri da 1 a 1000 da 1000 a 10000 ecc ecc
> nessuno che voglia generare numeri all'interno di un campo di una tabella
> !!!
E' questo il problema! la soluzione ce l'hai sotto il naso: F1 = help in
linea di access e cerchi Rnd o Random.
> si ti ringrazio per l'interessamento, ma non volevo appesantire la
cosa.....
> alla fine avrei aggiunto del codice tipo :
>
> If Num2 <> Num1 Then
> Num2 = ecc
!!!???
> >Quindi ogni volta che fai girare la
> > routine devi controllare se il numero che hai generato già è stato
> inserito
> > in tabella; se lo trovi devi rigenerarlo non aggiornando il contatore
del
> > ciclo For.
> > Es. (a braccio)
> > For x = 1 To 10
> >     Num1 = Int((Vin!nr - (1 + 1)) * (Rnd) + 1)  '<-- dovrebbe genera
> numeri
> > casuali da 1 a Nr
> >     if not isnull(Dlookup("Num1","Pronostico","Num1=" & Num1)) then
> >         x = x - 1 '<-- reimposto il valore del contatore x
> >     else
> >         rst.AddNew
> >         rst!Num1 = Num1
> >         rst.Update
> >     end if
> > Next x
>
>     ok......grazie ! sinceramente pensavo fosse una cosa facile da fare !
>     possibile che non è implementata una funzione Randbetween() classica
di
> excel ?
A parte il fatto che da access puoi utilizzare le funzioni di excel (con
OLE) ma questo è un'altra cosa; una cosa sicura è che access non è excel e
quindi non puoi pensare di utilizzare le sue funzioni in entrambi le
applicazioni.
> scusa x il tempo che hai perso...ripeto pensavo fosse facile !
E ti è sembrato difficile? Utilizzi due funzioni con circa 10 righe di
codice...
> ciao !
Ciao.
--
Sergio MAZZA


text:
> E' questo il problema! la soluzione ce l'hai sotto il naso: F1 = help in
> linea di access e cerchi Rnd o Random.
la guida l'ho letta mille volte....ma non riesco a capire come adattarla al
mio caso :(
> A parte il fatto che da access puoi utilizzare le funzioni di excel (con
> OLE) ma questo è un'altra cosa; una cosa sicura è che access non è excel e
> quindi non puoi pensare di utilizzare le sue funzioni in entrambi le
> applicazioni.
sto cercando di adattare questa funzione :
Function fRandBetween(lngBottom, lngTop) As Byte
    Dim lngDifference As Byte
    Randomize
    lngDifference = lngTop - lngBottom + 1
    fRandBetween = Int((Rnd * lngDifference) + lngBottom)
End Function
che ne dici ?
non lasciarmi solo !!!
> Sergio MAZZA
ciao !


text:
On Mon, 17 May 2004 14:12:59 +0200, "barbun" <
arist...@yahoo.it
>
wrote:

Tu vuoi ottenere un numero, scelto a caso, tra qelli contenuti nel
campo NR?
Nel tuo esempio tra: 6 7 8 9 10 14 15 16 17 18 19 20 21 22 23 25 26 27
28 29 31?
Ho capito bene?
Se sì allora spiega come hai fatto il test ...



text:
> Tu vuoi ottenere un numero, scelto a caso, tra qelli contenuti nel
> campo NR?
> Nel tuo esempio tra: 6 7 8 9 10 14 15 16 17 18 19 20 21 22 23 25 26 27
> 28 29 31?
> Ho capito bene?
Perfettamente cosi !!!!!!!!!!!!!!!!!!!!
> Se sě allora spiega come hai fatto il test ...
Public Sub Alberto()
Dim Num1 As Byte
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE * FROM Colonne;"
DoCmd.SetWarnings True
Set rst = CurrentDb.OpenRecordset("Colonne")
Set vin = CurrentDb.OpenRecordset("Pronostico")
For x = 1 To 10
Num1 = Int(Rnd(1) * vin!Nr) + 1
rst.AddNew
rst!Num1 = Num1
rst.Update
Next x
End Sub
puň darsi pure che mi sto rimbabendo, ma il risultato č stato :
Num1
2
2
2
1
1
2
1
2
2
2
> Ciao
Ciao
> Alberto
> No alle guerre
Concordo che cosa orribile !!!! Che tristezza mi viene ! purtroppo come
disse qlq :
"l'uomo č un animale con dentro un anima " !!


text:
Ok !
mi ero rimbambito !
sia  Alberto S.  che Sergio Mazza avevano perfettamente ragione !
quando si cerca qualcosa alla cieca si diventa ciechi !
grazie !


text:
On Mon, 17 May 2004 21:54:36 +0200, in it.comp.appl.access you wrote:
***
posto il messaggio che ieri per errore ho inviato direttamente a
barbun (chiedo umilmente scusa ...)
***
>> Tu vuoi ottenere un numero, scelto a caso, tra qelli contenuti nel
>> campo NR?
>> Nel tuo esempio tra: 6 7 8 9 10 14 15 16 17 18 19 20 21 22 23 25 26 27
>> 28 29 31?
>> Ho capito bene?
>
>Perfettamente cosi !!!!!!!!!!!!!!!!!!!!
>
>
>> Se sì allora spiega come hai fatto il test ...
>
>Public Sub Alberto()
>
>Dim Num1 As Byte
>
>DoCmd.SetWarnings False
>DoCmd.RunSQL "DELETE * FROM Colonne;"
>
>DoCmd.SetWarnings True
>
>Set rst = CurrentDb.OpenRecordset("Colonne")
>Set vin = CurrentDb.OpenRecordset("Pronostico")
>
>
>For x = 1 To 10
>
>Num1 = Int(Rnd(1) * vin!Nr) + 1
>
>
>rst.AddNew
>rst!Num1 = Num1
>
>rst.Update
>
>Next x
>
>End Sub
>
>può darsi pure che mi sto rimbabendo, ma il risultato è stato :
>
>Num1
>
>2
>
>2
>
>2
[cut]
Direi che il problema è stato centrato.
Alcune osservazioni veloci: purtroppo non ho più tempo per stasera.
- Nr deve essere valorizzato con il conteggio del numero totale di
record della tabella pronostico (nel tuo esempio 21), così otterrai un
numero compreso tra 1 e 21.
- Il valore che immetterai in rst!Num1 sarà quello del record che
occupa la relativa posizione (cioè se dal calcolo otterrai 7, il
valore da memorizzare sarà 15)
- Ad ogni successivo ciclo dovrai anche accertarti di non ottenere
duplicati, altrimenti ripeterai il calcolo ad oltranza.
Se pensi di aver bisogno di una mano per il codice fammelo sapere.
Ciao.



text:
"Alberto S." <
sartori.SPA...@tin.it
> ha scritto nel messaggio
news:t2jka0hjjvnhkdig2...@4ax.com...
> On Mon, 17 May 2004 21:54:36 +0200, in it.comp.appl.access you wrote:
>
> ***
> posto il messaggio che ieri per errore ho inviato direttamente a
> barbun (chiedo umilmente scusa ...)
> ***
nessuna scusa perchè causa spam ho indicato un e-mail fasulla ...quindi il
tuo messaggio non mi è arrivato ! anzi grazie lo stesso !
> Alcune osservazioni veloci: purtroppo non ho più tempo per stasera.
> - Nr deve essere valorizzato con il conteggio del numero totale di
> record della tabella pronostico (nel tuo esempio 21), così otterrai un
> numero compreso tra 1 e 21.
> - Il valore che immetterai in rst!Num1 sarà quello del record che
> occupa la relativa posizione (cioè se dal calcolo otterrai 7, il
> valore da memorizzare sarà 15)
> - Ad ogni successivo ciclo dovrai anche accertarti di non ottenere
> duplicati, altrimenti ripeterai il calcolo ad oltranza.
>
> Se pensi di aver bisogno di una mano per il codice fammelo sapere.
ti ringrazio per i suggerimenti..........ma ho scoperto che debbo cambiare i
miei piani !
Ho realizzato che la cosa + semplice è in effetti  generare tutte le
possibili combinazioni che
possono scaturire dai numeri presenti nella tabella Pronostico del campo NR
presi
per classe 8 !
Ho provato a buttare giù questo codice :
1) dove vedi ???? = non so che pesci pigliare e stavolta non voglio dire
cavolate !
2) bisognerebbe tener conto che i numeri presenti nella tabella Pronostico
potrebbero essere talvolta
        20, talvolta 21 , insomma >16 < 23 :)
3) forse bisognerebbe usare array o cose del genere....ma faccio una
promessa è l'ultima volta che vado alla
    cieca da domani imparo il VBA : PROMESSO
M dai (date) una mano ?????
Public Sub test20()
Dim Num1 As Byte
Dim Num2 As Byte
Dim Num3 As Byte
Dim Num4 As Byte
Dim Num5 As Byte
Dim Num6 As Byte
Dim Num7 As Byte
Dim Num8 As Byte
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE * FROM Colonne;"
DoCmd.SetWarnings True
Set rst = CurrentDb.OpenRecordset("Colonne")
Set vin = CurrentDb.OpenRecordset("Pronostico")
For Num1 = ???
For Num2 = ???
If Num2 <> Num1 Then
For Num3 = ???
If Num3 <> Num1 And Num3 <> Num2 Then
For Num4 = ???
If Num4 <> Num1 And Num4 <> Num2 And _
Num4 <> Num3 Then
For Num5 = ????
If Num5 <> Num1 And Num5 <> Num2 And _
Num5 <> Num3 And Num5 <> Num4 Then
For Num6 =  ????
If Num6 <> Num1 And Num6 <> Num2 And Num6 <> _
Num3 And Num6 <> Num4 And Num6 <> Num5 Then
For Num7 = ????
If Num7 <> Num1 And Num7 <> Num2 And Num7 <> _
Num3 And Num7 <> Num4 And Num7 <> Num5 And Num7 <> Num6 Then
For Num8 = ????
If Num8 <> Num1 And Num8 <> Num2 And Num8 <> _
Num3 And Num8 <> Num4 And Num8 <> Num5 And Num8 <> Num6 And Num8 <> Num7
Then
rst.AddNew
rst!Num1 = Num1
rst!Num2 = Num2
rst!Num3 = Num3
rst!Num4 = Num4
rst!Num5 = Num5
rst!Num6 = Num6
rst!Num6 = Num7
rst!Num6 = Num8
rst.Update
End If
Next Num8
End If
Next Num7
End If
Next Num6
End If
Next Num5
End If
Next Num4
End If
Next Num3
End If
Next Num2
Next Num1
Set rst = Nothing
End Sub
ciao !


text:
Il seguente (non funziona) ma mi sembra + corretto :)
Option Compare Database
Dim P(20) As Byte
Public Sub test200()
Dim Num1 As Byte
Dim Num2 As Byte
Dim Num3 As Byte
Dim Num4 As Byte
Dim Num5 As Byte
Dim Num6 As Byte
Dim Num7 As Byte
Dim Num8 As Byte
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE * FROM Colonne;"
DoCmd.SetWarnings True
Set rst = CurrentDb.OpenRecordset("Colonne")
Set vin = CurrentDb.OpenRecordset("Pronostico")
P(20) = vin!Nr
For Num1 = 1 To 20
For Num2 = 1 To 20
If Num2 <> Num1 Then
For Num3 = 1 To 20
If Num3 <> Num1 And Num3 <> Num2 Then
For Num4 = 1 To 20
If Num4 <> Num1 And Num4 <> Num2 And _
Num4 <> Num3 Then
For Num5 = 1 To 20
If Num5 <> Num1 And Num5 <> Num2 And _
Num5 <> Num3 And Num5 <> Num4 Then
For Num6 = 1 To 20
If Num6 <> Num1 And Num6 <> Num2 And Num6 <> _
Num3 And Num6 <> Num4 And Num6 <> Num5 Then
For Num7 = 1 To 20
If Num7 <> Num1 And Num7 <> Num2 And Num7 <> _
Num3 And Num7 <> Num4 And Num7 <> Num5 And Num7 <> Num6 Then
For Num8 = 1 To 20
If Num8 <> Num1 And Num8 <> Num2 And Num8 <> _
Num3 And Num8 <> Num4 And Num8 <> Num5 And Num8 <> Num6 And Num8 <> Num7
Then
rst.AddNew
rst!Num1 = P(Num1)
rst!Num2 = P(Num2)
rst!Num3 = P(Num3)
rst!Num4 = P(Num4)
rst!Num5 = P(Num5)
rst!Num6 = P(Num6)
rst!Num7 = P(Num7)
rst!Num8 = P(Num8)



text:
On Tue, 18 May 2004 23:21:02 +0200, "barbun" <
arist...@yahoo.it
>
wrote:
>Il seguente (non funziona) ma mi sembra + corretto :)
>
[cut]
(lascia un po' di quoting, altrimenti non si capisce più il senso)
Quando avevo più tempo (e anche un po' di buontempo) ho scritto una
routine che generava dei numeri casuali - tipo superenalotto. Deve
essere un poco riadattata ma poi lavorerà grosso modo come ti ho
descritto qualche post fa.
Se nel fine settimana avrò un po' di tempo (e se tu nel frattempo non
avrai risolto) vedrò di sistemarla e passartela.
Ciao



text:
"Alberto S." <
sartori.SPA...@tin.it
> ha scritto nel messaggio
news:s4gna0pnsvmoankpl...@4ax.com...
> On Tue, 18 May 2004 23:21:02 +0200, "barbun" <
arist...@yahoo.it
>
> wrote:
>
> >Il seguente (non funziona) ma mi sembra + corretto :)
> >
> [cut]
>
> (lascia un po' di quoting, altrimenti non si capisce più il senso)
hai ragione !
> Quando avevo più tempo (e anche un po' di buontempo) ho scritto una
> routine che generava dei numeri casuali - tipo superenalotto. Deve
> essere un poco riadattata ma poi lavorerà grosso modo come ti ho
> descritto qualche post fa.
> Se nel fine settimana avrò un po' di tempo (e se tu nel frattempo non
> avrai risolto) vedrò di sistemarla e passartela.
>
    Ho risolto alla grande con  una query !!!!!!!
Ho postato il msg anche su un newsgroup americano e un certo  Peter ,
con una sintesi straordinaria ha detto   :
Did you try using a query instead of code?
INSERT INTO tN ( 1, 2, 3, 4, 5, 6, 7, 8 )
SELECT [1].ID, [2].ID, [3].ID, [4].ID, [5].ID, [6].ID, [7].ID, [8].ID
FROM tblTmpKey AS 1, tblTmpKey AS 2, tblTmpKey AS 3, tblTmpKey AS 4,
tblTmpKey AS 5, tblTmpKey AS 6, tblTmpKey AS 7, tblTmpKey AS 8
WHERE ((([2].ID)>[1].[id]) AND (([3].ID)>[2].[id]) AND (([4].ID)>[3].[id])
AND (([5].ID)>[4].[id]) AND (([6].ID)>[5].[id]) AND (([7].ID)>[6].[id]) AND
(([8].ID)>[7].[id]));
Here, tblTmpKey has one field (ID), table tN has 8 fields (1,2,3...8) all
type byte with primary key on all eight fields.  Run the query for the
numbers in your example and there are 145 combinations (with elimination).
Because the query forces the numbers in a certain order you won't get
duplication ie the combinations will be unique.   - peter.
Sinceramente debbo ammettere che sono ancora stupito per  la semplicità con
la quale ha risolto !
ciao
p.s.
ti ringrazio molto l'aiuto !
Il "buontempo" ho scoperto che dobbiamo crearcelo anche quando non c'è !!!
anche x me non è un gran periodo.......ma dobbiamo tenere duro !


text:
On Wed, 19 May 2004 23:27:08 +0200, "barbun" <
arist...@yahoo.it
>
wrote:
[cut]
>    Ho risolto alla grande con  una query !!!!!!!
>Ho postato il msg anche su un newsgroup americano e un certo  Peter ,
>con una sintesi straordinaria ha detto   :
>
>Did you try using a query instead of code?
>INSERT INTO tN ( 1, 2, 3, 4, 5, 6, 7, 8 )
>SELECT [1].ID, [2].ID, [3].ID, [4].ID, [5].ID, [6].ID, [7].ID, [8].ID
>FROM tblTmpKey AS 1, tblTmpKey AS 2, tblTmpKey AS 3, tblTmpKey AS 4,
>tblTmpKey AS 5, tblTmpKey AS 6, tblTmpKey AS 7, tblTmpKey AS 8
>WHERE ((([2].ID)>[1].[id]) AND (([3].ID)>[2].[id]) AND (([4].ID)>[3].[id])
>AND (([5].ID)>[4].[id]) AND (([6].ID)>[5].[id]) AND (([7].ID)>[6].[id]) AND
>(([8].ID)>[7].[id]));
>
>Here, tblTmpKey has one field (ID), table tN has 8 fields (1,2,3...8) all
>type byte with primary key on all eight fields.  Run the query for the
>numbers in your example and there are 145 combinations (with elimination).
>Because the query forces the numbers in a certain order you won't get
>duplication ie the combinations will be unique.   - peter.
Me la analizzo con calma
>Sinceramente debbo ammettere che sono ancora stupito per  la semplicità con
>la quale ha risolto !
Hei!, guarda che la mia soluzione avrebbe avuto 'solo' alcune decine
di righe in più :-))
>ciao
>
>p.s.
>ti ringrazio molto l'aiuto !
>Il "buontempo" ho scoperto che dobbiamo crearcelo anche quando non c'è !!!
>anche x me non è un gran periodo.......ma dobbiamo tenere duro !
Giustissimo, ciao.



title: formattazione casella testo

author: antodeka

text:
Ciao a tutti e grazie in anticipo. All'interno di una maschera
visualizzo in una casella di testo la somma delle ore lavorate
nel mese corrente. A seconda della quantità di ore posso avere
risultati a 3, 4, 5 cifre di cui le ultime due sono decimali.
Formatto il risultato nella casella con una inputmask (00.00) ma
se il risultato è a 3 o 5 cifre la visualizzazione non è
corretta. Avete qualche consiglio per far adattare la inputmask
a seconda di quante siano le cifre del risultato?
ciao e grazie
--
Postato da Alice Newsgroup: lo usi da web ma con le funzioni del newsreader
http://newsgroup.alice.it
Gerarchie it, italia, it-alt, tin, it.binari. Unico!


title: formattazione casella testo

author: NSantini

text:
"antodeka" <
utente_virgi...@virgilio.it
> ha scritto nel messaggio
news:33509131.1184835110512.JavaMail.newsgroup@sc-ng-1...
> Ciao a tutti e grazie in anticipo. All'interno di una maschera
> visualizzo in una casella di testo la somma delle ore lavorate
> nel mese corrente. A seconda della quantità di ore posso avere
> risultati a 3, 4, 5 cifre di cui le ultime due sono decimali.
> Formatto il risultato nella casella con una inputmask (00.00) ma
> se il risultato è a 3 o 5 cifre la visualizzazione non è
> corretta. Avete qualche consiglio per far adattare la inputmask
> a seconda di quante siano le cifre del risultato?
> ciao e grazie
Lo dice la stessa parola: inputmask serve per far l'input dei dati
permettendo all'operatore che immette il dato in modo corretto, non per la
sua visualizzazione.
Per la corretta visualizzazione devi impostare la proprietà formato della
casella scegliendo quella che più si confà alle tue esigenze.
Infine ti ricordo che i calcoli delle ore e dei minuti devono essere
manipolati, in quanto il PC esegue i calcoli seguendo le regole della
matematica decimale mentre nei calcoli dei minuti devi ragionare in
60ntesimi. Infatti se fai sommare 6,42 + 5,37 la risposta è 11,79 e non
12,19
NSantini


title: formattazione casella testo

text:
NSantini ha scritto:

>Scusami se appofitto della tua disponibilità, ma posso sapere
come formattare la casella in modo che le ultime due cifre siano
sempre dopo una virgola o un punto (es. 000.00 oppure 00.00
oppure 0.00)



title: formattazione casella testo

text:

1. nella struttura tabella il campo come è impostato? Se impostato a numero
allora...
2. nella maschera seleziona la casella collegata a qujel campo e poi ...
3. proprità e scegli Formato (Numero generico, Fisso, Standard.. quello che
risponde meglio alle tue esigenze)
4 riga sotto: decimali scegline quanti ne vuoi
dovrebbe funzionare
Ciao
NSantini


title: Ordinare e filtrare campi RTF

text:
Ciao a tutti,
non riesco a venir fuori dal seguente problema,
ho collegato una tabella da un database SQL SERVER  ad un database
Access2000.
La tabella contiene un campo, che in access vedo come memo, contenente
testo in formato RTF.
Ho creato una maschera con un controllo rich text box, ma in questo
controllo non posso ordinare e filtrare (....lo immaginavo).
Come posso filtrare e ordinate il testo contenuto in questo campo?
Ho pensato di estrarre il testo in una tabella di appoggio mediante una
query, ma togliere i codici di comando RTF dai record ma non è
facile??
un grazie di cuore a chiunque mi fornirà un aiuto, grande o piccolo
che sia
Saluti Mario


title: Ordinare e filtrare campi RTF

author: Alessandro Baraldi

text:
mario....@adriacom.it
 ha scritto:

Il controllo RTF se non ricordo male espone la proprietà TEXT che
restituisce
il testo puro senza la formattazione RTF.
Poi invece per quanto riguarda l'Ordinamento e il filtro sinceramente
non capisco
cosa dovresti ordinare e filtrare in un campo MEMO..., solitamente non
è una cosa
normale..!
@Alex


title: Ordinare e filtrare campi RTF

text:
Grazie Alex,
>Alessandro Baraldi ha scritto:
> Il controllo RTF se non ricordo male espone la proprietà TEXT che
> restituisce
> il testo puro senza la formattazione RTF.
quindi se voglio esportare il contenuto su una tabella di appoggio devo
fare un sub che mi scorre i record della maschera e mi aggiorna la
tabella di appoggio?
Non esiste una funzione, da utilizzare in una query o su un  recordset,
che restituisce il testo puro come fa la proprietà TEXT del controllo
RTF?
> Poi invece per quanto riguarda l'Ordinamento e il filtro sinceramente
> non capisco
> cosa dovresti ordinare e filtrare in un campo MEMO..., solitamente non
> è una cosa
> normale..!
>
> @Alex
il campo fa parte di una tabella collegata da un database esterno la
cui struttura non posso modificare. Per l'uso che ne faccio
effettivamente il campo memo non ha senso.
Ciao
Mario


title: Ordinare e filtrare campi RTF

text:
mario....@adriacom.it
 ha scritto:
> Grazie Alex,
>
> >Alessandro Baraldi ha scritto:
>
> > Il controllo RTF se non ricordo male espone la proprietà TEXT che
> > restituisce
> > il testo puro senza la formattazione RTF.
>
> quindi se voglio esportare il contenuto su una tabella di appoggio devo
> fare un sub che mi scorre i record della maschera e mi aggiorna la
> tabella di appoggio?
>
> Non esiste una funzione, da utilizzare in una query o su un  recordset,
> che restituisce il testo puro come fa la proprietà TEXT del controllo
> RTF?
In modo nativo non esiste nulla, VB6 dispone della ClipBoard nella
quale
potevi copiare un testo RTF ed incollarlo come TXT, in VBA puoi fare la
stessa
cosa ma la devi fare con le API, ed ovviamente un record per volta...!
Solitamente infatti converrebbe avere 2 campi nella tabella, quello RTF
e quello TXT.

[CUT]
Ciao
@Alex


title: Operazioni matematiche in tabella

author: [吞 DjMix [吞

text:
Salve a tutti.
Ho realizzato una tabella ( tb_SchedeFornitori ) così
strutturata:
Ditta|N.Fatt.|Descrizione|Imponibile|Iva|Totale|Pagato|Saldo
La ditta è
presa da un'altra tabella ( tb_AnagraficheFornitori ) tramite
collegamento.
Ho creato una maschera che, scelto la ditta da un'elenco,
apre una maschera
dove c'è l'anagrafica della ditta scelta e cliccando su
un pulsante
"Scheda", mi apre a sua volta un'altra maschera che richiama
la tabella
sopra descritta con una query riassunta con la seguente
istruzione SQL:
SELECT tb_SchedeFornitori.fornitore,
tb_SchedeFornitori.id_schedaFornitore,
tb_SchedeFornitori.data,
tb_SchedeFornitori.n_fattura,
tb_SchedeFornitori.descrizione,
tb_SchedeFornitori.imponibile,
tb_SchedeFornitori.iva,
tb_SchedeFornitori.tot, tb_SchedeFornitori.pagato,
tb_SchedeFornitori.saldo
FROM tb_SchedeFornitori
WHERE
(((tb_SchedeFornitori.fornitore)=[Forms]![AnagraficaFornitori_filtrati]![dit
ta]));
Praticamente prende tutti i record della tabella
tb_SchedeFornitori che
risultano collegati alla ditta scelta.
Ho fatto la
maschera in modo da avere su una riga tutte le voci, e poi ho
settato la
visualizzazione in "Maschere continue", in modo da avere una
tabella
simile a quella di Excel.
I record li posso correggere, eliminare o
aggiuangere.
Il problema si fà quando devo fare le operazioni seguenti:
Il campo "Totale" deve essere calcolato automaticamente in questo modo:
=((Imponibile/100)*Iva)+Imponibile
Il campo "Pagato" viene inserito
dall'utente al momento che la ditta viene
pagata.
Il campo "Saldo" deve
essere calcolato automaticamente in questo modo:
=Totale-Pagato
Infatti, se viene inserito un'imponibile pari a 23000 Euro, e l'iva 20%, il
totale dovrebbe risultare 27600 Euro e il saldo pari a 27600 Euro.
Quando
l'utente inserirà in "Pagato" il valore 27600 Euro, il saldo dovrà
essere
pari a 0 Euro.
Per fare queste operazioni automatiche ho inserito in
"Origine Controllo"
nella scheda "Dati" delle proprità del campo "Totale"
la seguente formula:
=(([imponibile]/100)*[iva])+[imponibile]
e per il
campo "Saldo" quest'altra:
=[tot]-[pagato]
E' chiaro che visualizzerà i
risultati solamente nella maschera in tempo
reale, quindi non salverà i
dati nella tabella.
Per questo ho fatto una query di aggiornamento che
entra in funzione
attraverso il pulsante "Chiudi" inserito nella maschera.
Il problema è che fà l'aggiornamento di TUTTI  I RECORD PRESENTI NELLA
TABELLA!
E' ovvio che se nella tabella ci sono 2000 record, aggiornerà
2000 record il
chè, ovviamente, richiederà moltissimo tempo.
Come posso
aggirare il problema facendo aggiornare solamente i record
interessati da
quella data ditta?
Un'altra domanda: si può creare in una maschera
un'effetto tipo quello di
excel che prende i dati da una tabella del DB?
Non dico in visualizzazione "Tabella", perchè così non posso utilizzare
pulsanti o altre cose. E non dico neanche con la visualizzazione "Maschere
continue" (il metodo che ho descritto sopra).
grazie a tutti
--------------------------------
Inviato via
http://usenet.iol.it


title: Operazioni matematiche in tabella

author: Sib

text:
"[§] DjMix [§]" <
nospam...@inwind.it
> ha scritto nel messaggio
> Ho realizzato una tabella ( tb_SchedeFornitori ) così
> strutturata:
> Ditta|N.Fatt.|Descrizione|Imponibile|Iva|Totale|Pagato|Saldo
cut
> Praticamente prende tutti i record della tabella
> tb_SchedeFornitori che
> risultano collegati alla ditta scelta.
> Ho fatto la
> maschera in modo da avere su una riga tutte le voci, e poi ho
> settato la
> visualizzazione in "Maschere continue", in modo da avere una
> tabella
> simile a quella di Excel.
> I record li posso correggere, eliminare o
> aggiuangere.
cut
> E' chiaro che visualizzerà i
> risultati solamente nella maschera in tempo
> reale, quindi non salverà i
> dati nella tabella.
> Per questo ho fatto una query di aggiornamento che
> entra in funzione
> attraverso il pulsante "Chiudi" inserito nella maschera.
> Il problema è che fà l'aggiornamento di TUTTI  I RECORD PRESENTI NELLA
> TABELLA!
> E' ovvio che se nella tabella ci sono 2000 record, aggiornerà
> 2000 record il
> chè, ovviamente, richiederà moltissimo tempo.
cut
Mi devi scusare, ma secondo me ti sei imbarcato in un'impresa cui non eri
preparato.
Non e' che il tuo problema si possa discutere e risolvere qui in qualche
battuta.
Credimi, non parlo a casaccio, ma ho affrontato i problemi di cui parli e
questo tipo di gestione non e' semplice.
Se i tuoi record restano 2000 o giu' di li' fai pure aggiornare l'intera
tabella che e' piu' semplice.
Sib


title: Operazioni matematiche in tabella

author: Massimiliano Amendola  kksrl

text:
"[§] DjMix [§]" <
nospam...@inwind.it
> ha scritto nel messaggio
news:212Z141Z244Z7Y...@usenet.iol.it...

se ho capito bene quello che ti serve dovrebbe essere semplice, basta che
filtri la query di aggiornamento  attraverso il criterio
forms!tuamaschera!tuocontollo.
Se non ho capito nulla fammi sapere
ciao
MAssimiliano


title: Operazioni matematiche in tabella

text:
"[§] DjMix [§]" <
nospam...@inwind.it
> ha scritto nel messaggio
news:212Z141Z244Z7Y...@usenet.iol.it...
> Salve a tutti.
-------- omissis ----------
> E' chiaro che visualizzerà i
> risultati solamente nella maschera in tempo
> reale, quindi non salverà i
> dati nella tabella.
Soluzione molto veloce e pratica se cambia uno solo dei valori "fissi"
(leggi IVA).
> Per questo ho fatto una query di aggiornamento che
> entra in funzione
> attraverso il pulsante "Chiudi" inserito nella maschera.
Male;
> Il problema è che fà l'aggiornamento di TUTTI  I RECORD PRESENTI NELLA
> TABELLA!
ovvio;
> E' ovvio che se nella tabella ci sono 2000 record, aggiornerà
> 2000 record il
> chè, ovviamente, richiederà moltissimo tempo.
ecco il perché del non memorizzare i dati che possono essere ricalcolati.
> Come posso
> aggirare il problema facendo aggiornare solamente i record
> interessati da
> quella data ditta?
E poi se devi ricalcolare, con dei nuovi valori, i record che fai? Li devi
per forza rinfrescare tutti, quindi sei di nuovo punto e accapo.
> Un'altra domanda: si può creare in una maschera
> un'effetto tipo quello di
> excel che prende i dati da una tabella del DB?
> Non dico in visualizzazione "Tabella", perchè così non posso utilizzare
> pulsanti o altre cose. E non dico neanche con la visualizzazione "Maschere
> continue" (il metodo che ho descritto sopra).
Sbagli, proprio in maschere continue puoi inserire dei bottoni e simulare
una visualizzazione tipo "tabella dati".
>
> grazie a tutti
> --------------------------------
> Inviato via
http://usenet.iol.it
Ciao.
--
Sergio MAZZA


title: somma & maschera...

author: matrix

text:
Ciao a tutti,
premetto che in access sono proprio un novellino e che quindi posso
anche dire delle fesserie.
Ho realizzato una tabella con quattro campi:
[Contatori] (nome della tabella)
Data
Contatore1 (formato numerico..si tratta di contatori enel)
Contatore2
Contatore3
Vorrei realizzare una maschera in cui sia possibile inserire i tre
contatori e nella stessa tabella creare un campo che faccia di giorno
in giorno questo:
es.
Data 30/08/2004
Contatore1 30
Contatore2 20
Contatore3 40
Data 31/08/2004
Contatore1 35
Contatore2 25
Contatore3 45
Totale KW= (35+25+45)-(30+20+40)
E' proprio questo ultimo campo che vorrei creare nella maschera...
Non so se va fatta query o cosa...
Poi il risultato dovrebbe essere salvato in una tabella che magari
chiamerò KW
ciao e grazie
Inviato da
www.mynewsgate.net


title: somma & maschera...

author: Roberto dalla campagna

text:
"matrix" <
4466i...@mynewsgate.net
> ha scritto nel messaggio
news:200408300...@mynewsgate.net...
> Ciao a tutti,
> premetto che in access sono proprio un novellino e che quindi posso
> anche dire delle fesserie.
> Ho realizzato una tabella con quattro campi:
> [Contatori] (nome della tabella)
> Data
> Contatore1 (formato numerico..si tratta di contatori enel)
> Contatore2
> Contatore3
>
> Vorrei realizzare una maschera in cui sia possibile inserire i tre
> contatori e nella stessa tabella creare un campo che faccia di giorno
> in giorno questo:
>
> es.
>
> Data 30/08/2004
> Contatore1 30
> Contatore2 20
> Contatore3 40
>
> Data 31/08/2004
> Contatore1 35
> Contatore2 25
> Contatore3 45
> Totale KW= (35+25+45)-(30+20+40)
>
> E' proprio questo ultimo campo che vorrei creare nella maschera...
> Non so se va fatta query o cosa...
Puoi risovere il problema creandoti una query nella quale si faccia
riferimento ai valori del record precedente.
Trovi informazioni di come in una query far riferimento ad un campo del
record precedente al seguente link:
http://support.microsoft.com/default.aspx?id=101081
> Poi il risultato dovrebbe essere salvato in una tabella che magari
> chiamerò KW
E' contro ogni buona regola di gestione dei database relazionali memorizzare
in una tabella campi calcolati, inoltre potrebbe crearti dei mal di pancia e
pertanto ti sconsiglio di farlo; per i campi calcolati esistono appunto le
query: comunque se proprio insisti per farlo, una volta che la query di cui
sopra funziona, trasormala in una query di creazione tabella.
>
> ciao e grazie
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: come visualizzare i data base di access

author: Nicola

text:
Ho dei file creati con access 2000, pero non ho il programma, vi sono dei
visualizzatori reperibili in rete?
Grazie


title: come visualizzare i data base di access

author: Stefano

text:
Nicola wrote:
> Ho dei file creati con access 2000, pero non ho il programma, vi sono dei
> visualizzatori reperibili in rete?
Guarda qui
http://www.microsoft.com/italy/office/previous/2000/viewers.asp


title: come visualizzare i data base di access

author: Roberto da casa

text:
"Nicola" <
l...@ld.it
> ha scritto nel messaggio
news:mcix9.67800$aL4.2...@news1.tin.it...
> Ho dei file creati con access 2000, pero non ho il programma, vi sono dei
> visualizzatori reperibili in rete?
> Grazie
L'unico visualizzatore relativo ad Access è quello che consente agli utenti
di Internet Explorer versione 3.0 o successiva e di tutte le applicazioni
che supportano i controlli ActiveX® di aprire file snapshot dei report di
Access 97 (.snp).
Non esiste invece alcun visualizzatore che ti permette di aprire e
viasualizare un database Access; l'unica possibilità di aprire un file
Access da parte di chi non ha installato Access è quella che, chi ha creato
il database, abbia prodotto una versione run-time possedendo lui una licenza
Developer.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: come visualizzare i data base di access

author: Lorenzo Coronati

text:
Scrisse "Roberto da casa" <
r.ma...@libero.it
>:
>L'unico visualizzatore relativo ad Access č quello che consente agli utenti
>di Internet Explorer versione 3.0 o successiva e di tutte le applicazioni
>che supportano i controlli ActiveXŽ di aprire file snapshot dei report di
>Access 97 (.snp).
c'e' anche lo snepsciot viuer per il 2000
http://office.microsoft.com/downloads/2000/Snpvw90.aspx
--
lorenzo coronati
---


title: come visualizzare i data base di access

text:
"Lorenzo Coronati" <lorenzo.coronati@liberopuntoit> ha scritto nel messaggio
news:3dc90f8d...@news.edisontel.com...

OK, grazie!



title: File mdb senza ACCESS

author: Gianluca Cucciniello

text:
Ciao a tutti ,
volevo chiederVi se potete suggerirmi in che modo poter rendere
autoeseguibile un file creato con Access ( sto lavorando col 97 per motivi
vari )
senza dover utilizzare quest'ultimo. So che esiste un programma dedicato a
ciò ma non so come si chiami o dove poter ricercarlo.
Grazie , spero che qualcuno mi aiuti !
Gianluca


title: File mdb senza ACCESS

author: MA

text:
"Gianluca Cucciniello" <
dy...@libero.it
> ha scritto nel messaggio
news:ztBEb.200583$e6.75...@twister2.libero.it...

Per scaricartelo
www.sitocomune.com
l'articolo si chiama il faqquone.
MAssimiliano


title: File mdb senza ACCESS

text:
Grazie ,sei stato gentilissimo!
Ora provo. CIAO!
"MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
news:nwBEb.18413$i_5....@news.edisontel.com...
>
> "Gianluca Cucciniello" <
dy...@libero.it
> ha scritto nel messaggio
> news:ztBEb.200583$e6.75...@twister2.libero.it...
> > Ciao a tutti ,
> >
> > volevo chiederVi se potete suggerirmi in che modo poter rendere
> > autoeseguibile un file creato con Access ( sto lavorando col 97 per
motivi
> > vari )
> > senza dover utilizzare quest'ultimo. So che esiste un programma dedicato
a
> > ciň ma non so come si chiami o dove poter ricercarlo.
