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

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

Article #137659

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

#137659

From: Stan
Date: Sat, 13 Jul 2019 06:31

30 lines
2230 bytes

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.

Wprawdzie potem kwerendą aktualizacyjną dodaję to zero, ale może da się to zrobić samym kodem.

Kod wygląda tak:

Sub dodaj_Click()
Dim Msg
Msg = MsgBox("wprowadzenie nowych rekordów", 52, "   Potwierdz")
Select Case Msg
Case 6 'tak
For i = Me!PIERWSZY To Me!OSTATNI
    CurrentDb.Execute "INSERT INTO Bloczki (SERIA, NUMER) SELECT '" & Me!SERIA & "', " & i & ";"
Next i
Case 7 'nie
End
End Select
End Sub

Proszę o pomoc
Pozdrawiam
Stan

Technical Details

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

Path:

mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!newsfeed.pionier.net.pl!takemy.news.telefonica.de!telefonica.de!weretis.net!feeder7.news.weretis.net!proxad.net!feeder1-2.proxad.net!209.85.160.216.MISMATCH!b26no4238371qtq.0!news-out.google.com!a5ni108qtd.0!nntp.google.com!b26no4238368qtq.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail

Show Full Headers

Complete Article Headers

X-Received: by 2002:a05:620a:632:: with SMTP id 18mr9638469qkv.205.1562999492355;        Fri, 12 Jul 2019 23:31:32 -0700 (PDT)
X-Received: by 2002:ac8:6898:: with SMTP id m24mr9421102qtq.362.1562999492179; Fri, 12 Jul 2019 23:31:32 -0700 (PDT)
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!newsfeed.pionier.net.pl!takemy.news.telefonica.de!telefonica.de!weretis.net!feeder7.news.weretis.net!proxad.net!feeder1-2.proxad.net!209.85.160.216.MISMATCH!b26no4238371qtq.0!news-out.google.com!a5ni108qtd.0!nntp.google.com!b26no4238368qtq.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail
Newsgroups: pl.comp.bazy-danych.msaccess
Date: Fri, 12 Jul 2019 23:31:32 -0700 (PDT)
Complaints-To: groups-abuse@google.com
Injection-Info: glegroupsg2000goo.googlegroups.com; posting-host=89.230.76.56; posting-account=FS2KUgoAAAAKrc4p-heLnoWXKH1YYu8A
NNTP-Posting-Host: 89.230.76.56
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <a27f03fe-ba52-4b87-b702-bd18cda39d3e@googlegroups.com>
Subject: seryjne dodanie rekordów do tabeli, (zero na
 początku)
From: Stan <stanbora@gmail.com>
Injection-Date: Sat, 13 Jul 2019 06:31:32 +0000
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit