Search results

  1. bastanu

    Convert a DSum to Vba/Recordset

    Just add a reference to dao library.
  2. bastanu

    Current Event / Refresh / Datasheet scrolling woes

    Would you be able to upload a sample DB with all the objects involved (empty tables is fine as I have your screen shots to enter some dummy data), I could have a look a bit later today and have it for you for your morning :). Cheers, Vlad
  3. bastanu

    Current Event / Refresh / Datasheet scrolling woes

    Can you try: 'ctlMatchDsheet.Form.Refresh ' Does NOTHING Application.Echo False me.ctlMatchDsheet.sourceobject="yoursubformname" 'resetting the sourceobject should requery the subform and reset the position the record' ' now we must navigate back ' create a clone recordset Set rs =...
  4. bastanu

    Convert a DSum to Vba/Recordset

    Would be easier to create a small pop-up form to enter the parameters (date and employee name). Anyway, here is what I do for parameter queries in VBA: Dim qdf as Dao.Querydef, prm as Parameter,rst as Dao.recordset Dim curYTD as Currency set qdf=CurrentDb.QueryDefs("qryYTD") For each prm in...
  5. bastanu

    Current Event / Refresh / Datasheet scrolling woes

    That is what I was suggesting , using Application.Echo in conjunction with a full requery (which should reposition the record in the same place within the datasheet).
  6. bastanu

    Current Event / Refresh / Datasheet scrolling woes

    Have you tried to use the Application.Echo to hide the moves/flickering while doing it?
  7. bastanu

    Current Event / Refresh / Datasheet scrolling woes

    So wouldn't a full requery of the main form/subform reset the record's position within the datasheet? Do you have the subform sorted by a date stamp? Cheers, Vlad
  8. bastanu

    Current Event / Refresh / Datasheet scrolling woes

    Try to use Application.Echo False , do a requery of the form, find the record in the subform then Application.Echo True. Cheers, Vlad
  9. bastanu

    MultiSelect ListBox Error

    Glad to hear you solved it! Cheers, Vlad
  10. bastanu

    MultiSelect ListBox Error

    If you commented out the Docmd.ApplyFIlter like I showed you on which line are you getting the error?
  11. bastanu

    MultiSelect ListBox Error

    Can you try: Private Sub OK_Click() DoCmd.SetWarnings False Dim strSearch As String Dim Task As String strSearch = "1 = 1 " ' this code assumes both Model and Color are text/strings strSearch = strSearch & BuildIn(Me.lstProduct, "QProductCode", "'") strSearch = strSearch &...
  12. bastanu

    Track changes in subform

    This is what I use for subforms, adapt as per your naming convention: Function AddToAuditTrailSub() ' Skip if this is a new record On Error Resume Next If Screen.ActiveForm.ActiveControl.Form.NewRecord Then Exit Function 'This procedure appends Before and After values of controls and records...
  13. bastanu

    Calculated Field in Dlookup

    Is Grade text or numeric? Also remove the extra spaces between the single and double quotes in three places in your expression. Cheers, Vlad
  14. bastanu

    Hello from Canada

    Hello all! My name is Vlad and I am an Access developer from Canada. I have been working with Access for about 18 years now and found it an amazing (even if sometimes frustrating) product. Happy to be finally joining this community, I have been using it for many years in more of "stealth"...
Top Bottom