ランダムバグが表示され始めました

Question

数週間、プログラムを実行していて、データベースにグルーミング時間が入りました。決して問題はありませんでした。

昨日、初回入力時に問題なく動作しました。 2回目の入力時にエラーが発生しました。

昨日見ていないので、手動で入力してください。

今日、同じことです。最初に入力し、完璧に動作し、問題はありません。 2回目に入力すると、エラーが発生します。

コードは、この行で停止：

ランタイム3464で

If DCount("[PetID]", "[TimeLog]", strCriteria) > 0 Then 

、条件式におけるデータ型の不一致

そのセクションの全体のコード：

'Set variables for error checking duplicates 
Dim pid As Integer 
Dim aptdate As Date 
pid = CmbPetName.Column(2) 
    'MsgBox (pid) 
aptdate = txtAptDate.Value 
    'MsgBox (aptdate) 
Dim strCriteria As String 

'Set Criteria for DCount() 
strCriteria = "([PetID] = '" & pid & "') And ([ApptDate] = #" & aptdate & "#)" 
    'MsgBox (strCriteria) 

'Error checking for duplicates 
If DCount("[PetID]", "[TimeLog]", strCriteria) > 0 Then 
    MsgBox ("Record Already Exists") 
    Exit Sub 
End If 

でなぜこのようなことが起こっているのか、それがなぜランダムであるのかという理由での損失総額

これは非常に感謝されることをお勧めします。

Answer 1

はあなたの日付表現をフォーマットする必要があります。

strCriteria = "([PetID] = '" & pid & "') And ([ApptDate] = #" & Format(aptdate, "yyyy\/mm\/dd") & "#)" 

とPIDが数値であれば、ないテキスト：

strCriteria = "([PetID] = " & pid & ") And ([ApptDate] = #" & Format(aptdate, "yyyy\/mm\/dd") & "#)"