ACCESS FEED: Re: [belajar-access] object variable or with variable not set

Minggu, 08 Desember 2013

Re: [belajar-access] object variable or with variable not set

Kode asli:

  Private Sub Text14_AfterUpdate()  Dim recset As Recordset  Dim sqltext As String    If Me.Text4 <> Null O Me.Text14 <> "" Then  sqltext = "select * from tbl_pemasok where idpemasok = " & (Me.Text14)  Set recset = currentdb().OpenRecordset("sqltext")  Me.namapemasok = recent!namapemasok  me.idpemasok = recset!idpemasok  Else  MsgBox "Anda harus mengisi nama pemasok", , "ADMIN"  me.namapemasok = Null  me.idpemasok = Null  recset.close  Set recset = Nothing  End If  End Sub

Coba dengan potongan modifikasi berikut:

Private Sub Text14_AfterUpdate()      Dim recset As ADO.Recordset      Dim sqltext As String        On Error Goto err_handler            If Len(Me.Text14 & "") > 0 Then 'alternatif mengecek isi text14 tidak kosong          sqltext = "select * from tbl_pemasok where idpemasok = " & (Me.Text14)          recset.ActiveConnection = CurrentProject.Connection          recset.Source = sqltext          recset.Open          Me.namapemasok = recset!namapemasok          me.idpemasok = recset!idpemasok      Else          MsgBox "Anda harus mengisi nama pemasok", , "ADMIN"          me.namapemasok = ""          me.idpemasok = ""      End If            Exit Sub    err_handler:      MsgBox Err.Description, , Err.Number          recset.close      set recset = nothing  End Sub

On 12/4/2013 9:21 AM, Doni Abraham wrote:

��

selamat siang teman... saya pengguna baru ms.acces ...selama ini saya menggunakan access secara sederhana saja ...setelah saya mengikuti milis ini saya ingin lebih membelajari ms.access...saya belajar melalui beberapa reference salah satunya buku2 bang Haer Talib....kiranya teman2 dapat membantu masalah yg saya temukan

saya coba membuat access project dengan acess 2007 dan SQL Express 2005

dan saya menemukan maslah dengan coding yg saya buat

berikut masalahnya

saya membuat form barang dari tbl_barang dan saya mencoba Execute combotext.text14 yg mengambil data dari tbl_pemasok yg hasilnya text.namapemasok hasil dari data tbl pemasok...tapi setelah saya coba kayaknya coding yg saya buat salah...

kira2 teman2 di milis dapat membantu saya

berikut saya lampirkan SSnya....atas perhatiannya saya ucapkan banyak terima kasih