[belajar-access] Re: Bentrok Peminjaman Ruang

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
>

------------------------------------

SPAM IS PROHIBITEDYahoo! Groups Links

<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/belajar-access/

<*> Your email settings:
Individual Email | Traditional

<*> To change settings online go to:
http://groups.yahoo.com/group/belajar-access/join
(Yahoo! ID required)

<*> To change settings via email:
belajar-access-digest@yahoogroups.com
belajar-access-fullfeatured@yahoogroups.com

<*> To unsubscribe from this group, send an email to:
belajar-access-unsubscribe@yahoogroups.com

<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/