Visual Basic :: Monthview DayBold Works, But Resets To Todays Date.

MonthView DayBold
Hi,
I'm VERY new to VB (and programming). I have a "Journal" application that creates/opens an RTF file in a RichTextBox when you click a date on the MonthView control. If there is any text in the file, it is automatically saved as that date & ".rtf". (i.e. 10.10.2007.rtf) Otherwise it is deleted. How can I get
MonthView to DayBold the dates that have corresponding files?
I guess I should mention that the files are saved in a directory named from the year. (i.e. ..200710.10.2007.rtf)

Thanks in advance

MonthView Control - DayBold ?!?
Hi Guys, i am making a scheduling app. and i have a bunch of dates in teh database that correspond to dates that have some events scheduled on . Now i am trying to set those dates as bold on my monthview1 control that comes with SP4 common MS controls.

My control has a 3 month columns !!!

now my code goes through my database and looks for the dates, as soon as a date is found it is placed in a string found_date and then made bold ex:

monthview1.daybold(found_date)=true

PROBLEM: All teh days get bold, however if there is a date found that is not currently displayed on my month view control, i get a run time error message that says "A date was specified that doews not fall within maxdate and min date properties)

Ex: If my month view control currently displays months of January, February and March ( Since i have 3 month columns) all the dates that were found within these 3 months get bold, but if a date like June, 16 2005 was found for example then it will not display and give me an error.

I looked in the max and min dates properties and even implemented date diff function to make sure that it is within bounds, but it still doesnt work. Furthermore maxdate and mindate properties are set up to the very begging and end of time so to speak and they do not apply to teh months that are currently being displayed on my control.

Any ideas how to display all the dates in the control as bold, or atleast the dates that fall in the range of the months that are being currently viewed ????

How To Let MonthView DayBold Always Bold??
Hi agaaain ;-))
well.. now this is my problem, take a look at my code:

VB Code:
Sub MakeBold()MyFil = Dir(App.Path & "save")Dim hFil As IntegerDim strDat As StringOn Error GoTo proble Dim strTem As String hFil = FreeFileDo While MyFil <> "" Open App.Path & "save" & MyFil For Input As #hFil Line Input #hFil, strDat MonthView1.DayBold(strDat) = True Close #hFil MyFil = DirLoopproble:Exit Sub End Sub Private Sub Command1_Click()MakeBoldEnd Sub Private Sub Form_Load()MakeBoldEnd Sub

Well, It load every file in the folder "save", then takes the first line (that is a date) and set this date to Bold...
When I click in Command1, it works just fine, but why it doesn't get bold when form loads??

and when i change the month, the bold days got lost.
any idea?? where would be the best place to call the MakeBold??

other thing, when the forms load, i need that today be selectec
I can set the value, but I don't know how set it alway for "today"

thanks in advance

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)

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

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

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

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

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?

Monthview Default Date.
Hi I am working on the Monthview control. How can I get its upper Caption to always show the current Month and date upon form load. Thanks

MonthView Date Range In VB
How can I get the date range that I select in the MonthView control? It only seems to return the first date in the range.

Swi

How To Set The Monthview's Forecolor For The Selected Date
I want to set the monthview control's Forecolor for the selected dates which is in range (example : between 1/10/2006 to 15/10/2006). The dates will be obtained from another datetime picker controls.
How to do that? If anyone knows, please help me.

Selecting Date In Monthview Error
I am trying to display a week as a selection on a Monthview on a Form. Therefore I use the SelStart and SelEnd command for the Monthview. The date that I am trying to use in the monthview comes from my database which has been stored as a String. I use CDate(Date) to convert it to a date and then use this date as the begining of the selection and 6 days later end the selection. The code is below. I always get the error an invalid date range was specified.

I did notice that sometime the Format command would format the date as I want it i.e. dd/mm/yyyy and sometimes it will not depending on the date. e.g. The end date will always stay in the format mm/dd/yyyy even I try to format it.

DateVente = RSone.Fields("DateVente").Value

DateStart = Format(CDate(RSone.Fields("DateVente").Value), "dd/mm/yyyy")

EndDate = CDate(RSone.Fields("DateVente").Value)
EndDate = Format(DateAdd("d", 6, EndDate), "dd/mm/yyyy")

FormHoraire.MonthView.Value = Format(FormHoraire.MonthView.Value, "dd/mm/yyyy")
FormHoraire.MonthView.SelStart = DateStart
FormHoraire.MonthView.SelEnd = EndDate

Anybody has an idea how to solve this problem?

Mark

Monthview Or Dtpicker Date Mark
i post this thread;
using monthview control, i can put a multiselect by setting True on its MultiSelect property and by by clicking it..

but how can i put a mark online just like the Today? (encircle with red color) in my project(Reservation System), If the day like for example 9/02/2006, 9/20/2006, 9/27/2006 etc., it will encircle the monthview or dtpicker so that the user will know that date is already reserved?
they reply me;
don't believe you can with the standard monthview control.

so all i want to happen now how to put a mark on a date (just ask a mark) indicating that date is already reserved.. just coloring it with red or encircling with black just like the red default circle..

kindly help me pls

Monthview Showing Today's Date
The following code works,

VB Code:
Monthview1.Value = Now

But how can I set it so that "NOW" does not display a datetime. I want the date in a format like "YYYY/MM/DD".

I tried the "Dateformat property" of the Monthview control but notta.
I am getting ready to try trimming the time of the end manually, but I'm certain there is an easier way.

Date Conversion & MonthView Control
i have a table which stores the month (smallint), year (int) and the days in char(31), when a date, say 02/08/02 is selected from the Monthview control, how do i update them to the table?

More Date Format Issues (Monthview Control)
I have an earlier post on this board about sending dates to Oracle.

I decided to fix my program but I have one fairly large issue. My entire program revolves around a monthview control. This monthview control sends dates to a million different parts of my program. At one point it even formats a date as part of a unique ID (e.g. 051101xxxxx)

As a test I went into my regional settings and changed my date formats in Windows, and as expected that gummed up my monthview control (and all the code that uses it's values) pretty badly.

When I use a format statment to alter the format of the Monthview control it completely ignores it.

What's up with this. Do I need to specify a FORMAT statment everywhere a date is used in my program so that the users regional settings don't screw everything up?

I Need To Get Date Value From MonthView Control And Use It To Search Access Database
I am building a little app which allows user to click on monthview date and display study details for half hour time slots for the day chosen in a flexgrid in bottom half of form.

I don't know much about SQL. So far I can get the app to display items with a value of today's date but I can't get it to pick up the date clicked and use that.

I need help fairly urgently or I will have major egg on face!

Changing Date From Today In Monthview Not Taking Place In Listview
Gentlemen:

I am here revisiting my one and only learning curve first VB6 project - A loan Amortization program. I have researched your forum for the solution but have not found it so I will present it to you.

The starting date for this project is always Today.

The attached snapshot will demonstrate that when I click on the date Sept 30, 2005 twice the MSFlexGrid is updated to show this date but I can't get the Listview to update to the changed date.

How can I accomplish this change to occur when a new starting date (Month Day Year) is selected in the Monthview???

Here is the code for the listview, but I can't get it to display the double clicked new date from the Monthview:

Code:
If NXtraPeriod = Val(gridHOSR.TextMatrix(gridHOSR.Rows - 1, gridHOSR.Cols - 10)) Then TxtExtra = 0
Dim dNumberPeriods As Long
Dim dOuterIndex As Long
Dim dCalendar() As Date
Dim intMonth As Integer
Dim intDay As Integer
Dim intYear As Integer
Dim ExtraPrincipal As Double
Dim d As Date
Term = Val(TxtTerm.Text)
Periods = Val(TxtPeriods.Text)
intDay = Calendar.Day
intMonth = Calendar.Month
intYear = Calendar.Year
Dim Dateclicked As Date
Calendar = intMonth & "/" & intDay & "/" & Right(intYear, 4)
d = Calendar
intMonth = 0
Max = Val(TxtTerm.Text) * Val(TxtPeriods.Text)
dNumberPeriods = Max
Calendar = d
d = DateAdd("m", -1, d)
CVDate (Format(CStr(Dateclicked), "dd mmm yyyy"))
For dOuterIndex = 1 To dNumberPeriods 'dNumberPeriods

intMonth = intMonth + 1
d = DateAdd("m", 1, d)
Set lItem = LVHOSR.ListItems.Add(, , intMonth)
lItem.ListSubItems.Add , , d
Next dOuterIndex

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

DayBold Not Working In Access
Hi,
For some reason the .DayBold will not bold my days. I have check my values all the way into the With and they are right.
Do I need to refresh the Monthview somehow get them to show? It looks like to me that it should work, but thats not saying much.
Any help would be apperciated.
thanks

VB Code:
Do While rs.EOF = False If rs.Fields("REASON") <> " " ThenIf YEAR(rs.Fields("MMDDYY")) = YEAR(MonthView9.Value) ThenIf MONTH(rs.Fields("MMDDYY")) = MONTH(MonthView9.Value) ThenDebug.Print "offDays " & offDaysintDay = Day(rs.Fields("MMDDYY"))Debug.Print "intDay " & intDayintDay = intDay + offDaysWith MonthView9.DayBold(MonthView9.VisibleDays(intDay)) = TrueEnd WithDebug.Print "intDay after " & intDayEnd IfEnd IfEnd If rs.MoveNext Loop

Date Report Works NOT!
i used data report on my project but at the begining it gave an error as

Quote:Failed getting Rowset(s) from current data source

Then i tried to do like,

Code:Private Sub Command1_Click()
DataEnvironment1.rsXYZ.Open
DataReport1.Show
End Sub

But this time i'm getting another error msg Quote:run-time error 80040200 class not registered

What to do now! any idea?

Edited by - Shandy on 4/2/2004 11:36:57 PM

Insert Data Into Flexgrid Where Date Or Data Equals Value Of MonthView
im trying to insert records into a FlexGrid where the date of the records is equal to the date of the Month View; but whenever the form loads or the date is clicked no records come up.

(the code may be right and it may just be another part of the program that is ruining it but either way im stumped.)

The code im using for both form_load and date_click is:

With dtaManager

    If Len(App.Path) <= 3 Then
        .DatabaseName = App.Path & "Manager.mdb"
    Else
        .DatabaseName = App.Path & "Manager.mdb"
    End If
        query = "select Date,Time,Name,Street,Town,"
        query = query & "State,PCode,"
        query = query & "Phone from Manager "
        query = query & "where Date = '*" & MVCalender.Value & "*' order by Time"
        .RecordSource = query
        .Refresh

End With
        MSDates.Refresh

Help if u can PLease
This stuff can really get to u :(

Thanks,
Monks

Form On TOPMOST Sometimes Resets...
I'm using SetWindowPos API to set the form on top most, but sometimes it resets, and I have to manually set it on top most again. It hapens quite often lately...

Is there a way to detect when the form is not on top most anymore, and re-set it to top most again ?

Err Object Resets After Using CreateObject???
I have created a seperate DLL that logs and displays all my error messages. I noticed that when i get an error in the IDE it passes the proper variables to the components and everything is logged properly. When i compile the executable and run the same code it passes a 0 for the Err.Number and "" for the Err.Description. Here is some of the code that i am using

This is the code in the Executable:

Sub Main()

On Error GoTo ErrorHandler

Dim bolTest As Boolean

; I created this to simply test my error handler
bolTest = "TEST"

ErrorHandler_Exit:
Screen.MousePointer = 0
Exit Sub
ErrorHandler:
; pobjErrorTrap is declared as an object in a module as Public
; I inserted a message box before the CreateObject line and Err.Number is 13, but after that line the Err.Number shows up as 0

Set pobjErrorTrap = CreateObject("ErrorTrap40.clsErrorTrap")

; Here i simply call my object and i pass it the required parameters

Call pobjErrorTrap.ErrorTrap(Err.Number, Err.Description, Err.Source, App.EXEName, mcstrModuleName, "Main")
Set pobjErrorTrap = Nothing
GoTo ErrorHandler_Exit

End Sub

VB 6 Resets Screen Resolution
VB 6.0 SP 6 application resets screen resolution to 800x600 on Windows XP. I have not written any code to cause this to happen.

I have installed on Windows 2000 and Windows XP (SP1 and SP2) without this happening, so am confused.

Any help would be apprecieated.

Access Date() Function Works On His Machine But Not Mine
Hi Folks
Im getting a "unknown function 'date' in validation expression or default value" when using a date() function in a field. My mate who created the database has no problems on his nt workstation or his win 2k laptop.

Im getting this error when I try to create a new record in the database using my win2k workstation or my winnt workstation. I didnt make any changes to the db. This function just dosent work when I open this db. Ig I create a new db the function works fine.

Access 2000 versions are the same on all pc's. ***?
I know this is an access question in a VB forum but I was doing some vba for event handling in the app when I noticed this.
Cheers

User Control Resets At Runtime
I have a usercontrol I creaeted, I want to be able to set all subjective variables, such as font caption and such, as it is a button. I can do this but then when I go to run it, all the variables are reset to what they are for default. I have seen other usercontrols, that friends have made that dont do this. I have looked at them and can not figure out what makes one different from the other, can any one help me on this one?

Wrote A DLL, Public Enum Resets Itself. Why?
OK, we have a huge bunch of modules and classes that wrap around ADO and add functionality and robustness. I am attempting to turn this collection of mod's and cls' into a DLL.

But

A public enum that you set when you substantiate the object (represents the version of Crystal we are using for that project) returns 0 as soon as the code step from the projects referencing the DLL, into the code of the DLL itself.

Anybody know why this is?

It works fine if I use a Public enum, but as soon as I do it properly and set it through a Property Let, it stops working.

cheers,

Jim.

Connection Resets When Uploading Files From A Client-server Application
Hi, hope someone could help me out on this.

I am debugging an existing client-server application written in vb 6. This application basically uploads files from the client app to the server. The post will be handled by an ASP page that calls an IIS Application(Web Class). It seems to work fine, but when I tried doing uploads for files greater than 4MB, a timeout error was returned. When I looked at the IIS log, it has an sc-status 200 and sc-win32-status 64.

The server app resides in win 2k3 enterprise ed. sp 1 that acts as a domain controller. I have a client app running on win xp professional sp 2. When uploading files from winxp to win 2k3, even up to 6MB, no timeout error was returned. But when trying to simulate the action by uploading a file in client app in win2k3 to the server app that resides in the same machine, the error occurs.

Based on my researches, sc-status 200 means that the request have been successfully done by the IIS. According to microsoft, the sc-win32-status 64 message means that "The specified network does not exist", meaning the client resets the connection after receiving the final response from IIS.

I've done many configuration tweaking, such as increases in IIS connection timeouts, ASP file buffering, etc, even installed hotfixes (Microsoft KB898708) but to no success. I've also tried monitoring the activity thru TracePlus Winsock but I couldn't pinpoint exactly where the connection resets because the application hangs after clicking the upload button.

I'm looking at the angle that the problem has something to do with the client program, which was written using Microsoft Internet Transfer Control (MSINET), a wrapper class for WinInet. Thus, I would like to have a good monitor that oversees the client request-response activity while connected to the server so that I would be able to catch the reset error. Can someone direct me to the appropriate mechanism may it be a software, approach, whatever! Moreover, can you shed some light why does this happen? I am desperate as I have already spent 3 weeks and counting solving this bug.

Please please PRETTY PLEASE?!?!

Many thanks!

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.

Why Method Resync Works In MS SQL And Doesn't Works In Oracle?
Here is my code:

mrst.LockType = adLockOptimistic
mrst.CursorType = adOpenStatic
mrst.CursorLocation = adUseClient

mrst.Resync adAffectCurrent, adResyncAllValues

it works perfectly when application is connected to the MS SQL database, but with Oracle it doesn't work, giving the next error message:

insafficient key column information for updating or refreshing

Subclassing Works / Works Not
HI

On a form I API-create a richedit3 and a listbox. When subclassing the richedit
my richedit-window-function looks something like this:

Public Function NewWindowProc( _
ByVal hWnd As Long, _
ByVal uMsg As Long, _
ByVal wParam As Long, _
ByVal lParam As Long) As Long

dim result as long

result=CallWindowProc(oldWindowProc, hWnd, uMsg, wParam, lParam)

select case uMsg
.
.
.
end select
end function

This works fine but as You can see it first lets system process message and then does own processing.
If I switch CallWindowProc(...) and select case uMsg, i.e.

Public Function NewWindowProc( _
ByVal hWnd As Long, _
ByVal uMsg As Long, _
ByVal wParam As Long, _
ByVal lParam As Long) As Long

dim result as long

select case uMsg
.
.
.
end select

result=CallWindowProc(oldWindowProc, hWnd, uMsg, wParam, lParam)

end function

richedit stops responding.

Any Ideas?