Desain adalah seni terapan, arsitektur, dan berbagai pencapaian kreatif lainnya yang melibatkan penataan garis, bentuk, ukuran, warna, dan nilai suatu objek berdasarkan prinsip-prinsip tertentu. Nih saya wong nga jelas membuat beberapa design yang asal-asalan yang penting mah upload aja lah: Design One Day Ful Color 1 Design One Day Ful Color 2 Jadi gimana guys... Jenis design yang saya buat dengan menggunakan app Corel draw , font dengan paduan warna yang asal-asalan ini, keren, menawan dan tentunya sangat memanjakan mata saat dipandang dengan menggunakan sedopan..
Wong Gaptex Nulis Artikel Blog gratisan..!!!
Petuah Si MBOK Ku
" Jadilah Pahlawan walau selalu dibilang pahlawan kesiangan "
He,e,e lebih baik jadi pahlawan kesiangan daripada jadi orang kesurupan.
Tahap pertama buatlah terlebih dahulu tabel master didatabase yang fungsinya untuk menampung data yang diambil dari microsoft excel. Untuk masalah pembuatan tabel master bisa juga langsung dari Microsoft Acces atau bisa juga di import dari data yang sudah dibuat di microsoft excel. Klik Link back DISINI untuk melihat proses import data excel ke Acces, jika sudah paham dan memahaminya abaikan saja tautan link tersebut (nda do guno). Sedikit admin membahasnya cara membuat tabel langsung dari Microsoft Acces 2010, sebagai berikut ini :
Pilih create >> Design Table atau tabel, namun dalam tutorial ini admin memilih design table maka tampil seperti gambar berikutnya.
Gambar dibawah adalah tampilan Design table, perhatian angka 1 ada kolom yang sudah disediakan untuk menamai field name, angka 2 kolom untuk membuat Type Data yang akan ditentukan dan discripsi saya kosongkan.
Gambar dibawah adalah tampilan Design table, perhatian angka 1 ada kolom yang sudah disediakan untuk menamai field name, angka 2 kolom untuk membuat Type Data yang akan ditentukan dan discripsi saya kosongkan.
Ditutorial ini admin membuat field Name dengan struktur : Nama, Alamat, Bagian dan untuk Type Data admin memilih Texs dengan totalsize 225 karakter. Angka 3 tombol untuk keluar dari desaign tabel, jika data sudah dibuat sesuai dengan kebutuhan.
Simpanlah data tabel yang sudah dibuat, biasanya tampil form pesan seperti gambar dibawah saat close dari design table penyimpanan data. Admin jelaskan maksud pesan tersebut :
1). Jika memilih tombol yes maka tabel field name akan di tambahkan Name Field ID dengan Data Type AutoNumber yang secara otomatis memberikan nomor untuk setiap isian tabel data tersebut.
2). Jika memilih tombol No maka isi tabel sama persis seperti yang kita buat. Ditutorial ini admin memilih tombol No.
Inilah tampilan data yang sudah berhasil admin buat angka 1 nama tabel yang sudah admin edit dan saya buat nama tabelnya DATA dan angka 2 adalah tampilan data pada tabel database.
Melanjut ke tahap berikutnya Buatlah form. Sebenarnya sudah banyak sekali blog atau web yang sudah membahasnya konten post seperti ini tapi bukan berarti isi pada konten post ini hasil copy paste. Ini adalah hasil ketikan pribadi. Pilih Create >> Form Design >> Ini lah tampilan form yang masih kosong yang akan saya jelaskan secara detail. Untuk menampilan property sheet pada layar form seperti gambar dibawah angka 1 dan 2, klik menu property sheet.
Gambar dibawah tersebut menu form yang sudah admin buat. Peralatan atau tools yang digunakan pada form sebagai berikut :
Melanjut ke tahap berikutnya Buatlah form. Sebenarnya sudah banyak sekali blog atau web yang sudah membahasnya konten post seperti ini tapi bukan berarti isi pada konten post ini hasil copy paste. Ini adalah hasil ketikan pribadi. Pilih Create >> Form Design >> Ini lah tampilan form yang masih kosong yang akan saya jelaskan secara detail. Untuk menampilan property sheet pada layar form seperti gambar dibawah angka 1 dan 2, klik menu property sheet.
Gambar dibawah tersebut menu form yang sudah admin buat. Peralatan atau tools yang digunakan pada form sebagai berikut :
1. Form
2.TexsBox yang akan di ubah menjadi ubound
3. Button yang akan di rubah menjadi dialog
a). Untuk membuat Form diatas tersebut , Pilih design >> TexsBox >> drag letakkan texsbox tersebut pada form seperti pada gambar dibawah, lalu ubahlah menjadi unbound.
b). Cara Mengubah TexsBox menjadi ubound, Perhatikan gambar di bawah angka 1 dan 2. Pilih texsbox >> property Sheet >> Tab menu pilih All >> Record Sheet dikosongkan seperti gambar pada angka 2. Selanjutnya admin akan membuat tombol button yang akan diubah menjadi dialog yang fungsi untuk untuk mengambil data yang sudah dibuat pada microsoft excel
c). Pembuat buton yang akan di runah menjadi tombol dialog, Pilih Button >> drag lalu letakkan pada form >> Maka tampil seperti gambar dibawah yang admin tandai angka 2 >> Pilih tombol Finish muncul tombol button dengan isi texs command lihat gambar yang ada angka 3. Perhatikan angka 4 di property sheet name dan caption ubahlah name cmdkirim dan caption terserah tapi admin memberikan name captionnya kirim.
d). Gambaran dibawah tersebut menu form yang sudah jadi. Selanjutnya admin akan memberikan aksi tombol dialog yang sudah diedit name nya cmdkirim dan caption diedit menjadi kirim. Untuk membuat Dialog tersebut berfungsi pada saat pengguna memakainya atau mengklik lihatlah pada point e).
e). Pilih Tombol Button yang sudah diubah menjadi kirim, Pilih Property sheet >> tab menu arahkan ke event >> ubah onclik menjadi embadmacro seperti contoh pada gambar dbawah >> Pilih Tombol yang ada tanda titik (...) klik maka tampil seperti gambar pada berikutnya :
f). Ini adalah tampilan form module biasanya jika pertama kali dibuka form tersebut kosong namun pada contoh gambar dibawah sudah saya isikan. Copy kan soucre code di point.212 kedalam form yang sudah dibuat.
Point. 212. Soucre Code (vba) untuk form
Option Compare Database
Private Sub cmdkirim_Click()
'Unset warnings
DoCmd.SetWarnings False
'SQL delete statement
DoCmd.RunSQL "DELETE * FROM Data"
'Import spreadsheet
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12Xml, "Data", selectFile, True
DoCmd.SetWarnings True
'Confirmation
MsgBox "Data Berhasil di Import...", vbInformation, "SELESAI"
DoCmd.Close acForm, "kirim Data ", acSaveNo
End Sub
b). Cara Mengubah TexsBox menjadi ubound, Perhatikan gambar di bawah angka 1 dan 2. Pilih texsbox >> property Sheet >> Tab menu pilih All >> Record Sheet dikosongkan seperti gambar pada angka 2. Selanjutnya admin akan membuat tombol button yang akan diubah menjadi dialog yang fungsi untuk untuk mengambil data yang sudah dibuat pada microsoft excel
c). Pembuat buton yang akan di runah menjadi tombol dialog, Pilih Button >> drag lalu letakkan pada form >> Maka tampil seperti gambar dibawah yang admin tandai angka 2 >> Pilih tombol Finish muncul tombol button dengan isi texs command lihat gambar yang ada angka 3. Perhatikan angka 4 di property sheet name dan caption ubahlah name cmdkirim dan caption terserah tapi admin memberikan name captionnya kirim.
d). Gambaran dibawah tersebut menu form yang sudah jadi. Selanjutnya admin akan memberikan aksi tombol dialog yang sudah diedit name nya cmdkirim dan caption diedit menjadi kirim. Untuk membuat Dialog tersebut berfungsi pada saat pengguna memakainya atau mengklik lihatlah pada point e).
e). Pilih Tombol Button yang sudah diubah menjadi kirim, Pilih Property sheet >> tab menu arahkan ke event >> ubah onclik menjadi embadmacro seperti contoh pada gambar dbawah >> Pilih Tombol yang ada tanda titik (...) klik maka tampil seperti gambar pada berikutnya :
f). Ini adalah tampilan form module biasanya jika pertama kali dibuka form tersebut kosong namun pada contoh gambar dibawah sudah saya isikan. Copy kan soucre code di point.212 kedalam form yang sudah dibuat.
Point. 212. Soucre Code (vba) untuk form
Option Compare Database
Private Sub cmdkirim_Click()
'Unset warnings
DoCmd.SetWarnings False
'SQL delete statement
DoCmd.RunSQL "DELETE * FROM Data"
'Import spreadsheet
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12Xml, "Data", selectFile, True
DoCmd.SetWarnings True
'Confirmation
MsgBox "Data Berhasil di Import...", vbInformation, "SELESAI"
DoCmd.Close acForm, "kirim Data ", acSaveNo
End Sub
penjelasan sedikit tentang soucre code tepat dibawah texs
"Sql Delete Statement
DoCmd.RunSQL "DELETE * FORM Data"
fungsinya jika tombol dialog di klik maka tabel di Data akan dihapus dan diganti dengan data yang diimport. Download File yang sudah jadi DISINI
Komentar
Posting Komentar