Bro Iwan, sya udah coba bisa tuh..

Private Sub DTPicker1_CloseUp()
    Text1.SetFocus
End Sub

Private Sub DTPicker1_DropDown()
    Text1.SetFocus
End Sub

Pakai event closeup bisa atau dropdowntidak ada masalah.

Kalo boleh tahu listing prog. nya seperti apa?

Best Regards

Arlenda Fitranto




iwan gunawan <[EMAIL PROTECTED]> 
Sent by: [email protected]
2008/07/24 15:29
Please respond to
[email protected]


To
[email protected]
cc

Subject
Re: [Programmer-VB] setfocus






Dear arlenda, sy coba tapi koq run time error, ada saran lain?

----- Original Message ----
From: "[EMAIL PROTECTED]" <[EMAIL PROTECTED]>
To: [email protected]
Sent: Thursday, July 24, 2008 3:16:27 PM
Subject: Re: [Programmer-VB] setfocus


Oh maaf, pakai event DropDown. 
Cukup ketik : 
        txt1.setfocus 

Best Regards

Arlenda Fitranto



iwan gunawan <[EMAIL PROTECTED] com> 
Sent by: Programmer-VB@ yahoogroups. com 
2008/07/24 15:01 

Please respond to
Programmer-VB@ yahoogroups. com



To
Programmer-VB@ yahoogroups. com 
cc

Subject
Re: [Programmer- VB] setfocus








Sy sudah coba pake event clik, tetap ga bs, hrs cek di mn lagi yah? 

----- Original Message ----
From: "arlenda_YPMI@ yamaha-motor. co.id" <arlenda_YPMI@ yamaha-motor. 
co.id>
To: Programmer-VB@ yahoogroups. com
Sent: Thursday, July 24, 2008 2:44:21 PM
Subject: Re: [Programmer- VB] setfocus

koding tersebut untuk event keypress, ketika tekan enter fokus di txt1. 
Kalau ingin setelah memilih tanggal baru txt1 fokus, gunakan event click. 

Best Regards

Arlenda Fitranto


iwan gunawan <[EMAIL PROTECTED] com> 
Sent by: Programmer-VB@ yahoogroups. com 
24/07/2008 14:01 

Please respond to
Programmer-VB@ yahoogroups. com



To
indoprog-vb@ yahoogroups. com 
cc
programmer-VB@ yahoogroups. com 
Subject
[Programmer- VB] setfocus










Private Sub dtpicker1_KeyPress( KeyAscii As Integer)
  If KeyAscii = 13 Then
      txt1.SetFocus
  End If
End Sub


koding diatas salah dimana yah, gw pengen pas dtpicker di klik/enter, 
pilih tgl trus setfocus ada di txt1, thanks yah b4. 

 

 

Kirim email ke