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.
Private Sub delete_Click() Select Case MsgBox("Do you realy want to delete that record " & ID_NUM.Text & " ?", 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 con.Execute ("DELETE * From [TDM_Rate_form_no1] WHERE ID= " & ID_NUM.Text) con.Close con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;;Data Source=" & link_for_base.Caption con.Open rs.Open "select * from TDM_Rate_form_no1", con, adOpenDynamic, adLockOptimistic Set MSHFlexGrid1.Recordset = rs rs.Close Case vbNo End Select End Sub
|Access: Opening a Form to show records based on a Query||12||41|
|MS Access Is there any color designs besides just flat colors?||3||19|
|Pass Variable Form Name to another form in Access||16||20|
|Create a Scheduled Job in MSSQL from MS ACCESS and VBA||5||14|