Re: seryjne dodanie rekordów do tabeli, (zero na początku)

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

Article #137660

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

#137660

From: Bratko Zbigniew
Date: Sun, 14 Jul 2019 13:03

42 lines
2747 bytes

W dniu sobota, 13 lipca 2019 08:31:32 UTC+2 użytkownik Stan napisał:
> Witam
> 
> Formularz - zawiera Niezwiązane pola tekstowe: PIERWSZY i OSTATNI
> Tabela - zawiera pole tekstowe: NUMER (składające się z 7-miu cyfr), musi pozwalać na "0" na początku, dlatego u mnie ma format tekstu. 
> 
> Akcja po naciśnięciu przycisku formularza:
> Jeśli w pola PIERWSZY i OSTATNI wpiszę: 0100001 i 0100010 - do tabeli ma zostać dopisane 10 rekordów w polu NUMER: 0100001, 0100002,... 0100010.
> 
> Niestety, kod którego używam dopisuje bez zera na początku, czyli np. 100001.

[...]

> Kod wygląda tak:
> 
> Sub dodaj_Click()

[...]

> End Sub

Spróbuj poniższej procedury:
'_________________________
Private Sub dodaj_Click()
Dim iMsg As Integer
Dim i As Long

  iMsg = MsgBox("wprowadzenie nowych rekordów", vbYesNo, "   Potwierdz")
  If iMsg = vbYes Then
      For i = Me!Pierwszy To Me!Ostatni
      CurrentDb.Execute "INSERT INTO Bloczki (SERIA, NUMER) SELECT '" & Me!Seria & _
                        "', " & "'" & Format$(i, "0######") & "'" & ";"
    Next
  Else
    ' anulowano
  End If

End Sub

-- 
Pozdrowienia
BraZby

Technical Details

Message-ID: <c7ab62b0-82d9-4bc9-88a0-a07184525847@googlegroups.com>

Path:

mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!newsfeed.pionier.net.pl!3.eu.feeder.erje.net!feeder.erje.net!newsreader4.netcologne.de!news.netcologne.de!peer02.ams1!peer.ams1.xlned.com!news.xlned.com!peer02.am4!peer.am4.highwinds-media.com!peer02.iad!feed-me.highwinds-media.com!news.highwinds-media.com!b26no8170981qtq.0!news-out.google.com!a5ni318qtd.0!nntp.google.com!b26no8170979qtq.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail

References: <a27f03fe-ba52-4b87-b702-bd18cda39d3e@googlegroups.com>

Show Full Headers

Complete Article Headers

X-Received: by 2002:ad4:4870:: with SMTP id u16mr9572515qvy.174.1563109406962;        Sun, 14 Jul 2019 06:03:26 -0700 (PDT)
X-Received: by 2002:a0c:99dd:: with SMTP id y29mr14546201qve.61.1563109406820; Sun, 14 Jul 2019 06:03:26 -0700 (PDT)
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!newsfeed.pionier.net.pl!3.eu.feeder.erje.net!feeder.erje.net!newsreader4.netcologne.de!news.netcologne.de!peer02.ams1!peer.ams1.xlned.com!news.xlned.com!peer02.am4!peer.am4.highwinds-media.com!peer02.iad!feed-me.highwinds-media.com!news.highwinds-media.com!b26no8170981qtq.0!news-out.google.com!a5ni318qtd.0!nntp.google.com!b26no8170979qtq.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail
Newsgroups: pl.comp.bazy-danych.msaccess
Date: Sun, 14 Jul 2019 06:03:26 -0700 (PDT)
In-Reply-To: <a27f03fe-ba52-4b87-b702-bd18cda39d3e@googlegroups.com>
Complaints-To: groups-abuse@google.com
Injection-Info: glegroupsg2000goo.googlegroups.com; posting-host=31.0.126.160; posting-account=GRt1qAoAAADlUfRF7jZroeIPz2kJWmKj
NNTP-Posting-Host: 31.0.126.160
References: <a27f03fe-ba52-4b87-b702-bd18cda39d3e@googlegroups.com>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <c7ab62b0-82d9-4bc9-88a0-a07184525847@googlegroups.com>
Subject: Re: seryjne dodanie rekordów do tabeli, (zero na
 początku)
From: Bratko Zbigniew <adsense@bratko.eu>
Injection-Date: Sun, 14 Jul 2019 13:03:26 +0000
X-Received-Bytes: 2710
X-Received-Body-CRC: 786405922
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Reply to Parent Message