投稿時間: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
|