Brush up on the basics or master the advanced techniques required to earn essential industry certifications, with Courses. Enroll in a course and start learning today. Training topics range from Android App Dev to the Xen Virtualization Platform.
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
|I suddenly cannot write to C drive||20||72|
|How can I reference and use the second column value of a Combo Box in Access and save it in a bound control on my Form?||12||36|
|Top 1 of each supplier||55||55|
|Calculate workdays and consider holidays database from microsoft 2007||8||22|