Syntax ini berfungsi untuk mengabuangkan table satu
dan table dua atau form satu dan form dua.
Data1 befungsi untuk menandakan bahwa data pertama akan
terhubung kedalam form dua atau Table dua.
Data2 berfungsi sebagai indentitas asli dari Table
dua atau Form dua.
Ketikan Syntax seperti berikut :
Private Sub Form_Load()
Data1.DatabaseName = App.Path & "/Langkah
Pelangi Hotel.mdb"
Data1.RecordSource = "Data Kamar"
Data1.RecordsetType = 0 - Table
Data1.REFRESH
Data2.DatabaseName = App.Path & "/Langkah Pelangi
Hotel.mdb"
Data2.RecordSource = "TRANSAKSI"
Data2.RecordsetType = 0 - Table
Data2.REFRESH
BERSIH
End Sub
Tidak ada komentar:
Posting Komentar