ACCESS FEED: Re: [belajar-access] Table

Selasa, 11 Oktober 2011

Re: [belajar-access] Table

1. Pakai query, criteria nya mis: Tanggal = Date()

2. Maksudnya untuk apa ya field diklik lalu muncul data dari record yang sama?

Haer

2011/10/12 Ahmad Satiri <satiri27@yahoo.co.id>

Selamat Pagi Semua,
Salam Sejahtera Untuk Kita Semua.

Langsung aja, ada yang ingin saya tanyakan :

1. Apakah Data pada Table bisa kita munculkan sesuai dengan yang kita inginkan? (Mis. saya ingin yang tampil hanya data hari ini saja. Untuk data yang telah lalu akan terHide.) Caranya bagaimana ya...?
2. Bagaimanakah caranya / VBAnya, apabila ketika saya mengclick pada salah satu Field di SubForm (Data Sheet. Mis : Field Name), Otomatis langsung muncul data pada table dan berada pada Record yang sama Namenya?
Saya pernah menemukan VBAnya pada group ini, seperti yang tertulis di bawah ini:

On Error GoTo PesanError
Dim db As DAO.Database
Dim rs As DAO.Recordset

Set db = CurrentDb()
Set rs = db.OpenRecordset("Data", dbOpenDynaset)
rs.FindLast "[Name]=" & "Name.Value & " '"

If rs.NoMatch Then
MsgBox "Data memang belum pernah diisi !", vbInformation, "Sukses!"
'Tambahkan kode lainnya yang diinginkan disini
Else
MsgBox "Data sudah pernah diisi !", vbInformation, "Hati-hati!"
'Tambahkan kode lainnya yang diinginkan disini
End If

rs.Close
Set rs = Nothing
db.Close
Set db = Nothing

Exit Sub

PesanError:
MsgBox "Terdapat Error, dengan nomor error: " & Err.Number & ","
Resume
End Sub

Tapi Kenapa masih Error ya...?
Apakah caranya bukan seperti ini?

Oh ya, terima kasih atas semua masukannya yang sudah maupun yang ini.
Dan saya berharap rekan - rekan semua tidak bosan untuk selalu memberi ilmu gratisnya kepada saya, karena pastinya akan ada pertanyaan - pertanyaan susulan nantinya.

Salam,

Ahmad Satiri