My problem is that there is a "Back Button" that takes you back each step that you went through with all the instructions and to review or change what you previously typed. nothing is deleted and you can keep clicking the back button to go clear to the beginning.

How is the back button coded to do this?? and how does the text box retain the text entered??

I'm so confused because it all seems to be taking place within the main form or Window, NOT several forms being used...

Thanks Corby

sl#  Itemid  stock  price

1  4062  30      1

2  4062  40      1.5

3  4062  40      2

I want to deduct the stock when I sale the item.In this table you can see that the value of the stock is different.example

If I enter the sale quantity 35 then it should deduct the stock as 30*1 and balance 5*1.5 by using this table I want to make fifo stocking program so please give me the looping code though this table. I tried but fail any help would be appreciated.

12/10/2002 7:41:08 AM first name last name
01/10/2003 12:54:38 PM First name Lastname

I want every column in the recordset to be nicely formatted with a tab, vbNewLine works for me but vbTab isn't working

any help would be greatly appreciated.
Thanks

 im doing a prog in which , when “Load”  entered in text box the check box has to be selected automatically ... how to do it ,,, please help me

this is my code

if (pWnd->GetDlgCtrlID("Load") == IDC_EDIT1)
    {
      // Set the text color to red
      pDC->SetTextColor(RGB(255, 0, 0));

      // Set the background mode for text to transparent
      // so background will show thru.
      pDC->SetBkMode(TRANSPARENT);

    // Return handle to our CBrush object
      hbr = m_brush;
   }

     if (pWnd->GetDlgCtrlID() == IDC_CHECK1)
     {
      // Set the text color to red
        pDC->SetTextColor(RGB(255, 0, 0));

      // Set the background mode for text to transparent
      // so background will show thru.
        pDC->SetBkMode(TRANSPARENT);

      DWORD dwStyle = pWnd->GetStyle("Load");

     if ( dwStyle &(BS_AUTOCHECKBOX |BS_CHECKBOX) )

      // Return handle to our CBrush object
        hbr = m_brush;
     }
thanks in advance

Sub macro1()
 
  ListFilesInFolder "\\corp\networkshare\shareFiles", True

End Sub

Sub ListFilesInFolder(SourceFolderName As String, IncludeSubfolders As Boolean)
' files in SourceFolder'
' example: ListFilesInFolder "C:\FolderName\", True
Dim FSO As Scripting.FileSystemObject
Dim SourceFolder As Scripting.Folder, SubFolder As Scripting.Folder
Dim FileItem As Scripting.File
Dim r As Long
    Set FSO = New Scripting.FileSystemObject
    Set SourceFolder = FSO.GetFolder(SourceFolderName)
    r = Range("A65536").End(xlUp).Row + 1
    For Each FileItem In SourceFolder.Files
      ' display file properties
      Cells(r, 1).Formula = FileItem.Name
      Cells(r, 2).Formula = FileItem.Path
      Cells(r, 3).Formula = FileItem.DateCreated
      Cells(r, 4).Formula = FileItem.DateLastModified
      Cells(r, 5).Formula = GetFileOwner(SourceFolder.Path, FileItem.Name)
      r = r + 1 ' next row
    Next FileItem
    If IncludeSubfolders Then
      For Each SubFolder In SourceFolder.SubFolders
        ListFilesInFolder SubFolder.Path, True
      Next SubFolder
    End If
    Columns("A:G").ColumnWidth = 4
    Columns("H:I").AutoFit
    Columns("J:L").ColumnWidth = 12
    Columns("M:P").ColumnWidth = 8
    Set FileItem = Nothing
    Set SourceFolder = Nothing
    Set FSO = Nothing
    ActiveWorkbook.Saved = True
End Sub

Function GetFileOwner(ByVal FilePath As String, ByVal FileName As String)

  Dim objFolder As Object
  Dim objFolderItem As Object
  Dim objShell As Object

    FileName = StrConv(FileName, vbUnicode)
    FilePath = StrConv(FilePath, vbUnicode)

   Set objShell = CreateObject("Shell.Application")
   Set objFolder = objShell.Namespace(StrConv(FilePath, vbFromUnicode))
  
     If Not objFolder Is Nothing Then
     Set objFolderItem = objFolder.ParseName(StrConv(FileName, vbFromUnicode))
     End If
    
     If Not objFolderItem Is Nothing Then
     GetFileOwner = objFolder.GetDetailsOf(objFolderItem, 8)
     Else
     GetFileOwner = ""
     End If
    
   Set objShell = Nothing
   Set objFolder = Nothing
   Set objFolderItem = Nothing
  
End Function

There are 85 possible drugs to choose from, and so for each of the required drugs, what I wanted to do is narrow the list down a little bit using a first letter selection, and adding items based on that, maximum about 15. However, this would result in an enormous amount of code, because for each of the 8 drug selections I have to write specific code for cmbLetter1, cmbLetter2......cmbLetter8 to match up with cmbDrugs1.....cmbDrugs8. And for each of these I have to repeat the 85 entries.

But I know there must be a better way to do this!!

There are 2 attachments

1. A screen cap of the userform
2. Code sample for above problem (below)

Option Explicit
Dim strOption
With CreateObject("InternetExplorer.Application")
  .Fullscreen = True
  .Visible = True
  .Navigate "http://some URL//........"
  Do While .Busy
    WScript.Sleep 100
  Loop
  .Document.getElementByID("celldropdownlist").Value = strOption
End With

The result after i run this script is: IE loads ok and opens the page, from the dropdownlist i get my selection ok.... but nothing happens. The page should modify once with changing the value from the dropdown list.
Any thoughts are welcomed.

Br.
Andi

Option Explicit

Const OLECMDID_PRINT = 6
Const OLECMDEXECOPT_DONTPROMPTUSER = 2
Const PRINT_WAITFORCOMPLETION = 2

Dim oIExplorer
'Dim url

'Dim P
   
'For Each P In Printers
'    If P.DeviceName = "Xerox Color" Then
'      Set Printer = P
'      Exit For
'    End If
'Next

Dim objWMIService, objItem, colItems, strComputer

strComputer ="."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Printer")

For Each objItem In colItems
If objItem.DeviceName = "Xerox Color" Then
      Set Printer = objItem
      Exit For
    End If
Next

'If WScript.Arguments.Count < 1 Then 
 
'WScript.Echo "Required Parameter missing" 
'WScript.Quit

'End If 
 
 'Retrieve the first argument (index 0). 
 
'url = WScript.Arguments(0) 

Set oIExplorer = CreateObject("InternetExplorer.Application")
'oIExplorer.Navigate url
oIExplorer.Navigate "http://www.google.com/"

'Remove below line and uncomment all other lines
oIExplorer.visible = true

'oIExplorer.visible = False

Do while oIExplorer.ReadyState <> 4
wscript.sleep 7000
Loop

oIExplorer.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER

While oIExplorer.Busy

Wend

strsvc = clnt.webervermethod
'the result returned from the web service is sent to message box
MsgBox (strsvc)

i am using the above code
but i am not geeting the .webervermethod name after dot

& getting error

Currently I'm have this code:

'File Monitor.
Dim objWshNetWork
Set objWshNetWork = CreateObject("WScript.NetWork")

Dim computerName
computerName = objWshNetWork.ComputerName

'Using windows WMI service to monitor the file, basically its used to get the windows resources, this service is part of
'all windows installation, WMI is Window management Instrumentation service.

Dim objWMIService
Set objWMIService = getObject("winmgmts:\\" & computerName & "\root\cimv2")

Dim sDrive, sFolders

sDrive = "Y:"

'Y is mapped drive name, which points to network resource in LAN.

sFolders = "Test"

'sDrive = "c:"
'sFolders = "AutomationResults"

Dim objMonitoredEvents
Set objMonitoredEvents = objWMIService.ExecNotificationQuery _
    ("SELECT * FROM __InstanceCreationEvent WITHIN 20 WHERE " _
      & "Targetinstance ISA 'CIM_DirectoryContainsFile' AND " _
  & "TargetInstance.GroupComponent= " _
      & "'Win32_Directory.Name=""" & sDrive & "\\\\" & sFolders & """'")
  
Dim objLatestEvent
Do
 
 Set objLatestEvent = objMonitoredEvents.NextEvent

 MsgBox "A file is created"

 MsgBox "File Monitoring information"  & objLatestEvent.TargetInstance.PartComponent
 MsgBox "File Name:-"    & objLatestEvent.FileName

 MonitorFileCreation = objLatestEvent.TargetInstance.PartComponent

 Exit Do
 
Loop    
 
Set objWshNetWork   = Nothing
Set objMonitoredEvents  = Nothing
Set objLatestEvent   = Nothing
Set objWMIService   = Nothing

Any help is highly appreciated.

Thanks.