Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Dim con As New ADODB.Connection Dim rs As New ADODB.Recordset Private Sub delete_Click() Select Case MsgBox("Do you realy want to delete that record?", vbYesNo Or vbQuestion Or vbSystemModal Or vbDefaultButton1, "Delete...") Case vbYes Set con = New ADODB.Connection con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & link_for_base.Caption con.Open rs.Open "SELECT * FROM [TDM_Rate_form_no1] WHERE ID='" & ID_NUM.Text & "'", con, adOpenForwardOnly, adLockReadOnly con.Execute ("DELETE * From [TDM_Rate_form_no1] WHERE ID= '" & ID_NUM.Text & "' ") con.Update con.Close Case vbNo End Select End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|Linking Child/Parent fields between 2 subforms||15||57|
|unknown computers in my LAN||12||95|
|Access 2003, find all instances of database ODBC||3||46|
|Using VBA and form selections to append an Access Table - And error 3134||4||8|
Join the community of 500,000 technology professionals and ask your questions.