ok, Mas berhasil Hole_id tampil
namun untuk depth_to nya kelihatan nya masih ada masalah
tidak terambil di last meternya
tadi saya coba pakai report untuk depth_from nya pakai min dan depth_to nya pakai max
juga masalah karena dia terkunci pada seam code
puyeng Mas angel ( bahasa inggris nya)
demikian
Salam kompak selalu , Ira borneo
namun untuk depth_to nya kelihatan nya masih ada masalah
tidak terambil di last meternya
tadi saya coba pakai report untuk depth_from nya pakai min dan depth_to nya pakai max
juga masalah karena dia terkunci pada seam code
puyeng Mas angel ( bahasa inggris nya)
demikian
Salam kompak selalu , Ira borneo
On Thursday, January 30, 2014 12:26 AM, hari yanto <har_i20002000@yahoo.com> wrote:
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));"
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)
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:
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
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 (9) |
SPAM IS PROHIBITED
.
__,_._,___
Tidak ada komentar:
Posting Komentar