Re: [belajar-access] Query group

 

Oh... Iya... Sampai tidak perhatian pada record hole_id, yang tidak terekam pada tabel temporer.

Ini terjadi, karena persepsi saya terbawa oleh type id yang biasanya number, ternyata pada tabel asal berupa text. Sehingga ketika eksekusi insert data tidak terekam.

Coba Design form ==> Code ==> Ganti type data pada pembuatan tabel temporer di line 12:

Semula:

'membuat tabel temporer
    DoCmd.RunSQL "CREATE TABLE " & nmtb _
    & " (hole_id number, depth_from number, depth_to number, maj_rock text (255)," _
    & " seam text (255));"

Ubah menjadi:

'membuat tabel temporer
    DoCmd.RunSQL "CREATE TABLE " & nmtb _
    & " (hole_id text (255), depth_from number, depth_to number, maj_rock text (255)," _
    & " seam text (255));"

Semoga bisa membantu dan memberi semangat.

Hariyanto (Surabaya)

On Wednesday, 29 January 2014, 23:14, Ira Idotel <iraidotel@yahoo.com> wrote:

 

Dear Mas Hariyanto(Surabaya)

Luar biasa ,Mantap saya acungi dua jempol hasil nya seperti yg di ingin kan terimakasih tinggal saya terapkan di database aslinya

Mas apa bisa Hole_id nya tetap di tampilkan, Ma'af karena saya minim sekali untuk VBA jadi mohon bantuan nya untuk di tambahkan.

saya sdh coba beberapa data sumur bore hasil nya mantap

cuma Hole_id atau nama bore nya saja yg belum tampil

Maturnuwun

Salam, Ira Borneo

On Wednesday, January 29, 2014 2:26 PM, hari yanto <har_i20002000@yahoo.com> wrote:

 

[Attachment(s) from hari yanto included below]

Dari data yang disampaikan, menurut saya, mempunyai model mirip dengan deret ukur. Pembedanya, dan yang diingin dicari adalah pengelompokkan maj_rock berdasarkan deret ukur itu.

Saya berpendapat, mengeksekusinya, harus menggunakan tabel temporer melalui VBA. Gambarannya begini.

1. Karena type data maj_rock text, kita harus buat control variabel (variant). Misalnya bernama x. Dim x As Variant.
2. Default nilai x kita tetapkan kosong "". Kenapa kosong, soalnya nanti akan dibandingkan dengan maj_rock dari tabel. Setelah dibandingkan, barulah variabel x kita beri nilai maj_rock record sedang berjalan.
3. Saat x tidak sama dengan record maj_rock, kita rekam ke dalam tabel temporer (semua field).

Ini contoh script yang saya maksud:

Function ambilData(tb)
Dim rbs As Recordset
Dim db As DAO.Database
Dim x As Variant

    Set rbs = CurrentDb.OpenRecordset("select * from t2")
    If Not rbs.EOF Then
        x = ""
       
        Set db = CurrentDb
        Do While Not rbs.EOF
            If x <> rbs.Fields(3) Then  'jika x tidak sama dengan maj_rock
            'pengubahan koma menjadi titik, karena koma bagian
            'dari bahasa vba ==> ubah_koma = Replace(nil, ",", ".")
                db.Execute "insert into " _
                & tb & " values ('" _
                & rbs.Fields(0) & "'," _
                & ubah_koma(rbs.Fields(1)) & "," _
                & ubah_koma(rbs.Fields(2)) & ",'" _
                & rbs.Fields(3) & "','" _
                & rbs.Fields(4) & "')"
            'else
                'ini tempat yang maj_rocknya sama
                'tidak perlu direkam
            End If
           
            x = rbs.Fields(3)   'kita berikan x sama dengan record maj_rock
                                'terakhir record sedang running
            rbs.MoveNext        'pindah ke record selanjutnya
        Loop
        db.Close
        Set db = Nothing
    End If
    rbs.Close
    Set rbs = Nothing
   
End Function


Terlampir adalah contoh mdb 2003 yang merekam aktivitas script diatas.

Semoga bisa membantu dan memberi semangat.

Hariyanto (Surabaya)

On Wednesday, 29 January 2014, 12:15, aksan kurdin <aksan.kurdin@gmail.com> wrote:

Ilustrasi dengan gambar lebih gampang di mengerti:




maksud mbak ira dotel, kita group di hole_id, maj_rock, dan seam.
lalu depth_from diambil first, depth_to diambil last.
querynya sort by hole_id, deptfhrom

hasilnya:


Ternyata hasilnya tidak sama dengan keinginan mbak ira, walaupun secara logika sudah benar (seam yang null tetep di anggap satu data semua).
Untuk seam, sepertinya tetep harus diberikan pengkodean unik agar hasil yang diinginkan sama seperti yang diilustrasikan:




regards,
aksan kurdin

On 1/29/2014 11:34 AM, Ira Idotel wrote:

��

Dear Mas cgsatu(Elang)

untuk depth_form adalah meter awal mulai nya bore dan 17.4 adalah angka meteran arti nya 17 meter point 40, dan 22.8 adalah meter depth ( botom nya )

jadi misal nya di 17.4 sampai 22.8 MS ngga bisa di group karena maj_rock nya MS satu saja
Nah kalau 22.8�� sampai 23.15 CO
�� �� �� �� �� 23.15 sampai 26.15 CO
�� �������������� 26.15 sampai 28.55 CO��
������������������ 28.55 sampai 28.9�� CO
demikain juga dengan yang lain yg maj_rock nya sama

Apakah bisa di group jadi Meter Top nya 22.8 dan botom nya 28.9 CO ����

demikian

Salam, Ira borneo

On Wednesday, January 29, 2014 10:40 AM, CGSATU <cgsatu@yahoo.com> wrote:

��

Mbak, saya tidak paham maksudnya :

Penjelasan file :

-untuk depth_from mau nya di ambil kedalaman awal,

-untuk depth_to mau nya di ambil kedalaman akhir,

-untuk maj_rock mau nya kalau nama batuan nya sama di group jadi satu kali saja

-untuk seam otomatis tergroup juga.

contoh depth_form diambil kedalaman awal.

Kalau di data saya lihat angkanya 17,4�� atau 22,8 dsb. Maksudnya angka dibelakang koma dihilangkan atau dibulatkan ?

Atau kolom depth_form tersebut diurutkan dari yang nilai kecil atau bagaimana ?

Misal cuma mau ambil beberapa karakter saja, mungkin artikel ini bisa membantu. http://mugi.or.id/blogs/elang/archive/2011/01/26/manipulating-text-using-sql-in-ms-access.aspx��

Mungkin Mbak Ira bisa lebih jelas lagi maksudnya bagaimana ?

cgsatu (Elang)

On Wednesday, January 29, 2014 7:17 AM, Ira Idotel <iraidotel@yahoo.com> wrote:

��

[Attachment(s) from Ira Idotel included below]

Dear All Pakar Access, semangat Pagi

salam hangat semuanya , mohon bantuan nya

saya punya problem ngegroup pada query , terlampir attachment exel file untuk tampilan yang di ingin kan

Penjelasan file :

-untuk depth_from mau nya di ambil kedalaman awal,

-untuk depth_to mau nya di ambil kedalaman akhir,

-untuk maj_rock mau nya kalau nama batuan nya sama di group jadi satu kali saja

-untuk seam otomatis tergroup juga.

Nb: mungkin Pak Herry bisa bantu

salam kompak selalu ntuk Access mania semua

Salam, Ira borneo

__._,_.___

Reply via web post

Reply to sender

Reply to group

Start a New Topic

Messages in this topic (8)

Recent Activity:

• New Members 2

Visit Your Group

SPAM IS PROHIBITED

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

.

__,_._,___