Aktív témák

• #7 #57764352 törölt tag

  2003-06-30 20:26:02 #7

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  #57764352

  törölt tag

  Szia! Nekem a referencesben a következők vannak becsekkolva:
  -Visual basic for Applications
  -Microsoft Acces 9.0 Object Library
  -OLE Automation
  -Microsft ActiveX Data Objects 2.1 Library
  
  Szerintem az uccsó kettővel lesz baj... Bár a másik gépet csak holnap látom...
  A kód nem titok, ha tudsz segíts!!
  
  Dim strDocName As String
  Dim strFilter As String
  DoCmd.GoToRecord , , acNewRec
  DoCmd.GoToRecord , , acPrevious
  StrDocName = ''for_form''
  strFilter = ''inv_no = Forms!for_form!inv_no''
  For I = 1 To 4
  DoCmd.OpenReport ''for_form'', acViewNormal, , strFilter
  Next I
  DoCmd.GoToRecord , , acNext
  

Aktív témák