ACC2000: Nasýl metin, virgülle ayrýlmýþ birden çok alan çözümle

Bu makalede, bir <a0>metin</a0> alanýna, virgülle ayrýlmýþ metin ayrýþtýrma ve birden çok metin alanlarý metin görüntülemek için kullanabileceðiniz iki yöntem saðlar.

Ilk yöntem, örneðin Soyadý (Etikan, Gamze) bir ilk adýný içeren bir alanda bir virgül ile ayrýlmýþ iki sözcük içeren bir metin alaný için kullanabilirsiniz.

Örneðin, Þehir, bölge ve ülke (Toronto, Kanada, Kanada) içeren bir alanda virgülle ayýrarak ikiden fazla sözcük içeren bir metin alaný için ikinci yöntem kullanabilirsiniz.

Virgülle ayrýlmýþ metin alanlarý ayrýþtýrýlamýyor ve elde edilen metin dizeleri, birden çok metin alanlarý görüntülemek için aþaðýda listelenen yöntemlerden birini kullanýn:

Yöntem 1

Bu yöntem, üç iþlevi içeren bir sorgudaki bir deyim kullanýr: Instr() iþlevi, virgülle ayrýlmýþ metin alanýna aramak ve iki metin alaný parçalarýný çýkarmak Left$() ve Right$() iþlevleri.

Virgülle ayrýlmýþ olan iki sözcük içeren bir metin alaný ayrýþtýrmak için <a0></a0>, aþaðýdaki adýmlarý izleyin:

1. Microsoft Access'i baþlatýn ve sonra da herhangi bir varolan veritabanýný açýn.
   
   Tablo aþaðýdaki yapýda oluþturun:
   Tablo: Parse2Words
   ------------------
   Ad alaný: Empl
   Veri türü: metin
2. Parse2Words tabloyu Veri Sayfasý görünümünde ve aþaðýdaki üç kaydý Empl alanýna yazýn:
   Etikan, Gamze
   Etikan, Gamze
   Barýþ Çetinok,
3. Aþaðýdaki Parse2Words tabloyu temel alan sorgu oluþturma:

      Query: QueryTest
      ------------------------------------------------------------------
      Field: FirstName: Right$([Empl],Len([Empl]) - InStr(1,[Empl],",") -1)
         Show: True
      Field: LastName: Left$([Empl],InStr(1,[Empl],",") -1)
         Show: True
   						

   Not: Empl alanýnda iki bölümleri arasýndaki boþluklar hesap için QueryTest sorgu deðiþiklik yapabilirsiniz. Örneðin, metin Empl alanýnda Etikan, Gamze boþluk, "-1" ad alaný ifadeden kaldýrýn.
4. Sorguyu çalýþtýrýn. Not QueryTest sorgu Empl</a0> alanýndaki metni aþaðýdaki iki alanlara ayýrýr:

      FirstName   LastName
      --------------------
      John        Smith
      Laura       Callahan
      Andrew      Fuller
   					

Yöntem 2

Microsoft, programlama örneklerini yalnýzca gösterim amacýyla saðlar; örtülü veya açýk garanti vermez. Buna satýlabilirlik veya belirli bir amaca uygunluk zýmni garantileri de dahildir, ancak bunlarla sýnýrlý deðildir. Bu makale, gösterilen programlama dilini ve yordamlarý oluþturmak ve hata ayýklamak amacýyla kullanýlan araçlarý kullanmayý bildiðinizi varsayar. Microsoft destek mühendisleri, belirli bir yordamýn iþlevselliðinin açýklanmasýna yardýmcý olabilir, ancak gereksinimlerinizi karþýlamaya yönelik olarak ek iþlevsellik saðlamak veya yordamlar geliþtirmek amacýyla bu örnekleri deðiþtirmezler. Bu yöntem, iki kullanýcý tanýmlý iþlevleri kullanýr: metin alanýna, virgülle ayrýlmýþ sözcük sayýsýný saymak için CountCSWords() adlý bir iþlev ve metin alanýna n. sözcüðe dönmek için GetCSWord() adýnda bir iþlev.

Virgül ile ayrýlmýþ iki sözcük içeren bir metin alaný ayrýþtýrmak için <a0></a0>, aþaðýdaki adýmlarý izleyin:

1. Microsoft Access'i baþlatýn ve sonra istediðiniz veritabanýný açýn.
2. Tablo aþaðýdaki yapýda oluþturun:
   Tablo: ParseWords
   --------------------
   Ad alaný: konumu
   Veri türü: metin
3. ParseWords tabloyu Veri Sayfasý görünümünde görüntüleyin ve sonra da <a2>Konum</a2> alanýnda aþaðýdaki üç kaydý yazýn:
   Toronto, Kanada, Kanada
   Boston, Massachusetts'de, ABD
   Vancouver, British Columbia, Kanada
   
4. Bir modül oluþturun ve zaten orada deðilse Option Explicittanýmlamalar bölümüne yazýn.
5. Aþaðýdaki yordamlar yazýn:

   Function CountCSWords(ByVal S) As Integer
   ' Counts the words in a string that are separated by commas.
   
   Dim WC As Integer, Pos As Integer
      If VarType(S) <> 8 Or Len(S) = 0 Then
        CountCSWords = 0
        Exit Function
      End If
      WC = 1
      Pos = InStr(S, ",")
      Do While Pos > 0
        WC = WC + 1
        Pos = InStr(Pos + 1, S, ",")
      Loop
      CountCSWords = WC
   End Function
   
   Function GetCSWord(ByVal S, Indx As Integer)
   ' Returns the nth word in a specific field.
   
   Dim WC As Integer, Count As Integer, SPos As Integer, EPos As Integer
      WC = CountCSWords(S)
      If Indx < 1 Or Indx > WC Then
        GetCSWord = Null
        Exit Function
      End If
      Count = 1
      SPos = 1
      For Count = 2 To Indx
        SPos = InStr(SPos, S, ",") + 1
      Next Count
      EPos = InStr(SPos, S, ",") - 1
      If EPos <= 0 Then EPos = Len(S)
      GetCSWord = Trim(Mid(S, SPos, EPos - SPos + 1))
   End Function
   
   					

6. Modül derleme basParse kaydedin ve sonra kapatýn.
7. Aþaðýdaki ParseWords tabloyu temel alan sorgu oluþturma:

      Query: QueryTest2
      ---------------------------------------
      Field: City: GetCSWord([Location],1)
         Show: True
      Field: Region: GetCSWord([Location],2)
         Show: True
      Field: Country: GetCSWord([Location],3)
         Show: True
   					

8. Sorguyu çalýþtýrýn. Not QueryTest2 sorgu metni <a0>Konum</a0> alanýnda aþaðýdaki üç alanlara ayýrýr:

      City        Region             Country
      --------------------------------------
      Toronto     Ontario            Canada
      Boston      Massachusetts      USA
      Vancouver   British Columbia   Canada
   					

Hakkýnda ek bilgi için programlama kaynaklarýnýn Visual Basic for Applications, Microsoft Knowledge Base'deki makaleyi görüntülemek üzere aþaðýdaki makale numarasýný týklatýn:
Metin dizeleri ayrýþtýrma hakkýnda daha fazla bilgi için Microsoft Knowledge Base'deki makaleyi görüntülemek üzere aþaðýdaki makale numarasýný týklatýn: