Menurut saya lebih praktis dengan Listbox. Sesuaikan sintaks ini dengan form anda. Forms(NamaFormOrder)!NamaComboBox.value = ListProduct.value tidak jalan.
Salam Hangat dan Jabat Erat, Murid Belajar Access ----- Original Message ----- From: "dann_ist" <[email protected]> To: <[email protected]> Sent: Monday, June 15, 2009 12:26 Subject: [belajar-access] Re: form requery > 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 > > > > ------------------------------------ > > SPAM IS PROHIBITEDYahoo! Groups Links > > >
