Recent content by dim

  1. D

    Solved Open a specific folder using the first x letters

    Finally I found a solution to my problem. I get the first word of the company name (TERRA) using: (instate of using the first 3 letters) [shortname]=Left([CompanyName],InStr([CompanyName]," ")) and strFoldername = Me.shortname If Dir("\\datasrv\serverdata\Customer's Documents\PO\" &...
  2. D

    Solved Open a specific folder using the first x letters

    I created a field [shortname] on the form which is Left([CompanyName],3) So shortname on the form show TER and the name on the server is TERRA I tried to use dir function to check if the fiolder exist and then open it: strFoldername = Me.shortname If Dir("\\datasrv\serverdata\Customer's...
  3. D

    Solved Open a specific folder using the first x letters

    Let's take another example: If the name of the company is TERRA LAND and the folder name is TERRA, this code doesn't work: strFoldername = Left(Me.CompanyName, 3) FollowHyperlink "\\datasrv\serverdata\Customer's Documents\PO\" & strFoldername If I use the first 5 letters of the entire word...
  4. D

    Solved Open a specific folder using the first x letters

    Ok, so I tried as you said, but I get a runtime error 490 "Cannot open the specified file" Private Sub Command361_Click() strFoldername = Left(Me.CompanyName, 3) FollowHyperlink "\\datasrv\serverdata\Customer's Documents\PO\" & strFoldername End Sub
  5. D

    Solved Open a specific folder using the first x letters

    This is what I get: ? Dir("\\datasrv\serverdata\Customer's Documents\PO\ABC" , vbDirectory) ABC ? Dir("\\datasrv\serverdata\Customer's Documents\PO\ABC\" , vbDirectory) .
  6. D

    Solved Open a specific folder using the first x letters

    Sorry, I don't understand. You mind to put this code: ? Dir("\\datasrv\serverdata\Customer's Documents\PO\ABC" , vbDirectory) under the click event of my button? I tried anyway, but the question mark (?) is not recognized by vba and will be converted to Print Can you explain please?
  7. D

    Solved Open a specific folder using the first x letters

    I tried and I I get a runtime error 490 "Cannot open the specified file" strFoldername = Left(Me.CompanyName, 3) If Dir("\\datasrv\serverdata\Customer's Documents\PO\ABC\", vbDirectory) = "" Then MsgBox "Missing folder with this Company name or rename it to match the exactlly full name" Else...
  8. D

    Solved Open a specific folder using the first x letters

    Presently, don't find any folder which start with ABC, so appear the message "Missing folder with this Company name"
  9. D

    Solved Open a specific folder using the first x letters

    Hi, I need to open from a form a specific folder where will match only the first 3 letters. Example: On the form I have a field named [CompanyName] and in this example [CompanyName]="ABC Customer" On the server, the folder name for this Customer is only ABC (without Customer) To open this...
  10. D

    Query filter problem

    I tried for more fields, but I can't figure out a good solution. So applied to one field is working, but not for the others fields. [Forms]![Tools List]![cbo_Radius] OR [Forms]![Tools List]![cbo_Radius] Is Null Any others ideas?
  11. D

    Query filter problem

    Thank you theDBguy, but I tried [Forms]![Tools List]![cbo_Radius] Is Null Or [Forms]![Tools List]![cbo_Radius] & "*" and doesn't show any records. Thank you pbaldy, I tried: [Forms]![Tools List]![cbo_Radius] OR [Forms]![Tools List]![cbo_Radius] Is Null and is working fine for Radius, but when...
  12. D

    Query filter problem

    Hi, I have a form “Tools List” based on a query “Tools List Query” I need to filter more fields on the form using a combo box for each field. As example to filter “Radius” field I’m using cbo_Radius and in the criteria query: Is Null Or Like [Forms]![Tools List]![cbo_Radius] & "*" The...
  13. D

    Special Update Query

    Hi, Finally I found another way for this project, so I cancel this thread. Thank you!
  14. D

    Special Update Query

    Hi, I have a table ordered by operation number ON, with others two fields Department, and ETD (Estimated time) I need to make an update query to change the ETD values where the department Milling CNC or Lathe CNC will appear two times. For example op no 80 and the next 100 are in the same...
  15. D

    Hide values list in combo box

    I found a solution to my problem: Private Sub Operator_NotInList(NewData As String, Response As Integer) SendKeys Chr(vbKeyEscape) Me.operator = "" SendKeys Chr(vbKeyEscape) End Sub
Back
Top Bottom