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!

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

Recent content by Sheena2

  1. Sheena2

    cannot get picture to display on the form

    Thanks Aceman1 the changes were made as you advised and it works now. have a nice day
  2. Sheena2

    cannot get picture to display on the form

    Thanks Aceman1 I am trying to show directions to a place using a map. Sorry cannot attach the file as it won't let me k=do that. thnaks for all your help
  3. Sheena2

    cannot get picture to display on the form

    When I put in the following code the picture does not change and it gives me the following message:cnnot ifnd the field txtpicture referred to in your expression. My pictures are in jpg format. thanks Please help. Private Sub Report_Open(Cancel As Integer) Dim GetPathPart As String GetPathPart...
  4. Sheena2

    cannot get picture to display on the form

    When I put the following code I cannot get the picture to be displayed . Please let me know what I am doing wrong. Private Sub Report_Open(Cancel As Integer) Dim GetPathPart As String GetPathPart = "S:\FDRCM\WorkShopMaps" On Error GoTo err_Report_Open If Not Me!txtPicture = "" Or Not...
  5. Sheena2

    Run time error 2451

    Please let meknow what I am doing wrong as I get a runtime error when I use this code. Private Sub Report_Open(Cancel As Integer) Me.Image.Picture = [Reports]![[Info_subreport]![S:\FDCRM\WorkShopMaps]] End Sub
  6. Sheena2

    Getting a runtime error 2147352567 (80020009)

    Thanks for your help Golom. But am still getting an error at Me.AttendeeID=Me![Combo35} - "Cannot assign value to this object" Please help. thanks
  7. Sheena2

    Getting a runtime error 2147352567 (80020009)

    Private Sub Combo35_AfterUpdate() ' Find the record that matches the control. Dim rs As Object Set rs = Me.Recordset.Clone rs.FindFirst "[AttendeeID] = " & Me![Combo35] Let Me.AttendeeID = Me![Combo35] Me.Bookmark = rs.Bookmark Me.Refresh End Sub Please help thanks
  8. Sheena2

    getting compile error cannot find project or library.

    Thanks for all your help. I did the changes and it works now. Have a nice day
  9. Sheena2

    getting compile error cannot find project or library.

    Hello I need help as the system is not recognising (olMailIt) could some one check my code and assist me as I am fairly new at this. Thanks for your asistance Private Sub SendInTouchToAdmin_Click() On Error GoTo Err_SendInTouchtoAdmin_Click Dim myolApp As Object Set myolApp =...
See more

Part and Inventory Search

Back
Top