MS ACCESS MAILING LIST: Bls: [belajar-access] Pemanggilan Registrasi Plus [1 Attachment]

[Attachment(s) from monas monas included below]

Salam buat rekan rekan semua

mohon bantuan pencerahan

Mohon maaf jika saya nebeng di topik ini, sebab permasalahan saya mirip sekali dengan topik yang di bicarakan

Saya punya tabel seperti terlampir ( data1)

masalah yang ada masih sama yaitu bagaimana mencari data yang ada, jika data baru yang di masukan sudah ada maka akan di konfirmasi bahwa data telah ada

cuma di kasus yang saya hadapi, yang jadi patokan atau pembanding data bukan cuma 1 field tetapi 3 field

yaitu Field "Tanggal" , "Jam" , dan Field "Sift"

jadi jika data di masukan maka kebutuhan saya adalah access mengecek data di ketiga Field di atas, dan membandingkan dengan data di ketiga Field yang telah tersimpan di tabel access

Sebagai info, data di masukkan tiap pergantian sift, di lakukan dengan metode import data dari sheet di excel

Beginilah kalo masih newbie, tau kebutuhanya/langkahnya tapi gak tau menterjemahkan dalam bahasa VBA

Mohon pencerahan dari rekan2

Mohon juga di sertakan komen pada VBA nya seperti topik sebelumnya agar saya bisa belajar

terima kasih sebelumnya...

Dari: Aksan Kurdin <aksan.kurdin@gmail.com>
Kepada: belajar-access@yahoogroups.com
Terkirim: Sab, 4 Juni, 2011 06:43:20
Judul: Re: [belajar-access] Pemanggilan Registrasi

Private Sub Name_BeforeUpdate(Cancel As Integer)     'event ini akan dijalankan sesaat sebelum control text box [name] lepas fokus     'saat lepas fokus, data pun otomatis akan di update di database          Dim intResult As Boolean ' variabel penampung hasil pencarian me!name.text dalam database          'cari nilai name di database yang saat ini ada dalam text box name     'kita gunakan kombinasi fungsi nz dan dlookup     'dlookup akan mencari di field [name], tabel [task], dengan kriteria name sama seperti nilai properti text di text box name     'nz akan mengganti hasil dlookup dengan string kosong "" jika data tidak ditemukan, atau hasil dlookup adalah null     'hasil perbandingan property text dengan hasil cari dlookup dimasukkan ke variabel intResult          intResult = (Me![Name].Text = Nz(DLookup("[Name]", "[Task]", "[Name]='" & Me![Name].Text & "'"), ""))          If intResult Then         'jika nama sudah ada, maka ....         Dim strMsg As String         strMsg = "Nama yang sama ditemukan dalam database."         strMsg = strMsg & vbCrLf & "Tekan Yes untuk mengedit data yang sudah ada, "         strMsg = strMsg & vbCrLf & "Tekan No untuk meneruskan data baru, "         strMsg = strMsg & vbCrLf & "Tekan Cancel untuk kembali ke form."                  Select Case MsgBox(strMsg, vbYesNoCancel, "Data sudah ada")             Case vbYes:                 'pilihan yes akan membatalkan entri data, menyuruh access untuk mencari data yang sudah ada, lalu edit...                 Cancel = True                                  Dim strFind As String                 strFind = Me![Name].Text                                  If Me.Dirty Then Me.Undo                                  Dim rs As DAO.Recordset                 Set rs = Me.RecordsetClone                 rs.FindFirst "[name] = '" & strFind & "'"                 If Not rs.NoMatch Then Me.Bookmark = rs.Bookmark                 Set rs = Nothing                          Case vbNo: Cancel = False 'jika no, maka teruskan data entri             Case vbCancel: Cancel = True 'jika cancel, cancel update [name] dan cursor tetap tidak berpindah dari textbox name         End Select          End If End Sub

aksan kurdin

On 6/3/2011 1:20 AM, semi wrote:

      Para Suhu Access,

Saya mempunyai data, yang mana data ini saya berkeinginan:

1.      Input data bila sudah ada nama dalam data base tersebut tidak perlu menginput mulai dari awal.

2.      Field yang tanpa perlu di isi adalah Nama, Dob ( jika sudah pernah di input, jika belum tentunya dari field awal hingga akhir di input )

sudah ada melanjutkan dari mulai pemeriksaan

Bagaimana?

-        Cara pemanggilan data terseut yang saya belum dapatkan sehingga tidak perlu input dari awal ( registrasi lagi ) , tetapi melanjutkan dari yang sudah ada

-        Apakah ada cara bila akan follow up dari data lalu dengan orang yang sama menampilkan dalam 1 halaman.

Saya attach kan data untuk mempermudah.

Salam

Semi