Thanks buat sharingnya Bung Darsana....tapi kalo di VB.NET kayaknya ga bisa jalan dech. Kalo di VB6 memang cara ini berhasil, karena Parameter Form akan dikenali langsung sebagai Form Asal, tetapi kalo di VB.NET Parameter Form yg dikirim itu (vFORM) ga dikenali...
regards, Muliadi Liem > -----Original Message----- > From: [email protected] [mailto:Programmer- > [EMAIL PROTECTED] On Behalf Of Darsana > > Saya punya seperti ini , sehingga dapat dipanggil dari beberapa form dan > parameternya akan dikirim ke form yang terkait : ( this procedure will be send > parameter to dynamic form ) > > Sub GetDataPenabung(Kunci, vForm) > Dim kpp As Recordset > Dim vkpp As String > Dim statusdata As String > > Set Db = DBEngine.Workspaces(0).OpenDatabase(LoKasi, False, False, > ";pwd=id973354008id") > Set rek = Db.OpenRecordset("SELECT * FROM bla", 2) > If rek.RecordCount < 1 Then > Db.Close > status_input = "0" > For i = 2 To 7 > FrSetor.LbRek(i).Caption = "..............." > Next i > Pesan = MsgBox("Perhatian : " & vbCrLf & vbCrLf & "Nomor Rekening " & Kunci > & " Tidak Ada !", vbInformation, "Data Kosong") > With vForm > .TxRp.SetFocus > .TxRek3.Text = "" > .TxRek4.Text = "" > .TxRek3.SetFocus > End With > Else > > KunciAsli = rek!korek > Bsu_awal = rek!saldo_akhir > statusdata = rek!status_data > > With vForm > .LbRek(2).Caption = rek!pemilik > .LbRek(3).Caption = rek!alamat > .LbRek(4).Caption = rek!despenab > .LbRek(5).Caption = rek!desdata > .LbRek(6).Caption = Format(rek!saldo_akhir, "###,###,##0") > .LbRek(7).Caption = Format(rek!saldo_akhir, "###,###,##0") > .LbRek(1).Caption = rek!kantor > .Text1.Text = rek!saldo_akhir > End With > status_input = "1" > Db.Close > If statusdata <> "1" Then > Pesan = MsgBox("REKENING TELAH DITUTUP/BLOKIR" & vbCrLf & "TIDAK > DAPAT MELAKUKAN TRANSAKSI APAPUN !", vbCritical, "Tidak Aktif") > > End If > End If > End Sub Send instant messages to your online friends http://asia.messenger.yahoo.com ------------------------ Yahoo! Groups Sponsor --------------------~--> <font face=arial size=-1><a href="http://us.ard.yahoo.com/SIG=12htmp5ls/M=362131.6882499.7825260.1510227/D=groups/S=1705115364:TM/Y=YAHOO/EXP=1123482500/A=2889191/R=0/SIG=10r90krvo/*http://www.thebeehive.org ">Get Bzzzy! (real tools to help you find a job) Welcome to the Sweet Life - brought to you by One Economy</a>.</font> --------------------------------------------------------------------~-> Untuk keluar dari millis ini, kirim email kosong ke: [EMAIL PROTECTED] Yahoo! Groups Links <*> To visit your group on the web, go to: http://groups.yahoo.com/group/Programmer-VB/ <*> To unsubscribe from this group, send an email to: [EMAIL PROTECTED] <*> Your use of Yahoo! Groups is subject to: http://docs.yahoo.com/info/terms/
