luar biasa ....
tapi bukan deret ukur cak. cuma pengelompokan jenis batuan dari kedalaman sesuai pengambilan datanya. untuk kedalaman yang berurutan, tetapi jenis batu dan seam nya sama, batas awal dan akhir dari kedalaman di jadikan satu, di ambil dari yang paling tinggi ke kedalaman yang paling dalam.
penyelesaian satu2nya memang dengan vba, tidak bisa dengan query, kecuali jika seam untuk yang kosong tetap di berikan kode unik, maka grouping by seam lebih sempurna.
luar biasa cak.
aksan kurdin
On 1/29/2014 1:09 PM, hari yanto wrote:
tapi bukan deret ukur cak. cuma pengelompokan jenis batuan dari kedalaman sesuai pengambilan datanya. untuk kedalaman yang berurutan, tetapi jenis batu dan seam nya sama, batas awal dan akhir dari kedalaman di jadikan satu, di ambil dari yang paling tinggi ke kedalaman yang paling dalam.
penyelesaian satu2nya memang dengan vba, tidak bisa dengan query, kecuali jika seam untuk yang kosong tetap di berikan kode unik, maka grouping by seam lebih sempurna.
luar biasa cak.
aksan kurdin
On 1/29/2014 1:09 PM, hari yanto 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 Pagisalam hangat semuanya , mohon bantuan nyasaya punya problem ngegroup pada query , terlampir attachment exel file untuk tampilan yang di ingin kanPenjelasan 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
Tidak ada komentar:
Posting Komentar