Comments by zakariyaptpl (Top 31 by date)

Thank you. There is no way to do without API ?

i got it with flexgrid row count.thanks for your support

xlObject.Cells(MSGrid1.RowSel + 3, 6).Value = "CCC"

i got it with flexgrid row count.thanks for your support

xlObject.Cells(MSGrid1.RowSel + 3, 6).Value = "CCC"

Worksheets("Sheet1").Range("A1").Formula . in this i dont know how to get the last row number because the number of rows will varry according to the flexgrid contents . i have tried the below code but not working
Dim LastRow As Long
With ActiveSheet
LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
End With

hi sir , i need to add a new row on bottom to mention the total of amount, Vat and Gross .

thanks i got the software

hi snooze .. i tried that and i read about how to put password .its saying to open as you said then we can see the option encrypt with password..but i couldn't find anything like that .

i didn't know about uppercase means what ...sorry for that .

I couldnt get with that ..at last i manualy sorted the data base and made soorted=false ..now its adding one by one ....thanks for your effort and helping mentality ..

sorry ..i am setting the type by visual data manager and i am using access as data base ..so how can i set type as adBigInt these only option for integer .i tried with that and sort the listbox rs.Sort = "id" ..so now i can get 99 before 100 but 101 after 1000 only ..

ok ..if iam deleting this field and creating new one which "type" i want to select to get it as numberic ..i tried with long and double but its not working ...

thanks in advance

List1.Clear
On Error GoTo Errorhandler
If error3021 Then
Exit Sub
Errorhandler:
If Err.Number = 3021 Then
MsgBox "No Membership Available"
End If
Else
rs.MoveFirst
End If
Do While Not rs.EOF
If Check2.Value Then
If DateDiff("m", rs.Fields("expdate"), Date) >= 2 Then
List1.AddItem rs.Fields("name")
End If
Exit Do
ElseIf Combo1.Text = "Member Name" Then
If rs.Fields("name") Like Text1.Text + "*" Then
List1.AddItem rs.Fields("id") & " " & rs.Fields("name")
ElseIf Text1.Text = " " Then
List1.AddItem rs.Fields("id") & " " & rs.Fields("name")
End If

ElseIf Combo1.Text = "Member ID" Then
If rs.Fields("id") Like Text1.Text + "*" Then
List1.AddItem rs.Fields("id") & " " & rs.Fields("name")
ElseIf Text1.Text = " " Then
List1.AddItem rs.Fields("id") & " " & rs.Fields("name")
End If
rs.MoveNext
Loop



its a running software so its difficult to change to numeric now ? any other way to get 101 after 100 intead of 1000??

its k..

yup..its already running software I just want to update it.

sorry i didn't get you actually.....its for a gym to prepare members data base..there is more than one time for Aerobics like sat 1 , sat 2 etc....all these have certain time period. so i want to check for the time sat 1 how many members are there now..so when i click filter i need to get all members list their time as in the combo4 . and the combo4 list are sat 1 , sat 2....

sorry ..it my mistake put the heading like that ..i want actually add data on list box from the data base according to the condition that i have mentioned in the code
If rs.Fields("time") = Combo4.Text And rs.Fields("expdate") > Date Then

i have tried some code.........at last i got the correct one

Dim i As Integer
Dim n As Integer
i = 1
n = 1
Do While Not n >= msf1.Rows
msf1.TextMatrix(i, 0) = n
i = i + 1
n = n + 1
Loop

thax..

k i will try myself.......i knw vb6 little bit and i am first time trying to make in vb.net ..so there is little confusion .....hope i can ask question if i faced any doubt while making that..

but how can i expand the form when i am creating that ..bcz i wanna write there something.

thx

thx

i dont know exactly how to use the crystal report thats why i tried this one..

Nop change the size of the form ,now i got a solution if we change the resolution of the monitor we can increase the size of the form.but i dont know when we are printing we get the same result.

can you give me the link where i can dowanload vb.net setup software for free.bcz i dont have thats software .

ok thx for the information

i am new in VB6 field sir,so i dont have enough knowledge about this.can you suggest me anyway to print the datareport between 2 days.