Buatkan aplikasi expor dan import..
Jadi kalo dari tempat lain setelah selesai mengerjakan kemudian export datanya
kemudian dipuat di import datanya untuk penggabungan (joint data Tabel).
Kalo mau buat di module kemudian diaplikasi utama dan aplikasi exportnya
pada saat mau jalankan aplikasi export didalam aplikasi kita buatkan progam
import.
logikanya kayak gitu.
coding Exportnya gini di module :
Public Sub BukaDb()
Dim sPws_oDb, sPws_oDbDat, sPws_oDbExp, sPws_oDbMst As String
gPath_oDb = CurrentDb.Name
gPath_Exp = CurrentProject.Path & "\" & "SIM_DATA_EXPORT.MDB"
gPath_Exp = CurrentProject.Path & "\" & "SIM_DATA_EXPORT.MDE"
gPath_Mst = CurrentProject.Path & "\" & "SIM_MASTER_DATA.MDB"
Set oWs = DBEngine.CreateWorkspace("ws", "Admin", "")
sPws_oDb = ""
sPws_oDbMst = "hjp"
sPws_oDbDat = "hjp"
sPws_oDbExp = ""
Set oDb = oWs.OpenDatabase(gPath_oDb, False, False, ";Pwd=" & sPws_oDb)
Set oDbDat = oWs.OpenDatabase(gPath_Dat, False, False, ";Pwd=" &
sPws_oDbDat)
Set oDbMst = oWs.OpenDatabase(gPath_Mst, False, False, ";Pwd=" &
sPws_oDbMst)
End Sub
kalo codingnya impory di aplikasi export :
Public Sub procExportTable()
On Error GoTo Salah
Dim oDb_Cur As DAO.Database
Dim oDb_Des As DAO.Database
Dim nJmlTb As Integer
Dim i As Integer
Dim oTbDef As DAO.TableDef
Dim oRs As DAO.Recordset
Dim arrFileData_Kota As String
ReDim arrFileData_KOTA(5)
'KOTA
arrFileData_Kmp(1) = "MST_DATA"
arrFileData_Kmp(2) = "PENJUALAN"
arrFileData_Kmp(3) = "KARYAWAN"
arrFileData_Kmp(4) = "PEMBELIAN"
arrFileData_Kmp(5) = "PENGGAJIAN"
sPws_oDb_Cur = ""
sPws_oDb_Des = "hjp"
Set oWs = DBEngine.CreateWorkspace("ws", "Admin", "")
Set oDb_Cur = oWs.OpenDatabase(sFilePath_Cur, False, False, ";Pwd=" &
sPws_oDb_Cur)
Set oDb_Des = oWs.OpenDatabase(sFilePath_Des, False, False, ";Pwd=" &
sPws_oDb_Des)
For i = 1 To UBound(arrFileData_Kota)
s = "DELETE * FROM " & arrFileData_Kota(i) & " IN '" & sFilePath_Des &
"' where kota_kode='" & Me.txtKota_Kode & "'"
oDb_Des.Execute s
Next i
For i = 1 To UBound(arrFileData_Kel)
s = "DELETE * FROM " & arrFileData_Kel(i) & " IN '" & sFilePath_Des &
"' where korkot_kode='" & Me.txtKorkot_Kode & "'"
oDb_Des.Execute s
Next i
For i = 1 To UBound(arrFileData_Kor)
s = "INSERT INTO " & arrFileData_Kor(i) & " "
s = s & "SELECT * FROM " & arrFileData_Kor(i) & " IN '" & sFilePath_Cur
& "' "
oDb_Des.Execute s
Next i
For i = 1 To UBound(arrFileData_Kel)
s = "INSERT INTO " & arrFileData_Kel(i) & " "
s = s & "SELECT * FROM " & arrFileData_Kel(i) & " IN '" & sFilePath_Cur
& "' "
oDb_Des.Execute s
Next i
Pesan "EXPORT KE FILE DATA MASTER :" & vbCrLf & sFilePath_Des & vbCrLf &
"SUKSES"
Exit Sub
Salah:
'MsgBox Err.Description & vbCrLf & ". Ulangi Lagi Proses Export"
Resume Next
End Sub
Itu coding standar tinggal ditambahain lagi dengan yang lainnya
Rgd
HJP
--- Pada Rab, 11/2/09, imam_bpphp8 <[email protected]> menulis:
Dari: imam_bpphp8 <[email protected]>
Topik: [belajar-access] pengiriman data
Kepada: [email protected]
Tanggal: Rabu, 11 Februari, 2009, 9:06 PM
saya sedang buat database access ada kendala, kiranya pak dan bu
pakar
bisa bantu gimana rumusnya biar yang mengerjakan data lebih dari satu
orang atau orangnya jauh trus datanya dikirim dalam bentuk file dan
digabung dengan yang ada di administrator ??? mohooooooooooooooon
banget biar cerah nih mendung
___________________________________________________________________________
Nama baru untuk Anda!
Dapatkan nama yang selalu Anda inginkan di domain baru @ymail dan @rocketmail.
Cepat sebelum diambil orang lain!
http://mail.promotions.yahoo.com/newdomains/id/
