Results 1 to 2 of 2

Thread: Ado Problem

  1. #1
    Join Date
    Jul 2003
    Posts
    81

    Angry Unanswered: Ado Problem

    PLEASE HELP.
    WHEN I TRY THIS
    Private Sub cmdUpd_Click()
    Dim rsMinDate As ADODB.Recordset
    'Select the minimum date of the recordset

    Set rsMinDate = New ADODB.Recordset
    rsMinDate.Open "SELECT TOP 1 tbltimologia.timdate, tbltimologia.calculationid FROM tbltimologia " & _
    "WHERE (((tbltimologia.calculationid)=forms!frmCalculatio n!calculationid)) " & _
    "ORDER by tbltimologia.timdate", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

    'Update BasicDate field of the form with the value

    Me.BasicDate = rsMinDate!timdate

    End Sub

    I GET THIS ERROR: "No value given for one or more parameters"

  2. #2
    Join Date
    Dec 2002
    Location
    Préverenges, Switzerland
    Posts
    3,740
    try
    "WHERE (((tbltimologia.calculationid)=" & forms!frmCalculation!calculationid & ")) " & _

    izy
    currently using SS 2008R2

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •