[リストへもどる]
一括表示

投稿時間:2003/07/01(Tue) 22:38
投稿者名:うえぴょん
Eメール:sei‐ueda@nhkitec.co.jp
URL :
タイトル:
パラメータが少なすぎると怒られています。
初めて掲載します。
下記のフォームのロードでパラメータが少なすぎるとエラーメッセジーがでてこまっています。
初心者のため、ヘルプを見てもなんとも理解できませんでした。
どうか教えていただけないでしょうか?お願いします。

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  

投稿時間:2003/07/02(Wed) 02:32
投稿者名:魔界の仮面弁士
Eメール:
URL :
タイトル:
Re: パラメータが少なすぎると怒られています。
> 下記のフォームのロードでパラメータが少なすぎるとエラーメッセジーがでてこまっています。
ソースを丸投げされても………どんなテーブル構造を扱っているかわからないと、
判断のしようが無いですよ。このままでは、実際に試して検証する事さえできませんし。(^_^;)

まぁ、おそらくは「列名などを間違えている」という事ではないでしょうか。
例えば、
  SELECT Namae From Table1
と書くつもりで、
  SELECT Name  From Table1
としてたりすると、「Name」という式がパラメータであると誤解されて、
そのようなメッセージが表示される可能性があります。

スペルで気になる所といえば、
  SubGrop → SubGroup(?)
  DataIsues → DataIssues(?)
あたりですかね。

投稿時間:2003/07/02(Wed) 09:58
投稿者名:nanashi
Eメール:
URL :
タイトル:
Re: パラメータが少なすぎると怒られています。
そもそもエラーが起きてるのはどの個所なんですかね?
情報少なすぎると答える方も答えられませんよ。

投稿時間:2003/07/02(Wed) 18:02
投稿者名:Row
Eメール:
URL :
タイトル:
Re: パラメータが少なすぎると怒られています。
> Private Sub Form_Load()
>   
>   dat_bunsyo.DatabaseName = strDbName

当然、strDbName って・・・・何か値がはいってるんですよね?

Loadイベントってことは、Openの後ですよね?