Mas Itu contoh yang mas kasih untuk export mungkin pada commandbauttonnya saya salah tulis saya kepengin bisa bikin VBA untuk mengexport serta menginport kita lakukan karna yang mas kasih export saya coba itu dulu tapi gagal maksud saya mau menanyakan dimana letak kesalahan VBA yang saya bikin untuk mengexport table yang mas kasih sample codenya
""" 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.SetWarning s False Application. DoCmd.TransferDa tabase acExport, "Microsoft Access", "C:\DB4.mdb" , acTable, rst!Name, rst!Name, False Application. DoCmd.SetWarning s 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 """ --- In [email protected], "[EMAIL PROTECTED]" <[EMAIL PROTECTED]> wrote: > > maaf pak. David ini tujuan mau import atau export > object ya? > > > Salam > > > Nurhasim > > --- M David <[EMAIL PROTECTED]> wrote: > > > Mas Kenapa ya saya coba error pada saat dijalan > > disini saya mencoba merobah sumber database sesuai > > contoh files yang ada pada komputer saya > > untuk bahan koreksi contoh saya lampirkan > > > > > > New Email names for you! > > Get the Email name you've always wanted on the > > new @ymail and @rocketmail. > > Hurry before someone else does! > > http://mail.promotions.yahoo.com/newdomains/aa/ >
