Search results

Hi Gasman; The supplier already said no that's why I am trying to do it with VBA or something similar, it's over 600 tables and don't want to write a delete query for each table. Cheers Tor Fey

Good Afternoon All; I have the following code in a module in my database: Function DoImport() Dim strPathFile As String Dim strFile As String Dim strPath As String Dim strTable As String Dim blnHasFieldNames As Boolean ' Change this next line to True if the first row in CSV worksheet ' has...

Afternoon all; Is it possible to use the query builder to set the criteria of a field in an access query? An example of what i want to do is as follows: Field Name: Selected: (IIf([Rtrd_EdrDate]=[Tret_DateFrom],"First Return") Or IIf([Rtrd_Status]="21","Possible Final Return") Or...

Good Morning All; I am need help in formatting a MS Access 2016 query based on time of day, so for example: if hour ([CreatedDate]) is in [8 to 17.30] then "Daytime" else "Nighttime" How can i write this in the criteria of my query? Kind Regards Tor Fey

Hi Minty; I tried this code and get the following error: Kind Regards Tor Fey

Does anyone have a SQL query to retrieve field names with datatype and size from all tables within an access database? I was hoping to use something like the below code... But, I want the SQL code to know the current database and tables without me having to specify them SELECT column_name as...

Morning All; As i have said, I receive the error 2296 when i use the docmd.sendobject method, because i don't have a local install of MS Access it is a packaged version delivered via MS APP_V, Error 2296 is: "The password is invalid". My Solution is as follows: Private Sub EmailReport_Click()...

Hi theDBguy, Thanks so much for your reply. I have already tried that and receive the error 2296? Regards Tor Fey

Good Afternoon all; I need a little help with the below code: linkString = "mailto:" & Email & "?subject=Application for " & Me.leavedays & " days " & Me.leavetype & " leave " & varme & "&body=Please approve my application for " & leavedays & " days " & leavetype & " leave for the period " &...

I had found the same answer myself after posting my question :) ="I note that we have not received payment for: ref: " & [m_ref] & "/" & [m_folio] & " sent to you on the " & Format([datecreated],"d mmmm yyyy") But as always thanks so much for your help on this. Kind Regards Tor Fey

Thanks everyone, i stumbled across the answer myself :)

Morning All; I have a textbox with the following: I note that we have not received payment for: ref: " & [m_ref] & "/" & [m_folio] & " sent to you on the " &[datecreated] the above displays the end date as 10/09/2020 instead of 10th September 2020, how can i add the required formatting to the...

Thanks Frothingslosh; I have gone with your code and rolled it out. Kind Regards Tor Fey

I couldn't really get your solutions to work, so instead added the date when the "On click" events of the fields I was trying to validate was selected. Private Sub TF_Ben_B_S_Click() If IsNull(TF_Ben_B_S_Date) Then Me.TF_Ben_B_S_Date.Value = Now() End If End Sub Private Sub TF_Ben_O_P_Click()...

Thanks for this, but i'm unsure how to call this to check my required fields? Regards Tor Fey

Thanks Minty; Unfortunately now the code seems to be getting ignored, the full code on my close button is as follows: Private Sub closebutton_Click() Dim varwhite, varyellow varwhite = RGB(255, 255, 255) varyellow = RGB(255, 255, 0) If (IsNull(TF_Ben_Date_Taken)) Then MsgBox "Taken Date...

Good Afternoon; I need to check that two fields on a form contain data before closing as they are linked to a report and can't have data in one field and not the other, I have tried the following: Dim varwhite, varyellow varwhite = RGB(255, 255, 255) varyellow = RGB(255, 255, 0) If...

Good Afternoon all; I have two test tables I’m trying to perform an experiment on, test1 & test2. In both these tables; I have a field called ‘yearis’ which is a text field. What I’d like to do is create an append query that will: Update records in table 2 if it exists or append a record from...

Welcome to the world of GDPR In Europe. It was identified we aren't allowed to keep this data for people who no longer work for us. Regards Tor Fey

Thanks Minty/arnelgp; much appreciated Exactly what i was looking for. Regards Tor Fey