Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations Mike Lewis on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Search results for query: *

  • Users: anet
  • Order by date
  1. anet

    Suppress Printing of 0 Value

    How do I tell SAS not to print the value of a numeric variable if it is zero? I have a variable called SEGNUM which I initialize to zero at the beginning of my code. Then I have statements that set the value of this variable depending upon certain conditions, so there are times it will remain...
  2. anet

    Outlook 2000 - Drafts Folder & Forms

    I have created a simple telephone message form in Outlook 2000 and saved it to my Personal Forms Library but now we want everyone to be able to use it. What is the easiest way to do this? I thought of just sending everyone a copy to save in their drafts folder, but then each time they fill it...
  3. anet

    Textbox - Change vs. KeyPress Events

    Thanks John!!! That works perfectly.
  4. anet

    Textbox - Change vs. KeyPress Events

    Oops! I should have picked up on that. Thanks. However, the problem is that this snippet of code: strName = txtGroup.Text If strName <> &quot;&quot; Then Set rs = GetArtist(strName, strField) If Not rs.EOF Then With rs .MoveFirst If...
  5. anet

    Textbox - Change vs. KeyPress Events

    I have some code on the change event of my textboxes, but I only want it to fire if the user does NOT hit either the delete or enter key. I tried moving my code to the KeyPress event and prefacing it with: if KeyAscii <> 8 or KeyAscii <> 127 then 'my code here end if However, then my code no...
  6. anet

    Deleting from an automatically populating textbox

    I am using the following code to automatically retrieve matching information from a database and populate a text box as the user types each letter. lngOrigPos = txtLName.SelStart Set rs = GetArtist(strName, strField) If Not rs.EOF Then With rs .MoveFirst...
  7. anet

    Passing Group By value from VB to Crystal

    I want the user of my program to be able to select which field they want to group by and then pass that value to Crystal reports, but I can't figure out how to do that. Do I use GroupSelectionFormula, GroupCondition, or GroupSortFields? I have created my report with a group section, but...
  8. anet

    Error connecting to report from VB

    Additional Information: when I debug, the error that comes up at crReport.Action = 1 after the cannot connect error is: .Action=<property is write only> Help!!! This is driving me crazy! Thanks
  9. anet

    Error connecting to report from VB

    I am using VB6, CR 4.6 and Access 2000 and I think there is a discrepancy in my database connection. My global variable in my vb project is: Set myConn = New ADODB.Connection strDataSource = App.Path & &quot;\InventoryV1.mdb&quot; With myConn...
  10. anet

    Combining several fields

    I am working with VB6, CR 4.6 and an Access Database. I have a customer table with the fields: LastName FirstName CompanyName There will never be both a LastName and CompanyName entered, so when I pull up my customer report I want to have one field on the report called customer and fill it...
  11. anet

    Manipulating position of cursor in textbox

    Works perfectly! Thanks.
  12. anet

    Manipulating position of cursor in textbox

    That doesn't really work, because if the database returns a record the cursor goes to the end of the text. Here is what I am attempting to do: -User types the first letter of the name in the textbox -change event fires and queries the database using the like operator to find all names that...
  13. anet

    Manipulating position of cursor in textbox

    The following snippet of code works fine, except after execution the cursor positions at the beginning of the textbox instead of where the user left off. What I want is for the user to be able to keep entering the name in case the name that the database finds isn't the one they want. Private...
  14. anet

    Using Protect and Unprotect in VBA

    OK - this is getting really frustrating. The code that was working yesterday (if rCell.locked = false then rCell.locked = true) today is not and I didn't change anything! Now I am getting a message that says &quot;unable to set the Locked property of the Range class.&quot; I tried leaving out...
  15. anet

    Using Protect and Unprotect in VBA

    Thanks Geoff. I tried that first but couldn't get it to work. Maybe I was putting the code in the wrong place? I had placed it in the Worksheet Activate event, is there a better place? Annette
  16. anet

    Using Protect and Unprotect in VBA

    Thanks. I was actually using: Cells(MyRow, 1).Copy Sheets(&quot;Pay Slip&quot;).Range(&quot;G1&quot;) to copy data from one worksheet to another. So, I added a loop at the end of my sub as follows: For Each rCell In Selection If rCell.Locked = False Then rCell.Locked = True End...
  17. anet

    Using Protect and Unprotect in VBA

    I want to stop a user from entering information on a worksheet that is being updated through VBA code. I am using ActiveSheet.Unprotect, updating the cells, then using ActiveSheet.Protect at the end of the sub. The problem is that when the sheet is unprotected, the updated cells are somehow...
  18. anet

    Assign an Excel Row to a VBA variable

    I am copying cells from one worksheet to another. If I hard code in a cell address it works fine. But I want to copy only certain cells from a row that the user selects. How do I assign the row ID to a variable. Here is the code that I have so far: Private Sub cmdPaySlip_Click()...
  19. anet

    Macro to copy cells from one worksheet to another

    Thanks Rob. Now I have another problem. Here is my code: Private Sub cmdPaySlip_Click() Dim myRow as String (????)'is this the right datatype? If Selection.Rows.Count = 1 And Selection.Columns.Count = 256 Then myRow = Selection.????? Range(myRow,4).Select...

Part and Inventory Search

Back
Top