Want to avoid the missteps to gaining all the benefits of the cloud? Learn more about the different assessment options from our Cloud Advisory team.
Private Sub cmdClearChip_Click() Dim LResponse As Integer LResponse = MsgBox("You selected Clear Chip Reporting. Are you sure this is a WV Lottery Clear Chip reporting?" & vbNewLine & vbNewLine & _ "PLEASE NOTE: You must select the particular Machine or Machines that are being Clear Chipped. Check the box of any Machine that the Lottery is performing a Clear Chip!", vbYesNo, "CLEAR CHIP REPORTING") 'Forms!frm_ClearChipSelectMachines.txtLocNbrMachines = Me.txtNbrMachines DoCmd.OpenForm "frm_ClearChipSelectMachines", acNormal, , , acFormEdit, acWindowNormal, "frm_ClearChipSelectMachines.txtLocNbrMachines =" & Me.txtNbrMachines Call GenerateLVLMachineLines3(LResponse = vbYes) Forms!frm_ClearChipSelectMachines.txtNewSeqID = Me.txtNewSeqID DoCmd.Close acForm, "frm_LVLREportingTypeSelect", acSaveNo End Sub
Private Sub Form_Current() Dim i As Integer i = 10 Do Until i = Val(Me.txtLocNbrMachines) Me.Controls("lblCkBox" & i).Visible = False i = i - 1 Loop End Sub
Join the community of 500,000 technology professionals and ask your questions.