Search results

Good Morning; I have a table which holds personal data (tbl_staffnames), unfortunately it holds details on staff that have left our employment. In this table is a yes/no field called active, what I’d like to do is delete all the data in the following fields: officer_name full_name email_addy...

Good Afternoon; I am trying to filter multiple listboxes from one core listbox with an onclick event. On the core (main) listbox I have the following onclick event: Me.writeoffdetails.Column(0) = Me.vatdetails.Column(0) Me.companiesdetails.Column(0) = Me.vatdetails.Column(0)...

Hi Ridders; Thanks for your help; i have found the solution; thanks for pointing out late bindings, very useful. I went with this code which seems to work now: Dim xlApp As Object Dim thisWb As Object 'not Workbook Set xlApp = CreateObject("Excel.Application") With xlApp .Visible =...

Thanks Ridders; is this just simply adding the following: Set Connection = GetObject(, "ADODB.Connection") Dim xlApp As Excel.Application New to late bindings. Regards Tor Fey

Thanks so much Ranman256; This code now works as i expect. But i have ran in to a slight issue. My Excel object library is 15.0; and everything works great, but some people are still only working with office 2010 and require the 14.0 object library. When running the code it either gives a dll...

Morning All; I have the following export to excel code on a button in my form; which is working well: 'Check for and deletes the current All_Live_For_Sifting_Cred.xlsx file located: E:\All_Temporary_Data Dim stAppName As String stAppName =...

Hi Ridders; This is perfect, I have it working as needed. Thank you so much for all your help once again. Regards Tor Fey

Afternoon All; I have a query as per screen show below; is there a way to make it display where the 'qtr's' value is '1' show the value of 'SumOfTF_Ben_O/P' otherwise display value as: £0.00? So as it is now; in the query the values are displayed as: financialyear SumOfTF_Ben_O/P...

Hi Ridders; Much appreciated; this has achieved what i needed. Kind Regards Tor Fey

Hi Minty; thanks for the reply; My qtr field in the underlying query is as follws: Qtr1: financialQtr([TF_Ben_Sanction_Date],1) How do i add the NZ() to the criteria as when i try it; i get the following error: 'The expression you entered has a function containing the wrong number of...

Morning All; Is it possible to add the value 0 to a table with an append query within the criteria? I have an append query as seen in the attachment below, and what i need to do is, if one of the fields in the query has no value or is null then make that value 0. this does not need to happen...

Hi Arnelgp; Thank you so much for this; it was exactly what i was looking for and has now been added to my database. Kind Regards Tor Fey

Hi Ridders; I wanted to thankyou for your help on this; i finally managed to revisit it, and resolved with the following code: Private Sub checktype_AfterUpdate() Dim intCheckName As Integer intCheckName = 1 If Nz(Me.check_name1, 0) = 0 Then 'apply selected name to check_Name1...

Hi ridders; I was hoping they would check the preceding check_Name fields do not equal current name in the combo box. Is what i have written not correct then?

Hi Ridders; Case 15 wasn't supposed to be added, it was something i was playing with, apologies.

Just a quick update; None of this code works after case 3: Select Case intCheckName 'check preceding check_Name fields do not equal current name Case 1 Me.check_name1 = Me.checktype Case 2 If Me.checktype = Me.check_name1 Then 'matches Me.check_Name1 MsgBox...

Hi Ridders; Removing/remming this code works: Case 4 If Me.checktype = Me.check_name1 Or Me.check_name2 Or Me.checktype = Me.check_name3 Then MsgBox "The name " & Me.checktype & " has already been submitted", vbInformation Exit Sub End If...

Arnelgp; When running a debug on this code: Case 4 If Me.checktype = Me.check_name1 Or Me.check_name2 Or Me.checktype = Me.check_name3 Then MsgBox "The name " & Me.checktype & " has already been submitted", vbInformation Exit Sub End If...

Morning All; I have an after update event on a combo box as follows: Private Sub checktype_AfterUpdate() Dim intCheckName As Integer intCheckName = 1 If Nz(Me.check_name1, 0) = 0 Then 'apply selected name to check_Name1 intCheckName = 1 ElseIf Nz(Me.check_name2, 0) = 0 Then 'apply...

Hi arnelgp; Thanks so much for your help, I will have a look at the database you provided. Kind Regards Tor Fey