MS ACCESS MAILING LIST: Re: [belajar-access] Re: No Transaksi otomatis

Apakah anda hanya copy paste tanpa berusaha memahami maksud dari code tersebut ?
Di thread lanjutan saya coba pecah perintahnya step by step dengan harapan anda mencerna bagaimana melakukannya.
Pertanyaan seperti ini menandakan daya juang anda kurang. Ayo coba lagi ... jangan menyerah.
Kalau bingung, tanyakan di baris mana yang anda tidak paham, jangan melemparkan pertanyaan umum seperti dibawah, kita bukan dukun yang langsung tahu anda stuck di mana, tetapi sertakan apa yang sudah anda lakukan, sertakan pula screen shoot dan tunjuk dengan panah dimana kode itu tidak jalan.

clue dari saya yang pertama: anda pahami dulu apa maksud event form_BeforeUpdate itu.

Ingat, keberhasilan yang diraih dari berusaha untuk mengerti sangat berbekas dan mengasah logika pemrograman.

Aksan Kurdin

On 3/21/2011 5:28 PM, Sutrisno Ae wrote:

pak aksan, sudah saya coba tapi kok ga bisa jalan ya pak,. di text box tidak muncul

salam,

From: Aksan Kurdin <aksan.kurdin@gmail.com>
To: belajar-access@yahoogroups.com
Sent: Mon, March 21, 2011 3:00:10 PM
Subject: Re: [belajar-access] Re: No Transaksi otomatis

Private Sub Form_BeforeUpdate(Cancel As Integer)
    If ("" & Me.TBayar) = "" Or Not IsDate(Me.TBayar) Then
        Beep
        Me.TBayar.SetFocus
        Cancel = -1
        Exit Sub
    End If
    Me.NoKwt = GetNo
End Sub

Private Function GetNo() As String
    GetNo = Format(Val(Nz(DMax("Left(NoKwt,4)", "TBLKwt"), 0)) + 1, "0000") & "/KP-KU/" & Choose(Month(Me.TBayar), "I", "II", "III", "IV", "V", "VI", "VII", "VIII", "IX", "X", "XI", "XII") & "/" & Format(Me.TBayar, "yy")
End Function

aksan kurdin

On 3/21/2011 10:19 AM, Aksan Kurdin wrote:

apa arti penomoran tersebut sperti ini?

0001 : urut
KP-KU : statis, tidak berubah
XI : bulan ?
11: tahun ?

aksan kurdin

On 3/21/2011 9:49 AM, Sutrisno Ae wrote:

dear mas pak aksan

pak bagaimana kalau untuk membuat fungi nomor otomatisnya seperti format berikut.

0001/KP-KU/XI/11, bagaimana pak..?

salam,

From: Aksan Kurdin <aksan.kurdin@gmail.com>
To: belajar-access@yahoogroups.com
Sent: Fri, March 18, 2011 9:25:15 AM
Subject: Re: [belajar-access] Re: No Transaksi otomatis

Katanya 1 gambar seribu kata-kata:

Aksan Kurdin

On 3/18/2011 8:55 AM, Sutrisno Ae wrote:

Pak Akhsan
bisa ngasih contoh yang lebih detail ga, maklum lagi belajar neh

thx

From: aksankurdin <aksan.kurdin@gmail.com>
To: belajar-access@yahoogroups.com
Sent: Fri, March 18, 2011 4:18:08 AM
Subject: [belajar-access] Re: No Transaksi otomatis

Letakkan fungsi untuk mengambil nomor baru di event before update dari form tersebut.
Pseude code seperti ini:

if me.newrecord then
fieldNomor = AmbilNomorBaru()
endif

Aksan Kurdin

--- In belajar-access@yahoogroups.com, Hendra Agestha Hamid <the_agestha@...> wrote:
>
> Dear mas Trisnoe..
>
> Kalo saya pake fungsi Iif, bisa dibuat di Query contoh :
>
> Kode: IIf([JurKelas]="",[JenjPend_NL] & "/" & [Kelas_NL] & "." &
> [SubKelas_NL],[JenjPend_NL] & "/" & [Kelas_NL] & "." & [JurKelas] & "." &
> [SubKelas_NL])
>
> atau :
>
> KodeKls: IIf([AutoNumbKK]<10,"KK0" & [AutoNumbKK],"KK" & [AutoNumbKK])
>
> Cuma saya belum tahu gimana caranya supaya contoh2 field diatas otomatis menjadi
> Primary Key, sebenarnya tau Cuma blm pernah saya praktekkan yaitu dengan "Query
> Make Table".
> Karena msh males nyoba "Query Make Table" itu (...) maka saya bikin contoh2 di
> atas pada unbound text box, kemudian operator tinggal mengetikkan isinya ke
> sebuah field yg kita set sbg PK.
> Saya yakin Suhu2 Access punya jurus yg lebih canggih.
>
> Regards
> Hendra
>
>
>
> ________________________________
> From: Soetrisno <trisno_ae@...>
> To: belajar-access@yahoogroups.com
> Sent: Thu, March 17, 2011 5:38:20 PM
> Subject: [belajar-access] No Transaksi otomatis
>
>
> salam kenal
> para master access
>
> mohon pencerahannya, bagaimana cara membuat no transaksi otomatis, pada saat
> menambah data baru pada form transaksi no tersebut akan muncul secara otomatis.
> contoh: 001/AB-CD/VI/11,
>
> terima kasih
>
> salam,
>
> trisnoe
>