Hi Guys,
Need your help on below, I am getting an error message of No Value given for one or more required parameters
Need your help on below, I am getting an error message of No Value given for one or more required parameters
Code:
Private Sub MFGTrailer_Click()
With frmTrailerDetails
frmTrailerDetails.txtTrailerID = MFGTrailer.TextMatrix(MFGTrailer.Row, colTrailerID)
Set ars = Nothing
ars.CursorLocation = adUseClient
ars.Open "SELECT * FROM tblTrailers Where TrailerID = " & (MFGTrailer.TextMatrix(MFGTrailer.Row, colTrailerID)) & "", conn, adOpenKeyset, adLockOptimistic
If ars.RecordCount > 0 Then
.txtTrailerID = Trim$(ars!TrailerID) & ""
.txtTrailerID.Enabled = False
.cmbTrailerType = Trim$(ars!TrailerType) & ""
.cmbTrailerType.Enabled = False
.txtOperDate = Trim$(ars!OperationsStartDate) & ""
.txtOperDate.Enabled = False
.cmbRegion = Trim$(ars!RegionalOffice) & ""
.cmbRegion.Enabled = False
.cmbTrailerStatus = Trim$(ars!TrailerStatus) & ""
.cmbTrailerStatus.Enabled = False
.cmbLocation = Trim$(ars!Location) & ""
.cmbLocation.Enabled = False
.cmbTruckType = Trim$(ars!TruckType) & ""
.cmbTruckType.Enabled = False
End If