MS Access : Query

1. Select Query
2. Append Query
3. Union Query
4. Crosstab Query


1. Select Query
Untuk menampilkan field-field tabel atau hubungan antar tabel, dan juga melihat manipulasi dari field-field tersebut.

Cara membuatnya :

Objects - pilih Queries - double klik Create Query in Design View
Lalu akan muncul tampilan Design View. Kemudian muncul form dialog Show Table, pilih tabel yang dikehendaki, misal tabel [kas]. Kemudian klik tombol Add. Terus pilih tabel kedua, misal
tabel [kas dit]. Kemudian klik tombol Add.
Apabila kedua tabel punya relationship, maka secara otomatis akan muncul garis relationship yang menghubungkan keduanya.
Trus, buat field-fieldnya seperti gambar dibawah. Dengan cara drag-drop atau pilih saja combonya.

Ini merupakan Design View, yang mudah sekali dibuat.

Apabila kita ingin melihat syntax sql-nya, caranya :
Menu View - pilih SQL View
Hasilnya seperti dibawah :

SELECT kas.*, Year([tanggal]) AS Expr2, [kas dit].jml, [kas dit].ket
FROM kas INNER JOIN [kas dit] ON kas.[code transaksi]=[kas dit].[kd transaksi]
WHERE (((Year([tanggal]))=2010));

Setelah itu coba kita Run, untuk melihat output-nya. Caranya.
Pada toolbar klik ! (Run). Hasilnya :

Menampilkan tabel output dengan field-field yang kita kehendaki dan kita manipulasi. Misalnya ada kolom Tahun.


2. Append Query

Untuk menambahkan record ke tabel yang diinginkan. Pada SQL syntax dicirikan dengan 'Insert Into...'

Caranya sama seperti diatas, kemudian pada Design View, klik kanan pilih Query Type - Pilih Append Query...
Akan muncul form dialog Append - pilih tabel Destination, misalnya tabel [baru] - klik tombol OK.

Maka pada Design View, akan muncul field-field yang akan dimasukkan kedalam kolom Append To. Sesuaikan field-field yang akan dimasukkan dengan output-nya. Misal Tahun, pada Append To - pilih field [Tahun]. Type datanya harus sama.

Apabila kita melihat dalam SQL View, akan tampak seperti dibawah :

INSERT INTO baru ( tahun, jml, ket )
SELECT Year([tanggal]) AS Expr2, [kas dit].jml, [kas dit].ket
FROM kas INNER JOIN [kas dit] ON kas.[code transaksi] = [kas dit].[kd transaksi]
WHERE (((Year([tanggal]))=2010));

Ket: Select kas.* seperti pada Select Query tidak dipergunakan pada Append Query.

Apabila ingin mengecek output yang akan masuk ke tabel, Menu View - pilih Datasheet View.
Kemudian Run query, maka tabel [baru] secara otomatis akan bertambah record-nya sesuai yang ditampilkan pada Datasheet View.

Futsal Musholla Al-Furqon vs RT 4/3 Cikiwul 6-6

Ini merupakan Pertandingan Derby Madonina, peringkat pertama melawan kedua klasemen sementara. pertandingan ini menunjukkan kelasnya, setelah pertandingan dimulai, pertandingan berjalan alot, masing2 sulit utk mencetak gol. Cukup lama keadaan tanpa gol, sampai akhirnya tim tuan rumah, RT 4/3 Ckw menjebol gawang al-Furqon. Sebenarnya ball possession al-Furqon diatas angin, namun berhubung gawang lawan dijaga oleh bek yang sangat piawai, kemudian ditambah kecolongan pemain belakangnya sehingga al-Furqon kebobolan lebih dulu.
Pemain belakang tim tuan rumah ini betul-betul canggih, skillnya pun cukup tinggi. Kalau dia maju sangat membahayakan gawang al-Furqon. Padahal pemain-pemain lainnya biasa-biasa, sehingga sangat wajar ball possession al-Furqon lebih tinggi. Artinya rata-rata pemain al-Furqon lebih tinggi dari tuan rumah.
Selanjutnya al-Furqon membalas gol pertama, dari tendangan kick-off oleh pak Yadi. Kemudian striker Vicky menunjukkan kelasnya dengan memborong 2 gol ke gawang tuan rumah.
Terjadilah saling menggol diantara kedua tim. Al-Furqon sempat tertinggal, sampai akhirnya pada tendangan bebas milik al-Furqon, Pak Us Us menendang langsung ke pemain termuda pada pertandingan ini yaitu Danan, kelas IV SD, anak Pak Yono, yang kebetulan posisinya di samping gawang lawan, bola membentur betisnya masuk ke arah gawang. Sehingga al-Furqon berhasil menyamakan kedudukan menjadi 6-6.

Al-Furqon : Suwantono (kiper), Darno, Eka, Danan, Us Us, Yadi, Vicky

Futsal RT 4/3 Cikiwul vs DPRa PKS Cikiwul 11-7

Lanjutan Kompetisi Futsal kembali dimulai di daerah Cikiwul. Kedua wakil dari Cikiwul terlibat pertempuran yang sangat seru.
Tim DPRa PKS Cikiwul yang dimotori oleh Dedi 'Ogi' dan Vicky terlalu lemah karena tidak didukung oleh pemain lain. Beda dengan tim lawan yang hampir semuanya bermain cukup apik dan muda-muda. Meskipun begitu mencetak 7 gol cukup bagus, mengingat pekan lalu Tim PKS Cikiwul menang WO. Dengan sumbangan gol terbesar dari Vicky (4 gol).
Dedi 'Ogi' pemain yang lebih muda, bermain dari belakang ke tengah, merupakan Man of The Match pada pertandingan ini. Umpan-umpannya banyak akurat sehingga Striker Vicky berhasil banyak mencetak gol. Meskipun, banyak peluang-peluang dari Vicky yang terlewat begitu saja. Dan tendangan geledek Ogi betul-betul cukup mematikan.

Sementara pemain lawan bermain cukup rileks, dengan banyaknya memainkan bola di kaki sendiri. Apalagi ditunjang dengan skill yang cukup tinggi.

Di menit-menit terakhir ketua RT 4/3 Cikiwul, Bapak Yandi masuk ke dalam lapangan untuk menyokong permainan warganya.

O, ya, Ketua DPRa PKS Cikiwul, Bapak Amirudin, pun turut serta menyumbang 1 gol. Beliau merupakan pemain tertua di lapangan. Namun semangat mudanya telah membangkitkan permainan anak buahnya.

Function Split : Parse String Using A Spesific Delimiter

Function Visual Basic

You can split the string "Cats,Dogs,Horses,Birds" to the substrings "Cats", "Dogs", "Horses" and "Birds".
The code below use the function 'split' that available only in VB 6.0 and above.

Private Sub Form_Load()
Dim strAnimals As String
Dim iCounter As Integer
Dim arrAnimals() As String

strAnimals = "Cats,Dogs,Horses,Birds"
'replace the "," below with your delimiter
arrAnimals = Split(strAnimals, ",")

For iCounter = LBound(arrAnimals) To UBound(arrAnimals)
MsgBox arrAnimals(iCounter)
Next

End Sub

Function For Each in Array

Dim arrKata() as string
Dim arrX as Variant ' Harus Variant

For Each arrX In arrKata
MsgBox arrX ' Menampilkan seluruh variabel array
Next

Function Jumlah Hari Kerja

Function JmlHariKerja(bln As Integer, thn As Long) As Long
'Fungsi untuk menampilkan jumlah hari kerja dg Sabtu-Minggu libur
Dim jumHari, i As Long
Dim cntr As Long
Dim DateX As Date

jumHari = TglAkhirBln(Me.txtBulan, Me.txtTahun)

For i = 1 To jumHari
DateX = DateSerial(thn, bln, i)
If Weekday(DateX, vbMonday) < 6 Then cntr = cntr + 1
Next i

JmlHariKerja = cntr
End Function

Function TglAkhirBln(bln As Integer, thn As Long) As Long
Dim TglAkhir As Long

If bln = 1 Then TglAkhir = 31
If bln = 2 Then
If thn Mod 4 = 0 Then TglAkhir = 29 Else TglAkhir = 28
End If
If bln = 3 Then TglAkhir = 31
If bln = 4 Then TglAkhir = 30
If bln = 5 Then TglAkhir = 31
If bln = 6 Then TglAkhir = 30
If bln = 7 Then TglAkhir = 31
If bln = 8 Then TglAkhir = 31
If bln = 9 Then TglAkhir = 30
If bln = 10 Then TglAkhir = 31
If bln = 11 Then TglAkhir = 30
If bln = 12 Then TglAkhir = 31
TglAkhirBln = TglAkhir
End Function

Function Position Record

Public Function PositionRecord(Tabel As String, Fild As String, Isi As Variant) As Long
'Fungsi untuk menampilkan posisi record, yang bisa berguna utk menampilkan no urut dari
'query yang dibuat

Dim rsRecord As Recordset
Dim strsql, strsql2 As String
On Error GoTo ErrHandle

strsql = "select * from " & Tabel

Set rsRecord = CurrentDb.OpenRecordset(strsql)

strsql2 = Fild & "=" & Isi
rsRecord.FindNext strsql2

PositionRecord = (rsRecord.AbsolutePosition + 1)
Exit Function

ErrHandle:
MsgBox Err.Description, vbExclamation
End Function

Musholla Al-Furqon VS Mesjid Al-Ghony 7-4

Musholla Al-Furqon (MF) kembali memetik kemenangan telak 7-4 menghadapi Mesjid Al-Ghony. Starting line-up MF kiper Suwantono, belakang Sigit - Vicky, depan Yadi - Eka. Karena diatas angin, Vicky merubah posisinya menjadi forward, sehingga gol pertama lahir dari umpan Vicky ketika berhadapan sendirian dengan kiper dioper ke Yadi di sayap kiri, gawang kosong sehingga dengan mudah Yadi mencetak gol. Gol kedua juga lahir dari umpan Vicky yang mengoper Yadi di sayap kiri. Pada pertandingan ini Yadi betul-betul tampil dalam form terbaiknya sehingga pantas dinobatkan menjadi Man of the Match (MOM). Dibuktikan dengan 3 gol (hatrick) yang dibuatnya. Gol lain dari MF dicetak Us Us (substitute/back) 1 gol dan Asep (substitute) 1 gol. Pemain lawan, Ferdian tidak mampu berbuat banyak karena cedera yang dialaminya.

DPRa PKS Mustika Jaya VS Musholla Al-Furqon 12-3

Gantian Musholla Al-Furqon yang dibantai DPRa PKS Mustika Jaya (MJ) 3-12.
Dengan berat hati kami laporkan, bermain di kandang lawan, lapangan Scudetto betul-betul membuat Musholla Al-Furqon kaget tidak berkutik. Dengan formasi awal Vicky - Us Us bek, Yadi-Sigit forward diporak-porandakan oleh tendangan pembuka dari Ferdian (MJ) yang menghasilkan gol. Kiper Suwantono kaget dan seperti belum siap menghadapi tendangan pembuka yang boleh langsung.
Karena ketinggalan 0-1 Al-Furqon berubah posisi dengan Vicky sebagai Forward. Sampai babak pertama usai kedudukan 4-2 utk MJ, dengan Vicky menyumbang 2 gol.
Pemain-pemain MJ yang banyak memungkin terjadinya pergantian pemain, sehingga banyak pemain baru yang lebih segar sehingga menyulitkan Al-Furqon. Secara umum ball possession seimbang bahkan Al-Furqon banyak memperoleh kesempatan yang disia-siakan oleh striker Vicky. Mungkin akibat cedera kaki kanannya yang masih belum pulih. Pemain-pemain MJ yang lebih muda pun dapat diimbangi oleh Al-Furqon. Dan MJ sepertinya banyak memperoleh keberuntungan memanfaatkan barisan belakang Al-Furqon yang rapuh sehingga sekali-dua kali tendang menghasilkan gol.

Musholla Al-Furqon VS DPRa PKS Mustika Jaya 10-3

Musholla Al-Furqon masih terlalu tangguh menghadapi lawannya di kandang sendiri. Dengan formasi : kiper Darno yang pada pagi ini bermain cukup cemerlang melakukan berbagai macam penyelamatan. Bek : Pambudi yang sesekali membantu penyerangan. Central sekaligus Playmaker diisi oleh Vicky. Dan kedua sayap Eka dan Yadi. Permainan praktis dikuasai oleh Musholla Al-Furqon (ball possession milik Musholla Al-Furqon). Terutama dengan kuatnya lini tengahnya yang dikomandoi oleh Vicky. Ditambah suply bola dari Pambudi. Bahkan gol pertama tercipta dari Pambudi. Dari bawah Pambudi mengoper vicky, kemudian Vicky mengoper bola ke Pambudi yang sudah berada di depan sayap sebelah kanan, sehingga bola Gol. secara umum Vicky menyumbang 2 gol, namun memberikan banyak assist. Eka dari sayap kiri berhasil menjebol gawang lawan merupakan hasil assist dari Vicky. Meskipun golnya lucu, dengan menghantam pemain lawan sampai masuk ke gawang he he. Dan pemain junior pengganti Luthfi, kelas 4 SD pun berhasil menjebol gawang hasil assist Vicky. Ketika Vicky diganti Suwantono, Pambudi mengambil alih Playmaker, praktis tidak mengubah permainan Musholla Al-Furqon yang diatas angin.

Sementara dari pihak DPRa PKS Mustika Jaya, striker Adi tidak seperti latihan yang biasa mencetak got, tidak mampu berbuat banyak. Karena supply bola dari tengan yang kurang. Beruntung ada bek palang pintu Tarka yang dengan kokoh bertahan di lini belakang sehingga PKS Mustika Jaya terhindar dari gol-gol lebih banyak lagi.

Pertarungan selanjutnya Sabtu, 17 Juli 2010 Musholla Al-Furqon harus bermain tandang ke lawan yang sama di lap. Scudetto yang merupakan stadion futsal yang lebih megah dan lebih besar dari lapangan sekarang. Tentunya pertarungan selanjutnya agak sulit bagi Musholla Al-Furqon di kandang lawan apalagi dengan banyaknya cadangan pemain lawan pekan depan.

WORK WITH TABLE

1. Create Table

In Navigation pane Objects - Tables - lebih enak pilih 'Create table in Design view'

- Untuk Data Induk sebaiknya ada Field Primary Key (caranya : toolbar pilih icon 'kunci (key)'. Gunanya sebagai identifikasi (ID Uniq) dari data yang tidak akan mungkin duplikat. Dan memudahkan pencarian data (index).

- Sebaiknya ada field ID-Autonumber. Suatu saat akan berguna nanti. Fungsinya hampir sama dengan Primary Key, hanya diisi otomatis oleh system, tdk bisa manual.

2. Validasi

Validasi berguna untuk mencegah kesalahan data yang masuk. Set property dibagian bawah.

- Validation Rule. Property bagian bawah - pilih tab 'General' - Property 'Validation Rule' misal diisi '>0'. Kalau field ini diisi kurang dari 0 maka akan ada pesan kesalahan (Property 'Validation Text')

- Required. Supaya field ini harus diisi, set required = Yes.

- Indexed. Supaya tidak terjadi duplikasi, set Indexed = Yes (No Duplicates).


2. Relationships

Relationships bisa dilakukan dengan adanya field yang sama dari dua tabel (disebut dengan foreign key).

a. One to many (satu record tabel bisa memiliki banyak record tabel anak).
- Enforce Referential Integrity : Kalau field pada tabel anak tidak ada pada induk, maka record pada tabel anak tidak akan tersimpan
- Cascade Update Related Fields : Begitu field pada Induk diubah, maka seluruh anak akan berubah.
- Cascade Delete Related Fields : Record pada induk dihapus, maka akan menghapus record-record pada anak.

Persatuan Olahraga & Kepemudaan Indonesia (POPMI)

Alhamdulillah telah berdiri sayap organisasi dibawah SMII yaitu PERSATUAN OLAHRAGA & KEPEMUDAAN MUSLIM INDONESIA (POPMI) yang bergerak di bidang olahraga dan kepemudaan. Dengan diketuai oleh Wawan Setiawan.

Visi :
1. Menyehatkan dan menguatkan jasadiah umat Islam.
2. Meningkatkan prestasi olahraga muslim.
3. Membina dan mengembangkan potensi pemuda Islam.
4. Sebagai wadah silaturahim umat Islam.
5. Membantu Polri menjaga keamanan lingkungan.

LAZIS SYUMULIYATUL ISLAM INDONESIA ( SMII )

LATAR BELAKANG Banyaknya ormas-ormas, organisasi, parpol Islam merupakan suatu yang sangat baik. Namun sayangnya, tidak adanya upaya untuk merajut ukhuwah islamiyah diantaranya. Sehingga diperlukan suatu organisasi yang melakukan tugas tersebut. Dimana organisasi ini harus independen, dan meminimalisir perbedaan maupun pertentangan diantara seluruh organisasi, sehingga bisa menjadi perekat. Hal ini bukan berarti meninggalkan prinsip-prinsip Islam yang asasi, seperti tauhid atau aqidah. Tetap koridornya harus berada didalam Quran dan Sunnah. Organisasi ini juga diharapkan juga turut berperan serta aktif dalam syiar dakwah Islam ke seluruh lapisan masyarakat. Dan sebagai LAZIS (Lembaga Amil Zakat Infaq dan Shodaqoh), harus dapat mengangkat perekonomian Umat Islam. 

 VISI LAZIS 

1. Mengangkat perekonomian umat.
2. Mengembangkan potensi umat.
3. Memberikan lapangan pekerjaan.
4. Mensejahterakan masyarakat.
5. Mencerdaskan dan memberikan pemahahaman Islam yang shoeh.
6. Memberikan santunan kepada ekonomi lemah. 

 PROGRAM KERJA
1. Santunan kepada Dhuafa.
2. Memberikan modal kerja kepada ekonomi lemah.
3. Mengembangkan kewirausahaan umat.
4. Mengadakan pelatihan SDM.
5. Memberikan penyuluhan mengenai keislaman.
6. Melaporkan seluruh kegiatan dan pemanfaatan dana umat kepada publik.

 

Dalam  penyaluran, kami bekerja sama dengan lembaga-lembaga berikut :

Qudwah Indonesia