opslag 97

streng = Felt1
MsgBox Left(String:=streng,length:03)
Returnerer de førdte 3 tegn fra venstre.
Udskift Left med right og du får 3 tegn fra højre.

MyString = "AbCdEfG"
MyNewString = Mid(MyString, 3, 4)
Returnerer CdEf

Left(stringexpr,n)
Right(stringexpr,n)
Mid(stringexpr,start,n)

The stringexpr argument can be either a field name (enclosed in brackets) or a text expression; n is the number of characters you want to extract; start is the position of the first character you want to extract.

Da Mid starter fra venstre, kan du bruge
Left(Right([MinStreng],4), 2)
- Starter med den 4. karakter fra højre - tager 2 karakterer.

er det sådan her :

text1.value = 2345
text2.value = right(text1.value,length:02)

mener selv at have fortjent hovedparten af pointene da dette er den eneste løsning der holder ud fra det viste.

Private Sub Form_Open(Cancel As Integer)
Dim a, b, c
a = DLookup("mdr", "dato")
b = Right(a, 4)
c = Mid(b, 1, 2)
Text1.Value = c
End Sub

Helt Ok - Men spørgsmålet gik ikke ud på en DLookup funktion som du jo benytter til at hente data fra en anden tabel :o)

Jeg kunne også nøjes med at skrive :

Dim b, c
b = Right(a, 4)
c = Mid(b, 1, 2)
'dit felt'.Value = c

men ville bare lige vise det færdige script af hensyn til andre:-)

Eller
Text1.Value = Left(Right(a,4), 2)