Aşağıdaki kod normal kelime için çalışıyor fakat değer otomatik sayı olduğunda hata veriyor nedeni ne olabilir acaba?
stLinkCriteria = "[Company Name]=" & "'" & Me![Company Name] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria, acEdit, acNormal
Yardımcı olursanız sevinirim
TAM KOD AŞAĞIDA
Private Sub Visiting_Notes_Information_Click()
On Error GoTo Err_Visiting_Notes_Information_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "VISITING NOTES General TARIK KARABAY"
stLinkCriteria = "[Company Name]=" & "'" & Me![CompanyName] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria, acEdit, acNormal
Exit_Visiting_Notes_Information_Click:
Exit Sub
Err_Visiting_Notes_Information_Click:
MsgBox Err.Description
Resume Exit_Visiting_Notes_Information_Click
End Sub
stLinkCriteria = "[Company Name]=" & "'" & Me![Company Name] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria, acEdit, acNormal
Yardımcı olursanız sevinirim
TAM KOD AŞAĞIDA
Private Sub Visiting_Notes_Information_Click()
On Error GoTo Err_Visiting_Notes_Information_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "VISITING NOTES General TARIK KARABAY"
stLinkCriteria = "[Company Name]=" & "'" & Me![CompanyName] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria, acEdit, acNormal
Exit_Visiting_Notes_Information_Click:
Exit Sub
Err_Visiting_Notes_Information_Click:
MsgBox Err.Description
Resume Exit_Visiting_Notes_Information_Click
End Sub