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.
rst!ActDesc.Value = vardesc
Private Sub btnAddNew_Click() Dim db As DAO.Database Dim rst As DAO.Recordset Dim strsql As String Dim vardesc As Variant Dim lngID As Long vardesc = Me.txtactDesc.Value strsql = "Select * From Activities Where ActDesc = '" & vardesc & "'" Set db = CurrentDb Set rst = db.OpenRecordset(strsql) If rst.RecordCount = 0 Then rst.AddNew rst!TypeId.Value = Me!lstType rst!ActDesc.Value = vardesc rst!STOid.Value = Me!CmbSTO.Value rst.Update rst.Bookmark = rst.LastModified End If lngID = rst!Actid.Value strsql = "Select Top 1 * from Act_SubTo_Date" Set rst = db.OpenRecordset(strsql) rst.AddNew rst!Actid.Value = lngID rst!ActDate.Value = Nz(Me!ActDate.Value, Date) rst.Update txtactDesc = "" Refresh rst.Close Set rst = Nothing Set db = Nothing End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|Google drive Permission Error||43||49|
|access query filter for lower case lett||7||21|
|ms/access programmatically get a list of fils and folders||3||24|
|Null Recordset Value Generating VBA Run-time Error #3021 - No Current Record||23||31|