Selasa, 03 April 2012

Bls: [belajar-access] Re: VBA Membuat Freeze Column pada Tabel/Query

 

Syukur Alhamdulillah - Akhirnya Berhasil - Jazakalloh Kang Opi....
Thanks Supportnya....
 

Terima Kasih

Salam,
Syarief Nyong


Dari: Sofyan Efendi <sofyanefendi@gmail.com>
Kepada: belajar-access@yahoogroups.com
Dikirim: Rabu, 4 April 2012 10:56
Judul: Re: [belajar-access] Re: VBA Membuat Freeze Column pada Tabel/Query

 

Subhanallah walhamdulillah .....
 
Function test()
DoCmd.OpenTable "table1"
DoCmd.RunCommand acCmdFreezeColumn
SendKeys "{TAB}", True
DoCmd.RunCommand acCmdFreezeColumn
SendKeys "{TAB}", True
DoCmd.RunCommand acCmdFreezeColumn
End Function
 
It's simple, easy, unbelievable ...
 
Wassalaamu'alaikum Warahmatullahi Wabarakatuh,
Sofyan Efendi
http://imopi.wordpress.com/
----- Original Message -----
From: Nyong Arif
Sent: Wednesday, April 04, 2012 10:26 AM
Subject: Bls: [belajar-access] Re: VBA Membuat Freeze Column pada Tabel/Query

Kang Opi, Aku coba tambahin "DoCmd.RunCommand acCmdFreezeColumn", setelah tabel terbuka bisa terfreeze namun hanya kolom pertama saja. Adakah trik bisa men"select" 3/Lebih Kolom baru dijalankan Docmd tersebut....?

 

Terima Kasih

Salam,
Syarief Nyong


Dari: Sofyan Efendi <sofyanefendi@gmail.com>
Kepada: belajar-access@yahoogroups.com
Dikirim: Rabu, 4 April 2012 10:19
Judul: Re: [belajar-access] Re: VBA Membuat Freeze Column pada Tabel/Query

 

Ya Mas, sepertinya ini untuk Access 2003 ya, dulu pakai Access 2003, sekarang sudah ganti ke 2007,...
 
Wassalaamu'alaikum Warahmatullahi Wabarakatuh,
Sofyan Efendi
http://imopi.wordpress.com/
----- Original Message -----
From: Nyong Arif
Sent: Wednesday, April 04, 2012 10:03 AM
Subject: Bls: [belajar-access] Re: VBA Membuat Freeze Column pada Tabel/Query

Terima kasih Kang Opi, Btw Sudah aku Coba Script yang kang Opi kirim, Tapi waktu memanggil fungsi dan nama tabel => Tabel Terbuka namun tidak ada Kolom yang terFreeze. Horizontal Scroll bar saya geser semua kolom bergeser tidak ada yang tertahan (Freeze).
Mohon pencerahan Lebih lanjut ... Kang Opi...

Tambahan Info : Saya buka menggunakan Access 2007 - Format File Access 2003(.mdb)

 

Terima Kasih

Salam,
Syarief Nyong


Dari: accesswebs <sofyanefendi@gmail.com>
Kepada: belajar-access@yahoogroups.com
Dikirim: Selasa, 3 April 2012 20:17
Judul: [belajar-access] Re: VBA Membuat Freeze Column pada Tabel/Query

 
Dear Mas Arif, mungkin bisa dicoba:

Function FreezeTable(strNamaTable As String)
Dim dbs As Object
Dim tdf As Object
Dim prp As Variant
Const DB_Integer As Integer = 3
Const conPropertyNotFound = 3270
Set dbs = CurrentDb
Set tdf = dbs.TableDefs(strNamaTable)
DoCmd.OpenTable strNamaTable, acNormal
tdf.Properties.Refresh
On Error GoTo Freeze_Err
If tdf.Properties("FrozenColumns") > 3 Then
DoCmd.Maximize
End If
Freeze_Exit:
Exit Function
Freeze_Err:
If Err = conPropertyNotFound Then
Set prp = tdf.CreateProperty("FrozenColumns", DB_Integer, 1)
tdf.Properties.Append prp
Resume Freeze_Exit
End If
End Function

Wassalaamu'alaikum Warahmatullahi Wabarakatuh,
Sofyan Efendi
http://imopi.wordpress.com/

--- In belajar-access@yahoogroups.com, Nyong Arif <nyong_arif@...> wrote:
>
> Dear Warga Milis yang baik hati....
>
> Mau Nanya Adakah yang tahu VBA untuk membuat Freeze Kolom pada Tabel atau Query (Kasus Lebih dari 1 Kolom). Saya sudah coba googling tapi lom nemu juga. Bukan dalam bentuk Form View Datasheet, tapi langsung pada tabel/Query...
>
> Mohon Sharingnya para Suhu
>
>  
>
> Terima Kasih
>
> Salam,
> Syarief Nyong
>







__._,_.___
Recent Activity:
SPAM IS PROHIBITED
.

__,_._,___

Tidak ada komentar:

Posting Komentar