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 cboVendorName_BeforeUpdate(Cancel As Integer) Dim curDB As DAO.Database Dim strSQL As String Dim rs As DAO.Recordset Dim X As Integer Dim ctl As Control Dim frm As AccessObject Set curDB = CurrentDb gContractID = Me.ContractNumber gInvID = Me.IDInvoice strSQL = "SELECT RecordLock" & _ " FROM tblinvoice" & _ " WHERE (((ContractNumber)=" & Chr(34) & gContractID & Chr(34) & ") AND ((RecordLock)=False))" Set rs = curDB.OpenRecordset(strSQL) If rs.RecordCount > 0 Then Select Case MsgBox("Sorry unable to process request until previous Invoice has been printed." _ & vbCrLf & "" _ & vbCrLf & "Do you wish to print last Invoice entry?" _ , vbYesNoCancel Or vbCritical Or vbDefaultButton1, "Invoice Needs to be Printed") Case vbYes DoCmd.OpenReport "rptAPCodingSlip", acViewPreview, "IDInvoice = " & Chr(39) & gInvID & Chr(39) & "" DoCmd.OpenReport "rptInvoiceActivity_Slip", acViewPreview, "ContractNo = " & Chr(34) & gContractID & Chr(34) & "" '>>>>> If X = 0 Then DoCmd.RunSQL "Update tblinvoice Set RecordLock = -1 where IDInvoice = " & gInvID & "" End If Case vbNo Or vbCancel Exit Sub End Select End If End Sub
|hit enter key to run macro||13||23|
|Launch app from Access custom ribbon||8||33|
|Web Browser embedded in MS Access form hangs after logging into website||8||54|
|Field naming convntions - MS Access||7||24|