• WSjimalmaguer

    WSjimalmaguer

    @wsjimalmaguer

    Viewing 13 replies - 1 through 13 (of 13 total)
    Author
    Replies
    • in reply to: ‘The value you entered isn #649052

      Thier short date style is mm/dd/yy in the windows regional settings. I had them try changing the short date settings to 4 digit year and it made no difference. The only other software they said they recently installed was “Pro System FX” and “Laser Librarian”, both are tax software packages. I’m looking into if either of these programs use MS Jet and/or the DAO libraries and if perhaps an older dll was installed somewhere. I suppose I could have them uninstall Access and reinstall… but what a pain. Oh, and yes the database is compacted : )

    • in reply to: ‘The value you entered isn #649027

      Yep, I tried that and everything looks OK in my db. No broken references. That still would not explain the weird behavior in a newly created mdb file on the end users machine though right?

    • in reply to: fix code to send email (Access97) #649024

      I recently implemented sending e-mail through Access without using Outlook at all. I used a FREE dll from Persists Software (AspEMail 4.5) aspemail.com. This has made things so easy compared to dealing with the Outlook object library. After I set a reference in my db to the aspmail dll, I use the following Sub to send e-mail.

      Public Sub SendEMail(SendMailTo As String, SendSubject As String, SendBody As String, Optional SendAttachment As String)
      Dim Mail As MailSender

      ‘Create an instance of the AspEmail object as follows:
      Set Mail = New MailSender

      ‘To send email messages, AspEmail “talks” to an SMTP server. You must specify the SMTP host address and, optionally, port number as follows:

      Mail.Host = “mail.yourhostname.com”
      Mail.Port = 25 ‘ Optional. Port is 25 by default

      ‘You must also specify the sender’s email address and, optionally, name as follows:
      Mail.From = “Your E-Mail goes here”
      Mail.FromName = “Your Name goes here”

      ‘ Optional
      ‘To add the message recipients, CCs, BCCs, and Reply-To’s, use the AddAddress,
      ‘AddCC, AddBcc and AddReplyTo methods, respectively. These methods accept
      ‘two parameters: the email address and, optionally, name.
      ‘Notice that you must not use an ‘=’ sign to pass values to the methods.
      ‘For example,

      Mail.AddAddress SendMailTo
      ‘I don’t use the CC and BCC so I have NOT included them in the parameters of the sub
      ‘Mail.AddCC “bjohnson@company2.com” ‘ Name is optional
      ‘Mail.AddBcc “raymond7@graytonhouse.com”
      ‘Mail.AddBcc “jimalmaguer@yahoo.com”

      Mail.Subject = SendSubject
      Mail.Body = SendBody
      If Len(SendAttachment & “”) 0 Then
      Mail.AddAttachment (SendAttachment)
      End If

      Mail.Send

      End Sub

      I use the above sub from whichever form I want to send e-mail from and either fill in the parameters from a recordset or from the values on the form I’m using. To use the attachment you will need another dll from Persists for attachments.

    • in reply to: Access Security Woes! (2000) #552695

      Thanks for the great idea. I’m not that experienced in creating my own ad-ins but I guess I’m going to have to learn. Where would you store the add-in on the end user machine? In the MS Office folder or in my Application’s folder?

      Thanks again
      James groovin

    • in reply to: Access Security Woes! (2000) #552683

      Hello Jayden,

      What you describe is exactly what I’m talking about. I distribute the main front end as an MDE. I also give them a “Report Writer” that is an Access MDB with links to the Back End data. I have a few modules and forms that allow the MDB to automatically re-link to the data on their hard drive (defauly location) or supply Open File dialogs to allow them to re-linlk to the data on their network. I’ve also designed several forms and code that allow users to easily share reports that they create. I create VBA patch files to update objects and code in the report writer without ever having to overwrite the entire MDB file. I want to secure my VBA in this report writer but still allow them to create VBA code if they want to.

    • in reply to: Start of Week #523328

      Mark,

      I went to Rupert’s message and I figured it out! Thanks!

      Jim

    • in reply to: Start of Week #523324

      Thanks pointing me in the right direction.

      I’ve been playing around with the weekday function in the report and I’m still not getting the results I need. here is the SQl statement for the report.

      SELECT DISTINCTROW FacilitySchedule.Date, Weekday([Date],2) AS Weekday, Format([date],”dddd”) AS Day, Events.EventName, FacilitySchedule.BTime, FacilitySchedule.ETime, FacilitySchedule.RoomName
      FROM Events INNER JOIN FacilitySchedule ON Events.EventID = FacilitySchedule.EventID
      WHERE (((FacilitySchedule.Date)>=[forms]![Report Date Range]![BegDate] And (FacilitySchedule.Date)<=[forms]![Report Date Range]![EndDate]))
      ORDER BY FacilitySchedule.Date, Weekday([Date],2);

      I need to see events one week at a time per page Monday-Sunday for the date range the user enters. I've been trying different groupings and intervals on the report using the weekday function. I got pretty close once where it put Monday first and then everything within 6 days after Monday but then it put ALL the sundays at the end. Any ideas?

    • in reply to: Display a checkbox field in a listbox #511103

      I hate to be the bearer of bad news but as far a I know there is no may to do this in an Access 97 list box (I’m not using Access 2000 yet so I don’t know if can be done there). I use a third party ActiveX control to list data where I need to see the check box in a column of a list box.

    • in reply to: Running 97 and 2000 on the same machine #1775206

      You are right about the runtime files for 97 and 2000 being a mess to deal with on the same machine. We ended up shelling out some $$$ to get some install scripts for the Wise Installation system from Sagekey to avoid it completely. Their scripts install the runtime files for 97 and 2000 in their own directories with their own registry entries etc. Since I started using them I have had NO problems. http://www.sagekey.com/index.htm

    • in reply to: Code Library in Office 2000 #509519

      Why would they password protect the durn mdb file anyway?

    • in reply to: Report data in rows not columns #509380

      SORRY! My sql was wrong! Should be:
      strSQl = “SELECT Employees.CompanyID, ”
      strSQl = strSQL & “Employees.EmployeeName ”
      strSQl = strSQl & “FROM Employees ”
      strSQl = strSQl & “WHERE (((Employees.CompanyID)=” & Me.CompanyID & “));”

    • in reply to: Report data in rows not columns #509379

      I can think of two things. Create a subform and link it to your main form using the child field/Parent field Property of the subform. Size the subform on your main form to the largest size you need it to be. Set it’s Can Grow property to NO. Next go to the subform’s page layout to set up as many columns you need and which way you want the data to flow in the columns. When you run the main report the data in the subform will flow into the columns instead of expanding downward. You have to make sure you size the subform properly so that no data is cut off since the Can Grow property is set to NO.

      Another option involves coding. You could create an unbound text box and populate it by looping through a recordset in the GroupHeader format event, separating the data by commas. Group By the company and place the text box in the group header not the detail section. Set the Can Grow property to YES. Here is how I have done this using DAO.

      Dim dbs As Database, rst As Recordset, strSQl As String

      strSQl = “SELECT Employees.CompanyID, ”
      strSQl = “Employees.EmployeeName, ”
      strSQl = strSQl & “FROM Employees ”
      strSQl = strSQl & “WHERE (((Employees.CompanyID)=” & Me.CompanyID & “));”

      Set dbs = CurrenDb
      Set rst = dbs.OpenRecordset(strSQl)

      With rst
      ‘Check if there are any records. If not exit.
      If .EOF = True And .BOF = True Then
      Exit Sub
      End If

      Do Until .EOF = True
      ‘If there is no value in the text box add the first name
      If Len(Me.txtNames & “”) = 0 Then
      Me.txtNames = !EmployeeName

      Else
      ‘Add the next names
      Me.txtNames = Me.txtNames & “, ” & !EmployeeName
      End If
      ‘Move to the next record
      .MoveNext
      Loop
      End With

      rst.Close
      Set rst = Nothing
      Set dbs = Nothing

    • in reply to: Code Library in Office 2000 #509374

      The code library on my system is launched by CLSTUB.EXE.
      Use the icon found by clicking Start-Programs-Office 2000 Developer-Code Librarian. I don’t think you can access the mdb file directly. If you don’t have this shortcut on your start menu you need to install this feature.

    Viewing 13 replies - 1 through 13 (of 13 total)