VBAフォームデータベース内での検索と編集

こんにちは、

私は最初に私が専門家ではないと言わせましょう、私は私が仲良くしているように私はただ学ぶだけです.私の仕事を助けるために自分自身を教える.

私は特定のデータを入力して保存するためにVBAフォームに取り組んできて、データベース内の見出しを使用してデータを検索してから、更新情報を編集して登録します.ただし、ミスマッチタイプのエラーが発生しています
時間エラーとApplicationエラー

これが私がしたことのいくつかのサンプルです.私は本当に助けが大好きです！

サブ送信()

ワークシートとしてDIM SH

長い

sh= thisworkbook.sheets( "database")

範囲

R1=シート(「データベース」)を設定します.範囲( "A:A")

frmform.textboxrownumber.value= ""

IROW= worksheetfunction.counta( "データベース！A2:A")+ 1

IROW= worksheetfunction.counta(r1)

イライラ=イライロー+ 1

else

IROW= FRMFORM.TEXTBOXROWNUMBER.VALUE

sh

.Cells(IROW、1)= IROW()-1

.Cells(IROW、2)= frmform.comboboxtrans.value

.Cells(IROW、3)= FRMForm.TextBoxName.Value

.Cells(IROW、4)= FRMForm.TextBoxID1.Value

.Cells(IROW、5)= FRMForm.TextBoxID2.Value

.Cells(IROW、6)= FRMForm.TextBoxTtrn.Value

.Cells(IROW、7)= FRMForm.TextBoxDate.Value

.Cells(IROW、8)= frmform.textboxamount.value

.Cells(IROW、9)= FRMForm.TextBoxPurpose.Value

.Cells(IROW、10)= FRMForm.TextBoxDocsub.Value

.Cells(IROW、11)= FRMForm.TextBoxPoa.Value

.Cells(IROW、12)= FRMForm.TextBoxAdadDDoc.Value

.Cells(IROW、13)= FRMForm.TextBoxComments.Value

.Cells(IROW、14)= Application.Username

.Cells(IROW、15)= [TEXT(NOL)、「DD-MM-YYYY HH:MM:SS」)]<-

終了SUB

______________________________________________________

検索のため:nerraply erryly

サブSearchData()

application.ScreenUpdating= false

ワークシートとしてのDIM Shdatabase

Worksheet

整数

Dim Idatabaserow Long

when

String

String

shdatabase= thisworkbook.sheets( "database")

shsearchdata= thisworkbook.sheets( "searchdata")

iDatabaserow= Application.ThisWorkbook.Sheets( "データベース").範囲( "a" and rows.count).end(Xlup).ROW

Scolumn= FRMForm.comBoboxSearchColumn.Value

svalue= frmform.textBoxSearch.Value

iColumn= Application.WorksheetFunction.Match(Scolumn、ShDatabase.Range( "A1:O1")、0)

shdatabase.filtermode= trueの場合、

shdatabase.autofilterMode= false

frmform.comboboxSearchColumn.Value= "顧客IDタイプ#1"

shdatabase.range( "A:I"&Idatabaserow).autoFilterフィールド:= iColumn、Criteria1:= SValue

else

shdatabase.range( "A1:I"&Idatabaserow).autoFilterフィールド:= iColumn、Criteria1:= "*"&svalue&"*"

application.WorksheetFunction.SubTal(3、shdatabase.range( "c:c"))>= 2

'検索ワークシートから以前のデータを削除する

shsearchdata.cells.clear

shdatabase.autofilter.range.copy shsearchdata.Range( "A1")

Application.cutCopyMode= false

isearchRow= shsearchdata.range( "A"&Application.Rows.Count).end(Xlup).ROW

frmform.lstdatabase.columnCount= 15

FRMFORM.LSTDATABASE.COLUMNWIDTHS= "30,70,70,70,70,50,50,40,55,45,50,60,200,58,70"

ISearchRow>1の場合

frmform.lstdatabase.RowSource= "SearchData！A2:O"&ISearchRow

MsgBox "Recordsが見つかりました"

else

msgbox "no recordが見つかりました"

shdatabase.autofilterMode= false

application.ScreenUpdating= true

終了SUB

_______________________________________________________________________________________

My Modify関数:(繰り返し、誤りを乗算)

プライベートサブCMDMDIFY_CLICK()

selected_list= 0の場合、

MSGBOX「行が選択されていません」、VBOKONLY + VB情報、「変更」

SUB

Me.TextBoxRownumber.value= Application.WorkSheetFunction.Match(Me.LstDatabase.ListIndex、0、thisWorkbook.Sheets( "データベース！").範囲( "A:A")、0)

me.jpboboxtrans.value= Me.LstDatabase(Me.LstDatabase.ListIndex、1)

Me.textBoxName.Value= Me.LStdatabase(Me.LStdatabase.ListIndex、2)

Me.textBoxID1.Value= Me.LstDatabase(Me.LstDatabase.ListIndex、3)

Me.textBoxID2.Value= ME.LSTDATABASE(ME.LSTDATABASE.LISTINDEX、4)

Me.TextBoxTtrn.Value= Me.LSTDatabase(Me.LstDatabase.ListIndex、5)

Me.TextBoxDate.Value= Me.LstDatabase(Me.LstDatabase.ListIndex、6)

me.textboxamount.value= me.lstdatabase(Me.LstDatabase.ListIndex、7)

me.textBoxPurpose.value= Me.LstDatabase(Me.LstDatabase.ListIndex、8)

Me.TextBoxDocsub.Value= Me.LstDatabase(Me.LstDatabase.ListIndex、9)

me.textboxpoa.value= Me.LstDatabase(Me.LstDatabase.ListIndex、10)

Me.TextBoxAddDoc.value= Me.LstDatabase(Me.LstDatabase.ListIndex、11)

me.textBoxComments.value= Me.LStdatabase(Me.LStdatabase.ListIndex、12)

msgBox( "Requireの変更を加えて、レコードの更新に保存をクリックしてください)、vbokonly + vb情報、" modify "

終了SUB