VB6

2017年9月28日 at 4:31 PM

VB.6->VB.NETへの移行:COMExceptionはハンドルされませんでした。

ピンクの行にて、以下実行時エラーが出た場合。

 

COMExceptionはハンドルされませんでした。

Update or CancelUpdate without AddNew or Edit.

 

—————————
                xlsSheet.Cells(LngRow, 1) = RS.Fields(“syohin_cd”).Value
                xlsSheet.Cells(LngRow, 6) = PbFnSCODE2HyoukaGenTanka_Bara(DB, RS.Fields(“syohin_cd”).Value)
                xlsSheet.Cells(LngRow, 7) = Format(RS.Fields(“date”).Value, “yyyy/MM/dd hh:mm:ss”)

————————–

 

以下のように変更。

 

(変更前)Public Function PbFnSCODE2HyoukaGenTanka_Bara(ByRef DB As DAO.Database, ByRef StrSCODE As String) As String 

(変更後)Public Function PbFnSCODE2HyoukaGenTanka_Bara(ByRef DB As DAO.Database, ByVal StrSCODE As String) As String

 

 

Leave a Reply

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

*

次のHTML タグと属性が使えます: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>



こちらの関連記事もオススメ!