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...
>>>
>>>
>>
>
>
