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
>
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
>
__._,_.___
SPAM IS PROHIBITED
.
__,_._,___
Tidak ada komentar:
Posting Komentar