hello mas David, kalo untuk meng Export semua table ke
database lain ini bisa di coba, mungking kalau buat
form dan lainnya coba di modif aja:
Set db = CurrentDb
strSql = "SELECT MSysObjects.Name FROM MsysObjects
WHERE (Left$([Name],1)<>'~')"
strSql = strSql & " AND Left$([Name],4)<>'Msys'"
strSql = strSql & " AND (MSysObjects.Type)=1 ORDER BY
MSysObjects.Name"
Set rst = db.OpenRecordset(strSql)
Do Until rst.EOF
Application.DoCmd.SetWarnings False
Application.DoCmd.TransferDatabase acExport,
"Microsoft Access", "C:\DB4.mdb", acTable, rst!Name,
rst!Name, False
Application.DoCmd.SetWarnings True
' DoCmd.CopyObject strDestmdb, rst!Name, acTable,
rst!Name
rst.MoveNext
Loop
Note :C:\DB4.mdb ini database tujuan sedekar contoh
aja
Semoga Membantu
Salam
Nurhasim
--- David <[EMAIL PROTECTED]> wrote:
> kalau mengambil atau mengirimkan table, form dll
> VBAnya gimana kalo
> biasanya kan kita bisa menggunakan Eksport Inport
> table, report,...
> dll dari program yang lain
>
>
>
> --- In [email protected],
> "[EMAIL PROTECTED]"
> <[EMAIL PROTECTED]> wrote:
> >
> > coba ini pak. David semoga membantu
> >
> > untuk delete form misal : form2
> >
> > DoCmd.DeleteObject acForm, "form2"
> >
> > untuk delete report misal : report1
> >
> > DoCmd.DeleteObject acReport, "report1"
> >
> > salam
> >
> > Nurhasim
> >
> > --- David <[EMAIL PROTECTED]> wrote:
> >
> > > Untuk membikin agar program yang kita buat bisa
> > > dilakukan proses updete
> > > tanpa melukan bongkar pasang program dengan
> memakan
> > > waktu yang cukup
> > > lama tentu program tidak jalan
> > > mungkin salah satu solusi disini dengan cara
> copy
> > > delete, tentu dalam
> > > hal ni mungkin yang akan di copy delete salah
> > > satunya report & form
> > > nah sekarang bagai mana caranya kita membikin
> satu
> > > commandbutton bisa
> > > melakukan proses delete report / form pada even
> on
> > > klik
> > >
> > >
> >
>
>
>
