troubleshooting Question

Insert Into

Avatar of pdvsa
pdvsaFlag for United States of America asked on
Microsoft Access
8 Comments1 Solution313 ViewsLast Modified:
In the below, how can I set the value of the combo box on tblLCAmendHistory to ID=14 which corresponds to the word "ISSUE"?
I have a row source qry on AmendType in tblAmendHistory:
SELECT tblLCAmendTypeDropBox.ID, tblLCAmendTypeDropBox.Type FROM tblLCAmendTypeDropBox ORDER BY tblLCAmendTypeDropBox.Type;

I have not tested the below yet so there could be something wrong with the AmendType part.  I dont know if I need it in the first part or if I could remove it completely.

Also, if the LCNo is "" then I would want the code to stop and I think Cancel = True stops the code and therefor no insert.  Let me know that is correct.  

basically what I am doing is after user inputs a date in the field [DateOfIssueSB] then it should INISERT. I am not sure if I should use BeforeUpdate or AFterUpdate.  I think it might be beforeUpdate because need to test if Null but not sure if the date entered by user will be "seen" in the BeforeUPdate event.  

Anyways, any questions please let me know.

Private Sub txtDateOfIssueSB_BeforeUpdate(Cancel As Integer)

       Dim strSQL As String
   If Me.LCNo = "" Then
        MsgBox "Enter in the LC No before Entering the Issue Date (need it for Insert Event)"
        Cancel = True
     ElseIf (Me.DateOfIssueSB) = "" Then
    'wanting to insert the Date that was entered but only if it was Null before the date was entered.  If not null before update then that means there was a date already entered and dont want to do any Insert.

  strSQL = "INSERT INTO tblLCAmendHistory (AmendedDate, letterOfCreditID, EndUserID, LCNo, AmendType) VALUES (#" & Format(Date, "m\/d\/yyyy") & "#," & Me!ID & "," & Me!EndUserID & ",'" & HyperlinkPart(Me!LCNo, acDisplayText) & "' "    'NOT SURE WHAT I WOULD PUT HERE IF ANYTHING TO SET THE THE VALUE TO EQUAL "ISSUE" IN THE COMBO BOX. ON TBLAMENDHISTORY.
  End If
Hamed Nasr
Retired IT Professional

Our community of experts have been thoroughly vetted for their expertise and industry experience.

Join our community to see this answer!
Unlock 1 Answer and 8 Comments.
Start Free Trial
Learn from the best

Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.

Andrew Hancock - VMware vExpert
See if this solution works for you by signing up for a 7 day free trial.
Unlock 1 Answer and 8 Comments.
Try for 7 days

”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.

-Mike Kapnisakis, Warner Bros