[leang86]

Hi, i wanna search record from my datagrid by just key in the name, then it will direct set focus on my datagrid depend the name i key. i have 1 code here, but i find that it just work on some name and just can use continues 3 times only.

Dim custName As String

custName = ""
custName = InputBox("Please Enter The Customer Name: ")
DataEnvironment1.rsBottleHdr.Find "CustName Like '" & custName & "'"
DataGrid1.SetFocus

Is it got any good idea or more suitable function can be solve my problem?
please help...........

[mexlum]

Hi,

I have one piece of code that might help you. Here it is:

Dim custName As String
Dim a As Integer

custName = ""
custName = InputBox("Please Enter The Customer Name: ")


For a = 0 To DataGrid1.ApproxCount - 1
DataGrid1.Row = a
DataGrid1.Col = 3 'Number of column where the customer name is

If InStr(1, DataGrid1.Text, custName) > 0 Then
DataGrid1.SetFocus
Exit Sub
End If
Next


Let me know if this works for you.

Regards

[leang86]

mexlum, on 10 Jun, 2009 - 07:21 PM, said:

Hi,

I have one piece of code that might help you. Here it is:

Dim custName As String
Dim a As Integer

custName = ""
custName = InputBox("Please Enter The Customer Name: ")


For a = 0 To DataGrid1.ApproxCount - 1
DataGrid1.Row = a
DataGrid1.Col = 3 'Number of column where the customer name is

If InStr(1, DataGrid1.Text, custName) > 0 Then
DataGrid1.SetFocus
Exit Sub
End If
Next


Let me know if this works for you.

Regards

Hi, thanks for reply my question, but got error on the code below:

DataGrid1.Row = a

The error is "Invalid Row Number".

[leang86]

mexlum, on 10 Jun, 2009 - 07:21 PM, said:

Hi,

I have one piece of code that might help you. Here it is:

Dim custName As String
Dim a As Integer

custName = ""
custName = InputBox("Please Enter The Customer Name: ")


For a = 0 To DataGrid1.ApproxCount - 1
DataGrid1.Row = a
DataGrid1.Col = 3 'Number of column where the customer name is

If InStr(1, DataGrid1.Text, custName) > 0 Then
DataGrid1.SetFocus
Exit Sub
End If
Next


Let me know if this works for you.

Regards

Hi, i have try many times on your code, i find that it just able to search certain name only, and cannot continue search the next name, cause it also will jump out the same error message. Is it got any suggestion?
Thanks...

[thava]

the only charecter you need to add your code is
*
that's all like This

Dim custName As String

custName = ""
custName = InputBox("Please Enter The Customer Name: ")
DataEnvironment1.rsBottleHdr.Find "CustName Like '" & custName & "*'"
Datagrid1.col =0
DataGrid1.SetFocus

[leang86]

thava, on 11 Jun, 2009 - 06:34 PM, said:

the only charecter you need to add your code is
*
that's all like This

Dim custName As String

custName = ""
custName = InputBox("Please Enter The Customer Name: ")
DataEnvironment1.rsBottleHdr.Find "CustName Like '" & custName & "*'"
Datagrid1.col =0
DataGrid1.SetFocus

Thanks for reply, still got a lot name cannot be search, but i can feel that have a big changes by using your suggestion, cause got many name that cannot be search normally, able be search already. anywhere, Thanks....

[leang86]

mexlum, on 10 Jun, 2009 - 07:21 PM, said:

Hi,

I have one piece of code that might help you. Here it is:

Dim custName As String
Dim a As Integer

custName = ""
custName = InputBox("Please Enter The Customer Name: ")


For a = 0 To DataGrid1.ApproxCount - 1
DataGrid1.Row = a
DataGrid1.Col = 3 'Number of column where the customer name is

If InStr(1, DataGrid1.Text, custName) > 0 Then
DataGrid1.SetFocus
Exit Sub
End If
Next


Let me know if this works for you.

Regards

Hi, now i was using this code:

Private Sub cmdSearch_Click()
Dim custName As String
Dim a As Integer

custName = InputBox("Please Key In The Customer Name")
If custName = "" Then
  MsgBox ("Record Not Found")
  Exit Sub
Else
For a = 0 To DataGrid1.ApproxCount - 1
  DataGrid1.Row = a
  DataGrid1.Col = 0
  If InStr(1, DataGrid1.Text, custName) > 0 Then
	DataGrid1.SetFocus
	Exit Sub
  Else
  On Error GoTo error_handler
  End If
Next
End If

error_handler:
MsgBox ("Rocord No Found")
Exit Sub
End Sub

But it just can search the data where the datagrid showing, that mean if i have 20 row data in my datagrid, and my datagrid just can show 10 row per scroll. When i scroll to the first 10 row, and i search the name that showing in the first 10 row, it able to search, but if i search the name that did'nt show in the first 10 row or maybe in the 11 row on my datagrid, it unable to set focus, and it assume record no found.
Please help me....
Thanks....

This post has been edited by leang86: 22 June 2009 - 09:48 PM

[raziel_]

then select the row from datagrid that is found that way he will be in visible range then no record no found like so

Private Sub cmdSearch_Click()
Dim custName As String
Dim a As Integer

custName = InputBox("Please Key In The Customer Name")
If custName = "" Then
  MsgBox ("Record Not Found")
  Exit Sub
Else
For a = 0 To DataGrid1.ApproxCount - 1
  DataGrid1.Row = a
  DataGrid1.Col = 0
  If InStr(1, DataGrid1.Text, custName) > 0 Then
	DataGrid1.CellSelected(a,0)=True
	DataGrid1.SetFocus
	Exit Sub
  Else
  On Error GoTo error_handler
  End If
Next
End If

error_handler:
MsgBox ("Rocord No Found")
Exit Sub
End Sub

i hope this will work for you

This post has been edited by NoBrain: 23 June 2009 - 02:02 AM

[leang86]

NoBrain, on 23 Jun, 2009 - 12:58 AM, said:

then select the row from datagrid that is found that way he will be in visible range then no record no found like so

Private Sub cmdSearch_Click()
Dim custName As String
Dim a As Integer

custName = InputBox("Please Key In The Customer Name")
If custName = "" Then
  MsgBox ("Record Not Found")
  Exit Sub
Else
For a = 0 To DataGrid1.ApproxCount - 1
  DataGrid1.Row = a
  DataGrid1.Col = 0
  If InStr(1, DataGrid1.Text, custName) > 0 Then
	DataGrid1.CellSelected(a,0)=True
	DataGrid1.SetFocus
	Exit Sub
  Else
  On Error GoTo error_handler
  End If
Next
End If

error_handler:
MsgBox ("Rocord No Found")
Exit Sub
End Sub

i hope this will work for you

Hi, Thanks for reply, i found that there have an error on the code:

	DataGrid1.CellSelected(a,0)=True

The Error message are:
Method or data member not found

And i found that i dun have "CellSelected" function in my datagrid, why?
Please Help Me......

[raziel_]

well look this
Property CellSelected(lRow As Long, lCol As Long) As Boolean
Member of vbAcceleratorSGrid6.vbalGrid
Gets/sets whether a cell is selected or not.

now look if vbAccelerator VB6 SGrid Control 2.0 is selected in your components it is c:\WINDOWS\System32\vbalsgrid6.ocx

now that is what i think it is i hope i will help you

This post has been edited by NoBrain: 23 June 2009 - 11:49 PM

[leang86]

NoBrain, on 23 Jun, 2009 - 10:47 PM, said:

well look this
Property CellSelected(lRow As Long, lCol As Long) As Boolean
Member of vbAcceleratorSGrid6.vbalGrid
Gets/sets whether a cell is selected or not.

now look if vbAccelerator VB6 SGrid Control 2.0 is selected in your components it is c:\WINDOWS\System32\vbalsgrid6.ocx

now that is what i think it is i hope i will help you

Hi, Thanks for reply.
Just now i have download vbalsgrid6.ocx to my System32, and inserted to component list, but the same problem still happen. Is it i need to change to using the vbalgrid? What I need to do???

[raziel_]

well i gues you must just change the grid if your using the old one just delete and replace it with vbalgrid and put the same name i gues you will not have much problems replacing it btw what ocx your using for grid

This post has been edited by NoBrain: 24 June 2009 - 01:38 AM

[leang86]

NoBrain, on 24 Jun, 2009 - 12:37 AM, said:

well i gues you must just change the grid if your using the old one just delete and replace it with vbalgrid and put the same name i gues you will not have much problems replacing it

But i have receive a error when i add the vbalgrid to my form, the error are:
Run Time Error '0'
What's the problem?

[raziel_]

hmmm that is interesting your using 6.0 and that is when you add the component or when you want to draw the table ?

[leang86]

NoBrain, on 24 Jun, 2009 - 12:41 AM, said:

hmmm that is interesting your using 6.0 and that is when you add the component or when you want to draw the table ?

Ya, I'm using vb6.0, and i was able to add the vbAccelerator vb6 SGrid Control 2.0 to my component list, but when i draw the table, it jump out the error message, and not allow me to continue, is it my .dll or .sys file of this component got problem? Cause i just download it from internet, or can you send me the require file to my email? My email: leang86@hotmail.com

Thanks for reply