ACCESS FEED: [belajar-access] Re: Access ke SQL Server ...

Selasa, 06 September 2011

[belajar-access] Re: Access ke SQL Server ...

Program ini dijalankan kalau tangan sudah pegel rename manual.
Kalau masih bisa manual, gak usah pake program.
Ntar dimarahin loh... :)

--- In belajar-access@yahoogroups.com, Haer Talib <haertalib@...> wrote:
>
> hehehe.. pake program :)
>
>
> On Tue, Sep 6, 2011 at 10:29 AM, Edy <murid.belajaraccess@...>wrote:
>
> > Silahkan taruh ini di module.
> > lalu jalankan.
> > Gunanya untuk menghilangkan tulisan "dbo_" tsb.
> >
> > Sub RenameDBO()
> > For Each tbl In CurrentDb.TableDefs
> > If Left(tbl.Name, 4) = "dbo_" Then
> > NewName = Trim(Replace(tbl.Name, "dbo_", ""))
> > DoEvents
> > DoCmd.Rename NewName, acTable, tbl.Name
> > End If
> > Next
> > End Sub
> >
> >
> > Semoga bermanfaat.
> >
> > Edy Wiyono
> >
> >
> >
> > ------------------------------------
> >
> > SPAM IS PROHIBITEDYahoo! Groups Links
> >
> >
> >
> >
>
>
> --
>
>
> Haer Talib
>
> *RumahAccess Indonesia* <http://www.rumahaccess.com>
> *Tempatnya Belajar Microsoft Access*
> Artikel | Forum | Milis | Download | Training | Links | Blog | Event
>