Search results

  1. P

    Record.AddNew

    Hi Petr Danes, When I put the break, I see that the field rs.Fields("Cert") has the filepath I am trying to add in it and so does the variable but when I go to the table the value is not there. I have also tried The_Doc_Man's suggestion to no avail. Thank you for your help
  2. P

    Run-time Error 424

    I have this code in this form Private Sub Form_Load() If Me.Dirty = True Then Me.Dirty = False Me.Admin.Value = Forms![Frm_NewPEEntrySearch]!cboAdmin.Column(1) If Me.PE = True Then MsgBox "This employee is already marked as PE" & vbNewLine & "Would you like to proceed with adding a new...
  3. P

    Run-time Error 424

    Hello, I have read a few post of this error but none were helpful to my situation. This is all I am trying to do. Call the onload function from another form Private Sub Cmd_OpenFrmNewPEEntry_Click() Call Frm_NewPEEntry.Form_Load End Sub What am I doing wrong?:banghead: Thank you
  4. P

    Record.AddNew

    Hi Petr Danes, I just tried that it is not working. The ListBox has 5 column so when the user select one, it brings up the certificate filepath in another listbox But if there is no value in that field, I want them to be able to add the filepath. This is my problem because it is not adding...
  5. P

    Record.AddNew

    Hello Petr Danes, I would like to add information to an existing record. So I would like it to add that filepath to the field "Cert". I removed the rs.AddNew but it is still not adding that information in my table. I'm trying to understand why so now I have this: ' Add a new certificate filepath...
  6. P

    Record.AddNew

    Hello Guys, I have a form with several different controls in it. Right now, I am trying to get a command button to allow the user to: open a dialog box choose a file and then edit my recordset to add the new filepath to a field. The thing is at the moment, nothing is adding. Can you take a look...
  7. P

    ListBox VBA

    Thank you very much. It finally works! You guys rock :)
  8. P

    ListBox VBA

    Here is the code on the first listBox After_Update Event Private Sub ListBoxStateLic_AfterUpdate() 'ListBox1 Dim strtask As String strtask = "SELECT Cert FROM Qry_PEStateLicCert WHERE LicNum= '" & Me.ListBoxStateLic.Column(1) & "'" Debug.Print strtask Me.ListCert.RowSource = strtask 'ListBox2...
  9. P

    ListBox VBA

    Yes there is filepath to that certificate and the Row Source Type was set to value list. when I set it to Table/Query it is blank at runtime.
  10. P

    ListBox VBA

    Hello Guys, I stepped away from this for a little but I am back on it and it is giving me issues. Here is the code: Private Sub cmdCert_Click() Dim strtask As String strtask = "SELECT Qry_PEStateLicCert.Cert" & _ "FROM Qry_PEStateLicCert" & _ "WHERE...
  11. P

    ListBox VBA

    Hi Guys, That code might be an extra but my problem is the connection between listbox1 and listbox2. when I click on an item in listbox1 nothing shows in listbox2. what am I doing wrong there? I have tried everything with this code: Private Sub ListBoxStateLic_AfterUpdate() 'ListBox1 Dim task As...
  12. P

    ListBox VBA

    Hello, I have placed that code on there for the text box so that they can type a name. But isn't it what this code is doing? Private Sub ListBoxStateLic_AfterUpdate() 'ListBox1 Dim task As String task = "SELECT Cert,LicNum FROM Qry_PEStateLicCert WHERE (LicNum=" & Me.LicNum & " AND Cert= " &...
  13. P

    ListBox VBA

    Hello Guys, I need some help. I have a form with a textbox (to type a name), a listbox1 (that brings up the licenses for each person), and another listbox2 (that is supposed to bring up certificates associated with that license). From the name textbox to the 1st listbox1 it works. Now when I...
  14. P

    DateAdd()

    Hello Guys, I figured it out. First of all, I had to declare a new variable Olddate and and assign an existing field to it then I had to make so Olddate = Me.Expires Then set my field with the new values Me.NewExp=SetDate Thank you all
  15. P

    DateAdd()

    Hello Guys, I am trying to set a field 1 or 2 years out from another date (another field)and I used the DateAdd function but it is giving me an error Error 438 - Object doesn't support this property or method Here is my code: Private Sub SetDate_Click() Dim NewDate As Date NewDate =...
  16. P

    NoData reports

    Ok so I was able to get it to work. I place all my images into a group. I kept the Header but placed all my images and fields into the PhotosGrpFooter and then added a code under On Format 'If field = NA then PhotoGrpFooter.visible = false and the I changed the GrpHeader of the Photo Force New...
  17. P

    VBA Photos

    Hello Guys, The Image control source is already the invisible field in the report. The code I placed about is in the form when I upload the images but in the report, the images seems to show when they want and I don't understand what is happening here
  18. P

    VBA Photos

    Hello Guys, I have a Photo Summary report with 10 photos. Each image's data source is an invisible field with the photo path in another folder. Everything worked fine until yesterday. I noticed some of the images show sometimes and other times when I run the report it's not there. Here is the...
  19. P

    NoData reports

    Hell NauticalGent, Thank you for your response It is not working but I've now placed the photos into a group on my report and I've got the page numbering to restart after each group but I want the photo summary portion not to show if there is no value in the group. This is where I'm stuck
  20. P

    NoData reports

    Good day All, I need some help here.:banghead::banghead::confused: I have a report created with 4 page breaks so each sections prints specific values for each record (including a photo summary page). Some records do not have defficiencies (Page 3) or Photos (Page 4). How do I set it up where if...
Back
Top Bottom