Re: Wyszukiwanie z kopiowaniem

Article View: pl.comp.bazy-danych.msaccess

Article #124976

Back to pl.comp.bazy-danych.msaccess Previous Next

#124976

From: Krzysztof Pozorek
Date: Tue, 12 Aug 2008 14:02

31 lines
1910 bytes

<CITE>
Ten fragment kodu zaczerpnięty z netu...nie wiedziałem, ze jest jakieś
zaczernianie...
Ma zaznaczać znaleziony tekst w TextBox2 z maski np/ "bleble?????"  i
kopiować to zaznaczone do TextBox1
Jeśli nie znajdzie to następny rekord itd.
</CITE>

Jesli zalozymy, ze kopiujesz z Pole1 do Pole2, to wtedy Twoj kod moze 
wygladac nastepujaco:

Private Sub Polecenie1_Click()
Dim rs As Object, rdzen As String, s As String
Const Wzor = "a???"
    Me.Dirty = False
    rdzen = Replace(Wzor, "?", "")
    Set rs = Me.RecordsetClone
    rs.MoveFirst
    Do
        s = rs!Pole1
        If s Like "*" & Wzor & "*" Then
            rs.Edit
            rs!Pole2 = Mid(s, InStr(1, s, rdzen), Len(Wzor))
            rs.Update
        End If
        rs.MoveNext
    Loop Until rs.EOF
    Set rs = Nothing
End Sub

K.P.

Technical Details

Message-ID: <g7s55a$884$1@news.onet.pl>

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.rmf.pl!agh.edu.pl!news.agh.edu.pl!news.onet.pl!not-for-mail

References:

<bc1434a6-4e72-4a55-9362-a5591e2f1ac2@8g2000hse.googlegroups.com> <g7s2co$v3a$1@news.onet.pl> <3d84ae3d-81bb-4cf3-ab16-7298a2214bbf@v57g2000hse.googlegroups.com>

Show Full Headers

Complete Article Headers

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.rmf.pl!agh.edu.pl!news.agh.edu.pl!news.onet.pl!not-for-mail
From: "Krzysztof Pozorek" <access@vis.pl>
Newsgroups: pl.comp.bazy-danych.msaccess
Subject: Re: Wyszukiwanie z kopiowaniem
Date: Tue, 12 Aug 2008 16:02:17 +0200
Organization: Onet.pl
Lines: 33
Message-ID: <g7s55a$884$1@news.onet.pl>
References: <bc1434a6-4e72-4a55-9362-a5591e2f1ac2@8g2000hse.googlegroups.com> <g7s2co$v3a$1@news.onet.pl> <3d84ae3d-81bb-4cf3-ab16-7298a2214bbf@v57g2000hse.googlegroups.com>
NNTP-Posting-Host: host-80-252-2-7.gazeta.pl
X-Trace: news.onet.pl 1218549738 8452 80.252.2.7 (12 Aug 2008 14:02:18 GMT)
X-Complaints-To: usenet@news.onet.pl
NNTP-Posting-Date: Tue, 12 Aug 2008 14:02:18 +0000 (UTC)
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.5512
X-Sender: 6AlSfP2c2oqZicId54ECp7ZgtmrPSZ6Q
X-RFC2646: Format=Flowed; Original
X-Newsreader: Microsoft Outlook Express 6.00.2900.5512
X-Priority: 3
X-MSMail-Priority: Normal
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Reply to Parent Message