Basic Script: Replace Field data

[YourLastFate]

Im looking for something very simple just to replace the field data of one field based on the entry of another.
I used to know VB, not so much anymore, so here is a poorly written, multi lingual script that shows in essence what im looking to do, any/all help would be appreciated:

Fields: trans, trans_type
__________________________________________________

Private Sub trans_type_LostFocus()


 If trans_type contains (5R110) Then
  If trans_type contains (PTO) Then
   trans = "5R110 PTO"
  Else
   trans = '5R110W"
  EndIf
 EndIf

 If trans_type contains (4560) Then
  trans = "HD4560"
 EndIf


End Sub

 

[YourLastFate]

One field is a part number, the other is the part name, so a 4L80EOR60BD is just a 4L80E in the other field, or 2500-29542635 is just a 2500, but the Trans Type (trans) isnt always the same number characters so i need to create something that checks for certain strings in the Part Number (trans_type) and then puts in text into the Trans Type (trans), like if it has a PTO in the part number for example.

 

[xenou]

Possibly try this (fingers crossed):

Private Sub trans_type_LostFocus()


 If Me.trans_type.Value contains ("5R110") Then
  If Me.trans_type.Value contains ("PTO") Then
   Me.trans.Value = "5R110 PTO"
  Else
   Me.trans.Value = '5R110W"
  EndIf
 EndIf

 If Me.trans_type.Value contains ("4560") Then
  Me.trans.Value = "HD4560"
 EndIf


End Sub

You need to use Me to refer to fields in your query (which often but not necessarily correspond to textboxes containing their values). Think of Me as the form saying "My", referring to it's controls and the recordset that is bound to it.