22.8.08

Cara DLookup di Access

Untuk Integer :

Dim varX As Variant
varX = DLookup("[LastName]", "Employees", "[EmployeeID] = 1")

=DLookup("[ProductName]", "Products", "[ProductID] =" _
& Forms![Order Details]!ProductID)

Dim intSearch As Integer
Dim varX As Variant

intSearch = 1
varX = DLookup("[CompanyName]", "Shippers", _
"[ShipperID] = " & intSearch)

Untuk String :

Dim varX As Variant

varX = DLookup("[Total RJ]", "[qrySumRJ]", "[strPRNo] = '" & strPRNo & "'")

Dim varX As Variant


varX = DLookup("[Total RJ]", "[qrySumRJ]", "[strPRNo] = '100001'")



21.8.08

Malang sekali nasibmu Baby n Boby

ceritanya deven dibeliin anak kelinci kecil2 2 ekor ama daddy-nya. kelinci cowok n cewek dikasih nama baby n boby.. ditaruh di keranjang plastik. diwanti2 ma yang jual di ciater supaya jangan dimandiin.

baru sehari tuh kelinci.. udah dimandiin ma deven.. "ci.. andi... ci andi" (kelinci mandi). basah kuyup deh tuh. dah ketar ketir mati ga ya.. trus dijemur ma yayi (eyang putri). ga lama dimasuk2n daun kembang kol. "dede uapin inci.. dede uapin.. makan inci" (dede suapin kelinci)... sambil dipaksa gitu.. duh malang nian nasibmua beb and bob.. kemudian dikeluarin dari keranjang. diangkat ditaruh di lantai. diangkat lagi dilempar kayak lempar bola ke keranjang.. aduuuhh.. dah ga tau deh gimana rasanya. kalo dikasih tau kayaknya belum ngerti banget. dalam bayangan deven taruh dikeranjang ya gitu caranya. bisa dilempar dari jauh...

aku kasih tau. "de taruh kelinci-nya pelan pelan.. jangan dilempar ya".. dijawab ma deven.. sambil angkat tangan tinggi dan menjatuhkan tangannya dan ngomong " baaakkk... ga oyeh.. baaakkk angan" kalo ada barang jatuh deven akan bilang bakkk.. nah ini dia ulangi kata2ku dijatuhin bakkk ga boleh, jangan. tapi tetep belum ngerti maknanya..

maafkan deven ya baby and boby.. nanti mami akan kasih tau deven lagi terus menerus sampe dia ngerti kelincinya jangan dibanting, jangan di jejel2in makanan walaupun maksudnya nyuapin dan jangan dimandiin karena masih kecil...