Newsgroup: it.comp.appl.access
Titolo: Qualche facile esempio sull'uso della funzione Dlookup

Ciao amici del newsgroup
Potete dirmi se nel sitocomune c'e un esempio sull'utilizzo della funzione
Dlookup.
Su consiglio di Roberto devo usare questa funzione per inserire in una
maschera di scarico di prodotti i loro prezzi prelevandoli da una tabella
listino a parte.
Purtroppo per me l'Help in linea è un po ostico. Mi serve pertanto qualche
facile esempio per capire come applicare questa funzione.
Se sul sitocomune non c'è nulla in proposito potete farmi un piccolo
esempio.
Grazie


questo esempio riguarda la dlookup nei moduli
DLookup("[Autorizzazione Contabilità]", "[TabellaAutorizzazioni]",
"[matricola]= Forms![Pannello comandi]![matricola]")
questo esempio per tutto il resto
DLookup("[Autorizzazione Contabilità]"; "[TabellaAutorizzazioni]";
"[matricola]= Forms![Pannello comandi]![matricola]")
ciao
--------------------------------
Inviato via 
http://usenet.libero.it

 facile esempio per capire come applicare questa funzione.
Se i facili ed illuminanti esempi contenuti nell'help on line ti risultano
ostici, è meglio che lasci perdere questa attività...
Antonio

 ha scritto nel messaggio
news:80Z16Z45Z126Y1...@usenet.libero.it...

Eeeehhhhhh?!?!?
Sei convinto di quello che hai scritto?
A parte il fatto ovviamente di distinguere il caso in cui matricola sia
numerico (e allora se non fosse sbagliata la sintassi potrebbe pure andare)
da quello di tipo testo (e quindi ci vogliono gli apici intorno al valore da
confrontare!!!)
Prova a riguardare quello che hai scritto... poi se badush dice che non
capisce c'ha ragione...
Antonio

 Dlookup.
=DLookUp("[RagSoc]","T_Clienti","[cod]='" & [Forms]![S_1]![codcli] & "'")
'Scrive la ragione sociale della tabella T_Clienti , paragonando
T_Clienti![Cod] con il numero che c'è nel campo codcli della scheda S1 .
es. 1 = Barilla , scrivento 1 nel campo [Forms]![S_1]![codcli] restituisce
automaticamente nel campo dove come Origine Controllo c'è il comando sopra
descritto la scritta Barilla .
Me!RagSoc1 = DLookup("[RagSoc]", "T_Clienti", "[cod]='" &
[Forms]![S_1]![codcli] & "'") 'Come l'esempio sopra ma con l'utilizzo del
codice al posto della Propietà -Origine Controllo- ; il codice in questo
esempio è sulla propietà della scheda Su Corrente .
Me!RagSoc1 è il campo della scheda dove mette il risultato del comando
Dlookup es. Barilla
Me.OrdCodCli = DLookup("affCdCli", "T_Com_Affare", "affCdAff='" &
Me.OrdNrAff & "'") 'Esempio uguale ma semplificato come sintassi
Me!DCliente = DLookup("[CLIENTE]", "T_elettrici", "[ID ORDINE] = " & NOrd)
'La variabile NOrd è di tipo numerico
Esempi di funzione DLookup
Nell'esempio riportato di seguito si restituiscono informazioni relative ai
nomi contenuti nel campo NomeSocietà del record che soddisfa criteri. Il
dominio è la tabella Corrieri. L'argomento criteri limita il set di record
risultante ai record in cui IDCorriere equivale a 1.
Dim strX As String
strX = DLookup("[NomeSocietà]", "Corrieri", "[IDCorriere] = 1")
Nell'esempio riportato di seguito, relativo alla tabella Corrieri, si
utilizza la maschera IDCorriere per fornire criteri alla funzione DLookup.
Si noti che il riferimento al controllo non è racchiuso tra le virgolette
che denotano le stringhe. In tale modo si assicura che ogni volta che la
funzione DLookup viene richiamata, il controllo fornisca il valore corrente.
Dim strX As String
strX = DLookup("[NomeSocietà]", "Corrieri", "[IDCorriere] =" _
& Forms!Corrieri!IDCorriere])
Nell'esempio riportato di seguito si utilizza una variabile intRicerca per
eseguire la ricerca.
Dim intRicerca As Integer, strX As String
intRicerca = 1
X = DLookup("[NomeSocietà]", "Corrieri", _
"[IDCorriere] = " & intRicerca)
--
ciao MarcoS
www.marcosanti.it


non penso di essere un genio ma questa dlookup la uso senza problemi e
funziona.
se posso capire dove sbaglio mi fa solo piacere. fammi sapere



wrote:

valorevariabile=dlookup("nomecampo";"nometabella";"campoa=" &
nomevariabilenumerica)
valorevariabile=dlookup("nomecampo";"nometabella";"campoa=""" &
nomevariabilestringa & """")
Saluti.
Emanuele.

 se posso capire dove sbaglio mi fa solo piacere. fammi sapere
Forse hai sbagliato a riportare quello che usi senza aver fatto copia
incolla.
Resta il fatto che il parametro criterio che usi non può funzionare.
Tu scrivi che il campo matricola deve essere uguale alla stringa
Forms![Pannello comandi]![matricola] non al contenuto del controllo
specificato. Per ottenere questo la sintassi è
"[matricola]=" & Forms![Pannello comandi]![matricola]
e se matricola è di tipo testo
"[matricola]='" & Forms![Pannello comandi]![matricola] & "'"
Antonio

 Antonio
io la uso come l'ho scritta ma funziona anche se effettivamente è più
chiaro come l'hai scritta tu.
ciao
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 ha scritto nel messaggio
news:b8oh8u$kb6$1...@news.newsland.it...

Potresti copia incollare quello che usi dicendomi in che punto l'hai presa?
Antonio

 Antonio
quello che uso è quello che ho già postato e l'ho presa da un modulo di un
mio db che uso regolarmente.


 mio db che uso regolarmente.
Pagherei per vedere funzionare veramente quello che tu hai scritto...
Antonio

Antonio
In un 3d che ho aperto il 31/3/2003 alle ore 22:10 (Criteri in
DLookUp) io segnalavo il fatto che del codice analogo: 
**
Private Sub Zip2_Exit(Cancel As Integer)
Dim txtState As String
Dim txtCity As String
    txtState = DLookup("State", "tblZipCode", "ZipCode = Zip2")
    txtCity = DLookup("City", "tblZipCode", "ZipCode =[Zip2] ")
    If (Not IsNull(txtState)) Then Me![STATE2] = txtState
    If (Not IsNull(txtCity)) Then Me![CITY2] = txtCity
End Sub
**
funzionasse, in barba - a mio avviso - ad ogni logica. L'unico seguito
è stato un (blando) flame con te in quanto avevamo opinioni diverse
sul fatto che per tale argomento si dovesse o meno aprire un nuovo
thread.
Il db è formato solo da una tabella e una maschera, ho anche provato a
importare i due oggetti in un db nuovo e poi anche a compattare il
nuovo db: funziona lo stesso. È in A2000 ma se vuoi lo converto in A97
e te lo mando (aggratisse) - pesa 120KB.
Ciao
--
Alberto
No alle guerre

 e te lo mando (aggratisse) - pesa 120KB.
Mandamelo, anche in A2K.
Lo guardo perň lunedě...
Antonio
P.S.
Prova tu a testare se col 97 si comporta diversamente...

Prova tu a testare se col 97 si comporta diversamente...
provato (formato A97 sotto A2000: funziona) - A97 sotto A97 lo potrň
provare solo lunedě.



wrote:

Confermo anch'io quel che sostiene mino. Ho appena utilizzato questo
modulo che sta dietro ad un report e funziona benissimo.
Private Sub PièDiPaginaGruppo1_Format(Cancel As Integer, FormatCount
As Integer)
    Me.txtNumeroNegozi = DLookup("[NumeroDiNegozi]", _
        "[QueryPerReportImpiegatiEOrdini-2]", _
        "[IDImpiegato]= [txtIDImpiegato]")
End Sub
Uso Access2000 e la routine funziona qualunque sia la gerarchia dei
riferimenti (prima ADO o prima DAO, ecc.).
Saluti.
-- 
ing. Franco Varoli
fRANC...@tin.it
Per scrivermi togliere RANCO