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

 

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

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (2)

Recent Activity:

• New Members 2

Visit Your Group

SPAM IS PROHIBITED

MARKETPLACE

A bad score is 598. A bad idea is not checking yours, at freecreditscore.com.

---

Stay on top of your group activity without leaving the page you're on - Get the Yahoo! Toolbar now.

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

.

__,_._,___