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.

Kamis, 16 September 2010

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
Diposting oleh di
Label:

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)