separate firstname and lastname into separate fields

[cyrustanr]

hi ive got a newbie question!

its in the pic shown with my prob! pls tell me asap! pls pls!

http://i242.photobucket.com/albums/f...question-1.jpg

pls show me how to do it! pls right the whole code!
im really a newbie n i really have no idea pls! thnx in advance!

[puppydogbuddy]

Private Sub btnOK_Click()
 
Dim strFirstName As String
Dim strLastName As String
 
'parse full name string entered in textbox (txtFullName)
    strFirstName = Left(txtFullName, InStr(1, txtFullName, " ") - 1)
    strLastName = Mid(txtFullName, InStr(1, txtFullName, " ") + 1)
 
'assign parsed strings to the appropriate textboxes
 
Me!txtFirstName =  strFirstName
Me!txtLastName =  strLastName
 
End Sub

[cyrustanr]

hey thnk you so much! i really apreciate it! thnx thnx thnx!

[cyrustanr]

how can i make it work the other way! like when i type in the firstname and lastname it will apear in the box above or if i type in the box above the firstname and lastname will appear in the firstname and lastname box! i want to make it work both! pls help ehheh! hope u undrstand my question heheh! thnx for the help!

[missinglinq]

Private Sub btnOK_Click()
 
  Dim strFirstName As String
  Dim strLastName As String
 
 If IsNull(Me!txtFullName) and IsNull(Me!txtFirstName) and IsNull(Me!txtLastName) Then
   Msgbox "You Must Enter Either Full Nmes or First and Last Name!"
   Exit Sub
 End If
 
 If Not IsNull(Me!txtFullName) Then
 
 'parse full name string entered in textbox (txtFullName)
      strFirstName = Left(txtFullName, InStr(1, txtFullName, " ") - 1)
      strLastName = Mid(txtFullName, InStr(1, txtFullName, " ") + 1)
 
  'assign parsed strings to the appropriate textboxes
 
  Me!txtFirstName =  strFirstName
  Me!txtLastName =  strLastName
 
 Else
 
 Me!txtFullName =   Me!txtFirstName & " " & Me!txtLastName 
 
 End If
 End Sub

Welcome to TheScripts!

Linq ;0)>

[cyrustanr]

weeeeee gee thnx so much! i cant thnk you enough! thnx thnx! ur a genious! wish i had ur brains eheh!