title image


Smiley Re: A2000: Inhalt eines Memos abschnittsweise zeigen
So sollte es gehen:



Option Compare Database

Option Explicit

Dim Abschnitte, AbschnittNr As Long, MerkID As Long, Changed As Boolean

Private Sub Abschnitt_Change()

Abschnitte(AbschnittNr) = Me!Abschnitt.Text

Changed = True

End Sub

Private Sub First_Click()

AbschnittNr = LBound(Abschnitte)

SetzeAbschnitt

End Sub

Private Sub Form_Current()

SchreibeWeg

If IsNull(Me!MeinMemofeld) Then

ReDim Abschnitte(0) As String

Else

Abschnitte = Split(Me!MeinMemofeld, vbCrLf & vbCrLf)

End If

First_Click

MerkID = Me!ID

Changed = False

End Sub

Private Sub Form_Load()

MerkID = -1

End Sub

Private Sub Form_Unload(Cancel As Integer)

SchreibeWeg

End Sub



Private Sub Last_Click()

AbschnittNr = UBound(Abschnitte)

SetzeAbschnitt

End Sub

Private Sub Next_Click()

If AbschnittNr >= UBound(Abschnitte) Then

Beep

Else

AbschnittNr = AbschnittNr + 1

End If

SetzeAbschnitt

End Sub

Private Sub Previous_Click()

If AbschnittNr <= LBound(Abschnitte) Then

Beep

Else

AbschnittNr = AbschnittNr - 1

End If

SetzeAbschnitt

End Sub

Private Sub SetzeAbschnitt()

Me!Zaehler = (AbschnittNr + 1) & " von " & (UBound(Abschnitte) + 1)

Me!Abschnitt = Abschnitte(AbschnittNr)

End Sub

Private Sub SchreibeWeg()

Dim Tmp As String, I As Long, SQL As String

If MerkID -1 And Changed Then

' geänderten Datensatz zurückschreiben

' (in Ermangelung eines "VorAnzeigen"-Ereignisses)

Tmp = ""

For I = LBound(Abschnitte) To UBound(Abschnitte)

If Nz(Abschnitte(I), "") "" Then Tmp = Tmp & vbCrLf & vbCrLf & Abschnitte(I)

Next I

SQL = "UPDATE MeineTabelle SET MeinMemoFeld ="

If Tmp = "" Then

SQL = SQL & "Null"

Else

SQL = SQL & "'" & Replace(Mid(Tmp, 5), "'", "''") & "'"

End If

SQL = SQL & " WHERE ID = " & MerkID

CurrentDb.Execute SQL

End If

End Sub





Gruß aus dem Norden
Reinhard


Bitte immer die Access-Version angeben!
DB-Wiki


Wie man Fragen richtig stellt

YaccessAccess-FAQUnd ansonsten: Wikipedia




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: