31
I have tried this code so many times, and it is frustrating me... I want to check if a record exist then just update a field, if it doesnt exist then Add 1st and then update.... the following code, seems to be close..but i am getting Error: Type mismatch at "[meeting date] = '#" & x & "#'".......pls advise!!
Dim x As Date
Dim qry As QueryDef
Dim sql As String
Dim sql1 As String
Dim sql2 As String
Dim sqlCom As String
Set qry = CurrentDb().QueryDefs("addtomeeting")
x = [Forms]![Meeting]![meetingDate]
qry.Parameters("Meeting") = x
sql = "UPDATE [Adding requests to meeting] SET [Adding requests to meeting].[date added] = Date(), [Adding requests to meeting].[Meeting Date] = [forms]![meeting]![meeting date] WHERE ((([Adding requests to meeting].[Add to meeting])=Yes));"
sql1 = "INSERT INTO Meeting ( [Meeting Date] )"
sql2 = "values(#" & x & "#);"
sqlCom = sql1 & sql2
Dim stDocName As String
Dim stLinkCriteria As String
If DCount("[meeting date]", "Meeting", "[meeting date] = '#" & x & "#'") > 0 Then
stDocName = "Switchboard"
DoCmd.OpenForm stDocName, , , stLinkCriteria
DoCmd.RunSQL (sql)
DoCmd.Close acForm, "Meeting"
Else
stDocName = "Switchboard"
MsgBox "entered2"
DoCmd.OpenForm stDocName, , , stLinkCriteria
DoCmd.RunSQL (sqlCom)
DoCmd.RunSQL (sql)
DoCmd.Close acForm, "Meeting"
End If
End Sub
