VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [過去ログ] [管理用]

投稿日： 2003/07/01(Tue) 22:38
投稿者： うえぴょん
Ｅメール： sei‐ueda@nhkitec.co.jp
ＵＲＬ：
タイトル： パラメータが少なすぎると怒られています。

初めて掲載します。
下記のフォームのロードでパラメータが少なすぎるとエラーメッセジーがでてこまっています。
初心者のため、ヘルプを見てもなんとも理解できませんでした。
どうか教えていただけないでしょうか?お願いします。

Private Sub Form_Load()
　　
　　dat_bunsyo.DatabaseName = strDbName
　　datcmb_daibun.DatabaseName = strDbName
　　datcmb_syuyou.DatabaseName = strDbName
　　datcmb_tanaita.DatabaseName = strDbName
　　datcmb_kobun.DatabaseName = strDbName
　　datcmb_kunimei.DatabaseName = strDbName
　　datcmb_oda.DatabaseName = strDbName
　　datcmb_products.DatabaseName = strDbName
　　datcmb_iso.DatabaseName = strDbName

　　dat_bunsyo.RecordSource = "SELECT Group,Name,SubGrop,Rack,Shelf,Country,DataIsues,OdaGroup,Maker, IsoGroup FROM tblfile"
　　datcmb_daibun.RecordSource = "SELECT Group FROM tblFile"
　　datcmb_syuyou.RecordSource = "SELECT Rack FROM tblFile"
　　datcmb_tanaita.RecordSource = "SELECT Shelf FROM tblFile"
　　datcmb_kobun.RecordSource = "SELECT SubGrop FROM tblFile"
　　datcmb_kunimei.RecordSource = "SELECT Country FROM tblFile"
　　datcmb_oda.RecordSource = "SELECT OdaGroup FROM tblFile"
　　datcmb_products.RecordSource = "SELECT Maker FROM tblFile"
　　datcmb_iso.RecordSource = "SELECT IsoGroup FROM tblFile"
　　
　　txt_name.DataField = "Name"
　　txt_date.DataField = "DataIsues"
　　
　　cmb_daibun.ListField = "Group"
　　cmb_daibun.DataField = "Group"
　　cmb_daibun.BoundColumn = "Group"
　　
　　cmb_syuyou.ListField = "Rack"
　　cmb_syuyou.DataField = "Rack"
　　cmb_syuyou.BoundColumn = "Rack"
　　
　　cmb_tanaita.ListField = "Shelf"
　　cmb_tanaita.DataField = "Shelf"
　　cmb_tanaita.BoundColumn = "Shelf"
　　
　　cmb_kobun.ListField = "SubGrop"
　　cmb_kobun.DataField = "SubGrop"
　　cmb_kobun.BoundColumn = "SubGrop"
　　
　　cmb_kunimei.ListField = "Country"
　　cmb_kunimei.DataField = "Country"
　　cmb_kunimei.BoundColumn = "Country"
　　
　　cmb_products.ListField = "Maker"
　　cmb_products.DataField = "Maker"
　　cmb_products.BoundColumn = "Maker"
　　
　　cmb_iso.ListField = "IsoGroup"
　　cmb_iso.DataField = "IsoGroup"
　　cmb_iso.BoundColumn = "IsoGroup"
　　
　　　　
　　cmd_revise.Enabled = False
　　cmb_daibun.Locked = True
　　cmb_syuyou.Locked = True
　　cmb_tanaita.Locked = True
　　cmb_kobun.Locked = True
　　cmb_kunimei.Locked = True
　　cmb_products.Locked = True
　　cmb_iso.Locked = True
End Sub　　

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- Web Forum -