Kehidupan berlangsung tanpa disadari dari detik ke detik. Apakah anda tidak menyadari bahwa hari-hari yang anda lewati justru semakin mendekatkan anda kepada kematian sebagaimana juga yang berlaku bagi orang lain? Seperti yang tercantum dalam ayat “ Tiap-tiap yang berjiwa akan merasakan mati. Kemudian hanyalah kepada Kami kamu dikembalikan .” (QS. 29:57) tiap orang yang pernah hidup di muka bumi ini ditakdirkan untuk mati. Tanpa kecuali, mereka semua akan mati, tiap orang. Saat ini, kita tidak pernah menemukan jejak orang-orang yang telah meninggal dunia. Mereka yang saat ini masih hidup dan mereka yang akan hidup juga akan menghadapi kematian pada hari yang telah ditentukan. Walaupun demikian, masyarakat pada umumnya cenderung melihat kematian sebagai suatu peristiwa yang terjadi secara kebetulan saja. Coba renungkan seorang bayi yang baru saja membuka matanya di dunia ini dengan seseorang yang sedang mengalami sakaratul maut. Keduanya sama sekali tidak berkuasa terhadap kelahiran...
Oleh bidadari_Azzam Dia telah mengingatkan kita dalam kitab-Nya yang sempurna bahwa tiap-tiap yang berjiwa akan merasakan mati, bila ayat tersebut terdengar di telinga atau dibaca oleh lidah kita sendiri, hati nan tunduk pada-Nya pasti merasa bergetar hebat. Ramadhan awal tahun ini diiringi berita indah akan kelahiran bayi-bayi lucu para sahabatku. Semoga keberkahan Allah ta’ala mengiringi para bayi suci tersebut, amiin. Dan hentakan di dada begitu kerasnya tatkala kubaca berita tentang kematian seorang teman, sangat muda usianya, beserta meninggalnya dua orang bapak yang merupakan orang tua dari sahabat nun jauh di negera lain. Padahal, kontak dengan teman itu hanya via email karena satu komunitas wanita Indonesia di luar negeri, dan bapak-bapak yang telah pergi jauh ke alam lain tersebut memang belum pernah bertatap muka langsung denganku, paling-paling anaknya menunjukkan “Ini fotoku bersama ayah…”, sebatas itu. Namun tatkala kematian, berita bahwa mereka sudah ‘duluan singg...
Public Class Latihan29 Dim A As New OleDb.OleDbConnection("Provider=microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\DATABARANG.accdb") Private Sub Simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan.Click If kb1070.Text.Length = 0 Then MsgBox("Kode barang sudah ada") Exit Sub End If If kb2070.Text.Length = 0 Then MsgBox("Kode barang sudah ada") Exit Sub End If If nb070.Text.Length = 0 Then MsgBox("Nama barang sudah ada") Exit Sub End If If Val(hj070.Text) = 0 Then MsgBox("Harga jual sudah ada") Exit Sub End If If Val(jb070.Text) = 0 Then MsgBox("Jumlah barang sudah ada") Exit Sub End If If kb1070.Text kb2070.Tex...
Komentar
Posting Komentar