Newsgroup: it.comp.appl.access
Titolo: il Sito Comune di Access funziona?

Ho copiato dal sito comune una funzione.
L'ho inserita nel codice della prima maschera che apro in Access97, ma non
funziona.
Come si usano queste funzioni?
Inoltre se cerco di scaricare un file zip sempre dal sito Comune mi compare
questa scritta: 'This object has been blocked'. Perchč?
Ciao
Franco

 questa scritta: 'This object has been blocked'. Perchè?
Forse se dici quel e' la funzione che non funziona...
Sib

 ha scritto nel messaggio
news:70WJc.10494$OR2.5...@news3.tin.it...



Come hai capito di quale funzione parla?
Sib
PS: appassionato de Il signore degli anelli?

Credo che il problema è che non so come usarle le funzioni, comunque la
funzione  'che non funziona' è questa:
---Rimuovere il pulsante di chiusura (X)---
Private Const GWL_STYLE = -16
Private Const WS_SYSMENU = &H80000
Private Const WS_MINIMIZEBOX = &H20000
Private Const WS_MAXIMIZEBOX = &H10000
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
    (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
    (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As
Long
Private Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
Public Sub LockAppWindow(fForm As Form)
    ModifyAppWind fForm.hwnd
    MsgBox "Ciao ciao pulsantini!"
End Sub
Private Sub ModifyAppWind(wChildWnd)
    Dim wParentWnd%
    wParentWnd = GetParent(GetParent(wChildWnd))
    Dim PrevWinStyle As Long, NewWinStyle As Long
    PrevWinStyle = GetWindowLong(wParentWnd, GWL_STYLE)
    NewWinStyle = PrevWinStyle And Not WS_SYSMENU And _
       Not WS_MINIMIZEBOX And _
       Not WS_MAXIMIZEBOX
    PrevWinStyle = SetWindowLong(wParentWnd, GWL_STYLE, NewWinStyle)
End Sub
----------------------------------------------

Infatti non lo so... Ho solo detto quello ceh č capitato a me.
Gandalf.
"Sib" <sedav...@SPAMtiscali.it> ha scritto nel messaggio
news:0H7Kc.13273$5D1.4...@news4.tin.it...


 Gandalf.
Dato il numero di funzioni presenti sul sito comune, non si puo' dire "le
funzioni sono Ok" o "le funzioni hanno problemi", bisogna vedere caso per
caso.
Certamente che vanno tutte adattae come e' altrettanto certo che sono
veramente poche, se ce n'e', le funzioni che hanno bag, ma se non ci fa
vedere quale ha usato e, soprattutto, come l'ha adattata al suo caso non si
riesce ad aiutarlo.
Ciao
Sib

 > Infatti non lo so... Ho solo detto quello ceh è capitato a me.


 news:QwBKc.19239$5D1.7...@news4.tin.it...
Sib, capisco che sei tornato da poco, ma ti ricordi vero che si scrive DOPO
il quoting e che se continui a rispondere a chi non lo fa, questo non impara
nulla?
Antonio

 Antonio
Che vuoi, l'essere tornato da poco mi ha reso buono, d'altro canto speravo
capissero per osmosi da come gli rispondevo io.
Sib

"Sib" <sedav...@SPAMtiscali.it> ha scritto nel messaggio
news:kbVKc.23573$5D1.9...@news4.tin.it...

Eh, ma al secondo tentativo andato a vuoto, un minimo di sospetto...
Antonio

 "Sib" <sedav...@SPAMtiscali.it> ha scritto nel messaggio

Ok, te lo concedo, sono ancora "intorpidito", ma fammi riscaldare e poi
vedi...
Sib

ora che sto rispondendo (credo) dopo il quoting, mi dite come si usano
queste funzioni?

 queste funzioni?
Il quoting č il testo del msg a cui stai rispondendo. Si scrive dopo per
non incasinare il discorso.
Quella funzione che hai preso dal 
www.sitocomune.com
 la incolli in un
nuovo modulo che salverai con un nome a tua scelta, e in uno degli eventi
della maschera richiami la public sub cosě:
  LockAppWindow(Me.Form)
In generale, anche per altre funzioni del sito, quando trovi qualcosa che
contiene delle routines PUBLIC (Sub o Function) devi mettere tutto il
codice in un modulo, e poi puoi richiamare le sub o function da qualsiasi
punto del codice (maschere, report, macro), passandogli i parametri
richiesti.
Namor
-- 
namor at inwind punto it
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 queste funzioni?
Il quoting l'hai cancellato tutto, quindi non puoi aver risposto DOPO il
quoting!!!
Antonio

 ha scritto nel messaggio
news:cdiiid$7pp$1...@news.newsland.it...



allora vedrai che molti cominciano a rispoderti piů volentieri, dopo il
quoting significa dopo tutto quello che hanno scritto gli altri. E qualche
volta come ho fatto io oggi puoi cancellare la parte che hanno scritto gli
altri che non interessa.
Ciao Valerio.