Resolved - Cmd Button Array

Hi
I do not know much about arrays but I have 4 cmd buttons on my
form these will do exactly the same except for the printed results
which will be a little different i.e

How can I put this into an array but change the printed result
depending on which button is pressed

my code

VB Code:

Private Sub cmdashft_Click()
 
        Select Case Intwndprogress
            Case Is = 10
                txtinformation.Text = "J"
                PicresultsShft.Print "Packers_Shift"; vbCrLf & CStr(txtinformation)
                    cmdashft.Caption = ""
                    cmdbshft.Caption = ""
                    cmdcshft.Caption = ""
                    cmddshft.Caption = ""
    txtinformation.SetFocus
    txtinformation.maxlength = 11
    txtinformation = ""
             Call wndprogres
               
       End Select
      Lbltext.Caption = "Please enter code"
            validate_product_code
 
End Sub

Thanks

Hi,

May I ask whát exactly do you want to be changed when a cmd-button is pressed?

Greetings,

Teddo:cool:

The bit I want to change is the actually results which would be
printed on my form

VB Code:

txtinformation.Text = "J"
                PicresultsShft.Print "Packers_Shift"; vbCrLf & CStr(txtinformation)

depending on which button is pressed - txtinformation could be J
,A, B, G etc

Thanks

Hi,

Erm...
Do you want that only the letters that you said can be chosen or do you want it to choose one of the letters from the alphabet?

Greetz,
Teddo:cool:

I want the letters that I have mentioned!!!
;) ;)

Hi Holly,

Ok... I'll try to give you the code I think is the best:

VB Code:

Public Letter As String
 
Private Sub CommandButton_Click(Index As Integer)
'Remember that the first CommandButton in the array is
'ALWAYS 0
 If Index = 0 Then
   Letter = "J"
 ElseIf Index = 1  Then
   Letter = "A"
 ElseIf Index = 2 Then
   Letter = "B"
 ElseIf Index = 3 Then
   Letter = "G"
 End If
txtInformation.Text = Letter
PicresultsShft.Print "Packers_Shift"; vbCrLf & CStr(txtinformation)
 
Call wndprogres
               
    Lbltext.Caption = "Please enter code"
          validate_product_code
 
 
End Sub

I'm not completely sure whether it works, but you can try!!!
If it doesn't, I'm sorry :D

Greetz,


:::Teddo:::

Thanks Teddo, I will give it ago and let you know how I get on!!;)
Thanks for all your help


;) ;)

Hi Holly,

No problem....
Usually I always ask questions, but this was something I knew!!(just from books etc.)
So I am glad I could help you...

Sorry for my late response, but I was away for Lunch...

Greetz and lots of luck,

Teddo:cool:

VB Code:

Select Case Index
Case 0
 
Case 1
 
Case 2
.
.
.
Case Else
 
End Select

Thanks Teddo,
After a bit of tweaking - I manged to get it to work.......

Thanks again for all your help

;) ;) ;)

No problem, like I said before!!!!!!!

:cool: :cool: :cool: :cool: :rolleyes: ;)