Search results

Like I said previously, the Default, implicitly, is Byref. Meaning you did not define in the Sub/Function explicitly Example: Public function fnX(x As Integer) .. .. End Function the variable x there will be implicitly Byref.

do not add space between the "single quote" character: Me.txtGroupNumber = DMax("AccNumber", "tbl_ChartOfAccounts", "AccName= '" & Me.ListSelectPrimary & "'") + 1 you should also add a "descriptive text" about what this number is, like (in a Label): Me.lblAccount.Caption = "Next Account...

test query3.

here is the link, post#12. https://www.access-programmers.co.uk/forums/threads/almost-working-drag-drop.333282/

Form2 is unbound, so Criteria is of no use. you need to set the combox directly: stDocName = "F_SampleFractionRecordsAcc" DoCmd.OpenForm stDocName ' set the Form2's combobox [Forms]![F_SampleFractionRecordsAcc]![[FullAccessioncbo]=" & Chr(34) & [FullAccessioncbo] & Chr(34)

maybe the macro is not Enabled?

If you have looked at the db the OP has posted, there are only 3 fields involved there: Transaction_Type and Book_Value the other 2 are Calculated field (in the table they are real fields). As with the the current records on the table the Calculated fields are calculated as in post #8. so in...

maybe you can find this somewhat similar post helpful on your situation: https://www.access-programmers.co.uk/forums/threads/handling-of-address-property-in-hyperlink-fields.333550/ i posted a db that convert the // to "real" path names (post #10 and #12).

imo, you don't need cra_realized_gainloss and cra_settlement_amount. based on your form, they are Calculated based on the calculation you showed on the form, therefore, no need to add extra Calculated field (adjusted). CRA_Realized_GainLoss:IIF(Transaction_Type = "Sold_$"...

you can try Saving the Original recordsource of your form on the Form's Load Event: ' Edited to add this Dim m_source As String Private Sub Form_Load() m_source = Replace$(Me.RecordSource, ";", "") End Sub then you can change your code to: Private Sub cmdSearch_Click() Dim strSearch As...

as advice use your query as recordsource of your form. adjust the query if wrong calculation.

use Nz() function: SELECT Q1.[Postcode Area], [Q1].[PR1]+[Q1].[Non_PR1] AS Q1_Total, [Q2].[PR1]+[Q2].[Non_PR1] AS Q2_Total, Nz([Q1_TOTAL],0)-Nz([Q2_TOTAL],0) AS Q3 FROM Q1 LEFT JOIN Q2 ON Q1.[Postcode Area] = Q2.[Postcode Area];

see Query2. also view the code in Module, basConcatRelated.

Allegati_Autorizzazioni table is Linked table so we cannot access it's data. what you can do is make a copy of your FE and on the copy, right click on Allegati_Autorizzazioni linked table and convert it to local table. then post back the copy of your db.

here is a demo. open MainForm form and press the Split button. copy the code in Module1 and Output table to your db. on your db, replace "YourtableName" on the code with the name of your Table to split.

create a function that will split the Data then save the result in a Temporary table.

at the moment, I can only think of VBA and Temp table to accomplish this.

i am using Temp table (Computed) for output. see the (long) VBA code on Module1. Open form1 for the result (or Query1).

here is a demo with a function as criteria on Query1. open Module1 in vba and see the code. Open Form1 and enter any value on unbound textbox and press the filter/unfilter button. erase the content of the textbox and press the filter/unfilter button