SENDKEYS with vbYesNoCancel and Select Case

kiwimtnbkr · #17 05-29-2018, 11:09 PM

Quote:

Originally Posted by gmaxey

You will have to change the name of your form.

i.e., change the existing form named ufrmPrintNumberedCopies to frmPrintDialog.

Sorted - changed the existing forms to frmPrintNumberedCopiesAll and frmPrintNumberedCopiesSelect and then adjusted the two lines in your code from frmPrintDialog to frmPrintNumberedCopiesAll and frmPrintedNumberedCopiesSelect respectively.

The validation works bang on for the PrintNumberedCopiesAll but only kind of works for the PrintNumberedCopies select which has a 3rd text box entitled txtPages in that it validates.

I managed to adjust your code to take into account the txtPages validation but somewhat disconcertingly I am unable to put commas and hyphens into the 'what pages require printing' box to assist with specifying what pages I wanted printed.

Code:

Option Explicit
Dim m_bTest As Boolean
Private Sub txtStartNumber_Change()
  Validate_OK
End Sub
Private Sub txtPages_Change()
  Validate_OK
End Sub
Private Sub txtPages_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
  m_bTest = IsInteger(KeyAscii)
  If m_bTest = False Then
    Beep
    KeyAscii = 0
  End If
End Sub
Private Sub txtStartNumber_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
  m_bTest = IsInteger(KeyAscii)
  If m_bTest = False Then
    Beep
    KeyAscii = 0
  End If
End Sub
Private Sub txtCopies_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
  m_bTest = IsInteger(KeyAscii)
  If m_bTest = False Then
    Beep
    KeyAscii = 0
  End If
End Sub
Private Sub txtCopies_Change()
  Validate_OK
End Sub
Function IsInteger(ByVal i As String) As Boolean
  Select Case i  'Checking to see if inside valid Ascii range for integers
    Case 48 To 57: IsInteger = True
    Case Else: IsInteger = False
  End Select
End Function
Private Sub UserForm_Activate()
  Validate_OK
End Sub
Private Sub cmdCancel_Click()
  Tag = "CANCX"
  Hide
End Sub
Private Sub cmdOK_Click()
  Hide
End Sub
Private Sub Validate_OK()
  cmdOK.Enabled = True
  If Not IsNumeric(Trim(txtCopies)) Then cmdOK.Enabled = False
  If Not IsNumeric(Trim(txtStartNumber)) Then cmdOK.Enabled = False
  If Not IsNumeric(Trim(txtPages)) Then cmdOK.Enabled = False
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Help with Case and Select case	brent chadwick	Word VBA	34	10-18-2015 02:13 PM
Replace & case	Jennifer Murphy	Word	1	02-11-2013 03:26 AM
A macro that can insert FILENAME, sendkeys CTRL ALT T, paste clipboard, and nextline	kyjac85	Word VBA	13	09-20-2012 05:00 PM
Problem with the sendkeys in Win7	vidyapakki	Excel Programming	1	05-07-2012 11:10 PM
From all UPPER CASE to Proper Case	davers	Word	1	04-30-2009 12:41 PM