作成者カテゴリ返答の対象
公開
足立
09/14/2000 05:23 PM
文書リンクアイコン 自動連番の取得のしかた。
自動連番

足立です。

自動連番ですか。
式では、絶対に無理です。

私の場合は、スクリプトを利用して作りました。

作り方ですが、これは、絶対にしないといけない事が1つあります。
それは、ビューの追加です。隠しビューを作ります。
連番にしたいフィールドを昇順に並び替えます。
これをやっとかないと同じ番号が出来てしまいます。

以下はプログラムです。

Sub Postopen(Source As Notesuidocument)
Dim su As Integer or Long
Dim sn As new notessession
Dim db As notesdatabase
Dim vw As notesview
Dim dc As notesdocument
set db = sn.currentdatabase
set vw = db.getview(隠しビュー名)
set dc = vw.getlastdocument
su = Cint(dc.su(0)) or Clng(dc.su(0))
su = su + 1
call source.fieldgettext(連番フィールド,su)
End Sub

と言ったものを作っています。
参考程度に見てもらえたらいいです。


[Previous Main Document]
自動連番の取得のしかた。 (さとえ)
. . Re: 自動連番の取得のしかた。 (こばやん)
. . . . 文書連番を @NotesID から作るのは止めたほうがいいでしょうか。 (now)
. . . . . . Re: 文書連番を @NotesID から作るのは止めたほうがいいでしょうか。 (こばやん)
. . . . . . . . Re: R5.0でも 文書連番を @NotesID から作る式が使えるなんて… (now)
. . . . . . . . . . Re: R5.0でも 文書連番を @NotesID から作る式が使えるなんて… (こばやん)
. . 自動連番 (足立) * 現在地 *
. . . . Re:自動連番 (さとえ)
. . . . . . プログラムを書く場所 (足立)
. . . . Re:自動連番 (鶴丸)
. . . . . . 式でやると・・・!? (足立)
. . . . . . . . Re:式でやると・・・!? (式で自動連番) (鶴丸)
. . . . 自動連番 (さとえ)
. . . . . . ミスっていました。 (足立)
. . . . . . . . 動かないんですけど。 (さとえ)
. . . . . . . . . . 書く場所を変えてみましょう。 (足立)
. . . . . . . . . . . . それでも出来ません。 (さとえ)
. . . . . . . . . . . . . . Re:それでも出来ません (MANEG)
. . . . . . . . . . . . . . ビューの作成は? (足立)
. . . . . . . . . . . . . . . . どこかおかしいんですかね?? (さとえ)
. . . . . . . . . . . . . . . . . . データは? (足立)
. . . . . . . . . . . . . . . . . . . . データはありますよ。 (さとえ)
. . . . . . . . . . . . . . . . . . . . . . Dim db As NotesDatabaseの意味 (足立)
. . . . . . . . . . . . . . . . . . . . . . . . どこで止まっているかというと。 (さとえ)
. . . . . . . . . . . . . . . . . . . . . . . . . . ・・・・・。 (足立)
. . . . . . . . . . . . . . . . . . . . . . . . . . . . こちらがプログラムです。 (さとえ)
[Next Main Document]