Search results

Truly it's out of my frequency Because I need to generate a monthly bill from this recordset with between date parameter. interval_start interval_end rate space_sft 09/09/2016 08/09/2017 95 312 09/09/2017 08/09/2018 105 312 09/09/2018 08/09/2019 115 312 Such as my param_startdate 01/09/2017...

Dim t_id, ag_id, rate, incr_rate As Integer Dim stDate, nxstDate, nxenDate, nxyrDate, enDate As Date Dim StrSQL As String t_id = Me.tenant_id ag_id = Me.id stDate = Me.startdate enDate = Me.enddate rate = Me.initial_rate incr_rate = Me.increase_rate...

Dear Experts, I'm trying to update some field value depending two string field using a function with if and case, function below: Private Function checkDATI(tipotransazione As String, tipovendita As String) As String Dim r As String r = "" If tipotransazione = "VENDITA" Then Select Case...

Dear Expert, Actually I need to select printer before printing report. That's why I need to call printer dialog to select printer using "PrintObject" in macro. But it's print the form not report. I need to print a specific report. How can I do this? Please help me. Thanks Mir

Dear Expert, I'm using form with subform. Main form header contain a combobox. I need to check the combobox is null or not before update a subform filed. If combobox is null then its back to Main form combobox from subform. The code below that I'm trying to: Private Sub...

Dear Expert, I'm trying to set email address for "Cc" using "Like" but showing error 13 Type mismatch. Problem only red mark code either all are working fine. please help me. Private Sub cmdSendMail_Click() On Error GoTo ErrorHandler Dim strTo As String Dim strSubject As String Dim...

Dear Expert, Getting error '2450' when click Access close button to exit. Run-time error '2450': ECN cannot find the referenced form 'frmLogin'. Note: After login my login form is visible to, cause to get login user id into "frmECN" Form. But When I'm in "frmECN" Form and enter data then close...

Dear Expert, I have report which record source is a Union Query, The query contain Order Details and a single row for "Freight Charges", I just want to set Freight Charges show in Report at last row. How could I do this, Any idea? Thanks Mir

Dear Expert, I'm trying to update date with this code: sSQL = "UPDATE [Dive Crew] " _ & "Set [Dive Crew].CapByDate = # & [Forms]![frmInitialInvoice]![txtCapByDate] & # " _ & "WHERE [Dive Crew].InvoiceNumber = '" & [Forms]![frmInitialInvoice]![InvoiceNumber] & "'"...

Dear Exper, Getting error with this code, Please help me. Dim db As DAO.Database, sSQL As String Set db = CurrentDb() sSQL = "UPDATE [Dive Crew]" _ & "Set [Dive Crew].InitInvConf = -1" _ & "WHERE [Dive Crew].InvoiceNumber =...

Dear Expert, I need a report that show Total ordered for week by Fish for a single customer. I have customer table and OrderDetals table with order date. Shipping date Monday to Friday. When preview the report the it shows the current week Total order quantity for each fish for single customer...

Dear Expert, I need to update "Fish Type" and "Fish" if Like in "Aquisition & Lab Cost Calculation" with Forms "Fish Type" and "Fish" with this code below. Private Sub Form_AfterUpdate() Dim db As DAO.Database, sSQL As String Set db = CurrentDb() If DLookup("[Fish Type]"...

Dear Expert, How to check same data exist in destination table before append data using Append query, In my "Order" table having filed (InvoiceNumber, CustomerName, FishName, Quantity) and my another table is "DiveCrew", there have same filed. I just need to check before append data to...

Dear Expert, I'm getting run-time error with this code below: Private Sub cboInv_AfterUpdate() Dim rs As Object Set rs = Me.Recordset.Clone rs.FindFirst "[InvoiceNumber] = " & Str(Nz(Me![cboInv], 0)) If Not rs.EOF Then Me.Bookmark = rs.Bookmark End Sub Please help me. Thanks Mir

Dear Expert, Getting run time error 2471, code below: Private Sub Quantity_AfterUpdate() Dim strCriteria As String Dim CusType As String strCriteria = "[ID] = '" & Forms![frmInvoice]![CustomerType] & "'" CusType = DLookup("[ID]", "Customer List", "strCriteria LIKE " & """" & "*Pet Store*" &...

Dear Expert, I'm getting error 2391 field 'f1' doesn't exist in destination table Dim FileBrowse As Office.FileDialog Dim varFile As Variant Dim sFile As String Set FileBrowse = Application.FileDialog(msoFileDialogFilePicker) With FileBrowse .AllowMultiSelect = False ' <=...

Dear Expert, Actually I have so many link table which connected to backend SQL Server by ODBC. In the Access Form View I created a combo for list of all table name. I just want to select a table name from the combo and then click a command button which will generate a pass-through query to...

Dear Expert, I use to Navigation form called "frmMain" and it's subform is "Transactions" and "frmTransactionsDetail". I just want to pass value from a field in "Transactions" Subform to other field in "TransactionsDetail" Subform by command button with vba syntax. And Other one thing I want...

Dear Expert, I have to generate a report between two date range. But I want all data between the date range and want to get Total sum before the "First Date" at top of the report as Balance B/F. How can I do It. Please anybody help me. Thanks Mir.

Dear Expert, Getting 3075 syntax error to insert current date: DoCmd.RunSQL "UPDATE tblTransactionsDetail " & _ "SET tblTransactionsDetail.ReceivedDate = " & todaysDate & ", tblTransactionsDetail.Received = 'Yes'" & _ "WHERE...