John:
In the church, this membership database will be mainly handled by a church
clerk, but before that the same database was also copyied to pastor's
computer. There are 2 tables in the database that need to be updated in the
pastor's computer wich is member table and address table.
I have created a button command to update/append:
1. Membersdata, this is the VBA
INSERT INTO bukuangkby ( NO_URTANGT, STAT_CODE, Addrs_ID, JnsAngt, NOIN,
TrnID, Dear, FNAME, MNAME, LNAME, NICKNAME, JenisKel, EmailAddress,
MobilPhone, MobilPhone2, [Language], Role, UrtRole, Hobbies, NotediRT,
TEMPTLAHIR, Imagepath, HLMNKEP_M, BAPTSOLH_M, TGLBPTIS_M, ATASSURT_M, ASAL1,
TGL_pen, ATSPERCA_M, ASAL2, HLMNKEP_K, PINDHKE_K, ATSSUR1_K, ATSSUR2_K,
KMATIAN_K, KELMURT_K, KETMURT_K, KELHILA_K, Note1, Res1, Res2, IDGereja,
DateUpdated )
SELECT a.NO_URTANGT, a.STAT_CODE, a.Addrs_ID, a.JnsAngt, a.NOIN, a.TrnID,
a.Dear, a.FNAME, a.MNAME, a.LNAME, a.NICKNAME, a.JenisKel, a.EmailAddress,
a.MobilPhone, a.MobilPhone2, a.Language AS Expr1, a.Role, a.UrtRole,
a.Hobbies, a.NotediRT, a.TEMPTLAHIR, a.Imagepath, a.HLMNKEP_M, a.BAPTSOLH_M,
a.TGLBPTIS_M, a.ATASSURT_M, a.ASAL1, a.TGL_pen, a.ATSPERCA_M, a.ASAL2,
a.HLMNKEP_K, a.PINDHKE_K, a.ATSSUR1_K, a.ATSSUR2_K, a.KMATIAN_K, a.KELMURT_K,
a.KETMURT_K, a.KELHILA_K, a.Note1, a.Res1, a.Res2, a.IDGereja, a.DateUpdated
FROM [C:\Churchdata\Churchdataconso\BkEnd\Hahomion_be.mdb].bukuangkby AS a
WHERE (((Exists (SELECT *
FROM bukuangkby
WHERE bukuangkby.NO_URTANGT = a.NO_URTANGT))=False));
2. Append address data:
INSERT INTO KbyAngAlamat ( AddresID, NO_UKK, HOUSEHOLDNAME, RADDRESS1,
RADDRESS2, RADDRESS3, RKODEPOS, RTELP, RTELP2, No_Fax, [Note] )
SELECT a.AddresID, a.NO_UKK, a.HOUSEHOLDNAME, a.RADDRESS1, a.RADDRESS2,
a.RADDRESS3, a.RKODEPOS, a.RTELP, a.RTELP2, a.No_Fax, a.Note
FROM [C:\Churchdata\Churchdataconso\BkEnd\Hahomion_be.mdb].KbyAngAlamat AS a
WHERE (((Exists (SELECT *
FROM KbyAngAlamat
WHERE KbyAngAlamat.AddresID = a.AddresID))=False));
John as you see it takes from certain folder, and the name of the table will
be the same. So instead of using Windows explorer, it is better to have an
VBA of command button to transfer the dabatase (Hahomion_be.mdb)
Thanks for your advice