[belajar-access] File - Tata Tertib dan Aturan.txt

 

Tata tertib dan peraturan
Mailing List: belajar-access@yahoogroups.com

1. Mailing list ini membahas mengenai pemrograman Microsoft Access.
2. Tidak diperkenankan mem-posting topik yang tidak ada kaitannya sama sekali dengan pemrograman MS Access, peluang kerja atau tawaran kerja sama dengan keahlian di bidang MS Access, atau pengajaran/kursus MS Acces. Pelanggaran terhadap aturan ini akan di-ban dari keanggotaan milis ini.
3. Mohon berdiskusi dengan baik, dengan semangat membangun, demi kemajuan kita bersama. Hindarilah perbantahan (flame) yang bisa menjadi pertengkaran yang tidak perlu.
4 Hindari reply permintaan one-liner seperti 'saya minta juga dong', 'saya setuju', dan lain-lain yang tidak perlu.
5. Sedapat mungkin memberikan data-data yang lengkap dalam mengajukan suatu masalah untuk memudahkan rekan-rekan sesama member mengidentifikasi dan mencarikan solusi, termasuk memberikan subject yang sesuai dengan isi email, tidak dengan kata-kata seperti "tologing dong", "pusing...", "ada yang bisa bantu..", dll.

Moderator

__._,_.___

Reply via web post

Reply to sender

Reply to group

Start a New Topic

Messages in this topic (83)

Recent Activity:

• New Members 4

Visit Your Group

SPAM IS PROHIBITED

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

.

__,_._,___

Re: [belajar-access] Perlukan belajar VB6

 

VB 6 Obsolete cak,
VB 6 jalan mulus di Windows XP.
Windows XP habis supportnya di bulan april 2014, tidak ada lagi maintenance dari Microsoft.
Windows 7 akan berhenti penjualannya bulan nopember 2014, semua dipaksa beralih ke windows 8.

VB 6 di Windows 8 instalasinya tidak semulus di XP, memerlukan seting kompatibilitas turun.
Jadi perlahan-lahan tinggalkan VB 6 secepatnya (hehehe.... perlahan2 secepatnya).

aksan kurdin

On 2/1/2014 6:51 PM, hari yanto wrote:

��

Ini pengalaman saya pribadi. Pada tahap awal, saya hanya memanfaatkan Ms Acces murni. Namun karena beberapa keinginan tidak bisa diselesaikan murni Ms Access, akhirnya saya masuk VBA.

Awalnya, saya membaca buku VB6. Step by Step VB. Di situ diuraikan baris per baris masing-masing script. Sambil membaca, saya praktekkan di VBA Ms Acces. Ada yang bisa ada pula yang tidak. Dari situ, akhirnya ada proses pencarian hingga menemukan VBA Ms Acces yang pas.

Jadi perlu tidaknya belajar VB6, tergantung kebutuhan. Semakin kita berhadapan dengan masalah rumit, disitu tersimpan tantangan kita untuk menyelesaikan. Di situ pula mau tidak mau harus belajar VBA (VB6 hanya tahap awal saja). Dan, sering terjadi, kita bisa merangkai hal baru.

Namun, bila masalah yang dihadapi tidak rumit, VB6 atau VBA, mungkin belum perlu. Cukup memanfaatkan drag & drop bawaan Ms Access (walau di dalamnya berisi VBA).

Mungkin pengalaman kawan-kawan lain berbeda. Monggo di share....

Hariyanto (Surabaya)

On Saturday, 1 February 2014, 18:32, Jack Rivaldo <rivaldojack@gmail.com> wrote:

��

Kalau OTT, abaikan saja pesan ini

Kalau sudah mempelajari Ms. Access apakah perlu lagi mempelajari VB6

Kalau tidak perlu, mengapa?
Kalau perlu, mengapa? Dan mana yang lebi dulu Ms. Access atau VB6
terlebih dahulu?
Aatau harus 22nya, jawab juga mengapa?

__._,_.___

Reply via web post

Reply to sender

Reply to group

Start a New Topic

Messages in this topic (4)

Recent Activity:

• New Members 4

Visit Your Group

SPAM IS PROHIBITED

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

.

__,_._,___

[belajar-access] Bagaimana Cara Mengatasi Limit Penyimpanan Database Access

 

Saya pengguna Ms. Access tapi saya tidak mendalami Database Access,
saya menggunakan koneksi database MySQL

Kebetulan saya menemukan Source Code Aplikasi Access dengan Database Access
Rencananya Aplikasi ini saya gunakan untuk pekerjaan saya (sudah saya
edit tampilannya)

Tapi ada masalah, yaitu kabarnya daya tampung database Access hanya
sebesar 2GB. Dan menurut perhitungan saya ukuran tersebut kurang
mencukupi dengan data yang akan saya masukkan dalam aplikasi tersebut

Kalau saya covert database access tersebut ke MySQL saya takut Query
Access itu hasil olahan datanya tidak sama dengan hasil covert ke
MySQL
Mau saya covert ke SQL server saya cuman punya yang versi Express
saja, kapasitasnya juga 2GB juga

Adakah cara mengatasi limit penyimpanan database access ini dengan
tetap mempertahankan database asli acccess tersebut yaitu Accdb atau
mdb
Dan rencananya saya ingin running aplikasi access tersebut di Runtime Access

Terima kasih atas jawabannya.

__._,_.___

Reply via web post

Reply to sender

Reply to group

Start a New Topic

Messages in this topic (1)

Recent Activity:

• New Members 4

Visit Your Group

SPAM IS PROHIBITED

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

.

__,_._,___

Re: [belajar-access] Perlukan belajar VB6

 

Wah! Akhirnya ada yang jawab, nggak nyangka..hheeheh
Terima kasih banyak atas share pengalamannya mas

Pada tanggal 01/02/14, hari yanto <har_i20002000@yahoo.com> menulis:
>
>
> Ini pengalaman saya pribadi. Pada tahap awal, saya hanya memanfaatkan Ms
> Acces murni. Namun karena beberapa keinginan tidak bisa diselesaikan murni
> Ms Access, akhirnya saya masuk VBA.
>
>
> Awalnya, saya membaca buku VB6. Step by Step VB. Di situ diuraikan baris per
> baris masing-masing script. Sambil membaca, saya praktekkan di VBA Ms Acces.
> Ada yang bisa ada pula yang tidak. Dari situ, akhirnya ada proses pencarian
> hingga menemukan VBA Ms Acces yang pas.
>
> Jadi perlu tidaknya belajar VB6, tergantung kebutuhan. Semakin kita
> berhadapan dengan masalah rumit, disitu tersimpan tantangan kita untuk
> menyelesaikan. Di situ pula mau tidak mau harus belajar VBA (VB6 hanya tahap
> awal saja). Dan, sering terjadi, kita bisa merangkai hal baru.
>
> Namun, bila masalah yang dihadapi tidak rumit, VB6 atau VBA, mungkin belum
> perlu. Cukup memanfaatkan drag & drop bawaan Ms Access (walau di dalamnya
> berisi VBA).
>
> Mungkin pengalaman kawan-kawan lain berbeda. Monggo di share....
>
> Hariyanto (Surabaya)
>
>
>
>
>
>
> On Saturday, 1 February 2014, 18:32, Jack Rivaldo <rivaldojack@gmail.com>
> wrote:
>
>
> Kalau OTT, abaikan saja pesan ini
>
> Kalau sudah mempelajari Ms. Access apakah perlu lagi mempelajari VB6
>
> Kalau tidak perlu, mengapa?
> Kalau perlu, mengapa? Dan mana yang lebi dulu Ms. Access atau VB6
> terlebih dahulu?
> Aatau harus 22nya, jawab juga mengapa?
>
>

__._,_.___

Reply via web post

Reply to sender

Reply to group

Start a New Topic

Messages in this topic (3)

Recent Activity:

• New Members 4

Visit Your Group

SPAM IS PROHIBITED

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

.

__,_._,___

Re: [belajar-access] Perlukan belajar VB6

 

Ini pengalaman saya pribadi. Pada tahap awal, saya hanya memanfaatkan Ms Acces murni. Namun karena beberapa keinginan tidak bisa diselesaikan murni Ms Access, akhirnya saya masuk VBA.

Awalnya, saya membaca buku VB6. Step by Step VB. Di situ diuraikan baris per baris masing-masing script. Sambil membaca, saya praktekkan di VBA Ms Acces. Ada yang bisa ada pula yang tidak. Dari situ, akhirnya ada proses pencarian hingga menemukan VBA Ms Acces yang pas.

Jadi perlu tidaknya belajar VB6, tergantung kebutuhan. Semakin kita berhadapan dengan masalah rumit, disitu tersimpan tantangan kita untuk menyelesaikan. Di situ pula mau tidak mau harus belajar VBA (VB6 hanya tahap awal saja). Dan, sering terjadi, kita bisa merangkai hal baru.

Namun, bila masalah yang dihadapi tidak rumit, VB6 atau VBA, mungkin belum perlu. Cukup memanfaatkan drag & drop bawaan Ms Access (walau di dalamnya berisi VBA).

Mungkin pengalaman kawan-kawan lain berbeda. Monggo di share....

Hariyanto (Surabaya)

On Saturday, 1 February 2014, 18:32, Jack Rivaldo <rivaldojack@gmail.com> wrote:

 

Kalau OTT, abaikan saja pesan ini

Kalau sudah mempelajari Ms. Access apakah perlu lagi mempelajari VB6

Kalau tidak perlu, mengapa?
Kalau perlu, mengapa? Dan mana yang lebi dulu Ms. Access atau VB6
terlebih dahulu?
Aatau harus 22nya, jawab juga mengapa?

__._,_.___

Reply via web post

Reply to sender

Reply to group

Start a New Topic

Messages in this topic (2)

Recent Activity:

• New Members 4

Visit Your Group

SPAM IS PROHIBITED

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

.

__,_._,___

Re: [belajar-access] Re: Cara buat kartu stok dan hpp stok avarage [1 Attachment]

 

[Attachment(s) from hari yanto included below]

Baiklah..., pada dasarnya pengambilan data berdasarkan tabel t, yang diolah (menggunakan VBA) berdasarkan id sebelum atau sesudah data yang ditampilkan di query. VBAnya saya letakkan di module agar bisa dibaca oleh query. Penjelasan VBA-nya hampir sama dengan yang saya sampaikan sebelumnya.

VBA dan eksekusi lengkapnya, bisa dilihat di lampiran (mdb 2003).

Semoga bisa membantu dan memberi semangat.

Hariyanto (Surabaya)

On Saturday, 1 February 2014, 14:30, "xella_navi@yahoo.com" <xella_navi@yahoo.com> wrote:

 

iya gan, saya pengennya muncul ky gitu, ada field/kolom saldo awalnya dan perhitungn nilai rata2 stock pada saat barang keluar (sebagai hpp) pada saat tanggal barang keluar, bukan total rata2 selama 1 periode

---In belajar-access@yahoogroups.com, <har_i20002000@...> wrote:

Apabila dikendaki hal demikian, menurut saya hal pertama yang harus kita tetapkan adalah pengakuan harga (kecuali harga beli, karena sudah ditetapkan oleh user). Mulai dari harga awal, keluar maupun di saldo.

Karena susah untuk diterapkan di query murni, saya coba gabungkan antara query Ms Access dengan VBA. Artinya, VBA yang dieksekusi melalui query. Saya buat VBA untuk saldo rata-rata seperti ini:

=====

Function h_rata2(ByVal RecordID As Variant, nmtabel As Variant _
, fi_harga As Variant, n_id As Variant, fi_db As Variant, _
fi_kr As Variant, iki As Integer) As Double

    Dim hsl, qty As Double
    Dim rss As DAO.Recordset
   
    Set rss = CurrentDb.OpenRecordset("SELECT sum(" & fi_db _
    & " * " & fi_harga & ") From " & nmtabel & " where " & n_id & "<" & RecordID)
   
    If Not rss.EOF Then
        hsl = Round(Nz(rss.Fields(0), 0))
    Else
        hsl = 0
    End If
   
    Set rss = CurrentDb.OpenRecordset("SELECT sum(" & fi_kr _
    & " * " & fi_harga & ") From " & nmtabel & " where " & n_id & "<" & RecordID)
    If Not rss.EOF Then
        hsl = hsl - Round(Nz(rss.Fields(0), 0))
    End If
    rss.Close
    Set rss = Nothing
   
    Set rss = CurrentDb.OpenRecordset("SELECT sum(" & fi_db _
    & ") From " & nmtabel & " where " & n_id & "<" & RecordID)
   
    If Not rss.EOF Then
        qty = Round(Nz(rss.Fields(0), 0))
    Else
        qty = 0
    End If
   
    Set rss = CurrentDb.OpenRecordset("SELECT sum(" & fi_kr _
    & ") From " & nmtabel & " where " & n_id & "<" & RecordID)
    If Not rss.EOF Then
        qty = qty - Round(Nz(rss.Fields(0), 0))
    End If
    rss.Close
    Set rss = Nothing
   
    If qty > hsl Then
        h_rata2 = 0
    ElseIf qty = hsl Then
        If iki = 0 Then
            h_rata2 = DLookup("[" & fi_harga & "]", nmtabel, "[" & n_id & "]=" _
            & DMin("[" & n_id & "]", nmtabel, ""))
        Else
            h_rata2 = 0
        End If
    Else
        h_rata2 = (hsl / qty)
    End If
End Function

====

Penjelasannya sebagai berikut:

-----

Function h_rata2(ByVal RecordID As Variant, nmtabel As Variant _
, fi_harga As Variant, n_id As Variant, fi_db As Variant, _
fi_kr As Variant, iki As Integer) As Double

----

Fungsi ini akan menghasilkan nilai number (double). Variabel yang diminta fungsi adalah:

ByVal RecordID : Nilai dari id

nmtabel : nama tabel

fi_harga: Nama Field Harga

n_id: Nama Field id

fi_db: Nama Field masuk

fi_kr: Nama Field keluar

iki: control kebutuhan data (0 ==> harga saldo awal; lainnya untuk harga saldo lainnya)

----

Set rss = CurrentDb.OpenRecordset("SELECT sum(" & fi_db _
    & " * " & fi_harga & ") From " & nmtabel & " where " & n_id & "<" & RecordID)
   
    If Not rss.EOF Then
        hsl = Round(Nz(rss.Fields(0), 0))
    Else
        hsl = 0
    End If

----

Ini akan menjumlah seluruh nilai barang masuk X harga dengan catatan id< kurang dari variable nilai ID. Jadi tergantung nilai variablenya. Karena kita ingin mencarai nilai bersihnya, maka harus dikurangi dengan yang dikeluarkan dengan memakai script ini:

----

Set rss = CurrentDb.OpenRecordset("SELECT sum(" & fi_kr _
    & " * " & fi_harga & ") From " & nmtabel & " where " & n_id & "<" & RecordID)
    If Not rss.EOF Then
        hsl = hsl - Round(Nz(rss.Fields(0), 0))
    End If
    rss.Close
    Set rss = Nothing
   
    Set rss = CurrentDb.OpenRecordset("SELECT sum(" & fi_db _
    & ") From " & nmtabel & " where " & n_id & "<" & RecordID)
   
    If Not rss.EOF Then
        qty = Round(Nz(rss.Fields(0), 0))
    Else
        qty = 0
    End If

---

Dari sini kita akan mendapatkan nilai sisa barang pada id sebelum dipilih.

----

Set rss = CurrentDb.OpenRecordset("SELECT sum(" & fi_db _
    & ") From " & nmtabel & " where " & n_id & "<" & RecordID)
   
    If Not rss.EOF Then
        qty = Round(Nz(rss.Fields(0), 0))
    Else
        qty = 0
    End If
   
    Set rss = CurrentDb.OpenRecordset("SELECT sum(" & fi_kr _
    & ") From " & nmtabel & " where " & n_id & "<" & RecordID)
    If Not rss.EOF Then
        qty = qty - Round(Nz(rss.Fields(0), 0))
    End If
    rss.Close
    Set rss = Nothing
   

----

Yang ini akan mendapatkan jumlah unit barang. Tujuannya satu: untuk mendapatkan harga rata-rata, karena harga rata-rata diperoleh dari nilai bersih total dibagi jumlah unit bersih. Untuk itu kita turunkan script ini:

----

If qty > hsl Then
        h_rata2 = 0
    ElseIf qty = hsl Then
        If iki = 0 Then
            h_rata2 = DLookup("[" & fi_harga & "]", nmtabel, "[" & n_id & "]=" _
            & DMin("[" & n_id & "]", nmtabel, ""))
        Else
            h_rata2 = 0
        End If
    Else
        h_rata2 = (hsl / qty)
    End If

----

Cara penggunaan di querynya begini:

p_awal: h_rata2([id];"t";"p_masuk";"id";"masuk";"keluar";1)

asumsinya:

[id] = record id

t = Nama tabel

p_masuk = Nama field harga barang masuk

id = nama field id

masuk = Nama field barang masuk

keluar = Nama field barang keluar

1 = Untuk kebutuhan harga awal

Bila kita letakkan ke dalam query, akan seperti ini:

Dan, bila kita eksekusi, hasilnya berubah begini:

p_awal ==> price awal.

Kita akan menguraikan lebih lanjut hingga sampai pada titik akhir berupa query seperti dibawah ini:

Sebelum sampai kesana. Apakah yang seperti ini sesuai harapan Mas Ivan?

Hariyanto (Surabaya)

On Friday, 31 January 2014, 21:19, ivan alexander <xella_navi@...> wrote:

 

[Attachment(s) from ivan alexander included below]

agan2 yang terhormat,ini saya lampirkan contoh file access yg saya buat.klo recordnya cm beberapa ya harap maklum krna kan aplikasinya aja blm selesai, jd blm d isi recordnya.

yg saya mau tanya ke cak hary yanto, yg di query masuk keluar itu, kan tanggal 1-1-14 ada pembelian brg B 1000 unit, dengan harga Rp600. nah nilai stoknya kan jadi Rp600.000. trus di tanggal 2-1-14 ada jual barang B 100 unit, jd nilai keluarnya (100unit*Rp600=Rp60.000). jadi sisanya (Rp540.000di dapat dari 600.000 - 60.000).dengan nilai rata2 per unit sekarang = 540.000/900unit = Rp600.

trus di tanggal 29-1-14 ada beli barang B sebanyak 2.000 unit dengan harga Rp 500 jd nilai masuknya 2.000*Rp500= Rp1.000.000.

nah skrg nilai rata2 stoknya kan jadinya 1.000.000+540.000 dibagi 2.000+900 = 1.540.000/2.900=Rp531,034.

di tanggal 30-1-14 ada jual lagi barang B sebanyak 100 unit, maka pengurangan stoknya jadi 100*Rp531,034 = Rp53.103

sisa stoknya menjadi 1.540.000-53.103 = 1.486.897 dengan unitnya sebanyak 2.800 unit.

pemahaman saya tentang nilai stok seperti itu cak hary, klo ada kekeliruan atau tidak sesuai dengan konsep akuntansi saya mohon koreksinya

Terimakasih

On Friday, January 31, 2014 12:10 PM, Ivan Alexander <xella_navi@...> wrote:

Agan2 yth, sorry saya compose pertanyaan lagi, sy mau tanya cara buat kartu stok seperti yg ada d lampiran saya. Model kartu stok yg ada nomor transaksi,tanggal,saldo awal,masuk,keluar,saldo akhir, yg ada kuantitas stok dan nilai/harga stoknya.Mungkin ada d antara agan2 yg berkenan membantu, saya ucapkan terimakasih

Agan2 yth, sorry saya compose pertanyaan lagi, sy mau tanya cara buat kartu stok seperti yg ada d lampiran saya. Model kartu stok yg ada nomor transaksi,tanggal,saldo awal,masuk,keluar,saldo akhir, yg ada kuantitas stok dan nilai/harga stoknya.Mungkin ada d antara agan2 yg berkenan membantu, saya ucapkan terimakasih

__._,_.___

Attachment(s) from hari yanto

1 of 1 File(s)

stock_1.zip

Reply via web post

Reply to sender

Reply to group

Start a New Topic

Messages in this topic (11)

Recent Activity:

• New Members 4

Visit Your Group

SPAM IS PROHIBITED

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

.

__,_._,___

[belajar-access] Perlukan belajar VB6

 

Kalau OTT, abaikan saja pesan ini

Kalau sudah mempelajari Ms. Access apakah perlu lagi mempelajari VB6

Kalau tidak perlu, mengapa?
Kalau perlu, mengapa? Dan mana yang lebi dulu Ms. Access atau VB6
terlebih dahulu?
Aatau harus 22nya, jawab juga mengapa?

__._,_.___

Reply via web post

Reply to sender

Reply to group

Start a New Topic

Messages in this topic (1)

Recent Activity:

• New Members 4

Visit Your Group

SPAM IS PROHIBITED

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

.

__,_._,___