Re: Field form
- From: RuralGuy <NoSpam@xxxxxxxxx>
- Date: Sun, 18 Dec 2005 09:04:36 -0700
On Sun, 18 Dec 2005 01:24:02 -0800, "Jemsson"
<Jemsson@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote:
>Hello
>
>I would like to know how is the correct code that use inside the filed
>called [Imperfekt]
>
>Can you make correct code for this I wrote:
>
> IF [Invinitiv] have " | *" then remove from these " |*" and keep first
>part of the word
> THEN
>if [Im1] start with "-*" then show [Invinitiv] + [Im1] without first
>chracter "-"
>ElseIf if [Im1] Not have first chracter "-" then Show [Im1]
> END IF
>
>
>Here is ex. number 2:
>Invinitiv ---=---> bog | sera
>Im1 ---- = ---> -de
>Result show like this: bogdede ( take only "bog" without "sera" & "de"
>without "-")
>
>
>Here is ex. number 2:
>Invinitiv ---=---> bogsera
>Im1 ---- = ---> -de
>Result show like this: bogserade (taked [Invinitiv] & [Im1] without "-"
>at begning)
>
>
>Here is ex. number 3:
>Invinitiv ----=---> bogsera
>Im1 ----=---> hej
>Result show like this: hej (it taked only [Im1] becuse there is not "-"
>at begning)
>
>
>Jessus Bless
How about something like this <<< Air Code >>>
Function Combined(Invinitiv As String, Im1 As String) As String
Dim MyArray()
If Left$(Im1, 1) = "-" Then
'-- Combine both strings
If InStr(1, Invinitiv, "|") > 0 Then
'-- It has a "|", use the string before the "|"
MyArray = Split(Invinitiv, "|")
Else
'-- Use the complete first string
MyArray = Split(Invinitiv)
End If
Combined = Trim(MyArray(0)) & Left$(Im1, 2)
Else
'-- Just use the complete second string
Combined = Im1
End If
End Function
_______________________________________________
hth - RuralGuy (RG for short)
Please post to the NewsGroup so all may benefit.
.
- Prev by Date: Re: The "date" and the "visible" functions don't work
- Next by Date: Form linked to table but will not add data to table
- Previous by thread: Re: Access VB coding
- Next by thread: Re: Field form
- Index(es):
Relevant Pages
|
