[Programmer-VB] Tanya software untuk meremote komputer di lokasi lain. <-- maaf tadi judulnya lom di edit. tapi tdk mengurangi makna dr email ini.

[mario]

 

Temen-temen, saya bingung dengan syntax yg harus di pake di vb,

Gimana caranya agar bisa melakukan validasi. Dimana jika hasil pencarian di
text1.text

Tidak di temukan di msflexgrid1, maka "add button" bisa di klik, tp jika di
temukan, maka "add button"

Tidak bisa di klik.

Sya sudah coba 2 syntax,, tapi hasillnya mengecewakan..

 

Note: text1.text nya saya taruh di text1_change()

 

Mohon di Bantu.

Terima kasih

 

    Data1.RecordSource = "SELECT * from stock where nama LIKE '*" &
Text1.Text & "*' ORDER BY nama Asc"

    MSFlexGrid1.Refresh

      If Not .NoMatch Then

        add.Enabled = True

        update.Enabled = False

      Else

        add.Enabled = False

        update.Enabled = True

     End If 

 

 

  Data1.RecordSource = "SELECT * from stock where nama LIKE '*" & Text1.Text
& "*' ORDER BY nama Asc"

    search = "select * from stock where nama like '" & Text1.Text & "' ORDER
by nama Asc"

    MSFlexGrid1.Refresh

   If MSFlexGrid1.TextMatrix(1, 0) <> text1.text Then

        add.Enabled = False

        update.Enabled = True

      ElseIf MSFlexGrid1.TextMatrix(1, 0) = text1.text Then

        add.Enabled = True

        update.Enabled = False

   End If