Re: recordset markierter Sätze (A 2000)

hallo Walter,

Walther Lückemann schrieb:
wie bekomme ich ein Recordset aller markierten Datensätze eines Endlosformulars?
Ohne großen Aufwand gar nicht.

http://msdn2.microsoft.com/en-us/library/aa196580(office.11).aspx

bzw.:

Dim rs As DAO.Recordset
Dim Index As Long

If SelHeight > 0 Then

Set rs = RecordsetClone
rs.MoveFirst
rs.Move SelTop - 1
For Index = 1 To SelHeight
' Dein Code für jeden Record.
rs.MoveNext
Next Index
rs.Close
Set rs = Nothing

End If

Dazu gibt es in den Untiefen von donkarl.com auch noch ein oder zwei Hinweise.


mfG
--> stefan <--

--
Access-FAQ http://www.donkarl.com/
KnowHow.mdb http://www.freeaccess.de
Newbie-Info http://www.doerbandt.de/Access/Newbie.htm
.

Relevant Pages

  • =?iso-8859-1?Q?Re:_Index_r=E4tselhaft?=
    ... Sehen kann man den Index in der DAO-Index-Auflistung, ... Dim tdf As DAO.TableDef ... Set db = CurrentDb ...
    (microsoft.public.de.access)
  • Re: Wasserzeichen mit Word-Art
    ... Sub Vorschlag1() ... Dim hdr As Word.HeaderFooter ... Set doc = ActiveDocument ... With shp ...
    (microsoft.public.de.word.vba)
  • Re: 1 Makro aus 8
    ... was ich da genau mit dem Set xxx = Nothing machen muss? ... > - For Each objTmp In objFolder.Items ... > Dim objNamespace As NameSpace ... > End With ...
    (microsoft.public.de.word.vba)
  • Re: Feldnamen auslesen
    ... Dim fsoTblFile ... End Select ... If AnzArgs> 0 Then ... Set fso = CreateObject ...
    (microsoft.public.de.access)
  • Re: Access -> Outlook
    ... Function SendMail(ByVal strSubject As String, ... Dim rsNotesMail As ADODB.Recordset ... Set rsNotesMail = New ADODB.Recordset ... Set myOlApp = Nothing ...
    (microsoft.public.de.access)
Quantcast