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