nah lho, sekarang kebanyakan jawaban... bingung ga? hehehe... karena case-nya "nambah record mulai lagi dari nomor 1" dan penomoran ini "di form", saya sih saranin gini: - pada form, set property Data Entry = Yes - tampilkan record navigation buttons
dg begitu, setiap kali form dijalankan akan selalu kosong dan mulai dg record baru, dan nomor record di navigation buttons mulai dari no 1. otomatis, no code ! Haer Talib 2009/10/2 privat access <[email protected]> > > > he..he.. ente pada sensi bgt neh.. ya sorry deh, maklumin laahh.. > > ya udh, ini kan pertanyaannnya : > > halo..mau tanya ada tidak cara buat nomor otomatis di form tanpa > terpengaruh dengan tabel yach. jadi kalau add new record, mulai lagi dari > nomor awal =1 dst > terima kasih > > jawabannya : > > 1. Ada > 2. Contoh 1 : Penomoran otomatis yg kita set secara langsung pada module > > dim strNomor as string > strNomor = 1 > > docmd.gotorecord,,acNewRec > me.nomor.value = strNomor > > 3. Contoh 2 : Penomoran otomatis yang kita set dengan mengacu referensi > pada tabel konfigurasi penomoran (jadi, memang tidak terkait dengan tabel > transaksi yg anda buat) > > dim strNomor as string > strNomor = dLookUp("setno";"tblsetno") > > DoCmd.GoToRecord , , acNewRec > me.nomor.value = strNomor > > 4. Contoh 3 : Penomoran otomatis yang kita set berdasarkan waktu (bulan &/ > tahun) berjalan. Pada contoh ini anda tidak melihat adanya deklarasi > variabel, karena memang telah sy kombinasikan dengan function khusus pada > form. > > DoCmd.RunCommand acCmdRefreshPage > DoCmd.GoToRecord , , acNewRec > > If IsNull(Me.NomorAkhir) Or Me.NomorAkhir = Empty Then > Me.no_fak.Value = Me.SetNomor & Me.setlabel & Me.BulanRomawi & > Me.settahun > Else > Me.no_fak.Value = Format(Left(Me.NomorAkhir, 3) + 1, "000") & > Me.setlabel & Me.BulanRomawi & Me.settahun > End If > Me.tgl.Value = Date > Me.tgl.SetFocus > > > 5. he..he... kayak gitu bukan... > kesimpulannya berarti ADA dan BISA. > jadi kalo wkt itu sy jawab ada berarti kan sama jawabannya ama skrg... :D > > :: lusky kurniawan - www.privat-access.webs.com > > > Pada 1 Oktober 2009 23:57, e...@nt <[email protected]> menulis: > >> >> >> berarti kalo pengin bertanya gunakan kata "bagaimana" >> jd jawabannya ga cuma 1 kata doank : ya, tidak, bisa, dst... >> tp harus dijelaskan secara detail & jelas >> bgitukah suhu ? >> >> >> >> 2009/10/1 privat access <[email protected]> >> >>> >>> >>> he..he.. ya udh.. mana file db nya? silahkan dikirimkan biar yg lain jg >>> bs belajar :D >>> >>> >>> >>> 2009/10/1 nogaimeno <[email protected]> >>> >>>> >>>> >>>> kurang bertanya sedikit jawaban.. hehehe.. banyak bertanya .. sama >>>> sekali jawaban.. hehehe... bijimane bang cara ne.. >>>> >>>> haturnuwun... >>>> >>>> >>> >> > > -- Anda Punya Toko? Pakai MyStore (www.rumahaccess.com) Program Kasir/POS lengkap dengan inventory control. Khusus untuk toko pribadi, outlet, butik, rumah busana, dsb.
