I have the following statements:

Set Dbs = CurrentDb()
Set xR = Dbs.OpenRecordset("Select Rm1Bd1,Rm1Bd2,Rm1Bd3,Rm1Bd4 FROM QUOTESDETAILS Where Resid = 1")

I need to create the sum of all of the variables. Is it possible to use something similar to this:

For I = 1 to 4
  xSum = xSum + xR!["Rm"&I]
Next

Thank you for any help!

How do I get an access report to give me percentage of Group1 totals, over the detail items in the other two groups.

I have a income statement that i want to show a percentage of sales for each item in the detail for each group. Cost of sales, and operating expenses.

I have attached sample report.

I am using a cross tab query report, so i can't just do a sum on the field, because the field will change depending on the periods.
I usually would try to code around this but i can't seem to figure this one out.

Currently the report will give me the percentage of just each groups total for the detail items.
IncomeStatement.JPG

I have a document with multiple tables.  The next to last table needs to have the width of the 3rd column set so that it is the width of the text in the column so that the single element in the column doesn't get cut across 2 lines.  For example, one row has something like
C2AJ_YZ-10-AB-002.  Currently, this column cuts the string after the first hyphen, but I'd like the column to fit the text in one row.
   My first issue is how to access the correct table.  (This table will always be the next to last one.)  Then, how do I set the width of the whole column to be the same width as the text in that column?

Chris Cote

Hi!

I'm currently using the following code to search a recordset and return email addresses. It works well. That said, I would like to change the search criteria to a text value but I don't seem to be able to do that.  My code

 With Me.Parent.ClientAdditionalStaffTbl_subform.Form.RecordsetClone
 If .RecordCount Then 
     .MoveFirst
    Do While Not .EOF
    If .Fields("CC") = True Then
    GetCC = GetCC & .Fields("Email") & ";"
    End If
   .MoveNext
   Loop
   Else
  GetCC = ""
  End If
  End With

Select all Open in new window

I want to make the criteria another field "another" where the value is "text" but this doesn't seem to work

    If .Fields("Another") = "text" Then

It doesn't return any values despite the criteria being correct. I'm not sure what to do.

Hi,

I have an issue I would like someone to help me to solve it.

I was searching how can I protect my Access Database file not to be used on another PC, so I find a way to create a dummy file and to call this file the first thing in my welcome form page.

I did face 2 errors after running it attached are the screenshots for both of them.

And the VBA code you can see it below:

Application.FollowHyperlink "C:\Windows\System32\startcheck.dll"

For the Security notice I did try many solutions to turn it off, but non of them did work.

And for the run time error I have no idea from where most probably from the VBA code.

Thanks for your help,
security-notice.png
run-time-error.png

Hi!

I am using the following to grab an image

  Set l_Attach = colAttach.Add("C:\Archetype Logos\Logo.jpg")

Select all Open in new window

but I would like use a file path from a field in my form. Is there a way to reference the control? I tried

  Set l_Attach = colAttach.Add("Me.Field")

Select all Open in new window

But that didn't work. Is this more complicated than I presume?

Hi Experts. I have three textboxes which only show when a button is checked then subsequently the values in the text boxes are summed up. My existing solution is returning empty using   ![Bill] = Nz((Me.txtPharmAmt1 + Me.txtPharmAmt2+ Me.txtPharmAmt3), 0).

From the main form, I want to read thru the records on a subform
I found some code on EE and this is what I’m trying to use:

Private Sub readThruTASubformEntries()

Dim rs As DAO.Recordset

'Set rs = Me!SubformControlName.Form.RecordsetClone  ' as is from EE
Set rs = Me![TAX AUTHORITIES ON THIS PLAN].Form.RecordsetClone

While Not rs.EOF
    MsgBox "User Assigned Priority: " & Nz(rs!UserAssignedPaymntPriority)
    rs.MoveNext
Wend
rs.close
Set rs = Nothing

End Sub

Select all Open in new window

When I open the form it is positioned in the first record in the Install Plan table.

Clicking the ‘Bogus Test Read Thru Subform’ on the first main form record yields the expected results.  The msgbox displays the Priority of the first record then the priority of the second record.

When I use the ‘next record’ selector arrow, the next Install Plan is shown on the screen.  This install plan also has multiple entries in the subform.  But, when I click ‘‘Bogus Test Read Thru Subform’ nothing displays.
I put a breakpoint on ‘While Not rs.EOF’ and is shows rs.eof as ‘True’.

Does anyone know why reading the records in the subform only works on the first record shown?

Also, assuming this does work:  Is it possible to bring back the subform records in a sorted order rather than the order they appear in the form?
I also attached a snapshot of the form

I install MS Access 2010 runtime  expecting to find runaccess.exe - but it's not there. How do I install runaccess.exe?

I have an old application with  a complex command line to call an Access file using runaccess.exe.

https://www.microsoft.com/en-au/download/details.aspx?id=10910

Click download, a white box appears with and X and nothing else.. Attempted with Chrome & IE

https://www.microsoft.com/en-us/download/details.aspx?id=50040

I have an ODBC connection to a Cache data to append to a table in Microsoft Access and that is working just fine. But what I would also like to do is to take that same recordset and display it in Access like an Access query using VBA. I found some examples using qrydefs but I can't seem to get it to work with an ADO connection. Is there another way of doing this using ADO?

Below is an example of my connection string that pulls the recordset I need. Any suggestions would be greatly appreciated.

Thank you in advance,

Ken


Public Sub RunLVPendingQuery()
On Error GoTo PROC_ERR
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim strVar As String

    Set cnn = New ADODB.Connection
    Set rst = New ADODB.Recordset
 
  DoCmd.Hourglass False


  cnn.ConnectionString = SQCon
  cnn.Open
   
           
strVar = "SELECT DISTINCT SITE.U_DPL_View.AN, SITE.U_DPL_View.PtNumber, " & _
             "SITE.U_DPL_View.PtName, SITE.U_DPL_View.CollectDateODBC, " & _
             "SITE.U_DPL_View.CollectTimeODBC, SITE.U_DPL_View.PriorityCodes, " & _
             "SITE.U_DPL_View.BatTstCode, SITE.U_DPL_View.HID, SITE.U_DPL_View." & _
             "ReceiveDateODBC, SITE.U_DPL_View.ReceiveTimeODBC, SITE.U_DPL_View." & _
             "WorkSheetID, SITE.U_DPL_View.WkshtCode, SITE.U_DPL_View." & _
             "DeleteEvent, SITE.U_DPL_View.PtLoc, SITE.U_DPL_View.TestCode, " & _
             "SITE.U_DPL_View.CID_1, SITE.U_DPL_View.CID_2 " & _
             …