Selasa, 29 November 2011

[belajar-excel] Digest Number 1416

Messages In This Digest (21 Messages)

Messages

1a.

Lanjutan_[belajar-excel] Re: LOOK UP gabungan dengan DROP DOWN LIST

Posted by: "afif farihin" farick03@yahoo.com   farick03

Mon Nov 28, 2011 7:42 am (PST)



Salam Mister,
Udah sy coba formula keduanya, berhasil, sama dgn formula Mister yg pertama, namun Saya kesulitan mengkondisikan agar data di kolom profesi bisa mengurut dari atas, misalnya jika di F7 = DM PA, maka F9 s/d F12 nanti berisi MP semua, sementara cell dibawahnya blank saja, dan data NO NAMA PRK mengikuti atas perubahan tsb, serta cell-cell dibawahnya blank saja.. Kondisinya akan berlaku sama menyesuaikan jika pilihan F7 diganti..

Cases seperti ini sy terinspirasi dgn jawaban Mr. Kid
http://www.mail-archive.com/belajar-excel@yahoogroups.com/msg06037.html
pada file Attachment : re-Membuat Ringkasan Data Secara Urut Dari Yang Terbesar sd Terkecil.xlsx

atau jawaban mbah/k Siti Vi :),
http://www.mail-archive.com/belajar-excel@yahoogroups.com/msg06035.html
pada file Attachment : ctv_FORMULA Filtering Sekaligus Sorting - Ascending (Manurung).xlsx

Mohon pencerahannya ya Mister n Mrs.. ma'ap malam2 sy masih ngimel :(
oya, sy sertakan kembali file yg udah sy rubah formulasinya sesuai arahan Mr.Kid (jawaban1  dan jawaban2)
Salam,

/Farick
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)
1b.

Re: Lanjutan_[belajar-excel] Re: LOOK UP gabungan dengan DROP DOWN L

Posted by: "Kid Mr." mr.nmkid@gmail.com   nmkid.family@ymail.com

Mon Nov 28, 2011 8:52 am (PST)



Semoga ada yang sesuai keinginan pada file terlampir. Jika ada yang kurang
pas, moga-moga bisa dikembangkan agar menjadi pas.
Untuk mengurutkan, umumnya dibuatkan sebuah nilai komposit yang menjadi
data yang diurutkan. Pengurutan bisa menggunakan fungsi Small atau Large.

Wassalamualaikum Wr. Wb.
Kid.

2011/11/28 afif farihin <farick03@yahoo.com>

> **
>
>
> Salam Mister,
> Udah sy coba formula keduanya, berhasil, sama dgn formula Mister yg
> pertama, namun Saya kesulitan mengkondisikan agar data di kolom profesi
> bisa mengurut dari atas, misalnya jika di F7 = DM PA, maka F9 s/d F12 nanti
> berisi MP semua, sementara cell dibawahnya blank saja, dan data NO NAMA PRK
> mengikuti atas perubahan tsb, serta cell-cell dibawahnya blank saja..
> Kondisinya akan berlaku sama menyesuaikan jika pilihan F7 diganti..
>
> Cases seperti ini sy terinspirasi dgn jawaban Mr. Kid
> http://www.mail-archive.com/belajar-excel@yahoogroups.com/msg06037.html
> pada file Attachment : re-Membuat Ringkasan Data Secara Urut Dari Yang
> Terbesar sd Terkecil.xlsx
>
> atau jawaban mbah/k Siti Vi :),
> http://www.mail-archive.com/belajar-excel@yahoogroups.com/msg06035.html
> pada file Attachment : ctv_FORMULA Filtering Sekaligus Sorting - Ascending
> (Manurung).xlsx
>
> Mohon pencerahannya ya Mister n Mrs.. ma'ap malam2 sy masih ngimel :(
> oya, sy sertakan kembali file yg udah sy rubah formulasinya sesuai arahan
> Mr.Kid (jawaban1 dan jawaban2)
> Salam,
>
> /Farick
>
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)
2a.

Konversi Teks Angka Romawi ke Data Tgl

Posted by: "Ki Semprul" kisemprul@rocketmail.com   kisemprul@rocketmail.com

Mon Nov 28, 2011 5:42 pm (PST)



Waktu itu sudah ada angota yg menanyakan Konversi data (bagian dari) Tanggal menjadi Angka Romawi.
Bagaimana kalau kebalikannya ?? Angka Romawi menjadi Angka biasa (arab / desimal)

Kami punya data seperti di bawah ini, setiap cell terdiri dari 3 subData text berupa Angka Romawi

dengan bentuk TANGGAL-BULAN-TAHUN

VI-IX-MMXI

XVIII-VII-MMXI
XXIII-XI-MMX
VI-V-MMXI
XIX-II-MMX
XVIII-IX-MMX        

Ingin hasil (data tanggal) tidak harus diformat

06-Sep-2011 

18-Jul-2011

23-Nov-2010

---dst---

Mohon bantuan RUMUS yg paling praktis, mohon jangan makro dulu...

Ki Semprul
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)
2b.

Re: Konversi Teks Angka Romawi ke Data Tgl

Posted by: "Kid Mr." mr.nmkid@gmail.com   nmkid.family@ymail.com

Mon Nov 28, 2011 6:19 pm (PST)



Hai Semprul Ki,

Asumsi :
1. data di sheet1 cell A2
2. format date data DMY dengan delimiter dash '-'
Array formula :
=DATE(MATCH(TRIM(MID(SUBSTITUTE(A2,"-",REPT("
",99)),2*99,99)),ROMAN(ROW($1900:$3999)),0)+1899,MATCH(TRIM(MID(SUBSTITUTE(A2,"-",REPT("
",99)),99,99)),ROMAN(ROW($1:$12)),0),MATCH(TRIM(LEFT(SUBSTITUTE(A2,"-",REPT("
",99)),99)),ROMAN(ROW($1:$31)),0))

Jika dibuat nama range :
>> *myData *sebagai proses text to columns dari data dengan formula pada
refers to :
=TRIM(MID(SUBSTITUTE(Sheet1!$A2,"-",REPT("
",99)),(ROW(Sheet1!$1:$3)-1)*99+1,99))

>> *myRoman *sebagai daftar angka romawi di Excel (dari 1 sampai 3999),
dengan formula pada refers to :
=ROMAN(ROW(Sheet1!$1:$3999))

Maka formula konversi date roman ke date arabic numerals menjadi :
=DATE(MATCH(INDEX(*myData*,3),*myRoman*,0),MATCH(INDEX(*myData*,2),*myRoman*
,0),MATCH(INDEX(*myData*,1),*myRoman*,0))

Regards,
Kid.

2011/11/29 Ki Semprul <kisemprul@rocketmail.com>

> VI-IX-MMXI
> XVIII-VII-MMXI
> XXIII-XI-MMX
> VI-V-MMXI
> XIX-II-MMX
> XVIII-IX-MMX
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)
2c.

Re: Konversi Teks Angka Romawi ke Data Tgl

Posted by: "Haps" hapsari.stlizbeth@gmail.com   liz_hap

Mon Nov 28, 2011 6:21 pm (PST)



Kalau ndak salah, dulu sudah ada yg memberikan fatwa mengenai ini
(konversi data text ANGKA ROMAWI ke Data Numbers (Bilangan)
basis desimal (angka "biasa")

=MATCH(A1, ROMAN(ROW($1:$3000)), 0)

*Tahap1*
membuat array angka rowawi 1 sampai 3000
3000 ini dapat diubah / diperkecil agar formula lebih cepat
sampai berepa memperkecilnya : tergantung dari Range data yg akan diproses
misalnya hanya akan memproses angka romawi EX BULAN tentunya
cukup dengan *=ROMAN(ROW(1:12))*
di enter sebagai array formula ( Ctrl + Shift, Enter )

*Tahap II*
Ketika kita sudah mempunyai *array angka rowawi* maka salah satu angka
romawi itu
*ada di urutan keberapa ?*
*Angka Urutan* ini secara tidak langsung menunjukkan terjemahan Angka
Rowawi tsb

Dalam Array { "I"; "II"; "III"; "IV"; "V" } , data "III" ada diuturan
keberapa Ki ?
Jawabannya = ke 3, dan 3 itu adalah NILAI (terjemahan) dari "III"
Sedehana mawon...

*Menebak Suatu data ada diuturan ke berapa, *jangan ragu lagi anda bisa
pakai
fungsi MATCH
*=MATCH(A1,* ROMAN(ROW($1:$3000))*, 0)*

Atau kalau sekolom data berisi angka romawi yg hanya menggambarkan nilai
TGL saja
di mana RENTANG nilai tanggal = 1 sampai 31; maka rumus dapat dipergesit
dengan
=MATCH(A1, ROMAN(ROW(*$1:$31*)), 0)

PADAHAL: cell A1 berisi teks angka romawi yg dingin di kon-ver-si !! Ya
bagus lah ..

2011/11/29 Ki Semprul <kisemprul@rocketmail.com>

> **
> Waktu itu sudah ada angota yg menanyakan Konversi data (bagian dari)
> Tanggal menjadi Angka Romawi.
> Bagaimana kalau kebalikannya ?? Angka Romawi menjadi Angka biasa (arab /
> desimal)
>
> Kami punya data seperti di bawah ini, setiap cell terdiri dari 3 subData
> text berupa Angka Romawi
> dengan bentuk TANGGAL-BULAN-TAHUN
>
> VI-IX-MMXI
> XVIII-VII-MMXI
> XXIII-XI-MMX
> VI-V-MMXI
> XIX-II-MMX
> XVIII-IX-MMX
>
> Ingin hasil (data tanggal) tidak harus diformat
> 06-Sep-2011
> 18-Jul-2011
> 23-Nov-2010
> ---dst---
>
> Mohon bantuan RUMUS yg paling praktis, mohon jangan makro dulu...
>
> Ki Semprul
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)
2d.

Re: Konversi Teks Angka Romawi ke Data Tgl

Posted by: "zainul_ulum[at]yahoo[dot]com" zainul_ulum@yahoo.com   zainul_ulum

Mon Nov 28, 2011 6:37 pm (PST)




Bisa juga menggunakan cara lain tetapi masih menggunakan cell bantu.

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of Kid Mr.
Sent: Tuesday, November 29, 2011 9:19 AM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Konversi Teks Angka Romawi ke Data Tgl

 
Hai Semprul Ki,

Asumsi :
1. data di sheet1 cell A2
2. format date data DMY dengan delimiter dash '-'
Array formula :
=DATE(MATCH(TRIM(MID(SUBSTITUTE(A2,"-",REPT("
",99)),2*99,99)),ROMAN(ROW($1900:$3999)),0)+1899,MATCH(TRIM(MID(SUBSTITUTE(A
2,"-",REPT("
",99)),99,99)),ROMAN(ROW($1:$12)),0),MATCH(TRIM(LEFT(SUBSTITUTE(A2,"-",REPT(
" ",99)),99)),ROMAN(ROW($1:$31)),0))

Jika dibuat nama range :
>> myData sebagai proses text to columns dari data dengan formula pada
refers to :
=TRIM(MID(SUBSTITUTE(Sheet1!$A2,"-",REPT("
",99)),(ROW(Sheet1!$1:$3)-1)*99+1,99))

>> myRoman sebagai daftar angka romawi di Excel (dari 1 sampai 3999), dengan
formula pada refers to :
=ROMAN(ROW(Sheet1!$1:$3999))

Maka formula konversi date roman ke date arabic numerals menjadi :
=DATE(MATCH(INDEX(myData,3),myRoman,0),MATCH(INDEX(myData,2),myRoman,0),MATC
H(INDEX(myData,1),myRoman,0))

Regards,
Kid.
2011/11/29 Ki Semprul <kisemprul@rocketmail.com>
VI-IX-MMXI
XVIII-VII-MMXI
XXIII-XI-MMX
VI-V-MMXI
XIX-II-MMX
XVIII-IX-MMX

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)
2e.

Bls: [belajar-excel] Konversi Teks Angka Romawi ke Data Tgl

Posted by: "ghozi alkatiri" ghozialkatiri@yahoo.co.id   ghozialkatiri

Tue Nov 29, 2011 3:49 am (PST)



solusi dengan formula array tanpa kolom bantu.
formula ini hanya efektif untuk mengkonversi angka romawi ke angka biasa maksimal sampai angka 3999. lebih dari itu menghailkan nilai #VALUE!
untuk solusi kasus yang ditanyakan :

data asal  pertama  di A2  formulanya  (array)

{=DATE(MATCH(REPLACE(MID(A2;FIND("-";A2)+1;LEN(A2));1;FIND("-";MID(A2;FIND("-";A2)+1;LEN(A2)));"");ROMAN(ROW($A$1:$A$3000));0);MATCH(LEFT(MID(A2;FIND("-";A2)+1;LEN(A2));(FIND("-";MID(A2;FIND("-";A2)+1;LEN(A2)))-1));ROMAN(ROW($A$1:$A$3000));0);MATCH(LEFT(A2;FIND("-";A2)-1);ROMAN(ROW($A$1:$A$3000));0))}

copy ke bawah dst

wassalam

Ghozi Alkatiri

________________________________
Dari: Ki Semprul <kisemprul@rocketmail.com>
Kepada: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Dikirim: Selasa, 29 November 2011 8:32
Judul: [belajar-excel] Konversi Teks Angka Romawi ke Data Tgl


 
Waktu itu sudah ada angota yg menanyakan Konversi data (bagian dari) Tanggal menjadi Angka Romawi.
Bagaimana kalau kebalikannya ?? Angka Romawi menjadi Angka biasa (arab / desimal)

Kami punya data seperti di bawah ini, setiap cell terdiri dari 3 subData text berupa Angka Romawi

dengan bentuk TANGGAL-BULAN-TAHUN

VI-IX-MMXI

XVIII-VII-MMXI
XXIII-XI-MMX
VI-V-MMXI
XIX-II-MMX
XVIII-IX-MMX        

Ingin hasil (data tanggal) tidak harus diformat

06-Sep-2011 

18-Jul-2011

23-Nov-2010

---dst---

Mohon bantuan RUMUS yg paling praktis, mohon jangan makro dulu...

Ki Semprul

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)
3a.

Re: Tambah kolom di database

Posted by: "ppc lambda" ppc_03@sami.co.id

Mon Nov 28, 2011 6:20 pm (PST)




terimakasih atas masukannya Mr kid
saya akan coba saran dari mr kid, namun jika terjadi error dan menemukan jalan buntu
sudilah kiranya para master membantu permasalahan ini

jkssbma, terimakasih atas sarannya saya juga bergabung dengan Mailist yang telah di sebutkan
namun belum menemukan solusi yang tepat

Terimakasih
Best Regard
<>.<>.<>.<>.<>.<>.
sidoel
----- Original Message -----
From: Kid Mr.
To: belajar-excel@yahoogroups.com
Sent: Monday, November 28, 2011 4:04 PM
Subject: Re: [belajar-excel] Tambah kolom di database

Coba pelajari SQL dengan lebih detil lagi pada jenis DDL (Data Definition Language).
Untuk mengubah struktur tabel, gunakan Alter Table

misal sudah ada object koneksi db menggunakan ADODB
maka bisa susun query alter table dan eksekusi langsung.
Contoh :

db.Execute "ALTER TABLE myTable ADD COLUMN myUmur NUMERIC"
db.Execute "ALTER TABLE myTable ADD COLUMN myAlamat TEXT[250]"

Jika kolom sudah ada, maka akan muncul error.
Dengan memberi error handler, maka error bisa di trap dan diganti dengan sebuah pesan, misal

Err.Clear
On Error Resume Next
db.Execute "ALTER TABLE myTable ADD COLUMN myUmur NUMERIC"
IF Err.Number<>0 Then
err.clear
msgbox "kolom myUmur sudah ada."
endif

Wassalamualaikum Wr. Wb.
Kid.

On Sat, Nov 26, 2011 at 16:06, ppc lambda <ppc_03@sami.co.id> wrote:

para pakar Excel mohon bantuannya
permasalahannya adalah perintah ( rst.Fields.Append adt, adNumeric
) pada kode dibawah tidak bisa menambah kolom pada database Access

sudilah kiranya para pakar membantu menyelesaikan permasalahan ini
terimakasih
Private Sub Cmd_Out_Click()
Dim upDt As String, adDt As String, b As Long
a = 0
b = 0
Set rst = New ADODB.Recordset
sDBCon = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & ThisWorkbook.Path & "\db1.mdb" & ";"
Set db = New ADODB.Connection
db.Open sDBCon
rst.Open "OUT", db
rst.MoveFirst
While Not rst.EOF
If InStr(LCase$(Trim$(rst.Fields("PN").Value)), LCase$(Trim$(Cmb_Part.Value))) Then
For Each Rsk In rst.Fields
If InStr(LCase$(Trim$(Rsk.Name)), LCase$(Trim$(txt_tgl.Value))) Then
b = 1
upDt = "Update OUT SET " & Rsk.Name & " = '" & txt_Out.Value & "' WHERE PN='" & Cmb_Part.Value & "'"
db.Execute upDt
MsgBox "kolom ada " & upDt
Exit For
Else
b = 0
End If
' db.Execute "Update OUT " & _
"SET 09_Nov_11 = " & _
"'20'" & _
" WHERE PN=" & _
"'7034-1306'" '& ";"
Next Rsk
a = a + 1
MsgBox "baris ada"
End If
rst.MoveNext
Wend
If b = 0 Then

adDt = txt_tgl.Value
rst.Fields.Append adt, adNumeric
upDt = "Update OUT SET " & txt_Out.Value & " = '" & txt_Out.Value & "' WHERE PN=" & Cmb_Part.Value & ";"
db.Execute upDt
MsgBox "kolom baru saja di tambah"
End If
If a = 0 Then
MsgBox "Boz data belum ada lhooo", vbInformation
' lbl_database.Visible = True
End If
db.Close
Set db = Nothing
Set rst = Nothing
Set Rsk = Nothing
End Sub

Terimakasih
Best Regard
<>.<>.<>.<>.<>.<>.
sidoel

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (19)
3b.

Re: Tambah kolom di database

Posted by: "ppc lambda" ppc_03@sami.co.id

Mon Nov 28, 2011 7:25 pm (PST)



Mr kid dan master yang lain saya menemui jala buntu
saya menggunakan code dibawah namun tidak menambah kolom, padahal di tabel OUT tidak ada nama kolom yang sesui denagn textbox
nama tabel " OUT ",nama kolom yang di tambah sesuai textbox " txt_tgl.Value "
mohon bantuannya
Dim adDt As String
adDt = "ALTER TABLE OUT ADD COLUMN " & txt_tgl.Value & " NUMERIC"
Err.Clear
On Error Resume Next
db.Execute adDt
If Err.Number <> 0 Then
Err.Clear
db.Execute adDt
MsgBox "kolom tanggal sudah ada. >" & txt_tgl.Value
End If

Terimakasih
Best Regard
<>.<>.<>.<>.<>.<>.
@bdul
SAMI -*- Planning Production Control
Lambda
----- Original Message -----
From: Kid Mr.
To: belajar-excel@yahoogroups.com
Sent: Monday, November 28, 2011 4:04 PM
Subject: Re: [belajar-excel] Tambah kolom di database

Coba pelajari SQL dengan lebih detil lagi pada jenis DDL (Data Definition Language).
Untuk mengubah struktur tabel, gunakan Alter Table

misal sudah ada object koneksi db menggunakan ADODB
maka bisa susun query alter table dan eksekusi langsung.
Contoh :

db.Execute "ALTER TABLE myTable ADD COLUMN myUmur NUMERIC"
db.Execute "ALTER TABLE myTable ADD COLUMN myAlamat TEXT[250]"

Jika kolom sudah ada, maka akan muncul error.
Dengan memberi error handler, maka error bisa di trap dan diganti dengan sebuah pesan, misal

Err.Clear
On Error Resume Next
db.Execute "ALTER TABLE myTable ADD COLUMN myUmur NUMERIC"
IF Err.Number<>0 Then
err.clear
msgbox "kolom myUmur sudah ada."
endif

Wassalamualaikum Wr. Wb.
Kid.

On Sat, Nov 26, 2011 at 16:06, ppc lambda <ppc_03@sami.co.id> wrote:

para pakar Excel mohon bantuannya
permasalahannya adalah perintah ( rst.Fields.Append adt, adNumeric
) pada kode dibawah tidak bisa menambah kolom pada database Access

sudilah kiranya para pakar membantu menyelesaikan permasalahan ini
terimakasih
Private Sub Cmd_Out_Click()
Dim upDt As String, adDt As String, b As Long
a = 0
b = 0
Set rst = New ADODB.Recordset
sDBCon = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & ThisWorkbook.Path & "\db1.mdb" & ";"
Set db = New ADODB.Connection
db.Open sDBCon
rst.Open "OUT", db
rst.MoveFirst
While Not rst.EOF
If InStr(LCase$(Trim$(rst.Fields("PN").Value)), LCase$(Trim$(Cmb_Part.Value))) Then
For Each Rsk In rst.Fields
If InStr(LCase$(Trim$(Rsk.Name)), LCase$(Trim$(txt_tgl.Value))) Then
b = 1
upDt = "Update OUT SET " & Rsk.Name & " = '" & txt_Out.Value & "' WHERE PN='" & Cmb_Part.Value & "'"
db.Execute upDt
MsgBox "kolom ada " & upDt
Exit For
Else
b = 0
End If
' db.Execute "Update OUT " & _
"SET 09_Nov_11 = " & _
"'20'" & _
" WHERE PN=" & _
"'7034-1306'" '& ";"
Next Rsk
a = a + 1
MsgBox "baris ada"
End If
rst.MoveNext
Wend
If b = 0 Then

adDt = txt_tgl.Value
rst.Fields.Append adt, adNumeric
upDt = "Update OUT SET " & txt_Out.Value & " = '" & txt_Out.Value & "' WHERE PN=" & Cmb_Part.Value & ";"
db.Execute upDt
MsgBox "kolom baru saja di tambah"
End If
If a = 0 Then
MsgBox "Boz data belum ada lhooo", vbInformation
' lbl_database.Visible = True
End If
db.Close
Set db = Nothing
Set rst = Nothing
Set Rsk = Nothing
End Sub

Terimakasih
Best Regard
<>.<>.<>.<>.<>.<>.
sidoel

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (19)
3c.

Re: Tambah kolom di database

Posted by: "Kid Mr." mr.nmkid@gmail.com   nmkid.family@ymail.com

Mon Nov 28, 2011 7:29 pm (PST)



mungkin isian di txt_tgl tidak sesuai aturan penamaan kolom.
Coba cek di ms acccess, apa saja rules-nya.

Kid.

On Tue, Nov 29, 2011 at 10:18, ppc lambda <ppc_03@sami.co.id> wrote:

> **
>
>
> **
> Mr kid dan master yang lain saya menemui jala buntu
> saya menggunakan code dibawah namun tidak menambah kolom, padahal di tabel
> OUT tidak ada nama kolom yang sesui denagn textbox
> nama tabel " OUT ",nama kolom yang di tambah sesuai textbox "
> txt_tgl.Value "
> mohon bantuannya
> Dim adDt As String
> adDt = "ALTER TABLE OUT ADD COLUMN " & txt_tgl.Value & " NUMERIC"
> Err.Clear
> On Error Resume Next
> db.Execute adDt
> If Err.Number <> 0 Then
> Err.Clear
> db.Execute adDt
> MsgBox "kolom tanggal sudah ada. >" & txt_tgl.Value
> End If
>
>
> Terimakasih
> Best Regard
> <>.<>.<>.<>.<>.<>.
> @bdul
> SAMI -*- Planning Production Control
> Lambda
>
> ----- Original Message -----
> *From:* Kid Mr. <mr.nmkid@gmail.com>
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Monday, November 28, 2011 4:04 PM
> *Subject:* Re: [belajar-excel] Tambah kolom di database
>
>
>
> Coba pelajari SQL dengan lebih detil lagi pada jenis DDL (Data Definition
> Language).
> Untuk mengubah struktur tabel, gunakan Alter Table
>
> misal sudah ada object koneksi db menggunakan ADODB
> maka bisa susun query alter table dan eksekusi langsung.
> Contoh :
>
> db.Execute "ALTER TABLE myTable ADD COLUMN myUmur NUMERIC"
> db.Execute "ALTER TABLE myTable ADD COLUMN myAlamat TEXT[250]"
>
> Jika kolom sudah ada, maka akan muncul error.
> Dengan memberi error handler, maka error bisa di trap dan diganti dengan
> sebuah pesan, misal
>
> Err.Clear
> On Error Resume Next
> db.Execute "ALTER TABLE myTable ADD COLUMN myUmur NUMERIC"
> IF Err.Number<>0 Then
> err.clear
> msgbox "kolom myUmur sudah ada."
> endif
>
> Wassalamualaikum Wr. Wb.
> Kid.
>
>
> On Sat, Nov 26, 2011 at 16:06, ppc lambda <ppc_03@sami.co.id> wrote:
>
>> **
>>
>>
>> **
>>
>> para pakar Excel mohon bantuannya
>> permasalahannya adalah perintah ( rst.Fields.Append adt, adNumeric
>> ) pada kode dibawah tidak bisa menambah kolom pada database Access
>>
>> sudilah kiranya para pakar membantu menyelesaikan permasalahan ini
>> terimakasih
>> Private Sub Cmd_Out_Click()
>> Dim upDt As String, adDt As String, b As Long
>> a = 0
>> b = 0
>> Set rst = New ADODB.Recordset
>> sDBCon = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
>> "Data Source=" & ThisWorkbook.Path & "\db1.mdb" & ";"
>> Set db = New ADODB.Connection
>> db.Open sDBCon
>> rst.Open "OUT", db
>> rst.MoveFirst
>> While Not rst.EOF
>> If InStr(LCase$(Trim$(rst.Fields("PN").Value)),
>> LCase$(Trim$(Cmb_Part.Value))) Then
>> For Each Rsk In rst.Fields
>> If InStr(LCase$(Trim$(Rsk.Name)), LCase$(Trim$(txt_tgl.Value)))
>> Then
>> b = 1
>> upDt = "Update OUT SET " & Rsk.Name & " = '" & txt_Out.Value & "'
>> WHERE PN='" & Cmb_Part.Value & "'"
>> db.Execute upDt
>> MsgBox "kolom ada " & upDt
>> Exit For
>> Else
>> b = 0
>> End If
>> ' db.Execute "Update OUT " & _
>> "SET 09_Nov_11 = " & _
>> "'20'" & _
>> " WHERE PN=" & _
>> "'7034-1306'" '& ";"
>> Next Rsk
>> a = a + 1
>> MsgBox "baris ada"
>> End If
>> rst.MoveNext
>> Wend
>> If b = 0 Then
>>
>> adDt = txt_tgl.Value
>> rst.Fields.Append adt, adNumeric
>> upDt = "Update OUT SET " & txt_Out.Value & " = '" & txt_Out.Value
>> & "' WHERE PN=" & Cmb_Part.Value & ";"
>> db.Execute upDt
>> MsgBox "kolom baru saja di tambah"
>> End If
>> If a = 0 Then
>> MsgBox "Boz data belum ada lhooo", vbInformation
>> ' lbl_database.Visible = True
>> End If
>> db.Close
>> Set db = Nothing
>> Set rst = Nothing
>> Set Rsk = Nothing
>> End Sub
>>
>>
>> Terimakasih
>> Best Regard
>> <>.<>.<>.<>.<>.<>.
>> sidoel
>>
>>
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (19)
3d.

Re: Tambah kolom di database

Posted by: "ppc lambda" ppc_03@sami.co.id

Mon Nov 28, 2011 7:44 pm (PST)



di txt_tgl.value saya menuliskan 10_Nov_11 hasilnya gagal dan di tabel OUT saya menambahkan kolom secara manual dengan nama kolom 09_Nov_11 dan itu berhasil
saya juga mencoba mengetikkan txt_tgl.value dengan huruf A itu juga gagal

mohon bantuannya

Terimakasih
Best Regard
<>.<>.<>.<>.<>.<>.
Sidoel
----- Original Message -----
From: Kid Mr.
To: belajar-excel@yahoogroups.com
Sent: Tuesday, November 29, 2011 10:28 AM
Subject: Re: [belajar-excel] Tambah kolom di database

mungkin isian di txt_tgl tidak sesuai aturan penamaan kolom.
Coba cek di ms acccess, apa saja rules-nya.

Kid.

On Tue, Nov 29, 2011 at 10:18, ppc lambda <ppc_03@sami.co.id> wrote:

Mr kid dan master yang lain saya menemui jala buntu
saya menggunakan code dibawah namun tidak menambah kolom, padahal di tabel OUT tidak ada nama kolom yang sesui denagn textbox
nama tabel " OUT ",nama kolom yang di tambah sesuai textbox " txt_tgl.Value "
mohon bantuannya
Dim adDt As String
adDt = "ALTER TABLE OUT ADD COLUMN " & txt_tgl.Value & " NUMERIC"
Err.Clear
On Error Resume Next

db.Execute adDt
If Err.Number <> 0 Then
Err.Clear
db.Execute adDt
MsgBox "kolom tanggal sudah ada. >" & txt_tgl.Value
End If

Terimakasih
Best Regard
<>.<>.<>.<>.<>.<>.

@bdul
SAMI -*- Planning Production Control
Lambda
----- Original Message -----
From: Kid Mr.
To: belajar-excel@yahoogroups.com
Sent: Monday, November 28, 2011 4:04 PM
Subject: Re: [belajar-excel] Tambah kolom di database

Coba pelajari SQL dengan lebih detil lagi pada jenis DDL (Data Definition Language).
Untuk mengubah struktur tabel, gunakan Alter Table

misal sudah ada object koneksi db menggunakan ADODB
maka bisa susun query alter table dan eksekusi langsung.
Contoh :

db.Execute "ALTER TABLE myTable ADD COLUMN myUmur NUMERIC"
db.Execute "ALTER TABLE myTable ADD COLUMN myAlamat TEXT[250]"

Jika kolom sudah ada, maka akan muncul error.
Dengan memberi error handler, maka error bisa di trap dan diganti dengan sebuah pesan, misal

Err.Clear
On Error Resume Next
db.Execute "ALTER TABLE myTable ADD COLUMN myUmur NUMERIC"
IF Err.Number<>0 Then
err.clear
msgbox "kolom myUmur sudah ada."
endif

Wassalamualaikum Wr. Wb.
Kid.

On Sat, Nov 26, 2011 at 16:06, ppc lambda <ppc_03@sami.co.id> wrote:

para pakar Excel mohon bantuannya
permasalahannya adalah perintah ( rst.Fields.Append adt, adNumeric
) pada kode dibawah tidak bisa menambah kolom pada database Access

sudilah kiranya para pakar membantu menyelesaikan permasalahan ini
terimakasih
Private Sub Cmd_Out_Click()
Dim upDt As String, adDt As String, b As Long
a = 0
b = 0
Set rst = New ADODB.Recordset
sDBCon = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & ThisWorkbook.Path & "\db1.mdb" & ";"
Set db = New ADODB.Connection
db.Open sDBCon
rst.Open "OUT", db
rst.MoveFirst
While Not rst.EOF
If InStr(LCase$(Trim$(rst.Fields("PN").Value)), LCase$(Trim$(Cmb_Part.Value))) Then
For Each Rsk In rst.Fields
If InStr(LCase$(Trim$(Rsk.Name)), LCase$(Trim$(txt_tgl.Value))) Then
b = 1
upDt = "Update OUT SET " & Rsk.Name & " = '" & txt_Out.Value & "' WHERE PN='" & Cmb_Part.Value & "'"
db.Execute upDt
MsgBox "kolom ada " & upDt
Exit For
Else
b = 0
End If
' db.Execute "Update OUT " & _
"SET 09_Nov_11 = " & _
"'20'" & _
" WHERE PN=" & _
"'7034-1306'" '& ";"
Next Rsk
a = a + 1
MsgBox "baris ada"
End If
rst.MoveNext
Wend
If b = 0 Then

adDt = txt_tgl.Value
rst.Fields.Append adt, adNumeric
upDt = "Update OUT SET " & txt_Out.Value & " = '" & txt_Out.Value & "' WHERE PN=" & Cmb_Part.Value & ";"
db.Execute upDt
MsgBox "kolom baru saja di tambah"
End If
If a = 0 Then
MsgBox "Boz data belum ada lhooo", vbInformation
' lbl_database.Visible = True
End If
db.Close
Set db = Nothing
Set rst = Nothing
Set Rsk = Nothing
End Sub

Terimakasih
Best Regard
<>.<>.<>.<>.<>.<>.
sidoel

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (19)
3e.

Re: Tambah kolom di database

Posted by: "Kid Mr." mr.nmkid@gmail.com   nmkid.family@ymail.com

Mon Nov 28, 2011 7:47 pm (PST)



Pastikan database sedang tidak dibuka (dalam keadaan tertutup).
Jika masih error, coba non aktifkan baris on error resume next.
Coba run lagi, dan tulis pesan errornya (copas juga bisa).

Jika mau coba lagi sambil menunggu perkiraan penyebab errornya,
coba query alter table menjadi :
ALTER TABLE [OUT] ADD COLUMN " & txt_tgl.Value & " NUMERIC

Kid.

2011/11/29 ppc lambda <ppc_03@sami.co.id>

> ALTER TABLE OUT ADD COLUMN " & txt_tgl.Value & " NUMERIC
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (19)
3f.

Re: Tambah kolom di database

Posted by: "jkssxls" jkssxls@hotmail.com   jkssbma

Mon Nov 28, 2011 8:31 pm (PST)



Private Sub CommandButtonDeleteField_Click()

Err.Clear

On Error Resume Next

Set rst = New ADODB.Recordset

sDBCon = "Provider=Microsoft.Jet.OLEDB.4.0;" & _

"Data Source=" & ThisWorkbook.Path & "\db1.mdb" & ";"

Set db = New ADODB.Connection

db.Open sDBCon

If Me.TextBoxNumeric <> "" Then db.Execute "ALTER TABLE OUT drop COLUMN
" & Me.TextBoxNumeric

If Me.TextBoxText <> "" Then db.Execute "ALTER TABLE out drop COLUMN " &
Me.TextBoxText

If Err.Number <> 0 Then

Err.Clear

MsgBox "kolom myUmur sudah ada."

End If

db.Close

End Sub

Private Sub CommandButtonTambah_Click()

Err.Clear

On Error Resume Next

Set rst = New ADODB.Recordset

sDBCon = "Provider=Microsoft.Jet.OLEDB.4.0;" & _

"Data Source=" & ThisWorkbook.Path & "\db1.mdb" & ";"

Set db = New ADODB.Connection

db.Open sDBCon

If Me.TextBoxNumeric <> "" Then db.Execute "ALTER TABLE OUT ADD COLUMN "
& Me.TextBoxNumeric & " NUMERIC"

If Me.TextBoxText <> "" Then db.Execute "ALTER TABLE out ADD COLUMN " &
Me.TextBoxText & " Text(250)"

If Err.Number <> 0 Then

Err.Clear

MsgBox "kolom myUmur sudah ada."

End If

db.Close

End Sub

Me.TextBoxNumeric atau Me.TextBoxNumeric.value tetap berjalan dgn OK

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of ppc lambda
Sent: Tuesday, November 29, 2011 10:19 AM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Tambah kolom di database

Mr kid dan master yang lain saya menemui jala buntu

saya menggunakan code dibawah namun tidak menambah kolom, padahal di tabel
OUT tidak ada nama kolom yang sesui denagn textbox

nama tabel " OUT ",nama kolom yang di tambah sesuai textbox " txt_tgl.Value
"

mohon bantuannya

Dim adDt As String

adDt = "ALTER TABLE OUT ADD COLUMN " & txt_tgl.Value & " NUMERIC"

Err.Clear
On Error Resume Next
db.Execute adDt
If Err.Number <> 0 Then
Err.Clear
db.Execute adDt
MsgBox "kolom tanggal sudah ada. >" & txt_tgl.Value
End If

Terimakasih
Best Regard
<>.<>.<>.<>.<>.<>.
@bdul
SAMI -*- Planning Production Control
Lambda

----- Original Message -----

From: Kid Mr. <mailto:mr.nmkid@gmail.com>

To: belajar-excel@yahoogroups.com

Sent: Monday, November 28, 2011 4:04 PM

Subject: Re: [belajar-excel] Tambah kolom di database

Coba pelajari SQL dengan lebih detil lagi pada jenis DDL (Data Definition
Language).
Untuk mengubah struktur tabel, gunakan Alter Table

misal sudah ada object koneksi db menggunakan ADODB
maka bisa susun query alter table dan eksekusi langsung.
Contoh :

db.Execute "ALTER TABLE myTable ADD COLUMN myUmur NUMERIC"
db.Execute "ALTER TABLE myTable ADD COLUMN myAlamat TEXT[250]"

Jika kolom sudah ada, maka akan muncul error.
Dengan memberi error handler, maka error bisa di trap dan diganti dengan
sebuah pesan, misal

Err.Clear
On Error Resume Next
db.Execute "ALTER TABLE myTable ADD COLUMN myUmur NUMERIC"
IF Err.Number<>0 Then
err.clear
msgbox "kolom myUmur sudah ada."
endif

Wassalamualaikum Wr. Wb.
Kid.

On Sat, Nov 26, 2011 at 16:06, ppc lambda <ppc_03@sami.co.id> wrote:

para pakar Excel mohon bantuannya

permasalahannya adalah perintah ( rst.Fields.Append adt, adNumeric
) pada kode dibawah tidak bisa menambah kolom pada database Access

sudilah kiranya para pakar membantu menyelesaikan permasalahan ini

terimakasih

Private Sub Cmd_Out_Click()
Dim upDt As String, adDt As String, b As Long
a = 0
b = 0
Set rst = New ADODB.Recordset
sDBCon = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & ThisWorkbook.Path & "\db1.mdb" & ";"
Set db = New ADODB.Connection
db.Open sDBCon
rst.Open "OUT", db
rst.MoveFirst
While Not rst.EOF
If InStr(LCase$(Trim$(rst.Fields("PN").Value)),
LCase$(Trim$(Cmb_Part.Value))) Then
For Each Rsk In rst.Fields
If InStr(LCase$(Trim$(Rsk.Name)), LCase$(Trim$(txt_tgl.Value))) Then
b = 1
upDt = "Update OUT SET " & Rsk.Name & " = '" & txt_Out.Value & "'
WHERE PN='" & Cmb_Part.Value & "'"
db.Execute upDt
MsgBox "kolom ada " & upDt
Exit For
Else
b = 0
End If
' db.Execute "Update OUT " & _
"SET 09_Nov_11 = " & _
"'20'" & _
" WHERE PN=" & _
"'7034-1306'" '& ";"
Next Rsk
a = a + 1
MsgBox "baris ada"
End If
rst.MoveNext
Wend
If b = 0 Then

adDt = txt_tgl.Value
rst.Fields.Append adt, adNumeric
upDt = "Update OUT SET " & txt_Out.Value & " = '" & txt_Out.Value &
"' WHERE PN=" & Cmb_Part.Value & ";"
db.Execute upDt
MsgBox "kolom baru saja di tambah"
End If
If a = 0 Then
MsgBox "Boz data belum ada lhooo", vbInformation
' lbl_database.Visible = True
End If
db.Close
Set db = Nothing
Set rst = Nothing
Set Rsk = Nothing
End Sub

Terimakasih
Best Regard
<>.<>.<>.<>.<>.<>.
sidoel

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (19)
3g.

Re: Tambah kolom di database

Posted by: "ppc lambda" ppc_03@sami.co.id

Mon Nov 28, 2011 11:26 pm (PST)



mr kid masih terjadi error
berikut Debug nya

Terimakasih atas solusinya
Best Regard
<>.<>.<>.<>.<>.<>.
@bdul
SAMI -*- Planning Production Control
Lambda
----- Original Message -----
From: Kid Mr.
To: belajar-excel@yahoogroups.com
Sent: Tuesday, November 29, 2011 10:47 AM
Subject: Re: [belajar-excel] Tambah kolom di database

Pastikan database sedang tidak dibuka (dalam keadaan tertutup).
Jika masih error, coba non aktifkan baris on error resume next.
Coba run lagi, dan tulis pesan errornya (copas juga bisa).

Jika mau coba lagi sambil menunggu perkiraan penyebab errornya,
coba query alter table menjadi :
ALTER TABLE [OUT] ADD COLUMN " & txt_tgl.Value & " NUMERIC

Kid.

2011/11/29 ppc lambda <ppc_03@sami.co.id>

ALTER TABLE OUT ADD COLUMN " & txt_tgl.Value & " NUMERIC

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (19)
3h.

Re: Tambah kolom di database

Posted by: "Kid Mr." mr.nmkid@gmail.com   nmkid.family@ymail.com

Mon Nov 28, 2011 11:29 pm (PST)



errornya bilang, tabelnya masih diapakai user lain, alias di-lock oleh user
lain.
udah dicoba tutup database yang dibuka dengan access ?
coba dilakukan, termasuk dari semua komputer.

Kid.

2011/11/29 ppc lambda <ppc_03@sami.co.id>

> **
>
>
> **
> mr kid masih terjadi error
> berikut Debug nya
>
>
> Terimakasih atas solusinya
>
> Best Regard
> <>.<>.<>.<>.<>.<>.
> @bdul
> SAMI -*- Planning Production Control
> Lambda
>
> ----- Original Message -----
> *From:* Kid Mr. <mr.nmkid@gmail.com>
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Tuesday, November 29, 2011 10:47 AM
> *Subject:* Re: [belajar-excel] Tambah kolom di database
>
>
>
> Pastikan database sedang tidak dibuka (dalam keadaan tertutup).
> Jika masih error, coba non aktifkan baris on error resume next.
> Coba run lagi, dan tulis pesan errornya (copas juga bisa).
>
> Jika mau coba lagi sambil menunggu perkiraan penyebab errornya,
> coba query alter table menjadi :
> ALTER TABLE [OUT] ADD COLUMN " & txt_tgl.Value & " NUMERIC
>
>
> Kid.
>
> 2011/11/29 ppc lambda <ppc_03@sami.co.id>
>
>> ALTER TABLE OUT ADD COLUMN " & txt_tgl.Value & " NUMERIC
>
>
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (19)
3i.

Re: Tambah kolom di database

Posted by: "ppc lambda" ppc_03@sami.co.id

Tue Nov 29, 2011 12:36 am (PST)



terimakasih pak jkssxls
koding dari bapak yang berhasil menambah kolom
Mr kid terimakasih atas ilmunya
namun saya masih penasaran, kenapa yang berhasil kode dari pak jkssxls padahal kode nya sama dengan Mr kid

Terimakasih
Best Regard
<>.<>.<>.<>.<>.<>.
Sidoel
----- Original Message -----
From: jkssxls
To: belajar-excel@yahoogroups.com
Sent: Tuesday, November 29, 2011 11:25 AM
Subject: RE: [belajar-excel] Tambah kolom di database

Private Sub CommandButtonDeleteField_Click()

Err.Clear

On Error Resume Next

Set rst = New ADODB.Recordset

sDBCon = "Provider=Microsoft.Jet.OLEDB.4.0;" & _

"Data Source=" & ThisWorkbook.Path & "\db1.mdb" & ";"

Set db = New ADODB.Connection

db.Open sDBCon

If Me.TextBoxNumeric <> "" Then db.Execute "ALTER TABLE OUT drop COLUMN " & Me.TextBoxNumeric

If Me.TextBoxText <> "" Then db.Execute "ALTER TABLE out drop COLUMN " & Me.TextBoxText

If Err.Number <> 0 Then

Err.Clear

MsgBox "kolom myUmur sudah ada."

End If

db.Close

End Sub

Private Sub CommandButtonTambah_Click()

&nb sp; Err.Clear

On Error Resume Next

Set rst = New ADODB.Recordset

sDBCon = "Provider=Microsoft.Jet.OLEDB.4.0;" & _

"Data Source=" & ThisWorkbook.Path & "\db1.mdb" & ";"

Set db = New ADODB.Connection

db.Open sDBCon

If Me.TextBoxNumeric <> "" Then db.Execute "ALTER TABLE OUT ADD COLUMN " & Me.TextBoxNumeric & " NUMERIC"

If Me.TextBoxText <> "" Then db.Execute "ALTER TABLE out ADD COLUMN " & Me.TextBoxText & " Text(250)"

If Err.Number <> 0 Then

Err.Clear

MsgBox "kolom myUmur sudah ada."

End If

db.Close

End Sub

Me.TextBoxNumeric atau Me.TextBoxNumeric.value tetap berjalan dgn OK

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of ppc lambda
Sent: Tuesday, November 29, 2011 10:19 AM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Tambah kolom di database

Mr kid dan master yang lain saya menemui jala buntu

saya menggunakan code dibawah namun tidak menambah kolom, padahal di tabel OUT tidak ada nama kolom yang sesui denagn textbox

nama tabel " OUT ",nama kolom yang di tambah sesuai textbox " txt_tgl.Value "

mohon bantuannya

Dim adDt As String

adDt = "ALTER TABLE OUT ADD COLUMN " & txt_tgl.Value & " NUMERIC"

Err.Clear
On Error Resume Next
db.Execute adDt
If Err.Number <> 0 Then
Err.Clear
db.Execute adDt
MsgBox "kolom tanggal sudah ada. >" & txt_tgl.Value
End If

Terimakasih
Best Regard
<>.<>.<>.<>.<>.<>.
@bdul
SAMI -*- Planning Production Control
Lambda

----- Original Message -----

From: Kid Mr.

To: belajar-excel@yahoogroups.com

Sent: Monday, November 28, 2011 4:04 PM

Subject: Re: [belajar-excel] Tambah kolom di database

Coba pelajari SQL dengan lebih detil lagi pada jenis DDL (Data Definition Language).
Untuk mengubah struktur tabel, gunakan Alter Table

misal sudah ada object koneksi db menggunakan ADODB
maka bisa susun query alter table dan eksekusi langsung.
Contoh :

db.Execute "ALTER TABLE myTable ADD COLUMN myUmur NUMERIC"
db.Execute "ALTER TABLE myTable ADD COLUMN myAlamat TEXT[250]"

Jika kolom sudah ada, maka akan muncul error.
Dengan memberi error handler, maka error bisa di trap dan diganti dengan sebuah pesan, misal

Err.Clear
On Error Resume Next
db.Execute "ALTER TABLE myTable ADD COLUMN myUmur NUMERIC"
IF Err.Number<>0 Then
err.clear
msgbox "kolom myUmur sudah ada."
endif

Wassalamualaikum Wr. Wb.
Kid.

On Sat, Nov 26, 2011 at 16:06, ppc lambda <ppc_03@sami.co.id> wrote:

para pakar Excel mohon bantuannya

permasalahannya adalah perintah ( rst.Fields.Append adt, adNumeric
) pada kode dibawah tidak bisa menambah kolom pada database Access

sudilah kiranya para pakar membantu menyelesaikan permasalahan ini

terimakasih

Private Sub Cmd_Out_Click()
Dim upDt As String, adDt As String, b As Long
a = 0
b = 0
Set rst = New ADODB.Recordset
sDBCon = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & ThisWorkbook.Path & "\db1.mdb" & ";"
Set db = New ADODB.Connection
db.Open sDBCon
rst.Open "OUT", db
rst.MoveFirst
While Not rst.EOF
If InStr(LCase$(Trim$(rst.Fields("PN").Value)), LC ase$(Trim$(Cmb_Part.Value))) Then
For Each Rsk In rst.Fields
If InStr(LCase$(Trim$(Rsk.Name)), LCase$(Trim$(txt_tgl.Value))) Then
b = 1
upDt = "Update OUT SET " & Rsk.Name & " = '" & txt_Out.Value & "' WHERE PN='" & Cmb_Part.Value & "'"
db.Execute upDt
MsgBox "kolom ada " & upDt
Exit For
Else
b = 0
End If
' db.Execute "Update OUT " & _
; "SET 09_Nov_11 = " & _
"'20'" & _
" WHERE PN=" & _
"'7034-1306'" '& ";"
Next Rsk
a = a + 1
MsgBox "baris ada"
End If
rst.MoveN ext
Wend
If b = 0 Then

adDt = txt_tgl.Value
rst.Fields.Append adt, adNumeric
upDt = "Update OUT SET " & txt_Out.Value & " = '" & txt_Out.Value & "' WHERE PN=" & Cmb_Part.Value & ";"
db.Execute upDt
MsgBox "kolom baru saja di tambah"
End If
If a = 0 Then
MsgBox "Boz data belum ada lhooo", vbInformation
' lbl_database.Visible = Tru e
End If
db.Close
Set db = Nothing
Set rst = Nothing
Set Rsk = Nothing
End Sub

Terimakasih
Best Regard
<>.<>.<>.<>.<>.<>.
sidoel

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (19)
3j.

Re: Tambah kolom di database

Posted by: "ppc lambda" ppc_03@sami.co.id

Tue Nov 29, 2011 12:36 am (PST)



Mr kid database saya letakkan di Dekstop dan tidak di Share sedangkan di komputer lokal tidak terbuka namun masih terjadi debug seperti itu

Terimakasih atas solusinya
Best Regard
<>.<>.<>.<>.<>.<>.
Sidoel
----- Original Message -----
From: Kid Mr.
To: belajar-excel@yahoogroups.com
Sent: Tuesday, November 29, 2011 2:28 PM
Subject: Re: [belajar-excel] Tambah kolom di database

errornya bilang, tabelnya masih diapakai user lain, alias di-lock oleh user lain.
udah dicoba tutup database yang dibuka dengan access ?
coba dilakukan, termasuk dari semua komputer.

Kid.

2011/11/29 ppc lambda <ppc_03@sami.co.id>

mr kid masih terjadi error
berikut Debug nya

Terimakasih atas solusinya

Best Regard
<>.<>.<>.<>.<>.<>.
@bdul
SAMI -*- Planning Production Control
Lambda
----- Original Message -----
From: Kid Mr.
To: belajar-excel@yahoogroups.com
Sent: Tuesday, November 29, 2011 10:47 AM
Subject: Re: [belajar-excel] Tambah kolom di database

Pastikan database sedang tidak dibuka (dalam keadaan tertutup).
Jika masih error, coba non aktifkan baris on error resume next.
Coba run lagi, dan tulis pesan errornya (copas juga bisa).

Jika mau coba lagi sambil menunggu perkiraan penyebab errornya,
coba query alter table menjadi :
ALTER TABLE [OUT] ADD COLUMN " & txt_tgl.Value & " NUMERIC

Kid.

2011/11/29 ppc lambda <ppc_03@sami.co.id>

ALTER TABLE OUT ADD COLUMN " & txt_tgl.Value & " NUMERIC

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (19)
4.

membuat buku manual di excel dan hyperlink ke word

Posted by: "neza ibaneza" nezaibaneza@yahoo.co.id   nezaibaneza

Mon Nov 28, 2011 6:57 pm (PST)



Dear all master XL,
specially to Master Siti & Master KID

sory baru nongol lagi nih..
ada materi yang pernah mirip-mirip dengan hal yang ingin saya buat sekarang.
saya mau buat manual book di excel sesuai lampiran, terus setiap klik judul tulisan
pada sheet home langsung mengarah pada cell judul tulisan di sheet introducing.
pertanyaan kedua : gimana kalau hyperlink ke word dengan model sistem yang sama.

Regards
Neza
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (1)
5.

Tanya agar file excel tidak bisa di delete

Posted by: "Asror Al-Aliif's" asrorcakep@yahoo.com   asrorcakep

Mon Nov 28, 2011 11:26 pm (PST)



Dear All,

Mau tanya lagi seputar excel, pastinyaa,...
Saya punya file excel, bagaimana agar file excel tersebut tidak bisa di hapus dari PC? Atau ketika file mau dihapus, itu harus menggunakan password?
Terimakasih,

Asror

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (1)
6a.

Mebuka dan meng copy isi file dari Banyak nama File yang mirip

Posted by: "gobang13910" gobang13910@yahoo.com   gobang13910

Tue Nov 29, 2011 5:27 am (PST)



Salam Semua,

Mohon bantuanya, sebelumnya saya cerita dulu masalah saya,(Curhat),
saya punya file contohnya file namenya : ABC_0102_01.xls tapi buanyak sampai lebih dari 100 file, dengan file name yang sama tapi belakangnya beda..heheheh, nah dari file tersebut sama mau satukan isinya.

dan yang lebih sebelnya file teresbut angka belakang tidak pernah sama

yang saya mau tanyakan dan berharap bantuanya untuk coding macronya (biar tiap hari ga pegel copy paste 100an file satu-satu)

yang saya tahu coding macro untuk buka file

Workbooks.Open Filename:="C:\data\Template\ABC_0102_01.xls

tapi selalu berubah nama belakangnya (_0102_01 => random number)

Tulung dibantu ya
Maaf kalo kepanjangan

Trimakasih Buanyak..

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)
6b.

Re: Mebuka dan meng copy isi file dari Banyak nama File yang mirip

Posted by: "Kid Mr." mr.nmkid@gmail.com   nmkid.family@ymail.com

Tue Nov 29, 2011 5:41 am (PST)



Coba manfaatkan fungsi Dir milik VB

dim sFile as string
dim wbkFile as workbook, wbkUnion as workbook

application.displayalerts=false
set wbkunion=thisworkbook

'init file pertama
sfile=dir$("C:\data\Template\ABC*.xls")
'loop mulai dari file pertama yang diproses
do while lenb(sfile)<>0
'buka filenya
set wbkfile= workbooks.open sfile,false

'proses copy paste data dari file ke hasil gabungan (union)
disini

'tutup file
wbkfile.close false

'file berikutnya
sfile=dir$
loop
application.displayalerts=true

Wassalam,
Kid.

2011/11/29 gobang13910 <gobang13910@yahoo.com>

> **
>
>
> Salam Semua,
>
> Mohon bantuanya, sebelumnya saya cerita dulu masalah saya,(Curhat),
> saya punya file contohnya file namenya : ABC_0102_01.xls tapi buanyak
> sampai lebih dari 100 file, dengan file name yang sama tapi belakangnya
> beda..heheheh, nah dari file tersebut sama mau satukan isinya.
>
> dan yang lebih sebelnya file teresbut angka belakang tidak pernah sama
>
> yang saya mau tanyakan dan berharap bantuanya untuk coding macronya (biar
> tiap hari ga pegel copy paste 100an file satu-satu)
>
> yang saya tahu coding macro untuk buka file
>
> Workbooks.Open Filename:="C:\data\Template\ABC_0102_01.xls
>
> tapi selalu berubah nama belakangnya (_0102_01 => random number)
>
> Tulung dibantu ya
> Maaf kalo kepanjangan
>
> Trimakasih Buanyak..
>
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)
Recent Activity
Visit Your Group
Yahoo! Groups

Mental Health Zone

Mental Health

Learn More

Yahoo! Finance

It's Now Personal

Guides, news,

advice & more.

Yahoo! Groups

Parenting Zone

Community resources

for parents

Need to Reply?

Click one of the "Reply" links to respond to a specific message in the Daily Digest.

Create New Topic | Visit Your Group on the Web
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com

posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com

berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages

melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/

menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com

keluar dari membership milis (UnSubscribe):
kirim mail kosong ke  belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
MARKETPLACE

Stay on top of your group activity without leaving the page you're on - Get the Yahoo! Toolbar now.

Diposting oleh EXCEL FEED LEARNING di 06.20

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)