One to Many (1-M)
1 Kasir melayani banyak Transaksi Mobil
1 Transaksi Mobil dilayani oleh 1 Kasir
2. Spesifikasi File
Tabel Mobil
Field Name | Data Type | Field Size | Description |
IDmbl | Text | 7 | Primary Key |
Tipe | Text | 30 | |
Harga | Currency | ||
DP | Currency |
Tabel Kasir
Field Name | Data Type | Field Size | Description |
IDkasir | Text | 7 | Primary Key |
Kasir | Text | 50 | |
Password | Text | 20 | |
Status | Text | 10 |
Tabel Pelanggan
Field Name | Data Type | Field Size | Description |
No_pelanggan | Text | 7 | Primary Key |
Nm_pelanggan | Text | 30 | |
Alamat | Text | 50 | |
Nope | Text | 16 |
Tabel Faktur
Field Name | Data Type | Field Size | Description |
Nofak | Text | 10 | Primary Key |
Tgl | Date/Time | ||
No_pelanggan | Text | 7 | |
Idkasir | Text | 7 |
Tabel Detailfak
Field Name | Data Type | Field Size | Description |
Nofak | Text | 10 | |
IDmbl | Text | 7 | |
Harga | Currency | ||
Lama | Text | 20 | |
DP | Currency | ||
Bunga | Currency | ||
Cicilan | Currency |
Ketentuan:
- Jika lama cicilan 1 tahun (12x), maka
Bunga: 10% dari harga mobil
Cicilan: ((Harga - DP) + Bunga) / 12
- Jika lama cicilan 2 tahun (24x), maka
Bunga: 15% dari harga mobil
Cicilan: (Harga - DP) + Bunga) / 24
- Jika lama cicilan 3 tahun (36x), maka
Bunga: 20% dari harga mobil
Cicilan: (Harga - DP) + Bunga) / 36
Private Sub cmdcancel_Click()
End
End Sub
Private Sub cmdlogin_Click()
Me.adologin.RecordSource = "select *from kasir"
Me.adologin.Refresh
With Me.adologin.Recordset
.Find ("password='" & Trim(Me.txtpass) & "'")
If .EOF Then
MsgBox "Password Anda Salah", vbCritical + vbOKOnly, "Info"
Me.txtpass = ""
Me.txtpass.SetFocus
Else
MDIForm1.Show
Unload Me
End If
End With
End Sub
Private Sub txtid_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Me.adologin.RecordSource = "select *from kasir"
Me.adologin.Refresh
Me.adologin.Recordset.Find ("idkasir='" & Trim(Me.txtid) & "'")
If Me.adologin.Recordset.EOF Then
MsgBox "User ID Anda Salah", vbCritical + vbOK, "Info"
Me.txtid = ""
Me.txtid.SetFocus
Else
Me.txtkasir.Text = Me.adologin.Recordset.Fields("kasir")
Me.txtkasir.Enabled = False
Me.txtpass.SetFocus
End If
End If
End Sub
Private Sub txtpass_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Me.adologin.RecordSource = "select *from kasir"
Me.adologin.Refresh
Me.adologin.Recordset.Find ("password='" & Trim(Me.txtpass) & "'")
If Me.adologin.Recordset.EOF Then
MsgBox "Password Anda Salah", vbCritical + vbOKOnly, "Info"
Me.txtpass = ""
Me.txtpass.SetFocus
Else
MDIForm1.Show
Unload Me
End If
End If
End Sub
Dim isimobil As Boolean
Sub tampil()
Me.txtid.Text = Me.Adomobil.Recordset.Fields("IDmbl")
Me.txttipe.Text = Me.Adomobil.Recordset.Fields("Tipe")
Me.txtharga.Text = Me.Adomobil.Recordset.Fields("Harga")
Me.txtdp.Text = Me.Adomobil.Recordset.Fields("DP")
End Sub
Private Sub cbatal_Click()
Me.nonaktif
Me.bersih
Me.csimpan.Enabled = False
Me.cbatal.Enabled = False
Me.cubah.Enabled = False
Me.chapus.Enabled = False
End Sub
Private Sub ccari_Click()
Me.Adomobil.RecordSource = "select *from mobil where IDmbl= '" & txtcariid & "'"
Me.Adomobil.Refresh
With Me.Adomobil.Recordset
If .PageCount <> 0 Then
Me.Adomobil.Refresh
Me.txtid = ""
Me.txtcariid = ""
Me.txtcariid.SetFocus
Call Me.tampil
Else
MsgBox "Kode " + Me.txtcariid + " Tidak Ada", 34, "Info"
Me.txtcariid = ""
Me.txtcariid.SetFocus
Me.Adomobil.RecordSource = "select *from mobil"
Me.Adomobil.Refresh
End If
End With
Me.cubah.Enabled = True
Me.chapus.Enabled = True
End Sub
Private Sub chapus_Click()
If Len(Trim(Me.txtid.Text)) = "" Then
Exit Sub
End If
p = MsgBox("Hapus Data Ini?", 32 + 4, "Konfirmasi")
If p = vbYes Then
Me.Adomobil.Recordset.Delete
Me.Adomobil.Refresh
Me.bersih
Me.nonaktif
Me.cbatal.Enabled = False
Me.cubah.Enabled = False
Me.chapus.Enabled = False
Me.csimpan.Enabled = False
Me.ctambah.SetFocus
Else
Me.nonaktif
End If
End Sub
Private Sub ckeluar_Click()
t = MsgBox("Anda Mau Menutup Form Ini?", 36, "Tanya")
If t = vbYes Then
Unload Me
MDIForm1.Show
End If
End Sub
Private Sub clast_Click()
Me.Adomobil.Recordset.MoveLast
Me.tampil
End Sub
Private Sub cnext_Click()
Me.Adomobil.Recordset.MoveNext
If Me.Adomobil.Recordset.EOF Then
MsgBox "Data Anda Sudah di Akhir", 48, "Info"
Me.Adomobil.Recordset.MoveLast
End If
Me.tampil
End Sub
Private Sub cprev_Click()
Me.Adomobil.Recordset.MovePrevious
If Me.Adomobil.Recordset.BOF Then
MsgBox "Data Anda Sudah di Awal", 48, "Info"
Me.Adomobil.Recordset.MoveFirst
End If
Me.tampil
End Sub
Private Sub csimpan_Click()
On Error Resume Next
With Me.Adomobil.Recordset
If isimobil = True Then
.AddNew
.Fields("IDmbl") = Me.txtid
.Fields("Tipe") = Me.txttipe
.Fields("Harga") = Val(Me.txtharga)
.Fields("DP") = Val(Me.txtdp)
.Update
Else
.Fields("IDmbl") = Me.txtid
.Fields("Tipe") = Me.txttipe
.Fields("Harga") = Val(Me.txtharga)
.Fields("DP") = Val(Me.txtdp)
.Update
End If
End With
Me.Adomobil.RecordSource = "select *from mobil"
Me.Adomobil.Refresh
On Error GoTo 0
cbatal_Click
End Sub
Sub bersih()
Me.txtid.Text = ""
Me.txttipe.Text = ""
Me.txtharga.Text = ""
Me.txtdp.Text = ""
Me.txtcariid.Text = ""
End Sub
Sub nonaktif()
Me.Adomobil.RecordSource = "select *from mobil"
Me.Adomobil.Refresh
Me.txtid.Enabled = False
Me.txttipe.Enabled = False
Me.txtharga.Enabled = False
Me.txtdp.Enabled = False
End Sub
Sub aktif()
Me.txtid.Enabled = True
Me.txttipe.Enabled = True
Me.txtharga.Enabled = True
Me.txtcariid.Enabled = True
Me.txtdp.Enabled = True
End Sub
Private Sub ctambah_Click()
Me.aktif
Me.bersih
Me.cbatal.Enabled = True
Me.csimpan.Enabled = False
Me.cubah.Enabled = False
Me.chapus.Enabled = False
Me.txtid.SetFocus
End Sub
Private Sub ctop_Click()
Me.Adomobil.Recordset.MoveFirst
Me.tampil
End Sub
Private Sub cubah_Click()
isimobil = False
Me.aktif
Me.csimpan.Enabled = True
Me.cbatal.Enabled = True
Me.chapus.Enabled = True
Me.cubah.Enabled = False
Me.txtid.Enabled = False
Me.txttipe.SetFocus
End Sub
Private Sub Form_Activate()
Me.bersih
Me.nonaktif
isimobil = True
Me.csimpan.Enabled = False
Me.cbatal.Enabled = False
Me.cubah.Enabled = False
Me.chapus.Enabled = False
End Sub
Private Sub Timer1_Timer()
Me.ltgl.Caption = Date
Me.ljam.Caption = Time
End Sub
Private Sub txtharga_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Me.txtharga.SetFocus
End If
End Sub
Private Sub txtid_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If KeyAscii = 13 Then
Me.Adomobil.RecordSource = "select *from mobil where idmbl='" & Me.txtid & "'"
Me.Adomobil.Refresh
With Me.Adomobil.Recordset
If .BOF And .EOF Then
t = MsgBox("Kode " + Me.txtid + " Belum Ada. Mau Tambah Lagi?", vbQuestion + vbYesNo, "Konfirmasi")
If t = vbYes Then
isimobil = True
Me.csimpan.Enabled = True
Me.txttipe.SetFocus
Me.gridmobil.Refresh
Else
Me.Adomobil.RecordSource = "select *from mobil"
Me.Adomobil.Refresh
Me.bersih
End If
Else
MsgBox "Kode " & Me.txtid & " Sudah Ada", 34, "Info"
Me.tampil
Me.txtid.Enabled = False
Me.cubah.Enabled = True
Me.cubah.SetFocus
End If
End With
End If
End Sub
Private Sub txttipe_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Me.txtharga.SetFocus
End If
End Sub
Dim isikasir As Boolean
Sub bersih()
Me.txtid.Text = ""
Me.txtnama.Text = ""
Me.txtpassword.Text = ""
Me.txtstatus.Text = ""
End Sub
Sub aktif()
Me.txtid.Enabled = True
Me.txtnama.Enabled = True
Me.txtpassword.Enabled = True
Me.txtstatus.Enabled = True
End Sub
Sub nonaktif()
Me.txtid.Enabled = False
Me.txtnama.Enabled = False
Me.txtpassword.Enabled = False
Me.txtstatus.Enabled = False
End Sub
Sub tampil()
Me.txtid.Text = Me.Adokasir.Recordset.Fields("idkasir")
Me.txtnama.Text = Me.Adokasir.Recordset.Fields("kasir")
Me.txtpassword.Text = Me.Adokasir.Recordset.Fields("password")
Me.txtstatus.Text = Me.Adokasir.Recordset.Fields("status")
End Sub
Private Sub cadd_Click()
Me.aktif
Me.bersih
Me.txtid.SetFocus
Me.ccancel.Enabled = True
End Sub
Private Sub ccancel_Click()
Me.nonaktif
Me.bersih
Me.csave.Enabled = False
Me.cdelete.Enabled = False
Me.ccancel.Enabled = False
Me.cedit.Enabled = False
Me.cadd.SetFocus
End Sub
Private Sub cclose_Click()
t = MsgBox("Anda Ingin Menutup Form Ini?", 36, "Konfirmasi")
If t = vbYes Then
Unload Me
MDIForm1.Show
End If
End Sub
Private Sub cdelete_Click()
If Len(Trim(Me.txtid.Text)) = "" Then
Exit Sub
End If
p = MsgBox("Hapus Data Ini?", 32 + 4, "Konfirmasi")
If p = vbYes Then
Me.Adokasir.Recordset.Delete
Me.Adokasir.Refresh
Me.bersih
Me.nonaktif
Else
Me.nonaktif
End If
Me.csave.Enabled = False
Me.ccancel.Enabled = False
Me.cdelete.Enabled = False
Me.cedit.Enabled = False
End Sub
Private Sub cedit_Click()
isikasir = False
Me.aktif
Me.txtid.Enabled = False
Me.txtnama.SetFocus
Me.cdelete.Enabled = True
Me.csave.Enabled = True
Me.ccancel.Enabled = True
End Sub
Private Sub clast_Click()
Me.Adokasir.Recordset.MoveLast
Me.tampil
Me.cedit.Enabled = True
End Sub
Private Sub cnext_Click()
Me.Adokasir.Recordset.MoveNext
If Me.Adokasir.Recordset.EOF Then
MsgBox "Data Anda Sudah di Akhir", 48, "Info"
Me.Adokasir.Recordset.MoveLast
End If
Me.tampil
Me.cedit.Enabled = True
End Sub
Private Sub cprev_Click()
Me.Adokasir.Recordset.MovePrevious
If Me.Adokasir.Recordset.BOF Then
MsgBox "Data Anda Sudah di Awal", 48, "Info"
Me.Adokasir.Recordset.MoveFirst
End If
Me.tampil
Me.cedit.Enabled = True
End Sub
Private Sub csave_Click()
On Error Resume Next
With Me.Adokasir.Recordset
If isikasir = True Then
.AddNew
.Fields("idkasir") = Me.txtid.Text
.Fields("kasir") = Me.txtnama.Text
.Fields("Password") = Me.txtpassword.Text
.Fields("status") = Me.txtstatus.Text
.Update
Else
.Fields("idkasir") = Me.txtid.Text
.Fields("kasir") = Me.txtnama.Text
.Fields("Password") = Me.txtpassword.Text
.Fields("status") = Me.txtstatus.Text
.Update
End If
End With
Me.Adokasir.RecordSource = "select *from kasir"
Me.Adokasir.Refresh
On Error GoTo 0
ccancel_Click
End Sub
Private Sub ctop_Click()
Me.Adokasir.Recordset.MoveFirst
Me.tampil
Me.cedit.Enabled = True
End Sub
Private Sub Form_Activate()
Me.bersih
Me.nonaktif
Me.csave.Enabled = False
Me.ccancel.Enabled = False
Me.cdelete.Enabled = False
Me.cedit.Enabled = False
Me.cadd.SetFocus
End Sub
Private Sub Timer1_Timer()
Me.ljam.Caption = Time
End Sub
Private Sub txtid_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If KeyAscii = 13 Then
Me.Adokasir.RecordSource = "select *from kasir where idkasir='" & Me.txtid & "'"
Me.Adokasir.Refresh
With Me.Adokasir.Recordset
If .BOF And .EOF Then
t = MsgBox("Kode " + Me.txtid + " Belum Ada. Mau Tambah Lagi?", vbQuestion + vbYesNo, "Konfirmasi")
If t = vbYes Then
isikasir = True
Me.csave.Enabled = True
Me.txtnama.SetFocus
Me.gridkasir.Refresh
Else
Me.Adokasir.RecordSource = "select *from mobil"
Me.Adokasir.Refresh
Me.bersih
End If
Else
MsgBox "ID Kasir Sudah Ada", 34, "Info"
Me.tampil
Me.txtid.Enabled = False
Me.cedit.Enabled = True
Me.cedit.SetFocus
End If
End With
End If
End Sub
Private Sub txtnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Me.txtpassword.SetFocus
End If
End Sub
Private Sub txtpassword_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Me.txtstatus.SetFocus
End If
End Sub
Dim isitrans As Boolean
Sub auto()
Dim urutan As String
Dim hitung As Long
Me.Adofaktur.RecordSource = "select *from faktur"
Me.Adofaktur.Refresh
If Me.Adofaktur.Recordset.RecordCount <= 0 Then
urutan = Me.Adofaktur.Recordset.RecordCount + 1
Me.txtnofak.Text = "F" + Format(Date, "yymm") + Format(urutan, "000")
Else
Me.Adofaktur.Recordset.MoveLast
urutan = Val(Right(Me.Adofaktur.Recordset!nofak, 3)) + 1
Me.txtnofak.Text = "P" + Format(Date, "yymm") + Format(urutan, "000")
End If
End Sub
Sub aktif()
Me.txtnofak.Enabled = True
Me.txttgl.Enabled = True
Me.dtidkasir.Enabled = True
Me.txtnmkasir.Enabled = True
Me.txtidpemb.Enabled = True
Me.txtnmpemb.Enabled = True
Me.txtalamat.Enabled = True
Me.txtnope.Enabled = True
Me.dtidmobil.Enabled = True
Me.txttipe.Enabled = True
Me.txtharga.Enabled = True
Me.colama.Enabled = True
Me.txtdp.Enabled = True
Me.txtcicilan.Enabled = True
Me.txtbunga.Enabled = True
End Sub
Sub nonaktif()
Me.txtnofak.Enabled = False
Me.txttgl.Enabled = False
Me.dtidkasir.Enabled = False
Me.txtnmkasir.Enabled = False
Me.txtidpemb.Enabled = False
Me.txtnmpemb.Enabled = False
Me.txtalamat.Enabled = False
Me.txtnope.Enabled = False
Me.dtidmobil.Enabled = False
Me.txttipe.Enabled = False
Me.txtharga.Enabled = False
Me.colama.Enabled = False
Me.txtdp.Enabled = False
Me.txtcicilan.Enabled = False
Me.txtbunga.Enabled = False
End Sub
Sub bersih()
Me.txtnofak.Text = ""
Me.txttgl.Text = ""
Me.dtidkasir.Text = ""
Me.txtnmkasir.Text = ""
Me.txtidpemb.Text = ""
Me.txtnmpemb.Text = ""
Me.txtalamat.Text = ""
Me.txtnope.Text = ""
Me.dtidmobil.Text = ""
Me.txttipe.Text = ""
Me.txtharga.Text = ""
Me.colama.Text = ""
Me.txtdp.Text = ""
Me.txtcicilan.Text = ""
Me.txtbunga.Text = ""
End Sub
Private Sub cmdbatal_Click()
Me.nonaktif
Me.bersih
Me.cmdsimpan.Enabled = False
Me.cmdbatal.Enabled = False
Me.cmdtambah.SetFocus
End Sub
Private Sub cmdkeluar_Click()
x = MsgBox("Keluar dari Form ini?", vbYesNo + vbQuestion, "Konfirmasi")
If x = vbYes Then
Unload Me
MDIForm1.Show
End If
End Sub
Private Sub cmdsimpan_Click()
On Error Resume Next
Me.Adopembeli.RecordSource = "select *from pelanggan"
Me.Adopembeli.Refresh
With Me.Adopembeli.Recordset
.AddNew
.Fields("no_pelanggan") = Me.txtidpemb
.Fields("nm_pelanggan") = Me.txtnmpemb
.Fields("alamat") = Me.txtalamat
.Fields("nope") = Me.txtnope
.Update
End With
Me.Adofaktur.RecordSource = "select *from faktur"
Me.Adofaktur.Refresh
With Me.Adofaktur.Recordset
.AddNew
.Fields("nofak") = Me.txtnofak
.Fields("tgl") = Date
.Fields("no_pelanggan") = Me.txtidpemb
.Fields("idkasir") = Me.dtidkasir
.Update
End With
Me.Adodetail.RecordSource = "select *from detailfak"
Me.Adodetail.Refresh
With Me.Adodetail.Recordset
.AddNew
.Fields("nofak") = Me.txtnofak
.Fields("idmbl") = Me.dtidmobil
.Fields("harga") = Val(Me.txtharga)
.Fields("lama") = Me.colama
.Fields("dp") = Val(Me.txtdp)
.Fields("bunga") = Val(Me.txtbunga)
.Fields("cicilan") = Val(Me.txtcicilan)
.Update
End With
Adodetail.Refresh
On Error GoTo 0
cmdbatal_Click
End Sub
Private Sub cmdtambah_Click()
Me.bersih
Me.auto
Me.txttgl.Text = Date
Me.dtidkasir.Enabled = True
Me.dtidkasir.SetFocus
Me.txtnmkasir.Enabled = True
Me.cmdbatal.Enabled = True
End Sub
Private Sub colama_Click()
If Me.colama.Text = "1 Tahun (12x)" Then
Me.txtbunga.Text = Val(Me.txtharga) * 0.1
Me.txtcicilan.Text = ((Val(Me.txtharga.Text) - Val(Me.txtdp.Text)) + Val(Me.txtbunga.Text)) / 12
Else
If Me.colama.Text = "2 Tahun (24x)" Then
Me.txtbunga.Text = Val(Me.txtharga) * 0.15
Me.txtcicilan.Text = ((Val(Me.txtharga.Text) - Val(Me.txtdp.Text)) + Val(Me.txtbunga.Text)) / 24
Else
Me.txtbunga.Text = Val(Me.txtharga) * 0.2
Me.txtcicilan.Text = ((Val(Me.txtharga.Text) - Val(Me.txtdp.Text)) + Val(Me.txtbunga.Text)) / 36
End If
End If
Me.cmdsimpan.Enabled = True
End Sub
Private Sub dtidkasir_Click(Area As Integer)
Me.Adokasir.RecordSource = "select *from kasir"
Me.Adokasir.Recordset.MoveFirst
Do While Not Me.Adokasir.Recordset.EOF
If Me.dtidkasir.Text = Me.Adokasir.Recordset!idkasir Then
Me.txtnmkasir.Text = Me.Adokasir.Recordset!kasir
Exit Sub
End If
Me.Adokasir.Recordset.MoveNext
Loop
Me.txtidpemb.Enabled = True
Me.txtnmpemb.Enabled = True
Me.txtalamat.Enabled = True
Me.txtnope.Enabled = True
End Sub
Private Sub dtidmobil_Click(Area As Integer)
Me.Adomobil.RecordSource = "select *from mobil"
Me.Adomobil.Recordset.MoveFirst
Do While Not Me.Adomobil.Recordset.EOF
If Me.dtidmobil.Text = Me.Adomobil.Recordset!idmbl Then
Me.txttipe.Text = Me.Adomobil.Recordset!tipe
Me.txtharga.Text = Me.Adomobil.Recordset!harga
Me.txtdp.Text = Me.Adomobil.Recordset!dp
Exit Sub
End If
Me.Adomobil.Recordset.MoveNext
Loop
End Sub
Private Sub Form_Activate()
Me.bersih
Me.nonaktif
Me.cmdtambah.SetFocus
Me.cmdsimpan.Enabled = False
Me.cmdbatal.Enabled = False
End Sub
Private Sub Timer1_Timer()
Me.ljam.Caption = Time
End Sub
Private Sub txtidpemb_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If KeyAscii = 13 Then
Me.Adopembeli.RecordSource = "select *from pelanggan where no_pelanggan='" & Me.txtidpemb & "'"
Me.Adopembeli.Refresh
With Me.Adopembeli.Recordset
If .BOF And .EOF Then
t = MsgBox("ID " + Me.txtidpemb + " Belum Ada. Ingin Lanjut?", vbQuestion + vbYesNo, "Konfirmasi")
If t = vbYes Then
isitrans = True
Me.txtnmpemb.SetFocus
Me.gridtrans.Refresh
Else
Me.Adopembeli.RecordSource = "select *from pelanggan"
Me.Adopembeli.Refresh
Me.bersih
End If
Else
MsgBox "ID " & Me.txtidpemb & " Sudah Ada", 34, "Info"
Me.txtidpemb.Text = ""
Me.txtidpemb.SetFocus
End If
End With
End If
End Sub
Private Sub txtnope_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Me.dtidmobil.Enabled = True
Me.txttipe.Enabled = True
Me.txtharga.Enabled = True
Me.colama.Enabled = True
Me.txtdp.Enabled = True
Me.txtcicilan.Enabled = True
Me.txtbunga.Enabled = True
Me.dtidmobil.SetFocus
End If
End Sub
Private Sub exit_Click()
Unload Me
Form1.Show
End Sub
Private Sub fkasir_Click()
Unload Me
Form3.Show
End Sub
Private Sub fmobil_Click()
Unload Me
Form2.Show
End Sub
Private Sub ftrans_Click()
Unload Me
Form4.Show
End Sub
Private Sub rfaktur_Click()
Me.crfaktur.Action = 1
Me.crfaktur.RetrieveDataFiles
Me.crfaktur.RetrieveDataFiles
End Sub
Private Sub rkasir_Click()
Me.crkasir.Action = 1
Me.crkasir.RetrieveDataFiles
Me.crkasir.RetrieveDataFiles
End Sub
Private Sub rmobil_Click()
Me.crmobil.Action = 1
Me.crmobil.RetrieveDataFiles
Me.crmobil.RetrieveDataFiles
End Sub
Private Sub rpelanggang_Click()
Me.crpelanggan.Action = 1
Me.crpelanggan.RetrieveDataFiles
Me.crpelanggan.RetrieveDataFiles
End Sub
Private Sub rtrans_Click()
Me.crdetail.Action = 1
Me.crdetail.RetrieveDataFiles
Me.crdetail.RetrieveDataFiles
End Sub
Download program Penjualan Mobil secara Kredit di sini
eek
BalasHapus