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 SkipVought 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: *

  1. coolscan3

    TransferText Max String Size

    DoCmd.TransferText acExportDelim, "TOutputSpec", "tOutput", "c:\data\Agresso.txt", False Is there a limit to the length of a string that can be exported to a Fixed length csv file I have set the size to 500 in the specification file but only get a max length of 255
  2. coolscan3

    Open Access Database Exclusive

    Thanks for the Reply I tried start msaccess drawingsSA.mdb /excl previously but access could not find DrawingsSA.mdb After further investigation start msaccess %cd%\drawingsSA.mdb /excl worked ok
  3. coolscan3

    Open Access Database Exclusive

    It is to form Part of a batch file which will require a relative path (To run from a DVD) hence the need to Open Exclusive to avoid writing the .ldb file
  4. coolscan3

    Open Access Database Exclusive

    I am using : "C:\Program Files\Microsoft Office\OFFICE11\MSACCESS.EXE" "C:\Test\DrawingsSA.mdb" /excl to open a Database Exclusive, works fine Is it possible to open it exclusive without using the "C:\Program Files\Microsoft Office\OFFICE11\MSACCESS.EXE" part
  5. coolscan3

    Textbox Rotation

    Can a Textbox be rotated 45 degrees
  6. coolscan3

    Report Recordsource Reference

    Thanks, the reports() was what I was missing
  7. coolscan3

    Report Recordsource Reference

    Is it possible to refer to a reports recordsource using a variable eg. DoCmd.OpenReport Variable1 & "Report2", acViewDesign, , , acHidden Reports!Variable1.RecordSource = sqlstr DoCmd.Close acReport, Variable1 & "Report2", acSaveYes
  8. coolscan3

    For Each Problem

    Thanks for you help, yes this does work fine
  9. coolscan3

    For Each Problem

    Cannot see a problem with this Code Dim db As Database Dim tdf As TableDef Dim fld As Field Dim n As Integer Set db = CurrentDb DoCmd.SetWarnings False DoCmd.OpenQuery ("qBelowStandard") **** Make Table Query Set tdf = db.TableDefs("tBelowStandard") MsgBox (tdf.Fields.Count) *******...
  10. coolscan3

    On Error Goto Not Working

    Thankyou Remou, That was the problem
  11. coolscan3

    On Error Goto Not Working

    I have the following Code: On Error GoTo Err_Handler Dim db As Database Dim rst As Recordset Set db = CurrentDb Set rst = db.OpenRecordset("select * from tSample where sftshift='K'") MsgBox (rst!wodref) Exit sub Err_Handler: MsgBox ("Error") A "no current Record" error is deliberatltely...
  12. coolscan3

    Syntax errror in Join Operation

    This is the Complete Code constr = "ODBC;DSN=PlanetEnterprise;Description=PlanetEnterprise;DATABASE=PlanetEnterprise;Trusted_Connection=Yes" sqlstr = "select fds.nonPMJobs.npmJobRef,fds.workorders.wodref " _ & " from nonPMJobs " _ & " INNER JOIN fds.Workorders ON fds.NonPmJobs.npmJobRef =...
  13. coolscan3

    Syntax errror in Join Operation

    I have a Pass through query and am getting a syntax error in join operation. sqlstr = "select fds.nonPMJobs.npmJobRef,fds.workorders.wodref " _ & " from fds.nonPMJobs " _ & " INNER JOIN fds.Workorders ON fds.NonPmJobs.npmJobRef = fds.Workorders.npmJobRef" _ & " where...
  14. coolscan3

    Changing colors in Pie Chart

    Code for changing colours in a Pie Chart Please
  15. coolscan3

    Chart Series Colours

    How can you change series colours based on the series datalebel e.g. datelabel "Priority 1" Series colour Red
  16. coolscan3

    OLE Activation

    The OLE Object is a microsoft access database which I want to run automatically when the Crystal report Runs
  17. coolscan3

    OLE Activation

    Is it possible to activate an OLE object automatically when a Crystal Report Runs?
  18. coolscan3

    Suppress Header On Last Page

    Thanks Roy That appears to work Fine
  19. coolscan3

    Suppress Header On Last Page

    Is it Possible to suppress the header on the last page of a report. Private Sub Report_Page() If Me.Page = Me.Pages Then Me.PageHeaderSection.Visible = False Else Me.PageHeaderSection.Visible = True End If End Sub This code works but not until you have diplayed the last...

Part and Inventory Search

Back
Top