All I am trying to do is based on month value of date typed in 2 unbound form text boxes assign it to summer,winter or mixseason.
I am getting a runtime erro 13 from the statement below.
When I debug both mStart and strJan etc(months) appear as string. I am not sure
where I am going wrong. Please help
Private Sub txtSeason_Click ()
Dim mStart As String...
User Profile
Collapse
-
Run Time Error 13 when compare two string formats help
-
Insert row excel after each record exported from access to excel
I would like to export a recordset from access to excel but after each record is exported I want to insert a new row.
The first recordset does this ok. However, the second recordset onwards does not not export line excelsheet.Cell s(9, 2) = rsschedulesreco rds.Fields(2).V alue.
Below is my code. Please help?
Private Sub CreateDailyRost er(rsschedulesr ecords As DAO.Recordset)
Dim excelapp As New... -
Help with DAO record schedule EOF File Error
I keep getting an error stating OBJECT VARIABLE OR WITH BLOCK VARIABLE NOT SET.
This error just recently began to happen.
I am exporting some records to excel into a preformatted report.
The records are exported successfully but this error pops up before the export is completed.
When I run the debugger this line gives the error message(OBJECT VARIABLE OR WITH BLOCK VARIABLE NOT SET)
If Not (rsSchedules.EO F... -
Its working great now thanks for all your help. -
Thank You For Your Response,
I used your suggestion but for some unknown reason intResult is not taking the added values when I debug it comes up as 0. Please take a look at all the code below.
intResult(gets value of 0) = (60 *intGrnTHour)(g ets correct time values) + intGrnTMinutege ts (correct time values)
Dim intGrnTHour As Integer
Dim intGrnTMinute As Integer
Dim intResult As Integer...Leave a comment:
-
TimeElapsed Greater Than 4 hours comparison
Hi,
Based on post in this forum,I was able to calculate time elapsed based on start and end times.
What I am trying to do is after getting the time elapsed. If the time elapsed is greater than 4 hours an error message is generated.
I have not been able to do this please take a look at what I have below:
[code=vb]Dim intGrounTHour As Integer
Dim intGrounTMinute As Integer
Dim intResult...
No activity results to display
Show More
Leave a comment: