Visual Basic :: Saving A Text Box As Text With Todays Date

Saving Textbox With Todays Date
I am trying to save the text in a textbox with the with the current date automatically updated every day by simply clicking a button

This is what I have but it doesnt work

visual basic code:--------------------------------------------------------------------------------Public Function SaveText(Text1 As TextBox) As Boolean
Dim hFile As Integer
Dim sFileName As String

On Error Resume Next
hFile = FreeFile
sFileName = App.Path & "C:" & Format(Now, "yyyymmdd") & ".txt"
Open sFileName For Output As #hFile
Print #hFile, Text1.Text
Close #hFile
End Function

Private Sub Command1_Click()
Call SaveText(Text1)
End Sub

Private Sub Text1_Change()

End Sub
--------------------------------------------------------------------------------

Q.1 - Adding Todays Date To The Write File When Saving And Q.2 - Appending
I would like to know if I could add a statement to the write command somewhere in the following code, so the file would write Todays date at the end in date format MM/DD/YY:

As the text in my write file looks like this:

"Flower - Lilac",2,5.22,10.44

Could I get it to add TODAYS date automatically to read

"Flower - Lilac",2,5.22,10.44,03/07/04

My code now reads:

**************************************************
Private Sub cmdWriteQuotation_Click()
    Dim pintCurrentItem As Integer
    Dim pstrFileName As String
    Dim psngTotal As Single


    pstrFileName = _
        InputBox("Enter the filename", "Write File")
    If pstrFileName <> vbNullString Then
        Open pstrFileName For Output As #1
        For pintCurrentItem = 0 To _
            lstQuotedExtPrice.ListCount - 1
            Write #1, _
                lstQuotedProduct.List(pintCurrentItem), _
                Val(lstQuotedQty.List(pintCurrentItem)), _
                Val(lstQuotedPrice.List(pintCurrentItem)), _
                Val(lstQuotedExtPrice.List(pintCurrentItem))
        Next

    psngTotal = 0
    For pintCurrentItem = 0 To _
        lstQuotedExtPrice.ListCount - 1
        psngTotal = psngTotal + _
            lstQuotedExtPrice.List(pintCurrentItem) * 1.06
        ' Above line computes Sales Tax directly into total


    Next
    txtTotal.Caption = Format(psngTotal, "Currency")


End If
        Close #1

End Sub
****************************************************
Also, when I pull this data into an Access Table it leaves the .44 off the total price of 10.44 as from the line below: why?

"Flower - Lilac",2,5.22,10.44 (It pulls the 5.22 just fine, but the 10.44 it gives me 10)

Also someone told me how to append the write file here earlier by using the Append command with the For statement, but can't get that to work...could someone give me a clue how to change this Statement to append all new input to the same text file.

My existing code is above and if you can show me how to use the append command I'd sure appreciate this too...

Thank you
NMP

Checking For Date In Access File And Compairing It To Todays Date...
Hey all, i am stuck at this point in my program.

I need the program to load up my access table and check for the date of orders:

each record has a field called PickUp and its formatted like "sat 1/1/2004".

When the form loads up, i need it to check that field and the computers date and if its the same, place the record into the list view. Keep going down the list til EOF.

Any help would be great.

Thanks for your time,
David

Resolved -How Do I Get Tomorrows Date From Todays Date And Put It In Access An Query?
I figured this much out in VB but it returns a string. So how can I put in a Access query tomorrows date? I also want to do a report that is for the week. Do Date$ = 7 days... Any ideas on how I should do this?

Str(Month(Date$)) + "/" + Str(Day(Date$) + 1) + "/" + Str(Year(Date$))

Still Having Probs With Select Statement Where Date = Todays Date
Hi Guys

I am using vb6.0 connecting to a SQL database (runningMSDE)

I am trying to load all contacts where the recontactdate is today
I have tried the following but am getting the error - syntax error converting datetime to character string - please help!

my code -
onload - dtpicker1.value = date
(tblcontacts.dtmrecontactdate is date/time)

Set adoduecallbacks = New Recordset

adoduecallbacks.Open "Select * from tblcontacts where dtmrecontactdate = ' " & DTPicker1.Value & "%" & " ' ", db, adOpenStatic, adLockOptimistic

- Please help!!!

Thanks

Problem With SQL Date Query (Todays Date)
Hi there,

Having a problem getting an SQL query to work when searching a database for todays date (basically a reminder package).

Here's the query

Set MyRecSet = MyConn.Execute("SELECT CoxRef, CompanyName, ContactName, postcode, tel FROM Reminders WHERE ReminderDate = #(date)# ")

Have tried all sorts of different things such as '&(date)&'") etc.

Only works when I type the date in like so .. WHERE ReminderDate = 15/02/2005

Any ideas please ?

Seymour

Compair Todays Date To A Date On File
Code:
Public Sub CheckExpire()
sb.Panels(1).Text = "Checking For Expired Membership!"
Dim B
Dim A
B = 1
A = 1
Do
If sb.Panels(2).Text = list.TextMatrix(B, 5) Or sb.Panels(2).Text > list.TextMatrix(B, 5) Then
  If list.TextMatrix(B, 1) = "" Then
    Exit Do
  Else
    Form2.Show
    Form2.list.TextMatrix(A, 1) = list.TextMatrix(B, 1)
    Form2.list.TextMatrix(A, 2) = list.TextMatrix(B, 2)
    Form2.list.TextMatrix(A, 3) = list.TextMatrix(B, 3)
    Form2.list.TextMatrix(A, 4) = list.TextMatrix(B, 4)
    Form2.list.TextMatrix(A, 5) = list.TextMatrix(B, 5)
    Form2.list.TextMatrix(A, 6) = list.TextMatrix(B, 6)
    B = B + 1
A= A + 1
   End If
  Else
  B = B + 1
End If

Loop
A = A - 1
sb.Panels(1).Text = "Check Complete, " & A & " Found To Be Expired!"

End Sub

Humm? 0 Found, I Added 1 With A Expired Date, Ideas?

Edited by - catacomb on 8/29/2003 11:00:16 AM

Go To Todays Date Row
Hi-

I was wondering if anyone could help me write a macro that when clicked on would take the user to todays date.

My spreadsheet is set up with every date from now until 2010 on the left column.

I want a feature where you click on a button an it takes you to (maybe even highlights that row) the current date.

Any help would be appreciated. I have never used VB or macros before.

thx

matt

Todays Date
is there a way to have a caption display todays date?

How Do I Insert Todays Date Using Sql
I have an access table and I want to insert today's date into one of the field. What is the correct syntax.
This is not working:
Dim todaysdate as String
todaysdate = format(Now,"m/d/yy")
Insert into table(Date)Values(todaysdate)
Thanks

Doesn't Seem To Like Todays Date
Am I missing something?

CODEMe.MyDay.text = Day(date)

Sorting Data From An ASCII Text String And Saving It As Text File
Hi,
I'd first like to copy paste a section of my ASCII text string over here and then ask the question.Given below is the ASCII text string:

RT 01 A_UNIT
DEV 01 A_UNIT

=ontrol Mode ON LOCAL STAT
Occupied YES OCC
CCN Chiller START CHIL_S_S
Alarm State Normal ALM
Active Demand Limit 100 % DEM_LIM
Override Modes in Effect YES MODE
=
=?
RT 01 CIRCA_AN
DEV 01 CIRCA_AN

=IRCUIT A ANALOG VALUES
Percent Total Capacity 100 % CAPA_T
Percent Available Cap. 100 % CAPA_A
Circuit Running Current 185 AMPS A_CURR
Discharge Gas Temp - A2 122.9 dF DISTMPA2
Saturated Condensing Tmp 97.5 dF TMP_SCTA
Saturated Suction Temp 41.5 dF TMP_SSTA
EXV % Open 43 % EXV_A
Variable Head Press Pct. 0 % VHPA
=
=?

Given above is a portion of my ASCII text string.I'd like to know how to sort out the data from this file and copy it in the same format as given above into a new Text File,using the delimiting characters like the white space and the "?".The "?" indicates the end of the file and the following ASCII text string after every "?" indicates the start of a new text file.

I'd be very very grateful to the person who'd give me the solution to this.Thanking you in anticipation.

Newbie-Opening And Saving Text Files In Text Boxes
I'm trying to find a way to save text from a text box as a .txt file or .rtf and then be able to retrieve files of similar type and open them in a text box on my program. There must be a way to do this, I'm just not able to figure it out. Help?

List ALL Files For Todays Date
Hi,

Can someone please help me with the following request.

I wish to list all file names on my hard disk that have a last accessed/modified date of today - this includes all subdirectories
from the root directory.

Thanking you in advance.

Cheers,

Kevin

Adding Days To Todays Date
I want to add x amount of days to todays date. The number of days is held in an integer variable...how would i do it????

Inserting Todays Date With Button
I am v new to this VBA lark so be kind :-)

I have three cbo's - dd, mm, yyyy and what I want is a button next to the date dropdowns so you can click 'today' and it fills out the dd/mm/yyyy with todays dates.

I currently have this cbo code :-

    With cbodd
      .AddItem "01"
.............
      .AddItem "31"
    End With
    With cbomm
      .AddItem "January"
.............
      .AddItem "December"
    End With
    With cboyyyy
      .AddItem "2004"
.............
      .AddItem "2008"
    End With

Any help/pointers very welcome!

Thanks

Pete

Edited by - petebrooker on 6/22/2004 10:10:00 AM

Saving Text Of Mulitple Text Boxes To Txt File
I have a form with multiple text boxes that need to be filled out. I want the content of each of the text boxes to save into one text file on the local pc.

How would I do this.

Grabbing Text From A Text File And Saving As A String...
Hello everyone! Just a quick question...I have the following text file that I would like to grab the score from each hole, the par for each hole, the yards from each hole, the handicap from each hole, the player name, the course played, the tees played, the conditions played...basically everything as it's own string. How would I go about doing this?

Attached is the text file (it doesn't word wrap though...it does have carriage returns though):

Thanks in advance!

Dave Mosher

Text Box Text Adding Extra Space At End When Saving To DB
This is happening on only one out of about 20 forms that I have created...and I cannot pinpoint the reason for it...but would be interested in a possible solution.

I have appx. five text fields that are adding a space to the end of the string.

For example, I get some data like this: "myname "

See how there is a space at the end of the letter e? It is only occuring on this one form. Any ideas on how to get rid of this? Would a trim do the trick? Thanks in advance.

TempDyna.AddNew
TempDyna("User_name") = ConWriteID
TempDyna("F_name") = TxtFName.Text
TempDyna("L_name") = TxtLname.Text
TempDyna("Buyer_cd") = TxtUserCode.Text
TempDyna("admin_yn") = chkCWadmin.Value
TempDyna("Term_id") = TxtTermId.Text
TempDyna("ofc_symbol") = TxtOfficeSymbol.Text
TempDyna.LockEdits = False
TempDyna.Update

Reading Todays Date / Display Data
I'm writing a small address program and wish that it will display a list of birthdays/anniversaries that are happening 'today' when the form loads.

As I have the control version of VB I am unable to read from a database, so I thought that I would just list them - but can I get VB to read a list and recognise 'todays' date?

A direct to research would be helpful, Cheers

FIXED!!! Display Todays Date <Access>
< edit > I got it working...

How do assign today's date to a text box? I tried searching around here before posting a simple question.

Here is what I have:

Code:
Private Sub order_date_BeforeUpdate(Cancel As Integer)
order_date.Value = Date
End Sub

Edited by - SubPar_Coder on 9/15/2004 3:00:46 PM

Monthview DayBold Works, But Resets To Todays Date.
This is a pretty easy task I think, but I wanted to run this by everyone on the forum.

My program revolves around a monthview control. The user clicks the date they want to work with and off they go. What I'd like to do is have the monthview control show the days in bold where data has been entered into the database. That way the user can see at a glance (one month at a time) where they've entered data.

I think the easiest way to do this is to find the first and last day of the month their working in then run a query that selects distinct dates from the database where they fall in between the first and last days of the month. At that point I can loop through and say if there is a match, bold the day...if not, move to the next day.

So I guess all I need is how to find the first and last days of a month based on where the user is currently sitting in the monthview control.

Saving / Loading Text From A Text Document
For example..
When I press a button, I want "SCORPION" to be added to a .txt file. When I press another, I want it to load what ever is in that .txt file, and place it in text box = text2.text

How can I do this? Thanks!

Saving Text Box Output To A Text File
Ok Guys,

well I am getting there slowly and ive finally figured how to save text box output to file but ive got a problem:

Dim data As String

data = Text1.Text
Open "reminders.txt" For Output As #1
Print #1, data
Close #1

The thing is now that there is more than one text box that needs to save to the file and i want it so that each time someone clicks it makes a new record. What do i change or add to the code to make it create a new record by itself. I want all of the info from the text boxes and combo boxes to be one record and saved as one record once the save button is pressed. Then the next time its pressed i want it to save to a new record.

Selecting & Saving Unknown Text Between Known Text In IE.
I'm attempting to do the following in a program:

On whatever website I'm currently on, to find two pieces of text, and select all the text BETWEEN them.

Example, if it says:

My name is Bob the happy.

And I want to get all the text between 'My name is' and 'the happy', it should return 'Bob'.

How can I do this, if it's possible at all? (I hope it is x_x ) Oh, and... my example is weird.

Saving To Text File From Filename In Text Box
i am trying to save to a txt file that is the name inside a textbox so the user types the name of the file and it will eaither write to that file or create and write to that file i will also need it to be formatted in the txt file so like this

line 1:monday
line 2: monday_text
line3: tuesday
line4:tuesday_text ETC

if you could show me some code that would help me or icq me or somthing i would be greatfull

Creating Text Files And Saving Text To Them.
This is the best I can find to create a textfile and save a string variable's contents to it. Logically it doesn't make sense to me since you would first need to "create" a file before "opening" it, so either I just don't get it, or this is wrong.

Either way, it's not working, and generates the error: Run-time error '52': Bad file name or number

What am I doing wrong?
CODE'Saves to Text File
Dim strUserText As String
strUserText = "This is a bunch of text to save in a textfile."

Open "c:ProgramLogsLog_" & Date$ & ".log" For Output As #1
Print #1, strUserText
Close #1

Archive PPT-Save A Copy With Todays Date, If Doesnt Exist Already
I want to make a macro that will check a certain directory for a file with a filename like:

Presentation-20-09-2007.ppt

If the file for todays date doesnt exist, it saves the current presentaion with the proper date in the filename.

Is that possible?

Saving Text In Text Boxes
Hi there.

I'm having some trouble saving the text entered in the text boxes from the program I'm creating. I have many, many text boxes (about 60) on the form and I would like the info that gets entered into each text box saved.

Is there any way I can go about doing this? I tried many ways but none have worked.

Any help would be appreciated. Thanks

Saving In Msword For Text From The Text Box With Vb
How can i save the text from the text box.
e.g -

in textbox,
djfad
dfasdkfj
adfj

so, i want to save this text in msword with file. otherwise, i can read or open this text from msword software.

kindly request,

bad_boy_lay

Make VBA Read Date In Cell Which Contains Date & Text
VBA 6.3
Excel 2003

Hello,

I need my macro to be able to look at a cell which contains both text and a date, and be able to extract just the date part from it.

Example: cell conents - "COL 16/10/2005"

My macro has to be able to read the date and then paste it in another cell so that a formula in the work sheet will work (that subtracts this date from another).

Thanks in advance,

Henry

Replace Date Text With Printed %date:~4% Variable
Currently I have a .vbs script for a customer of mine that works fine, its a scheduled backup that runs every 12 months. Since they are growing a little we are looking to trim down to 6 months. This is no problem. We are using the following code to do this.

Code:

dim startdate
dim duration

startdate = #11/20/2004#
duration = 12

if dateadd("m",duration,startdate) < date() then

Where after then it runs a backup script that again works perfect. Currently since they were only running once a year we had some more code that would change the startdate as shown below.. This also works perfect.

Code:

Const ForReading = 1
Const ForWriting = 2

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("backup.vbs", ForReading)

strText = objFile.ReadAll
objFile.Close
strNewText = Replace(strText, "11/01/2004", "11/01/2005")

Set objFile = objFSO.OpenTextFile("backup.vbs", ForWriting)
objFile.WriteLine strNewText
objFile.Close

What we are trying to do now, is replace the 2nd part with the current date variable %date:~4% which would print exactly how we need. This would allow us to easily switch to 3 month backups and even 1 month a lot easier, as they grew. The only problem I am having is printing a permanent variable result IE %date:~4% = 12/31/2005 and using that in the 2nd part, rather than what seems to be happening now is %date:~4% is literally replaced, and that of course does no good as the variable is changed everyday.

What I am looking for help with is how to make %date:~4% show up as an actual date in the .vbs

Thanks ahead of time for any help

Matthew

Saving Text In A Text Box
Could someone please tell me how do I save text in a textbox?

I am able to do this, but it only saves the first line.

Can anyone help me out here? thx

Saving Text In A Text Box
hello,

i would like to know the code on how to save text in a textbox. for example, i have a text box on a seperate form and i want it so that when someone types inside the textbox, they can click on a command button to save it. then they can come back and the text will still be there. how do i do this?

thanks,

DFLW

Saving Text
I know how to save information in a text file to .bin, but that only saves to that one file. I want to create an address book that will save multiple files, basically click on a caption that will save the information and another caption that clears the information in the text box to enter new data and save it again, but still be able to load the previous address. Kind of like using a back and forward button between address. Whats the best way of doing this?

Saving Text.
Hi.

I was wondering if anyone could help me with saving something which has been input into a text box.

Right, I have a text box, (text1) and a command button (command1). When the command button is pressed, I want whatever is in the text box to be saved to a txt file, such as input.txt.

Thanks for any help .

Rtf Text Saving
when i save my text file, i have to copy it from an rtftextbox to a regular text box. but when it gets saved, it reads

Code:
{
tf1ansideff0{fonttbl{f0fnilfcharset0 MS Sans Serif;}}
viewkind4uc1pardlang1033f0fs17 &ACCESS RVO
par &REL 203
par &COMMENT none
par DEF CHARLES()
par
par END
par }

how can i stop this from happening?

Saving Text.
Hi,
I am currently making a basic notepad. I wanted to know, how would I
prompt the user if the user wants to save text the user updated from a
file when closing or exiting the form? So if he opens the files and
doesn't edit it, this message won't appear, but if he edits something
in the textbox, the message will appear before the user exits the form
completely.

Saving Text
Below my code that it allow user save all the text in side the textbox to a file name myFile.txt, how can i edit it and save it to another file and name it myself?

Code:
Private Sub CmdSave_Click()
'this sub saves all the data in txtBox to the file overwriting the info allready in there

Dim txtData As String

On Error GoTo handler: 'just incase the path is wrong or the file contains a null value

Open (App.Path & "myFile.txt") For Output As #1 'this opens our txtfile in output mode

If MsgBox("Warning this will erase all the data in file are you sure?", vbOKCancel) = vbCancel Then
Exit Sub
End If

txtData = txtBox.Text 'load data into varible
Print #1, txtData 'and send to the file

Close #1 'we should allways close the file to stop leeks

'error handle
Exit Sub

handler: txtBox.Text = "No Data Or Error Loading File"
End Sub

Thk for the reply

Saving Text
VB Code:
FileNum = FreeFileOpen "C: est.txt" For Output As FileNumPrint #FileNum, Text1.TextClose FileNum

I have the above code to save my text but everytime i save it overwrites the current test.txt file with the text in textbox1 when i just want it to add to the txt file everytime i save.

Cheers, William

Text Box Log Saving
OMG..new post again..twice in a hour X.x

Next prob..i have a box that logs everything that happens on my form
Now this log is clear as soon as you re-open the form of course..now i want to save this log into a .txt file..

how do i do this ?(it has to be a silent save,the user is not allowed to see it get logged)

Saving Text
Ok.. What im trying to do is let people write text in text boxes in form 2.. then when they push 'OK' it saves the text from all the text boxes.. and when form1 loads again the text in form2 loads

Saving Text
I have a form in a VB project where I have several rows and columns that calculate an employees sick time that will be updated each month. The rows are January through December and then the colums are left to right as follows; Previous month balance, sick time accrued, sick time used, date of sick time taken, and balance. My problem is when this form is updated each month can you save all of the data calculated in there so it is there when you open the form the next time. Right now every time I close the form and open it back up the data is gone. Is there a way to do this?

Saving A Text Box As Text With Todays Date

Does anybody have any idea on how to automatically save a text box as text with the file name as todays date.thanks

Does anybody have any idea on how to automatically save a text box as text with the file name as todays date.

thanks