Search results

I got it working! The code is now: Private Sub cboProvider_Change() If (Not IsNull(Trim(Me.cboProvider))) Then Me!sfrmDenialTracking.Visible = True Me!sfrmDenialTracking.Form.RecordSource = "qryfrmDenTrackingActionNeeded" Me.sfrmDenialTracking.Requery End If Me.cboCaseID.Value = ""...

theDBguy: I tried setting the focus to the subform as you suggested, but got run-time error 2110: "can't move the focus to the control sfrmDenialTracking". Attempts to correct that led to other errors. Pat Hartman: I made the following changes, based on your comments and on the code from other...

I have: Main form – frmDenialTracking Combobox on main form – cboProvider Subform – sfrmDenialTracking (this is the name of the subform AND the subform control) The combobox selection provides criteria to a query which I am changing the recordsource of the subform to. When I select from...

I think I solved the problem. I added the rest of the fields from tlkpReview to the query grids (including CaseNbr) and then the new record was added without error. Thanks.

This error message “cannot add record; primary key for table 'tlkpReview' not in recordset” appears on selecting from combobox cboDecision when entering a new record. This has been working with the table in Access (in the previous version of this database), but the error started appearing when...

I got back to this problem today after working on other priorities. I noticed that 2 time fields were mostly blank. Only 2 records had values in these fields. I removed these fields from the query and will try to update them separately. After removing these fields and running the append query...

I have the following scenario: data is entered into a fillable pdf. This is then read into an Access table where all fields are Text. Some of the fields represent time values. I need to append the data from this table to another table where the time values are Date/Time type. When I run the...

I just found out that I don't actually need this function on this form. It is used (and working with a different query) on another form in the database. So the solution turned out to be just to get rid of the button and its code. Thanks for your reply.

I am getting a data type mismatch error on the following code, on the line in bold: Private Sub cmdMarkEntered_Click() Dim db As DAO.Database Dim rst As Recordset Dim qdf As QueryDef Set db = CurrentDb Set qdf = db.QueryDefs("qryfrmRefTrackingEntryNeeded") For Each prm In qdf.Parameters...

I believe I have resolved the issue. I created tblHIMTracking which does not contain ReviewLevel. I created an append and an update query to populate this table (run in the Form_Open code of the main form) so that the subform source is now an updateable query using only tblWkshtHeader and...

I tried it. The selection looks like it works but the recordsets are not updateable. The first query (qryMRA1) is: SELECT qryDRGReferred.CaseNbr, tlkpReview.ReviewLevel, qryDRGReferred.SampleNbr, qryDRGReferred.ProviderNbr, qryDRGReferred.ProviderName, tlkpReview.Outcome, tlkpReview.ReviewDate...

JHB, Thanks for your reply. I will try this and let you know how it goes.

I have a lookup table with a compound primary key: CaseNbr and ReviewLevel. An example of the data in these fields is: CaseNbr ReviewLevel 1 PRA 1 MRA1 2 PRA 3 PRA 3 PC1 3 PC2 4 PRA 4 PC1 4...

I solved the problem. It turned out that I was using the wrong names for some of the fields. Basically, I didn't need the numbers on the field names, it was just "CaseNbr" instead of "CaseNbr#1", etc. Thanks for your attention.

From some more research into this problem, I modified the code to the following: Function basPreFill(strSample As String, strFacility As String, strCaseID As String) Dim strWSFormName As String, strSql As String Dim AcroApp As CAcroApp Dim AVDoc As CAcroAVDoc Dim theWSForm As CAcroPDDoc Dim...

Thanks for your replies, I am just getting back to this after being out of the office for a few days. I modified the code to Dim strWSFormName As String as The_Doc_Man suggested. Then I noticed that the name of the PDF template file was wrong, and corrected it. When I ran the code, it stopped...

Gasman, When I expand the Acrobat objects in the Locals window it says "No variables". Does this mean they were not created? What would I see if they were created?

The code does compile. Somehow the code that I posted is missing the quotes that were there. Here it is again: strSql = "SELECT CaseNbr, AdmitDate, DischDate, SequenceNbr, SampleNbr, Provider, County, " & _ "[SampleNbr] & ' (' & [ReviewSite] & ' )' As SampleNbrReviewSite, Flag1, Flag2, Flag3, "...

The Doc Man, jso has a value of Nothing. rstCaseInfo : I expanded it in the Locals window, then expanded "Fields". There was a list of fields "item 1" through "item 21". This is the number of fields, but none show a value. However, when I mouse over "rstCaseInfo" on each jso.getField line, it...

Hello, I have the following code to pre-fill some fields on a PDF form. Function basPreFill(strSample, strFacility, strCaseID As String) Dim strWSFormName, strSql As String Dim AcroApp As Acrobat.CAcroApp Dim theWSForm As Acrobat.CAcroPDDoc Dim rstCaseInfo As Recordset Dim jso As Object...