Sekedar masukan mas.

 

Cara tadi tidak harus ditaruh dua-duanya.

Pilih aja salah satu.

 

Kalau mau cara variable global:

 

Di module:

Option Compare Database

Public PemakaiAplikasi

 

 

Di Form1:

 

Private Sub cmdLogin_Click()

PemakaiAplikasi = Me.txtUserName.Value

Docmd.openform "Form2"

DoCmd.Close acForm, "Form1"

End Sub

 

Di Form2:

 

Private Sub Form_Load()

txtEntryBy.Value = PemakaiAplikasi

End Sub

 

 

Kalau mau cara OpenArgs;

 

Ndak usah pake modul.

Cukup.

 

Di Form1:

 

Private Sub cmdLogin_Click()

DoCmd.OpenForm "Form2", , , , , , txtUserName.Value

DoCmd.Close acForm, "Form1"

End Sub

 

Di Form2:

 

Private Sub Form_Load()

txtEntryBy.Value = Me.OpenArgs

End Sub

 

Salam hangat dan jabat erat,

MBA

 

  _____  

From: [email protected] [mailto:[email protected]]
On Behalf Of Anton Gundul
Sent: Wednesday, 10 March, 2010 11:00 AM
To: [email protected]
Subject: RE: [belajar-access] mengambil nilai dari status bar (SOLVED) [1
Attachment]

 

[Attachment(s) from Anton Gundul included below] 





Terima kasih banyak mas..problem SOLVED
nie aku attach programnya barangkali berguna bagi teman-teman yang lain

--- Pada Rab, 10/3/10, MBA <[email protected]> menulis:


Dari: MBA <[email protected]>
Judul: RE: [belajar-access] mengambil nilai dari status bar
Kepada: [email protected]
Tanggal: Rabu, 10 Maret, 2010, 2:06 AM

  

Pak Anton, untuk menjawab email ini anda tinggal mereplay saja, tidak perlu
buat email baru.

 

 

Cara-cara agar Login bisa di tangkap di form manapun adalah sbb:

 

1.      Buat Variable Global 

Anda buat module, isikan tepat di bawah Option Compare Database

Public PemakaiAplikasi

 

Trus di form login setelah validasi bahwa user sah :

 

 PemakaiAplikasi = Username.value

 

Selama aplikasi ndak di tutup, nilai ini masih akan ada di memori.

 

2.      Gunakan OpenArgs

Dari form login, pas akan membuka form PO , anda bisa gunakan:

Docmd.openform " PO ", , , , , , UserName.value

 

Di form PO ,  misalnya  di event load, anda bisa ambil kembali dan

Taruh di kontrol textbox misalnya dengan menuliskan:

txtUser.value= Me.OpenArgs

 

 

 

 

semoga manfaat,

salam hangat dan jabat erat,

MBA

  _____  

From: belajar-access@ yahoogroups. com [mailto:belajar- acc...@yahoogrou
ps.com] On Behalf Of Anton Gundul
Sent: Wednesday, 10 March, 2010 8:51 AM
To: belajar-access@ yahoogroups. com
Subject: RE: [belajar-access] mengambil nilai dari status bar 

 


Terimakasih banyak mas atas responnya,

gini lho..saya pinginnya setelah user melakukan login, maka nama user
tersebut tercapture oleh status bar. Dari status bar ini nilainya akan
dimasukkan ke textbox entryby. Fungsi system ini adalah agar bisa ketahuan
siapa yang menginputkan data ke dalam form tertentu (misal form PO ). 
 
Terimakasih Sebelumnya.
Note: mau nanya...apakah untuk merespon setiap jawaban emai ini saya tinggal
reply atau harus menulis email baru ya??makasih



 

 

No virus found in this incoming message.
Checked by AVG - www.avg.com
Version: 9.0.733 / Virus Database: 271.1.1/2732 - Release Date: 03/10/10
02:33:00

 

  _____  

Coba
<http://sg.rd.yahoo.com/id/messenger/neptune/*http:/id.messenger.yahoo.com/>
Yahoo! Messenger 10 Beta yang baru 
Kini dengan update real-time, panggilan video, dan banyak lagi! 

Attachment(s) from Anton Gundul 

1 of 1 File(s) 

  <http://l.yimg.com/kq/static/images/yg/img/doc/generic16x16.gif> 

Entry <http://xa.yimg.com/kq/groups/3331658/891324840/name/Entry> 







No virus found in this incoming message.
Checked by AVG - www.avg.com
Version: 9.0.733 / Virus Database: 271.1.1/2733 - Release Date: 03/10/10
02:33:00


Kirim email ke