I want to push a button called "Save". This will run a query that will be eventually create a report/pdf.
For now, I'm just working on the query that will select the record that I need. I'm trying to run a query based on a selection in a form/table.

At any give time I will have a record in my QREVALE form/table. The field is called TagNumber.
Below is a query that I have that does NOT call a special record. I want this query to only call the record that has the matching TagNumber from the form.

any suggestions?

SELECT 
SkpiUpdate.Date, 
QREVALUE.TagNumber, 
QREVALUE.QPRQPINumber, 
SkpiUpdate.NAMC, 
FROM QREVALUE INNER JOIN SkpiUpdate ON QREVALUE.ScrapRecordTag = SkpiUpdate.ScrapRecordTag;

Select all Open in new window

Hi. I have two forms. The first loads an image in the following event. The second has a button where the image can be edited. My problem
is that when I do this and go back to the first form the old image is there. I have tried to reload the image and refresh the form but it doesn't work

Private Sub Form_Current()
   Dim oDB_Folder As String: oDB_Folder = CurrentProject.Path
    Dim oSavedPath As String: oSavedPath = [PhotoFile]
    Dim oActualPath, F As String
    F = Replace(oSavedPath, "DatabaseFolder", oDB_Folder)
   Me.imgPhoto.Picture = F
End Sub

Select all Open in new window

Private Sub btnSelectPhoto_Click()

    Dim strFile As String
    Dim PhotoFile As String
    strFile = GetFileName(CurrentProject.Path)
    If strFile > "" Then
        PhotoFile = Filenm(strFile)
        If Filepath(strFile) <> CurrentProject.Path & "\Media\ID Photos\" Then
            FileCopy strFile, CurrentProject.Path & "\Media\ID Photos\" & PhotoFile
        End If
        imgPhoto.Picture = CurrentProject.Path & "\Media\ID Photos\" & PhotoFile
        Me.PhotoFile = "DatabaseFolder" & "\Media\ID Photos\" & PhotoFile
        Form_f_LicenseeDetailsEdit.PhotoFile = "DatabaseFolder" & "\Media\ID Photos\" & PhotoFile
        Form_f_LicenseeDetailsEdit.Refresh
        Form_f_LicenseeDetailsEdit.Repaint
    End If
    
End Sub

Select all Open in new window

Hi. I was given the following Access VBA code to rename a backend column in a split Access database solution. What similar code would I use to rename a table? Thanks

Public Sub RenameColumn(ByVal tableName As String, ByVal oldName As String, ByVal newName As String)
    Dim dbName As String
    dbName = GetLinkedDBName(tableName)
   
    Dim db As DAO.Database
    Set db = OpenDatabase(dbName)
   
    Dim tdf As DAO.TableDef
    Set tdf = db.TableDefs(tableName)
    If (ExistInCollection(oldName, tdf.Fields)) Then
        Dim field As DAO.field
        Set field = tdf.Fields(oldName)
       
        field.Name = newName
    End If
End Sub

Public Function ExistInCollection(ByVal key As String, ByRef col As Object) As Boolean
    ExistInCollection = ExistInCollectionByVal(key, col) Or ExistInCollectionByRef(key, col)
End Function

Private Function ExistInCollectionByVal(ByVal key As String, ByRef col As Object) As Boolean
On Error GoTo Error
    Dim item As Variant
    item = col(key)
    ExistInCollectionByVal = True
Exit Function
Error:
    ExistInCollectionByVal = False
End Function

Private Function ExistInCollectionByRef(ByVal key As String, ByRef col As Object) As Boolean
On Error GoTo Error
    Dim item As Variant
    Set item = col(key)
    ExistInCollectionByRef = True
Exit Function
Error:
    ExistInCollectionByRef = False
End Function

Hi

I am using the following Access VBA code to load a list of forms to a Combobox
How do I load the form Captionto an additional ComboBox?

Sub oLoadFormsToCombo()

On Error GoTo EH

    Dim frm As Object
    Dim I As Integer
    
    For I = cmbFormsAndReports.ListCount - 1 To 0 Step -1
        Me.cmbFormsAndReports.RemoveItem (I)
    Next I
    
    Me.cmbFormsAndReports.SetFocus
    Me.cmbFormsAndReports.Text = ""
    Me.cmbFormsAndReports.AddItem ("")
    For Each frm In CurrentProject.AllForms
        Me.cmbFormsAndReports.AddItem (frm.Name)
    Next
    
Exit Sub
EH:
MsgBox "Error loading forms: " & Err.Description
    
End Sub

Select all Open in new window

I am trying to create a query in Access 2016 that will remove duplicate entries from an access table, based off 1 field and regardless of if the other fields are the same or different. I have tried to use different query methods including nested and I can't seem to get it quite right.

Here is an example of the database as well as the results I hope to achieve. There are multiple types of records, single (keep all), duplicate ID with the same name (keep the newest), and duplicate ID with a different name (keep the newest).

Existing Database

ID      FirstName  LastName  Date
111AAA  John       Snow      1/1/2020
111BBB  Arya       Stark     1/1/2020
111BBB  Arya       Stark     1/1/2019
111CCC  Eddard     Stark     1/1/2020
111CCC  Sansa      Stark     1/1/2019

Select all Open in new window

End Result

ID      FirstName  LastName  Date
111AAA  John       Snow      1/1/2020
111BBB  Arya       Stark     1/1/2020
111CCC  Eddard     Stark     1/1/2020

Select all Open in new window

Hi. I have been asked to do the following by a client on my Access forums. Is this viable?

"Please investigate adding scroll bars to large forms. On a standard 13-inch laptop some are so tall that they hide the bottom row of buttons. BUT we won’t go ahead if it’s difficult or time consuming."

I am trying to write a Delete query on MS/ACCESS using the provided GUI. I have the table from which I want to delete records and a query with the keys to the records to be deleted - the attacvhed screenshots provide the background for the situation.
However, I am getting the error "Specify the Table containing the records you want to delete".
What am I missing??

can anyone help?
Screenshot-2020-01-30-at-18.02.07.png
Screenshot-2020-01-30-at-18.05.32.png

Hi Experts,

We are running out of space on the Servers C drive, what does entails to move the LDF files over from the C to the E drive of same server?

We have Access applications linked to those SQL databases, do we have to do something about them as well?

Thanks

Hi. I have an ms/access database that has a table from which I need to delete records according to specific criteria.

This is [myTable] with a key, [myTableKey]
 I have a set of analysis, running from other tables that yield keys [myTest1Key], [myTest2Key], ... [myTestNKey]. I need to delete the records from myTable  where [myTableKey matches the [myTestiKey], so the [myTable] is totally cleaned out.
How do I do it?

Is it possible to get assistance on converting the CRC  Code below which was done in C++ to MS Access VBA

unsigned short int cal_crc(unsigned char *ptr, unsigned int len)
{
unsigned char i;
unsigned int crc=0;
while(len--!=0)
{
for(i=0x80; i!=0; i/=2)
{
if((crc&0x8000)!=0)
{
crc*=2;
crc^=0x18005;
}
else
{
crc*=2;
}
if((*ptr&i)!=0)
crc^=0x18005;
}
ptr++;
}
return(crc);

Select all Open in new window

Hi. I am trying to use the following code to pull a date from an Access table and count whether the combination of it and first and last name exist. The count comes up as zero. I am pretty sure this is some issue with dates but I am not sure what


   Dim DOB as date
oFirstName = DLookup("FirstName", "t_Licence", "LicenceNumberPK=" & oLicenceNo)
    oLastName = DLookup("LastName", "t_Licence", "LicenceNumberPK=" & oLicenceNo)
    DOB = DLookup("DateOfBirth", "t_Licence", "LicenceNumberPK=" & oLicenceNo)
   
    Dim oCountMatch As Integer
    oCountMatch = DCount("*", "t_Permit_Rejections", "DateOfBirth = #" & DOB & "# And FirstName = '" & oFirstName & "' And LastName = '" & oLastName & "'")
    If oCountMatch > 0 Then
        MsgBox "There is a Permit Rejection with the same first name, last name, and Date of Birth", , "CAVR - ATD"
        Exit Sub
    End If