Thanks bgt mas MBA.
script vba mulus bisa dipake. selanjutnya tlg koreksi untuk script copy paste
an berikut :
Private Sub find_AfterUpdate()
Dim db As Database
Dim rs1 As Recordset
Set db = CurrentDb
Set rs1 = db.OpenRecordset("qBarang", dbOpenSnapshot)
rs1.FindFirst ("UCase([namabarang]) Like '*" & UCase(Me.Find.Value) &
"*'")
If Not rs1.NoMatch Then
MsgBox "Item ada", vbOKOnly + vbInformation, "lanjut.."
Beep
Me.namaBarang.SetFocus
Else
Me.Find.Requery
Me.Find.SetFocus
Beep
End If
Me.Find.SetFocus
End Sub
--------
saya tidak tau vba seleksi namabarang di textbox.
saya coba pake list box memang bisa langsung seleksi,tapi untuk
Forms!Orders!OrderDetails!ProductID.value = ListProduct.value tidak jalan.
solusi bagus nya pake mana textbox atau listbox? terima kasih
