Maaf kalau kurang jelas maksudnya, mungkin dengan script berikut lebih
menjelaskan:
Private Sub Nama_NotInList(NewData As String, Response As Integer)
Response = acDataErrContinue
If MsgBox("Participants tersebut belum terdaftar. Mau ditambahkan?",
vbYesNo + vbDefaultButton2 + vbQuestion, "Konfirmasi") = vbYes Then
' Buka Form Participants untuk menambah participant baru
DoCmd.OpenForm "Participants_Data", , , , acFormAdd, acDialog
' Setelah form Participants_Data ditutup, maunya data yang dimasukkan
langsung requery pada Nama, sehingga tinggal dipilih
' Form Participants_Data tidak memiliki commandbutton
End If
End Sub
From: [email protected] [mailto:[email protected]] On
Behalf Of Murid Belajar Access
Sent: 12 Juni 2009 11:57
To: [email protected]
Subject: Re: [belajar-access] Event On Not in List
Saya kurang jelas pertanyaannya. tapi mungkin langkahnya sbb:
1. pada event not inlist dituliskan : docmd. openform "namaformdatabaru"
begitu data tidak ada, form terbuka.
2. pada form namaformdatabaru di event unload dituliskan sbb:
Forms(namaformtempatcombobox)!NamaComboBox.requery
atau bisa dibuka tautan di bawah ini untuk contoh penggunaan not inlist.
http://www.databasedev.co.uk/multi-field-not-in-list.html
Salam Hangat dan Jabat Erat,
Murid Belajar Access
