'Private Sub Combo6_AfterUpdate()
' Find the record that matches the control.
' Dim rs As Object
' Set rs = Me.Recordset.Clone
' rs.FindFirst "[KodeBarang] = '" & Me![Combo6] & "'"
' Me.Bookmark = rs.Bookmark
'End Sub
Private Sub Combo6_NotInList(NewData As String, Response As Integer)
Response = acDataErrContinue
DoCmd.SetWarnings False
MsgBox "Pesan Anda Disini " & vbCrLf & NewData & vbCrLf & "Tak Ada Pada Combo "
End Sub
Private Sub Form_Load()
DoCmd.GoToRecord , , acNewRec
Me.Combo6.SetFocus
'=== tambahankan
Me.Combo6.LimitToList = True
End Sub
--- In belajar-access@yahoogroups.com, access <access_tea@...> wrote:
>
> Ini saya lampirkan mdb nya ...( saya menggunakan office 2000 )
>
> Terima kasih
>
> HT> wa'alaikum salam,
>
> HT> pertama, pakai access versi berapa?
> HT> kalau di 2007 dan 2010, ada properti untuk mengallow user
> HT> untuk mengedit list option nya, tinggal disediain form aja.
>
> HT> apa maksud "data juga tampil padahal bukan yang saya ininkan" ?
>
> HT> Haer
>
>
>
> Best regards,
> access
> mailto:access_tea@...
>
Tidak ada komentar:
Posting Komentar