エラー：コンパイルエラー、ByRef引数のタイプの不一致

Question

「コンパイルエラー、ByRef引数の型が一致しません」というエラーがあります。誰でも私にこのエラーが発生する理由、またはこれを修正する方法を教えてもらえますか？

Answer 1

あなたのサブの宣言は次のとおりです。

Private Sub AddtoWhere(FieldValue As Variant, FieldName As String, mycriteria As String, argcount As Integer) 

あなたは（例えば）として、それを呼び出している：あなただけ（StringとしてSearch）他のすべてを一つの変数を宣言しているので

AddtoWhere cboProduct1, "Product", mycriteria, argcount 

変数はデフォルトでVariantと宣言されています。

これはあなたが合格しようとしている意味：

FieldValue（ Variant）へ

• cboProduct1（Variant） - VariantはVariant/Objectことができるので、（cboProduct1は、いくつかの並べ替えの対象となることがありますコンボボックス？）、これは正しく
• "Product"（String）FieldNameに処理されます（String）
• mycriteriamyCriteriaとargCountに渡された変数が同じデータ型を持っていないので（Variant）mycriteria（String）
• argcount（Variant）へargcount（Integer）

に、あなたが得ますエラー。

問題を回避する最も良い方法は、問題がなければ実行するのが最善の方法です。すべての変数を宣言することです。

だからあなたcmdsearch1_Clickサブルーチンに次の文を（少なくとも）を追加：

Dim mycriteria As String 
Dim argcount As Integer 

Answer 2

あなたはそれはあなたが機能を渡すか、あなたは以前に持って同じ値をサブしている意味参照によって引数を渡します。 は同じを受け取ると予想しています。あなたの問題を迅速に解決するには、関数/サブ定義を変種が期待されるように変更するか、正しいタイプを渡しているかどうかを確認することができます。

これは役に立ちました。次回はいくつかのコードを残しておきます。