Re: [belajar-access] Harga Paket [1 Attachment]

[Attachment(s) from Sofyan Efendi included below]

Ok Mas Buchori, mohon maaf bila kami terkesan lambat membalas, karena adanya kesibukan dll

Table1 yg sudah mas buat kan sbb yah:

 

Nama Pelayanan	Klasifikasi Pelayanan	Biaya
Cuci biasa	Paket 1	12.000
cuci mesin	Paket 1	50.000
Cuci Kering Jok	Paket 2	125.000
Poles	Paket 2	40.000
wet look	Paket 1	250.000
paket 1	Paket 1	300.000

 

lalu Mas tinggal buat table2 dan table3 untuk transaksinya...

nanti coba buat suatu form dan subformnya yg bisa otomatis input data ketika suatu paket dipilih....

 

 

 

Mas tinggal buat event after update di klasifikasi pelayanan:

 

Private Sub Combo1_AfterUpdate()

    DoCmd.RunCommand acCmdRefreshPage

    DoCmd.SetWarnings False

        DoCmd.RunSQL "DELETE ID FROM Table3 WHERE ID=" & Me![ID] & ";"

        DoCmd.RunSQL "INSERT INTO Table3 ( ID, [Nama Pelayanan], Biaya ) " & _

            "SELECT " & Me![ID] & ", [Nama Pelayanan], Biaya " & _

            "FROM Table1 " & _

            "WHERE [Klasifikasi Pelayanan]='" & Me!Combo1 & "';"

    DoCmd.SetWarnings True

    Sheet1.Requery

End Sub

 

untuk lengkapnya Mas Buchori silahkan download file yg sdh saya buat

coba dicheck saja ya mas, mudah2an sudah sesuai dengan yg diinginkan...

 

Wassalaamu'alaikum Warahmatullahi Wabarakatuh,
Sofyan Efendi.
http://opi.110mb.com/

 

----- Original Message -----

From: bc.buchori

To: belajar-access@yahoogroups.com

Sent: Tuesday, November 02, 2010 1:28 PM

Subject: [belajar-access] Harga Paket

 

Hallo Semua abang'' ku.
ada yang bisa bantu aku masalah harga paket yang kemaren.
trimakasih buat perhatiannya.

Regard Buchori,

Attachment(s) from Sofyan Efendi

1 of 1 File(s)

MasBuchori.zip

__._,_.___

SPAM IS PROHIBITED

Your email settings: Individual Email|Traditional
Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Daily Digest | Switch to Fully Featured
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe

__,_._,___