Finding parts of a textbox

[caman74]

Hello.

I have a textbox "txtNumber" that contains either two or eight characters (numbers).
I also have a textbox called "txtDep".
Both textboxes are placed in the form "frmTrspInv".

What I want is when "txtNumber" loses focus it will copy the first two characters into "txtDep".

I know this is a simple task, but I've been working to mutch with FileMaker lately, so I've startet forgetting Access.

Christian

 

[HandsOnAccess]

You can try like this...

Private Sub txtNumber_LostFocus()
   If Not IsNull(me.txtNumber) = True and Len(Trim(me.txtNumber)) >= 2 Then
      me.txtDep = MID(me.txtNumber,1,2)
   End If
End Sub

Regards,

 

[caman74]

Thanks.

Exactly what I was looking for!

Christian