Dear Be-Exceller, Lebih jauh mengenai topik ini, untuk proses Input Alhamdulillah sudah bisa.Permasalahannya adalah untuk proses Edit dan Hapus yang masih belum ketemu caranya.Mohon pencerahannya ya. Terima kasih & Wassalam,
Harry Pada Jumat, 30 November 2012 14:40, Mr. Kid <mr.nm...@gmail.com> menulis: Pak Harry, Coba file terlampir. Syarat : 1. Ada library Microsoft ActiveX Data Object yang telah ter-install dan terdaftar dalam komputer setempat. >> Download dari Microsoft dan install 2. Tabel yang dikoneksi harus berkaidah database >> Cari pada posting-posting lama di milis tentang kaidah database 3. Menguasai bahasa SQL, terutama varian bahasa SQL yang digunakan oleh data provider. >> Cari di internet tentang SQL MS Access 4. Memahami cara penggunaan object dalam library di nomor 1 >> Cari di internet tentang ADO (bukan ADODC, tapi cukup ADO atau ADODB) 5. Memahami karakteristik data provider yang digunakan. >> Cari di internet tentang Microsoft Jet 4.0 yang digunakan dalam file terlampir atau provider yang Anda gunakan sesuai keadaan nyata dilapangan. Wassalam, Kid. 2012/11/29 Harry <hariansyah...@yahoo.com> Dear BeExceller, Lebih jauh mengenai proses penginputan data oleh banyak PC secara bersamaan, selama ini saya menggunakan proses buka tutup file data sebagaimana rumus berikut: Private Sub UserForm_Initialize() 'deklarasi variabel workbook Dim wbkA As Workbook, wbkAKTIF As Workbook 'init workbooknya Set wbkA = ThisWorkbook '--- WBK READ ONLY ??? ---' >> START Dim lTry As Long, lJeda As Long Application.ScreenUpdating = False Application.DisplayAlerts = False CobaBuka: For lTry = 1 To 20 Set wbkAKTIF = Workbooks.Open(wbkA.Path & "\DATA.xls") If wbkAKTIF.ReadOnly Then wbkAKTIF.Close False If lTry = 20 Then If MsgBox("Sudah dicoba membuka " & lTry & _ " kali, dan masih digunakan oleh instansi Excel yang lain" & vbCrLf & _ "Coba lagi ?", vbExclamation + vbYesNo, "Akses ke DATABASE PROGRAM") = vbYes Then GoTo CobaBuka Else Application.ScreenUpdating = False Exit Sub End If End If Else wbkA.Activate Exit For End If For lJeda = 1 To 100000000 Next lJeda Next lTry Application.ScreenUpdating = True '--- WBK READ ONLY ??? ---' >> END End Sub Tetapi seiring banyaknya data yang harus diinput, membuat sistem buka-tutup file data tersebut menjadi tidak efisien karena user harus bergantian melakukan proses buka-tutup file. Sebagaimana yang pernah diinformasikan oleh Mr. Kid yaitu dengan menggunakan ADO (ActiveX Data Objects) seya mengalami kesulitan untuk merealisasikan hal tersebut.Pernah saya mencoba untuk memanipulasi rumus yang pernah dibahas pada milis dengan subject : Add data from xl to Access, tetapi tidak berhasil. Besar harapan kiranya teman-teman BeExceller dapat memberikan informasi (berbagi ilmu) mengenai bagaimana caranya melakukan proses input ke file data dengan tidak adanya proses buka-tutup file data sehingga banyak PC bisa melakukan proses input secara bersamaan waktu. Terima kasih atas berkanan informasi dari teman-teman BeExceller. Wassalam, Harry N/B:* Terlampir 2 file (Master.xls & Data.xls) sebagai referensi* File-file tersebut diatas masih tersimpan pada 1 folder yang sama.* Yang diinginkan adalah file Master.xls disimpan pada folder D: sedangkan file Data.xls disimpan pada folder C:. * File Data.xls masih membutuhkan proses buka tutup* Yang diinginkan adalah file Data.xls tetap dalam keadaan terbuka tanpa proses buka tutup <!--#yiv7949801542 #yiv7949801542ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv7949801542 #yiv7949801542ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv7949801542 #yiv7949801542ygrp-mkp #yiv7949801542hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv7949801542 #yiv7949801542ygrp-mkp #yiv7949801542ads {margin-bottom:10px;}#yiv7949801542 #yiv7949801542ygrp-mkp .yiv7949801542ad {padding:0 0;}#yiv7949801542 #yiv7949801542ygrp-mkp .yiv7949801542ad p {margin:0;}#yiv7949801542 #yiv7949801542ygrp-mkp .yiv7949801542ad a {color:#0000ff;text-decoration:none;}#yiv7949801542 #yiv7949801542ygrp-sponsor #yiv7949801542ygrp-lc {font-family:Arial;}#yiv7949801542 #yiv7949801542ygrp-sponsor #yiv7949801542ygrp-lc #yiv7949801542hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv7949801542 #yiv7949801542ygrp-sponsor #yiv7949801542ygrp-lc .yiv7949801542ad {margin-bottom:10px;padding:0 0;}#yiv7949801542 #yiv7949801542actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv7949801542 #yiv7949801542activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv7949801542 #yiv7949801542activity span {font-weight:700;}#yiv7949801542 #yiv7949801542activity span:first-child {text-transform:uppercase;}#yiv7949801542 #yiv7949801542activity span a {color:#5085b6;text-decoration:none;}#yiv7949801542 #yiv7949801542activity span span {color:#ff7900;}#yiv7949801542 #yiv7949801542activity span .yiv7949801542underline {text-decoration:underline;}#yiv7949801542 .yiv7949801542attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv7949801542 .yiv7949801542attach div a {text-decoration:none;}#yiv7949801542 .yiv7949801542attach img {border:none;padding-right:5px;}#yiv7949801542 .yiv7949801542attach label {display:block;margin-bottom:5px;}#yiv7949801542 .yiv7949801542attach label a {text-decoration:none;}#yiv7949801542 blockquote {margin:0 0 0 4px;}#yiv7949801542 .yiv7949801542bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv7949801542 .yiv7949801542bold a {text-decoration:none;}#yiv7949801542 dd.yiv7949801542last p a {font-family:Verdana;font-weight:700;}#yiv7949801542 dd.yiv7949801542last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv7949801542 dd.yiv7949801542last p span.yiv7949801542yshortcuts {margin-right:0;}#yiv7949801542 div.yiv7949801542attach-table div div a {text-decoration:none;}#yiv7949801542 div.yiv7949801542attach-table {width:400px;}#yiv7949801542 div.yiv7949801542file-title a, #yiv7949801542 div.yiv7949801542file-title a:active, #yiv7949801542 div.yiv7949801542file-title a:hover, #yiv7949801542 div.yiv7949801542file-title a:visited {text-decoration:none;}#yiv7949801542 div.yiv7949801542photo-title a, #yiv7949801542 div.yiv7949801542photo-title a:active, #yiv7949801542 div.yiv7949801542photo-title a:hover, #yiv7949801542 div.yiv7949801542photo-title a:visited {text-decoration:none;}#yiv7949801542 div#yiv7949801542ygrp-mlmsg #yiv7949801542ygrp-msg p a span.yiv7949801542yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv7949801542 .yiv7949801542green {color:#628c2a;}#yiv7949801542 .yiv7949801542MsoNormal {margin:0 0 0 0;}#yiv7949801542 o {font-size:0;}#yiv7949801542 #yiv7949801542photos div {float:left;width:72px;}#yiv7949801542 #yiv7949801542photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv7949801542 #yiv7949801542photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv7949801542 #yiv7949801542reco-category {font-size:77%;}#yiv7949801542 #yiv7949801542reco-desc {font-size:77%;}#yiv7949801542 .yiv7949801542replbq {margin:4px;}#yiv7949801542 #yiv7949801542ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv7949801542 #yiv7949801542ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv7949801542 #yiv7949801542ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv7949801542 #yiv7949801542ygrp-mlmsg select, #yiv7949801542 input, #yiv7949801542 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv7949801542 #yiv7949801542ygrp-mlmsg pre, #yiv7949801542 code {font:115% monospace;}#yiv7949801542 #yiv7949801542ygrp-mlmsg * {line-height:1.22em;}#yiv7949801542 #yiv7949801542ygrp-mlmsg #yiv7949801542logo {padding-bottom:10px;}#yiv7949801542 #yiv7949801542ygrp-msg p a {font-family:Verdana;}#yiv7949801542 #yiv7949801542ygrp-msg p#yiv7949801542attach-count span {color:#1E66AE;font-weight:700;}#yiv7949801542 #yiv7949801542ygrp-reco #yiv7949801542reco-head {color:#ff7900;font-weight:700;}#yiv7949801542 #yiv7949801542ygrp-reco {margin-bottom:20px;padding:0px;}#yiv7949801542 #yiv7949801542ygrp-sponsor #yiv7949801542ov li a {font-size:130%;text-decoration:none;}#yiv7949801542 #yiv7949801542ygrp-sponsor #yiv7949801542ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv7949801542 #yiv7949801542ygrp-sponsor #yiv7949801542ov ul {margin:0;padding:0 0 0 8px;}#yiv7949801542 #yiv7949801542ygrp-text {font-family:Georgia;}#yiv7949801542 #yiv7949801542ygrp-text p {margin:0 0 1em 0;}#yiv7949801542 #yiv7949801542ygrp-text tt {font-size:120%;}#yiv7949801542 #yiv7949801542ygrp-vital ul li:last-child {border-right:none !important;}-->