Type: Posts; User: luca90
Search took 0.03 seconds.
but but the year not is fixed.
you need to calculate based the year in MyVar
I can have:
I just have MyVar ="ott 2015" (ott iss the month ottober).
I need to fill a combo with the rest of months until dec 2015.
naturally MyVar is dinamicly it can aasume set, feb.... and year.
Dim itm As ListItem, K As Long
K = Empty
Me.VALORI.Caption = ""
For Each itm In ListView1.ListItems
If itm.SubItems(1) Like VALORE Then
During i fill the lv the code insert a 0 and 1 in hiden Column 18 with zero length..
now i need to assign in a button a code:
First click ordering items form 1 to 0, if i reclick order...
I need to assigng on a button click to order/sort listitems in listview1 by the clicked checkbox...
the checkbox is in column 0 of listview
i loop in all lines of txt with the tipical freefile=file ... dowhile not ecc....
then when i fuound in the left 4 of line with MyVar="0900", and admint MyVar="0900" is in line...
ok... admit i found MyVar="0900" in lines 456.989 how to loop the rest of line to the end of file from this line?
Sorry me to the all!
Really the line to start the loop not is 457 but 457.xxx...
This depend when MyVar i filled with a value where is in left 4 of line of text ...
in this case:
I use the tipcal free file and do while eof ecc.... to read a lines line by line ina txt file.
is possible to start the reading from line 457 to the end of file, and not from the top of txt file?
hI Milk ...
Sorry if i post on old question.
Admit my line is the number 457, how to loop the rest of txt file to the end, from this line?
Tested the code, is a lightning and work perfect!
but i need search directly only in column 3 the value"California"... and not in all item of listview.
can you change my command button code, for that?
Why code in Command2, dont find "California" in column 3?????
Private Sub Command2_Click()
Dim oItem As ListItem
Set oItem = Me.ListView1.FindItem("California", lvwSubItem, 3)
OK, I know the truncate statment.
I dont use tath because i dont need to delete alls records in table!
I need to delete a lot of records with a "Where" clausole.
Tks for suggestion.
In my case, actually i use Access and ADO conn, but the Mode=Share Exclusive, i can use also in ADO conn with SQlServer connection, or not?
..."should use a transaction", example for Access and ADO?
Dim strConnectionString As String
Dim objConn As ADODB.Connection
Dim objCommand As ADODB.Command
strConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=e:\My...
Private Sub Main()
Const BUFSIZE As Long = 100000
Dim T0 As Single
Dim LfAnsi As String
Dim F As Integer
Dim FileBytes As Long
Dim BytesLeft As Long
Public Const NM_CUSTOMDRAW = (-12&)
Public Const WM_NOTIFY As Long = &H4E&
Public Const CDDS_PREPAINT As Long = &H1&
Public Const CDRF_NOTIFYITEMDRAW As Long = &H20&
tks for explain.
really my prob is to insert a icon .gif in a listitems cell of listview but without imagelist component.
And the ico is in a c:\mydir\ico.gif...
Possible to change the background color, no text color(i know the way), in a single cell of listview, for example in row6 cell 9?
the listview is in a userform of excel project.
I use vb6 and ado.
have a Access database.
FIELD_INDEX_ID FIELD_TOT FIELDTEST
I have listview with a checkbox in all rows items.
i need to know which checkbox was clicked or unclicked, and return a index number of row.
I need to use a IF condition to check format date?
I have the var S="NOV 2014" I need to check if S variable is a date in this format "MMM YYYY", possible ?
S as string dimensioned
This VB project use access database, but i need to use a cloumn range of sheet in workbook, possible to modify?
In other case if you have another way, is welcome.
I need to format a my number in:
Myvar=1 in MyNewvar=1,00
Myvar=1,5 in MyNewvar=1,50
In all case of Myvar use always two decimal after the decimal point, even if the number...
I have a listview with 7 column
first 2 column are ID, and ARTICLE
the column 3 to 7 have a price of ID
i need to check the best price from the cell item and associate the code in
In excel sheet have:
col A col B col C
AAA 1 0
BBB 1 0
AAA 1 0
AAA 1 0
possible to check the 3 colum and delete...
but this line not include the icon:
Set itmX = .ListItems.Add(, , "TEST")
this include ico:
Set itmX = .ListItems.Add(, , "TEST", 1)
part of code:
.Icons = Me.ImageList2
.SmallIcons = Me.ImageList2
Set itmX = .ListItems.Add(, , "TEST")
I have in a userform 4 listview:
i need to export in a text file the complete structure (column name, lenght, left or right align...ecc) for each listview in...
my actual var PERC=88 ICO return 4?????
should ICO be 1 .... from >=90 and <=100
i need to set this step of value is correct?
note: the var MYarray is dimensioned As Long
MYarray >0 and <=50 then ICO=4
MYarray >=50 and <=75 then ICO=3
MYarray >=75 and <=90 then ICO=2...
Me.LDAL.Caption = Format(mystring, "DD/MM/YYYY")
but dont work!
i have mystring="31102014"
how to convert in mydate=31/10/2014
mystring as String
mydate as Date
not all users have the same path where the winzip32.exe is stored....
i have see in Google is possible to set automaticlly the Zip path with "namespace" but wath is this?
Click Here to Expand Forum to Full Width
Survey posted by VBForums.