Hello,
I am having in issue with some code and a unit conversion. The field in the table MUD is called Mud_Weight and it is set as a double.

in my code I do a conversion of the value in Mud_Weight based on the unit type selected.

however, I am getting a type mismatch error, using debugging code, I am getting the message that the field Mud_Weight is set as a long, but I have triple checked and it is as a double.

Here is the code relevant to this issue:

Details

Form_UnitPreferences2F
______________________________________________________________

Option Compare Database
Option Explicit

Dim PreviousSelectMudFluidWeightsValue As String

_______________________________________________________

Private Sub Form_Load()
   On Error GoTo ErrorHandler
PreviousSelectMudFluidWeightsValue = Me.SelectMudFluidWeights.value
Exit Sub
ErrorHandler:
    Debug.Print "Error Number: "; Err.Number; " Description: "; Err.Description
End Sub
_______________________________________________________

Private Sub SelectMudFluidWeights_AfterUpdate()
    On Error GoTo ErrorHandler

Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim rsHeader As DAO.Recordset
    Dim strSQL As String
    Dim currentIDHeader As Long
    Dim originalMud_Weight As Variant
    Dim originalEnv_Lube_Weight As Variant
    Dim originalMudFluidWeight As Variant
    Dim currentFieldName As Variant

' Retrieve the latest ID_Header value from ProjectT
    Debug.Print "Querying for latest ID_Header from ProjectT." ' Debugging
    Set rsHeader = db.OpenRecordset("SELECT TOP 1 ID_Header FROM ProjectT ORDER BY ID_Header DESC", dbOpenSnapshot)
    Debug.Print "Recordset for ID_Header obtained." ' Debugging
    
    If Not (rsHeader.EOF And rsHeader.BOF) Then
        currentIDHeader = rsHeader!ID_Header
        Debug.Print "Current ID_Header: " & currentIDHeader ' Debugging
    Else
        MsgBox "No records found in ProjectT.", vbExclamation
        Debug.Print "No records found in ProjectT." ' Debugging
        GoTo CleanUp
    End If
    
    rsHeader.Close
    Set rsHeader = Nothing

     ' Define the SQL query to select relevant records in Mud
    strSQL = "SELECT * FROM Mud WHERE HeaderID = " & currentIDHeader
    Debug.Print "SQL Query: " & strSQL
    Set rs = db.OpenRecordset(strSQL, dbOpenDynaset)

    If Not (rs.EOF And rs.BOF) Then
        rs.MoveFirst
        Do While Not rs.EOF
            rs.Edit
        ' Perform conversions based on your conditions
                If PreviousSelectMudFluidWeightsValue = "lb/gal" And Me.SelectMudFluidWeights.value = "kg/m3" Then
                    Debug.Print "Converting lb/gal to kg/m3"
                    originalMud_Weight = rs!mud_Weight ' Store the original value
                    rs!mud_Weight = KgPerCubicMeterToLbPerGal(rs!mud_Weight)
                    LogChange "Mud", "mud_Weight", originalMud_Weight, rs!mud_Weight, Me.Name, currentIDHeader
                    Debug.Print "Step 2"
                
                ElseIf PreviousSelectMudFluidWeightsValue = "lb/gal" And Me.SelectMudFluidWeights.value = "g/m3" Then
                    Debug.Print "Converting lb/gal to g/m3"
                    ' Conversion from Lb Per Gal To GPer Cubic Centimeter
                    originalMud_Weight = rs!mud_Weight ' Store the original value
                    rs!mud_Weight = LbPerGalToGPerCubicCentimeter(rs!mud_Weight)
                    LogChange "Mud", "mud_Weight", originalMud_Weight, rs!mud_Weight, Me.Name, currentIDHeader
                
                 Debug.Print "Step 3"



_______________________________________________________

Module: MetricImperalConversion


' Mud/Fluid Weights..............................................................

' Conversions from Pounds per Gallon (lb/gal)
Function LbPerGalToKgPerCubicMeter(lbPerGal As Double) As Double
    LbPerGalToKgPerCubicMeter = Round(lbPerGal * 119.826427, 3)
End Function

Function LbPerGalToGPerCubicCentimeter(lbPerGal As Double) As Double
    LbPerGalToGPerCubicCentimeter = Round(LbPerGalToKgPerCubicMeter(lbPerGal) * 0.001, 3)
End Function

Function LbPerGalToLbPerCubicFoot(lbPerGal As Double) As Double
    LbPerGalToLbPerCubicFoot = LbPerGalToKgPerCubicMeter(lbPerGal) * 0.06242796
End Function