[belajar-access] Re: Masih tetap muncul pesan error AT MOST ONE RECORD CAN BE RETURNED BY THIS SUBQUERY

 

Data pada Tabel Pjl di hapus secara manual , dan tingalkan 1 (satu) record saja . Coba ulangi lagi

dan hapus baris yang berisi :
rst.Close
Set rst = Nothing

sehingga menjadi :
Private Sub void_Click()
Dim invAsal, invHapus As String
Dim str1, str2 As String
invAsal = [Forms]![pjl]![inv].Value
invHapus = Nz([Forms]![pjl]![Text_invHapus].Value, "")
datavoucher = "SELECT pjl.tgl, pjl.plg, '" & invHapus & "' FROM
pjl where inv = '" & invAsal & "'"
IdPjlvoucher = "select idpjl from pjl where inv = '" & invAsal & "'"
strcek = "select idpjl from pjl where inv = '" & invHapus & "'"
str1 = "INSERT INTO pjl ( tgl, plg ,inv) " & datavoucher
str2 = "INSERT INTO pjldtl (kdbrg,nmbrg,qjl,hjl,ttl,idpjl) select
kdbrg,nmbrg,-qjl,-hjl,-ttl , (" & strcek & ") From pjldtl where
idpjl = (" & IdPjlvoucher & ")"
DoCmd.RunSQL str1
DoCmd.RunSQL str2
Me.Requery
Label_Exit:
End Sub

'======
--- In belajar-access@yahoogroups.com, Hasan Salman <salmankomputer@...> wrote:
>
> Yth. JKSSBMA,
> Saya sudah merubahnya sesuai dengan yang Bapak sarankan,tetapi masih tetap muncul pesan yang sama:AT MOST ONE RECORD CAN BE RETURNED BY THIS SUBQUERY.
> Bersama ini saya sertakan attachmentnya sebgai bukti,tolong Bapak koreksi, dan tolong kirimkan kembali kepada saya,
>
> Sekian, terima kasih sebelumnya.
> Salman Hasan
>
>
> --- Pada Sen, 19/9/11, jkssbma <jkssbma@...> menulis:
>
> Dari: jkssbma <jkssbma@...>
> Judul: [belajar-access] Re: Tombol Copy form Master dan Child, AT MOST ONE RECORD CAN BE RETURNED BY THIS SUBQUERY
> Kepada: belajar-access@yahoogroups.com
> Tanggal: Senin, 19 September, 2011, 7:03 AM
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>  
>
>
>
>
>
>
>
>
>
> Silakan ganti dgn ini :
>
>
>
> Private Sub void_Click()
>
>
>
> Dim invAsal, invHapus As String
>
> Dim str1, str2 As String
>
>
>
> invAsal = [Forms]![pjl]![inv].Value
>
> invHapus = Nz([Forms]![pjl]![Text_invHapus].Value, "")
>
>
>
> datavoucher = "SELECT pjl.tgl, pjl.plg, '" & invHapus & "' FROM pjl where inv = '" & invAsal & "'"
>
> IdPjlvoucher = "select idpjl from pjl where inv = '" & invAsal & "'"
>
>
>
> strcek = "select idpjl from pjl where inv = '" & invHapus & "'"
>
>
>
> str1 = "INSERT INTO pjl ( tgl, plg ,inv) " & datavoucher
>
> str2 = "INSERT INTO pjldtl (kdbrg,nmbrg,qjl,hjl,ttl,idpjl) select kdbrg,nmbrg,-qjl,-hjl,-ttl , (" & strcek & ") From pjldtl where idpjl = (" & IdPjlvoucher & ")"
>
>
>
> DoCmd.RunSQL str1
>
> DoCmd.RunSQL str2
>
> Me.Requery
>
>
>
> Label_Exit:
>
> rst.Close
>
> Set rst = Nothing
>
> End Sub
>
>
>
> Ini saya sudah uji coba , Karena baru sempat ( kalau di kantor tak sempat uji coba ).
>
>
>
> catatan :
>
> para mas(ter) ( Mas Aksan , Mas Harry, Mas Luski ) Sibuk sesudah
>
> Idul Fitri , ya ?
>
>
>
> --- In belajar-access@yahoogroups.com, "jkssbma" <jkssbma@> wrote:
>
> >
>
> > Sudah buat Text_InvHapus berupa unbound Text ?
>
> > oh ya perlu koreksi :
>
> > invHapus = [Forms]![pjl]![Text_InvHapus].Text
>
> > menjadi :
>
> > invHapus = [Forms]![pjl]![Text_InvHapus].value
>
> >
>
> >
>
> >
>
> > --- In belajar-access@yahoogroups.com, Hasan Salman <salmankomputer@> wrote:
>
> > >
>
> > > Terima kasih atas jawaban anda JKSSBMA,Namun masih ada satu error lagi ketika sayaclck tombol Void tersebut,Pesan error nya:AT MOST ONE RECORD CAN BE RETURNED BY THIS SUBQUERY.
>
> > > Bagaimana solusinya ini Pak.
>
> > > Sekian, terima kasih sebelumnya.
>
> > > Salman Hasan
>
> > >
>
> > >
>
> > > --- Pada Sen, 19/9/11, jkssbma <jkssbma@> menulis:
>
> > >
>
> > > Dari: jkssbma <jkssbma@>
>
> > > Judul: Trs: Re: [belajar-access] Tombol Copy form Master dan Child
>
> > > Kepada: belajar-access@yahoogroups.com
>
> > > Tanggal: Senin, 19 September, 2011, 3:19 AM
>
> > >
>
> > >
>
> > >
>
> > >
>
> > >
>
> > >
>
> > >
>
> > >
>
> > >
>
> > >
>
> > >
>
> > >
>
> > >
>
> > >
>
> > >
>
> > >
>
> > >  
>
> > >
>
> > >
>
> > >
>
> > >
>
> > >
>
> > >
>
> > >
>
> > >
>
> > >
>
> > > Tambahkan TextBox di forms [pjl] ,misal Text_InvHapus .
>
> > >
>
> > > Pada saat akan ketik Command Void Invoice isi Text_InvHapus terlebih dahulu .
>
> > >
>
> > >
>
> > >
>
> > > Private Sub void_Click()
>
> > >
>
> > > Dim invHapus As String
>
> > >
>
> > > Dim str As String
>
> > >
>
> > >
>
> > >
>
> > > invHapus = [Forms]![pjl]![Text_InvHapus].Text
>
> > >
>
> > >
>
> > >
>
> > > ' dapat tambahkan cek isi invhapus apa sudah ada atau belum diisi
>
> > >
>
> > >
>
> > >
>
> > > str1 = "INSERT INTO pjl ( tgl, plg ,inv) SELECT pjl.tgl, pjl.plg, '" & invHapus & "' FROM pjl"
>
> > >
>
> > >
>
> > >
>
> > > str2 = "INSERT INTO pjldtl (kdbrg,nmbrg,qjl,hjl,ttl,idpjl) select kdbrg,nmbrg,-qjl,-hjl,-ttl , (select idpjl from pjl where inv = '" & invHapus & "') From pjldtl"
>
> > >
>
> > >
>
> > >
>
> > > DoCmd.RunSQL str1
>
> > >
>
> > > DoCmd.RunSQL str2
>
> > >
>
> > >
>
> > >
>
> > > End Sub
>
> > >
>
> > >
>
> > >
>
> > > --- In belajar-access@yahoogroups.com, Hasan Salman <salmankomputer@> wrote:
>
> > >
>
> > > >
>
> > >
>
> > > >
>
> > >
>
> > > >
>
> > >
>
> > > > Salman Hasan
>
> > >
>
> > > >
>
> > >
>
> > > >
>
> > >
>
> > > > --- Pada Kam, 8/9/11, Hasan Salman <salmankomputer@> menulis:
>
> > >
>
> > > >
>
> > >
>
> > > > Dari: Hasan Salman <salmankomputer@>
>
> > >
>
> > > > Judul: Re: [belajar-access] Tombol Copy form Master dan Child
>
> > >
>
> > > > Kepada: "Belajar Access" <belajar-access@yahoogroups.com>
>
> > >
>
> > > > Tanggal: Kamis, 8 September, 2011, 9:09 PM
>
> > >
>
> > > >
>
> > >
>
> > > > --- Pada Jum'at, 9/9/11, Hasan Salman <salmankomputer@> menulis:
>
> > >
>
> > > >
>
> > >
>
> > > > Dari: Hasan Salman <salmankomputer@>
>
> > >
>
> > > > Judul: Re: [belajar-access] Tombol Copy form Master dan Child
>
> > >
>
> > > > Kepada: belajar-access@yahoogroups.com
>
> > >
>
> > > > Tanggal: Jum'at, 9 September, 2011, 8:51 PM
>
> > >
>
> > > >
>
> > >
>
> > > > Assalamu'alaikum Wr.Wb.
>
> > >
>
> > > > Terima kasih atas jawaban Bapak Haer Talib,saya sudah coba dengan perintah INSERT INTO,tetapi selalu error.
>
> > >
>
> > > > Bersama ini saya kirim potongan
>
> > >
>
> > > > program nyayang hanya ada form penjualannya saja,
>
> > >
>
> > > > Tolong Bang Haer Talib isikan perintah void invoicedi tombol VOID INVOICE dan kirimkan kembalikepada saya.
>
> > >
>
> > > >
>
> > >
>
> > > >
>
> > >
>
> > > > Salman Hasan
>
> > >
>
> > > >
>
> > >
>
> > > >
>
> > >
>
> > > > --- Pada Rab, 7/9/11, Haer Talib <haertalib@> menulis:
>
> > >
>
> > > >
>
> > >
>
> > > > Dari: Haer Talib <haertalib@>
>
> > >
>
> > > > Judul: Re:
>
> > >
>
> > > > [belajar-access] Tombol Copy form Master dan Child
>
> > >
>
> > > > Kepada: belajar-access@yahoogroups.com
>
> > >
>
> > > > Tanggal: Rabu, 7 September, 2011, 11:48 PM
>
> > >
>
> > > >
>
> > >
>
> > > >
>
> > >
>
> > > >
>
> > >
>
> > > >
>
> > >
>
> > > >
>
> > >
>
> > > >
>
> > >
>
> > > >
>
> > >
>
> > > >
>
> > >
>
> > > >
>
> > >
>
> > > >
>
> > >
>
> > > >
>
> > >
>
> > > >
>
> > >
>
> > > >
>
> > >
>
> > > >
>
> > >
>
> > > >
>
> > >
>
> > > >
>
> > >
>
> > > >  
>
> > >
>
> > > >
>
> > >
>
> > > >
>
> > >
>
> > > >
>
> > >
>
> > > >
>
> > >
>
> > > >
>
> > >
>
> > > >
>
> > >
>
> > > >
>
> > >
>
> > > >
>
> > >
>
> > > >
>
> > >
>
> > > > Kalau menjawab pertanyaannya:- Tidak bisa mengcopy record data master (header) yang sekaligus/otomatis mengcopy juga data di table detail.Anda harus copy dulu record masternya, lalu mendapatkan primary key nya (jika pakai autonumber), baru mengcopy record dari table detail dan menggunakan primary key yg baru.
>
> > >
>
> > > >
>
> > >
>
> > > > contoh perintah:
>
> > >
>
> > > > INSERT INTO Table1 (Field1, Field2, ...) SELECT Field1, Field2, ... FROM Table1 WHERE FieldKunci=NilaiKuncinyaCari Nilai kunci yang baru.
>
> > >
>
> > > >
>
> > >
>
> > > > INSERT INTO Table 2 (FieldKunci, Field1, Field2, dst) SELECT NilaiKunci_baru, Field1, Field2, dst FROM Table2 WHERE FieldKunci=NilaiKuncilama
>
> > >
>
> > > > Tetapi yang menarik di sini adalah keinginan untuk membatalkan invoice dg memberi Qty minus.
>
> > >
>
> > > > Praktek seperti ini umumnya digunakan, misalnya pada transaksi POS (point of sales) sehingga nota yg baru akan mengurangi nota yang lama sehingga stock tidak berubah. Bisa juga pada posting jurnal accounting dimana tidak boleh edit, tetapi membuat jurnal penyesuaian.
>
> > >
>
> > > > Pertanyaannya, mengapakah invoice tidak bisa diedit saja?
>
> > >
>
> > > > Salam,Haer
>
> > >
>
> > > >
>
> > >
>
> > > > 2011/9/7 Hasan Salman <salmankomputer@>
>
> > >
>
> > > >
>
> > >
>
> > > >
>
> > >
>
> > > >
>
> > >
>
> > > >
>
> > >
>
> > > >
>
> > >
>
> > > >
>
> > >
>
> > > >
>
> > >
>
> > > >
>
> > >
>
> > > >
>
> > >
>
> > > >
>
> > >
>
> > > >
>
> > >
>
> > > >
>
> > >
>
> > > >
>
> > >
>
> > > >
>
> > >
>
> > > >
>
> > >
>
> > > >
>
> > >
>
> > > >
>
> > >
>
> > > >
>
> > >
>
> > > >
>
> > >
>
> > > >
>
> > >
>
> > > >
>
> > >
>
> > > >
>
> > >
>
> > > >
>
> > >
>
> > > >
>
> > >
>
> > > >
>
> > >
>
> > > >
>
> > >
>
> > > > Maksudnya mau Void Invoice (membatalkan satu invoice),karena terjadi kesalahan atau pembatalan,jadi invoice yang salah tersebut tidak dihapus,
>
> > >
>
> > > >
>
> > >
>
> > > > tapi dibuatkan satu lagi invoice yang sama, namun semua quantity jualnya dirubah menjadi - (min),misalnya kalau di invoice yang dibatalkan tersebutquantity salah satu barangnya 2, 
>
> > >
>
> > > > maka di invoice hasil copy-an nya menjadi -2, dst.Tolong dibantu.
>
> > >
>
> > > > Sekian, terima kasih.
>
> > >
>
> > > > Salman Hasan
>
> > >
>
> > > >
>
> > >
>
> > > >
>
> > >
>
> > > >
>
> > >
>
> > > > --- Pada Sel, 6/9/11, privat access <les.access@> menulis:
>
> > >
>
> > > >
>
> > >
>
> > > >
>
> > >
>
> > > > Dari: privat access <les.access@>
>
> > >
>
> > > > Judul:
>
> > >
>
> > > > Re: [belajar-access] Tombol Copy form Master dan Child
>
> > >
>
> > > > Kepada: belajar-access@yahoogroups.com
>
> > >
>
> > > > Tanggal: Selasa, 6 September, 2011, 4:15 AM
>
> > >
>
> > > >
>
> > >
>
> > > >
>
> > >
>
> > > >
>
> > >
>
> > > >
>
> > >
>
> > > >
>
> > >
>
> > > >
>
> > >
>
> > > >
>
> > >
>
> > > >
>
> > >
>
> > > >
>
> > >
>
> > > >
>
> > >
>
> > > >
>
> > >
>
> > > >
>
> > >
>
> > > >
>
> > >
>
> > > >
>
> > >
>
> > > >
>
> > >
>
> > > >
>
> > >
>
> > > >
>
> > >
>
> > > >  
>
> > >
>
> > > >
>
> > >
>
> > > >
>
> > >
>
> > > >
>
> > >
>
> > > >
>
> > >
>
> > > >
>
> > >
>
> > > >
>
> > >
>
> > > > ini maksudnya mau ngapain????
>
> > >
>
> > > >
>
> > >
>
> > > > apakah multiple forms (form & subform) saat ini akan digunakan utk proses yg lain??? misal mau buat DO, INVOICE & Faktur Pajak (standar/manufaktur) dalam satu proses saat entry PO???
>
> > >
>
> > > >
>
> > >
>
> > > >
>
> > >
>
> > > >
>
> > >
>
> > > >
>
> > >
>
> > > >
>
> > >
>
> > > > Pada 5 September 2011 12:48, Hasan Salman <salmankomputer@> menulis:
>
> > >
>
> > > >
>
> > >
>
> >
>

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (2)

Recent Activity:

• New Members 11

Visit Your Group

SPAM IS PROHIBITED

MARKETPLACE

Stay on top of your group activity without leaving the page you're on - Get the Yahoo! Toolbar now.

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

.

__,_._,___