Search results for query: *

Hi, I have a chart in ms excel which I populate via ADO. On display, it has X-Axis values based on numbers (1-9). I need to change this to dates e.g. (26-Jan to 2-Feb) Thanks Phathi. X-)

Hi Jorge, The way I usually do this is to use the SHBrowseForFolder together with SHGetPathFromIDList In A Module You Type Option Explicit Private Const BIF_RETURNONLYFSDIRS = 1 Private Const BIF_DONTGOBELOWDOMAIN = 2 Private Const MAX_PATH = 260 Private Declare Function SHBrowseForFolder...

Okay, This might help follow the white rabbit http://www.freevbcode.com/code/APIByName.zip (Source Code) then you can make a call like x = CallApiByName("kernel32", "GetProcAddress", hwnd, VarPtr(s(0))) Ciao Phathi. :~/

Hi, Here's a Flexgrid/combobox gig that might help http://www.mvps.org/vbnet/code/subclass/comboflexgrid.htm Apparently, the microsoft datagrid cannot do this, but as in life, anything can be faked... follow the white rabbit http://support.microsoft.com/support/kb/articles/Q235/9/44.ASP I...

Hi, Not exactly understanding.... There is an API call within the Kernel called GetProcAddress Public Declare Function GetProcAddress Lib "kernel32" _ (ByVal hModule As Long, _ ByVal lpProcName As String) As Long example: to get a pointer to the GetDiskFreeSpaceExA API in...

Hi Niraj, Here goes Public Sub OpenWithoutSchema() Dim rs As ADODB.Recordset Set rs = DAOconn.OpenSchema(adSchemaTables) Do Until rs.EOF If Not rs!TABLE_TYPE = "SYSTEM TABLE" Then 'use table to heart's content...

Okay, Good News and Bad News ... Bad News As far as I know, you cannot find the description property using ADO... some shmuck decided that people don't use this anymore (and some other shmuck backed him by putting descriptions in right-click in Access 2000). Good News DAO is NOT...

Hi, If you still need this... Option Explicit Public Function DateGood(NumDays As Integer) As Boolean Dim TmpCRD As Date Dim TmpLRD As Date Dim TmpFRD As Date TmpCRD = Format(Now, "m/d/yy") TmpLRD = GetSetting(App.EXEName, _ "Param&quot...

Hi, Create a command button then cut and paste Option Explicit 'This API is for the SendMessage function call - basically sends a message to the specified hWnd Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As...

Hi, In Oracle there is an ALTER TABLE command, where you can ALTER TABLE tabName modify colName NewDataType I suppose in Access (it uses Microsoft Jet) it would be the same. The syntax of ALTER TABLE is [b] ALTER TABLE table {ADD {COLUMN field type[(size)] [NOT NULL] [CONSTRAINT index]...

Okay, Nowe that I've told you what you don't want to hear, here's something a bit closer to your reality. Sub SendEmail(From As String, SendTo As String, Subject As String, _ EmailText As String, Optional AttachmentPath As String, _ Optional Attachment As String, Optional CC As...

Hi, Use a proc and send the parameters after you've got them from the user. e.g. Private Sub WriteFile(inInitial as integer, _ inNoOfLoops as integer, _ inName as string) open "C:\X.TXT" for output as #1 for iLoop=inInitial to inInitial+inNoOfLoops...

Hi, Use a proc and send the parameters after you've got them from the user. e.g. Private Sub WriteFile(inInitial as integer, _ inNoOfLoops as integer, _ inName as string) open "C:\X.TXT" for output as #1 for iLoop=inInitial to inInitial+inNoOfLoops...

Hi Mark222, I don't know if this white rabbit will be good enough http://www.freevbcode.com/code/ASPChatWorX30.zip Author: Brian Gillham Email: BGillham@FailSafe.co.za Ciao Phathi. >(::O>

Hi, when you say taskbar icon, I assume you mean the icon in the system tray . follow the white rabbit http://www.freevbcode.com/code/sys_tray_icon.zip To create a popup menu you write an invisible menu in the form then popupmenu it on the right click of the control you will be downloading...

Hi, Here's a proc : Sub GetContactList() On Error GoTo Test_Error Dim oOutlook As Outlook.Application Dim oNameSpace As NameSpace Dim oContactFolder As Object Set oOutlook = GetObject(, "Outlook.Application") Set oNameSpace =...

Hi, This might help you, but I'm not sure to what extent. The VB CD has a tool called depency walker. It basically gives you a treeview of all related components and also a list of functions... play with it and it might solve your problems follow these white rabbits 1...

Sorry, A correction in the OpenEmailProgram Function. Public Function OpenEmailProgram _ ByVal EmailAddress As String) _ As Boolean Dim res As Long res = ShellExecute(0&, "open", "mailto:" & EmailAddress, vbNullString, _...

Hi, To open a default client, you can use the ShellExecute funciton which recognises email addresses if they are prefixed with mailto: and run the default program. Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _ (ByVal hwnd As Long...

Use The MDI property. One is an MDI form (add new MDI form) One is an MDI child (change MDI child property to true) If this is what you ask....