MS ACCESS MAILING LIST: Re: [belajar-access] Re: Bentrok Peminjaman Ruang

Saturday, May 7, 2011

Re: [belajar-access] Re: Bentrok Peminjaman Ruang

Menurut saya lebih baik memanfaatkan fungsi dlookup. Misalnya begini:

dim ak as variant

ak = DLookup("[field_nama_pemesan]", "Nama_tabel", "[field_koderuang]='" _
& kd_ruang_form & "' and Day([field_tanggal])=" & Day(tgl_form))

if ak <> "" then

MsgBox "Maaf Peminjaman Ruang untuk tanggal " & Day(tgl_form) & " sudah dipesan oleh " & Ucase(ak) & vbCrLf & vbCrLf & "Masukkan Tanggal/Ruangan lainnya.", vbInformation, "Data tidak boleh double"

else

'masuk ke data

end if

Catatan:

Type field koderuang di Tabel berbentuk text. Bila number, hilangkan tanda upperstrop sehingga menjadi: ... "[koderuang]=" _
& kd_ruang_form & " and ....
Type field untuk tanggal di Tabel harus date.time. Begitu pula dengan Tgl_form harus berformat date
Filter dlookup bisa lebih dari 1 variabel

Semoga bermanfaat dan memberi semangat...

Hariyanto (Surabaya)

--- On Sat, 7/5/11, Asoy <asep_satria@yahoo.com> wrote:

From: Asoy <asep_satria@yahoo.com>
Subject: [belajar-access] Re: Bentrok Peminjaman Ruang
To: belajar-access@yahoogroups.com
Date: Saturday, 7 May, 2011, 3:44 PM

mungkin bisa dibilang seperti itu..
saya ada tabel (koderuang, tanggal, keterangan) jika koderuang dan tanggal penggunaan sama maka akan keluar warning
script yang baru saya buat adlh;

Private Sub Tanggal_AfterUpdate()
Dim SID As String
Dim stlinkcriteria As String
Dim rsc As DAO.Recordset
Set rsc = Me.RecordsetClone
SID = Me.TANGGAL.Value
stlinkcriteria = "[Tanggal]=" & "'" & SID & "'"
If DCount("Tanggal", "[PeminjamanTrans]", stlinkcriteria) > 0 Then
Me.Undo
MsgBox "Maaf Peminjaman Ruang untuk tanggal = " & SID & " Sudah Ada..." & vbCr & vbCr & "Masukkan Tanggal/Ruangan lainnya.", vbInformation, "Data tidak boleh double"
'Me.Command7.SetFocus
rsc.FindFirst stlinkcriteria
End If
Set rsc = Nothing
End Sub

script tersebut hanya membaca tanggal jika duplikat. bagaimana scriptnya jika koderuang dan tanggal yang duplikat

tks
--- In belajar-access@yahoogroups.com, CGSATU <cgsatu@...> wrote:
>
> Ini algoritma pengantrian........bener tidak dugaan saya?
>
> cgsatu
>
>
>
>
> ________________________________
> From: Asoy <asep_satria@...>
> To: belajar-access@yahoogroups.com
> Sent: Fri, May 6, 2011 10:25:41 AM
> Subject: [belajar-access] Bentrok Peminjaman Ruang
>
>
> Mohon Bantuan, adakah contoh script untuk mengetahui ada/tidaknya bentrok dalam
> peminjaman ruangan.
>
>
> tks
>