Visual Basic :: FIXED!!! Display Todays Date <Access>

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)

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

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
--------------------------------------------------------------------------------

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 With Todays Date
I am trying to save the text in a text box as for example "20050511.txt" for todays date. I want the date to update automatically and I want the file to save when I click a command button.

Please help if you can

Creating A Text File With Todays Name And Date
Question:how to create a text file with the name of the file being today's date and time

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.

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

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?

How To Find The Date Range In MS Access And Display In MS Flex Grid?
How do i search the date range which can be specified by the user and all the records from these date range will be display in MSFlexGrid. Can someone help me with this??

Thanks.

Comparing System Date With Fixed Date
Hi

Back again! (great site - very helpful)

Is it possible to compare the system date with a written date?
I've shown the current date by:

Label1.caption = date

I've a list box which has several dates which the user clicks
on to obtain information for that particular date. These dates I've displayed by just putting them in quotes i.e. "10th April 2001".

Can I check these dates against the system date and disable the choice should the date have passed?

Any help gratefully received

TKS

Ben

Matrix Display, Fixed Length?
Hello all,
I'm working on a control that has the Matrix type of Display, NOT the movie.

Currently, the scoll length is = to the numbers of characters being used. I would like to change it so that the display shows all the characters that will fit into the specified number of character placements.

For instance, if the displays width is about 3/4ths of the way across the form, I want it to display text across the same distance. So, if your text string is only 15 characters long, I want it to show those 15 characters as often as need be to cover the display.

Example:

"Hello there!!! Hello there!!! Hello there!!! Hello there!!! Hel"

Get what I mean?

See the attached file for more information.

Any help or advice is greatly appreciated,
Thanx,
ziggy2004

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

Microsoft Access {FIXED PROBLEM}
I just been following a tutorial which shows you how to impliment a database into your form, and it said to open a databse file that was in the vb directory and i did so and it worked, it was a microsoft access databse, I made my own database on Microsoft Access 2003 and when I went to choose the DataField for a caption it said 'Unrecognized database format' Is there a way of saving the database so vb can recognise it?

Fixed Field Position In Access Report
In my report their is one field [Dear sir] witch must be always on the same position (row). On top of this report their is one field witch may grow. But if this grows the [Dear sir] field must stay on line 10 and not go to line 11. Is this possible and how can I do so?

Kees

Access: Fixed Position Under Can Grow Control?
On my Access Report, I have two columns of data (to make it fit on one page). on the right side at the top is a Can Grow text box. It works well and pushes the information on the right side down properly, but it ALSO pushes the information down on the left side, even though no part of it extends over these controls. Is there a way to fix a position of a control so that the Can Grow textbox does not change its position?

This question has been asked before with no answer, but hopefully I can get one this time:
http://www.xtremevbtalk.com/showthread.php?t=132668

Converting Fixed Length Fields Into Access
Hi,

Anyone know the best way to convert old fixed length fields into an Access table. The fields where created using the old basic method of Get# and Put#.

Thanks,
met12

Managing Fixed Width/delimited Specifications (Access DB)
Hello,

I have a quick question (hopefully)

I am allowing my users to create Access specifications through my software but when I try to use it to load a text document I am getting an error:

"The fixed width specification "File_Fixed_Spec" contains no column widths."

Any idea on what this is? Has anyone used Access specifications to load large text files?

Thanks in advance!

Importing A Fixed Width Text File Into Access
Hello all...

I have run into a bit of a problem here. I need to import a fixed width text file into Access. I have seen a lot of code running around here for delimited files, but nothing for a fixed-width one.

I will post some of my code here.... The STRUCTURE table holds both the column headings and the field length for each column. Then I read in the text file and parse it according to the lengths grabbed from the structure table. Hope everyone can follow

Set MyConn = New ADODB.Connection
MyConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:.db1.mdb;"
MyConn.Open

Set MyRecSet = MyConn.Execute("SELECT * FROM STRUCTURE;")

ColNumber = MyRecSet.Fields.Count

On Error Resume Next
Set MyRecSet0 = MyConn.Execute("Create table JRADS_DATA2;")

ProgressBar1.Min = 1
ProgressBar1.Max = counter
ProgressBar1.Value = ProgressBar1.Min

StartPos = 1
Open JRADSText.Text For Input As #1 'Windows FileOpen
Do While Not EOF(1)
Line Input #1, Str 'Grab line from text
EditString = Str
For iCol = 0 To MyRecSet.Fields.Count - 1
EditString = Mid(Str, StartPos, MyRecSet.Fields(iCol).Value)
Set MyRecSet2 = MyConn.Execute("INSERT INTO JRADS_DATA2 (" & MyRecSet.Fields(iCol).Name & ") VALUES ('" & EditString & "');")
StartPos = StartPos + MyRecSet.Fields(iCol).Value 'Reset start position for mid() function
Next iCol 'End For
StartPos = 1
'ProgressBar1.Value = iRow
Loop
'iGrid2.Redraw = True
ProgressBar1.Visible = False
Close #1 'Close File
MyConn.Close 'Close Datbase connection

This kind of works...

However, it inserts into the databse like this..

|--col1--|--cols 2--|--col3--|
---text
------------ text
-----------------------text

I need it like this..

|--col1--|--cols 2--|--col3--|
-- text --- text --- text

Any help you can provide would be great... Thanks!

Access Export To Text File Problems--NM Its Fixed
Hi,
here's the problem. I got a "new" mechine at work. When I try to export a table from MS Access that contains a date field I need it to be in MM/DD/YYYY format. Under the advanced options of the export wizard there is the option to have leading zeros and a four digit year for the date field. When I select these options the date is not changed, nothing happens. Is this a bug or is there a setting I'm missing?? Thanks.

Cyphin
~Of all the things I've lost, I miss my mind the most.~
~Iz vseh veshei chto ya poteryal, ya bol'she vsego skuchayu po rassudku.~

Edited by - Cyphin78 on 2/18/2003 1:15:44 PM

Program Problem Needs Fixed Fast!! Please Help {Access Report Print Preview}
I have a program that has a couple problems that have to be fixed yesterday.

I need to get the program to do a print preview or page setup (be able to specify which pages they want to print, like pages 23-31 of 45 or page 27 of 45) Can anyone help me with code that does this without giving them access to the whole database.

The code that i am using currently is:

If txtSpot.Text = "" Then
Else
'Set index property required for seek
datMachine.Recordset.Index = "spotnumber"

'Seek a record in the task table to see if the spot number exists
datMachine.Recordset.Seek "=", txtSpot.Text
If datMachine.Recordset.NoMatch = True Then
MsgBox "Please enter a valid machine spot number"
txtSpot.SetFocus
Save = False
Action = vbDataActionCancel
Exit Sub
End If
lblspot.Caption = txtSpot.Text
datDate.Recordset.Edit
datDate.Recordset.Update
End If

If Timer1.Tag = "" Then
Timer1.Tag = "4"
Timer1.Enabled = True
Exit Sub
End If

'Prints the Task Report from Access to the users default printer
Dim objAccAppl As Access.Application
On Error GoTo ErrorHandler
If txtSpot.Text = "" Then
Set objAccAppl = GetObject("C:dp283dp283.mdb")
objAccAppl.DoCmd.OpenReport "task", acViewNormal
Else
Set objAccAppl = GetObject("C:dp283dp283.mdb")
objAccAppl.DoCmd.OpenReport "task2", acViewNormal
End If
Timer1.Tag = ""

Exit Sub
ErrorHandler:
MsgBox "Please make sure that the printer is on, has paper and is not currently in use"

I can do a print preview with this code:

'added changes to test for print preview
'***************************************
'Set objAccAppl = GetObject("C:dp283dp283.mdb")
'objAccAppl.DoCmd.OpenReport "task", acViewPreview
'objAccAppl.Visible = True
'
'If vbOK = MsgBox("Continue with print?", vbOKCancel) Then
'Else
' Unload Me
' End
'End If
'
'objAccAppl.DoCmd.OpenReport "task", acViewNormal
'
'objAccAppl.Quit acQuitSaveNone
'Set objAccAppl = Nothing
'***************************************
'end of changes

but it lets you do a print preview in Access of the report that is selected. But this also lets them roam free in the database. The can close the selected report or hit design view or any other things that you can do if you just double clicked on the actual database. I only want them to be able to see the report and then pick a page or range of pages to print from.

Another problem that I am having is:

The problem is that when it prints, it first prints the report very about 3 inches by 2 inches in the top left corner. It is the full page and everything is correct but it just prints the whole page really small in that corner. On the second try of printing the report it prints fine. Is there any fix for this?

PS
I was told that this problem is supposed to be in a printer forum? I cannot find a forum dedicated to periphals or printers, so I am posting here. If you know where I am to move this thread please e-mail me or pm me.

Thanks for all of your help,
Richard

Access VBA Syntax For Fixed Field Text File Data Import
I need to read some text files into a blank access database. They are in a fixed field format. The leftmost character in each text line identifies what kind of data is included on the line. I am fairly competent with VBA and VB for Excel and understand how to parse each line into its data elements using the Left, Right and Mid functions. Ex Data = Left(ParseString, 4) with some If-Then and Do-While loops.

I am totally unfamiliar with VB and VBA programming for Access. I understand I will need to first build a blank database with the proper tables and fields in place and then load the data from the text file into the tables and fields.

Can anyone help me with some boilerplate code (or a link) that would show how to populate the database? In excel I would simply use objWorkSheet. Cells(Row, Column) = Data, where Data is my parsed data element I need to add to my worksheet (objWorkSheet).

I don’t understand Access VBA syntax, nor am I very familiar with Access but I believe I can build the necessary Tables using the wizards.

As I am lost, any guidance and or help would be appreciated.

Getting Todays Year
hi

how can i get the YEAR - like 99,

so that if i had someone's Age - i could work out their D/O/B?

thanks

r

Where Are Todays New Postings
The last post to this forum is dated Oct 9 ad 5:??Pm yesterday. Is this forum defunct?

Given Todays Computers What Are The Limitations Of VB W/ DX?
Just wondering, Im new to the whole VB scene and was wondering what if any limitations exist with VB and DX given todays computers. My two main interests are 1st person shooters and terrain engines. All 3d of course, are these things going to be possible with VB? I see tons of games that people make on the forum, which are very cool btw, but they are all 2d. All the ones i see anyway, is this because vb sucks for 3d?
My ultimate goal is too have a joyriding game where you can choose a small plane or a car and take joyride over a troical island or something to that effect. Is this something I can someday expect to do with VB and DX?

Thanks

edit: Sorry typos.

Display Date
How do i display a date like this to a label

05/03/07

Thanks

Display Date
How do i display date with ASP ?

Tried with the following code but it can't work. Any idea?

Response.Write Format(Date, "dd/mm/yyyy")

Display Date
this is probably the easist question. How do I display today's date in a Text box?

File Information Get Path ,filename,filesize,access Date ,modified Date
This tiny zip file have filename,filepath,fileaccess date,file　modified date
if picture file then size of the picture

Thanks guys

bellow code
-------------------------------------------------------------------
Private Const OF_READ = &H0&
Private Declare Function lOpen Lib "kernel32" Alias "_lopen" (ByVal lpPathName As String, ByVal iReadWrite As Long) As Long
Private Declare Function lclose Lib "kernel32" Alias "_lclose" (ByVal hFile As Long) As Long
Private Declare Function GetFileSize Lib "kernel32" (ByVal hFile As Long, lpFileSizeHigh As Long) As Long

Dim lpFSHigh As Long
Private fileN As String
Private fileP As String
Private fileS As Double
Private fileC As String
Private fileA As String
Private fileH As Long
Private fileW As Long
Private fileX As String
Dim fs As Scripting.File
Private Sub Command1_Click()
Call commonDialogCall
Call GetFileS(fileX)
Call FileWHget
Call FileDateGet
Call displayall
End Sub
Public Sub displayall()
Label1.AutoSize = True
Label2.AutoSize = True
Label3.AutoSize = True
Label4.AutoSize = True
Label5.AutoSize = True
Label6.AutoSize = True
Label7.AutoSize = True

Label1.Caption = "File name = " & fileN
Label2.Caption = "File path = " & fileP
Label3.Caption = "File size = " & fileS & " Byte"
Label4.Caption = "File Created = " & fileC
Label5.Caption = "File Accessed = " & fileA
Label6.Caption = "File height = " & fileH
Label7.Caption = "File Widht = " & fileW
End Sub
Public Sub commonDialogCall()
CommonDialog1.Filter = "*.bmp"
CommonDialog1.ShowOpen
fileX = CommonDialog1.FileName
fileN = CommonDialog1.FileTitle
fileP = Left(CommonDialog1.FileName, Len(CommonDialog1.FileName) - (Len(CommonDialog1.FileTitle) + 1))
End Sub
Public Sub GetFileS(FilePath As String)

Dim Pointer As Long, sizeofFile As Long
Pointer = lOpen(FilePath, OF_READ)
'size of the file
sizeofFile = GetFileSize(Pointer, lpFSHigh)
fileS = sizeofFile
lclose Pointer
End Sub
Private Sub FileDateGet()
Dim fs, f
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(fileX)
fileC = f.DateCreated
fileA = f.DateLastModified
End Sub

Private Sub FileWHget()
Dim pic As Picture
Set pic = LoadPicture(fileX)
fileH = pic.Height
fileW = pic.Width
End Sub

Private Sub Command2_Click()
End
End Sub
---------------------------------

FIXED!!! Display Todays Date &lt;Access&gt;

< 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 = DateEnd SubEdited by - SubPar_Coder on 9/15/2004 3:00:46 PM

FIXED!!! Display Todays Date <Access>