smartchap
Last Activity: Oct 30 '12, 10:39 AM
Joined: Dec 26 '07
Location: Lucknow, India
-
In the table itself make a field for Date Created and in the program check the value (Date) of this field for each table in the database, if it is more than or equal to one month delete that particular table. -
You can do it easily using DAO.
After opening database use following code to see the result in a text box (modify as per your requirement):
...Code:Private Sub Command1_Click() 'MsgBox rs.Fields("Col1").Value rs.MoveFirst For i = 1 To rs.RecordCount Text1.Text = Val(Text1.Text) + Val(rs.Fields("Col1").Value) rs.MoveNext NextLeave a comment:
-
see link http://visualbasic.freetutes.com/lea...esson23.4.html for use of GetTickCount.Leave a comment:
-
Read first line in a variable, use INSTR$() to fine characters before a space, now use LEFT$() to put these left characters (before a space) in the desired variable. Go to next line and so on.
In place of this can use SPLIT function to read characters before first space.Leave a comment:
-
Please see the following site
** Link removed **
it may be of help to you
I have modified the code for you as :
...Code:Private Sub Command2_Click() Label2.Caption = "This" & vbCrLf & "is a" & vbCrLf & "long" & vbCrLf & "label to" & vbCrLf & "see how it reacts to the centering" Label2.Left = Picture1.Width
Leave a comment:
-
In Google search for "Error handling in VB6" and check the sites.Leave a comment:
-
In Google search for "Error handling in VB6" and check the sites.Leave a comment:
-
Also after For..Next loop value of i will be 1 more than number of columns so for
MsgBox ("no of fields = ") & i
you will get no of fields = 12 (for 11 fields).Leave a comment:
-
I think if u post ur project here, we could solve ur problem as from the post query is not very clear.Leave a comment:
-
smartchap replied to i need to export the infromation from msflexgrid1 to tbltransfer in my access.dbin Visual BasicIn tbltransfer create fields as per name of columns in msflexgrid1. In a For..Next loop, starting from 1 to last row of msflexgrid1 export data of each column to fields of tbltransfer by using rs.AddNew and rs.Update (where rs is name of Recordset for tblTransfer).Leave a comment:
-
Please make the query clear. Do u want to set focus to the adjacent TextBox when Label (adjacent to the textbox) is clicked? Then write code like:
Code:Private Sub Label1_Click() Text1.SetFocus End Sub Private Sub Label2_Click() Text2.SetFocus End SubLeave a comment:
-
Good to hear that u have got the solution. If u post ur code, I think it may be of benefit to others.Leave a comment:
-
See the attached file. Hope it will help u....Leave a comment:
-
Dear Hennie
Please make the problem clear. The code posted is part of some code and not clear about the problem being faced. What is the variable VALUE and what's its value?Leave a comment:
-
Dear ur question is not very clear. What data do u want to display in Combo Box? Is it a column of data from a table (out of two) or something else? If u want to display contents of a particular column in a Combo Box, I think, u must use Recordset (say named rs), goto first record, loop through each record with rs.MoveNext upto rs.EOF and add item of that particular field (column) into ComboBox.
If required something else, please make it clear...Leave a comment:
-
Dear
Your question not very clear. Please post zip file with exact problem, if not solved.Leave a comment:
-
Yes with sql query it is possible.
Or with fso it is possible.Leave a comment:
-
With the part of the code it seems that you have not used
rs.MoveNext
command to move to next record. Put ur code in a loop and check from first record with
rs.MoveFirst
I hope it will help u.Leave a comment:
-
Check the date portion of the Input Date if it is >=6 then make CheckBox.Value= True else False.Leave a comment:
-
Can u post the .zip file of ur work and tell about exact problem?Leave a comment:
No activity results to display
Leave a comment: