checkboxes arggghhhh!!

[gsc1ugs]

I have this scenario: I read a access database, then loop like this:
Do
txtID = "" & rs!ID
txtCustomer = "" & rs!Customer
txtCustomerID = "" & rs!CustomerID
txtPostCodes = "" & rs!POSTCODES
txtIGN = "" & rs!IGN
txtOwnMasterDatabase = "" & rs!OwnMasterDatabase
txtWebDBType = "" & rs!WebDBType
txtDongle = "" & rs!Dongle
txtCarriers = "" & rs!Carrier
txtTriQuad = "" & rs!TriQuad
txtumNumberUsers = "" & rs!umNumberUsers
txtumPassword = "" & rs!umPassword
txtumDistance = "" & rs!umDistance
txtumTariff = "" & rs!umTariff
txtumCosts = "" & rs!umCosts
txtumMultipleLogin = "" & rs!umMultipleLogin
txtISPreProccessorType = "" & rs!SetPreProccessor
rs.MoveNext
Loop Until rs.EOF
I then have check boxes 12 for instance to represent each customer, what i would like to do is loop until a check represents the txtCustomerID... any help please???

Many thanks

[Iain17]

I'm not really sure what you are trying to do, but.

Are you saying that when a user clicks 1 of 12 checkboxes you want to find and display the coresponding customer?

If the customers ID is 1-12 then that is easy, you could use a control array.

Other wise look into using the "Tag" property of the check box. You could store each customers ID in the Tag of an individual checkbox.

[gsc1ugs]

Easy to you perhaps, but when you've been working with VB for 5 minutes a week, not so... could you elaborate please..

Many thanks.

[Iain17]

If the customers ID's are 1 - 12 Then :

create a checkbox on your form. Copy it and paste it to the form. this will create a control array. Repeat until you have 12 check boxes.

These will be numbered 0 - 11.

Now when the user clicks on the checkbox, you use the click event to find the customer

Private Sub Check1_Click(Index As Integer)
  findCust (index)
End Sub

private sub findCust (iCust as Integer)

  rs.movefirst
  do until (iCust = rs!CustomerID) or (rs.eof)
    rs.movenext
  loop
   
  'now display the data
End Sub

If the customers ID is going to be like "AB12Z" or something then :

When you load the form you will have to get all of the customers ID's out of the record set and place them in the Tag property of the checkboxs.

private sub getCustId()
  
  i = 0
  do until rs.eof = true
    check1(i).Tag = rs!CustomerID
    i = i + 1
    rs.movenext
  until

End Sub

Private Sub Check1_Click(Index As Integer)
  findCust (check1(index).Tag)
End Sub

private sub findCust (iCust as String)

  rs.movefirst
  do until (iCust = rs!CustomerID) or (rs.eof)
    rs.movenext
  loop
   
  'now display the data
End Sub

[gsc1ugs]

I shall try this..

Many thanks

[gsc1ugs]

Yes, txtCustomerID returns a string..

ok!

[gsc1ugs]

private sub getCustId()

i = 0
do until rs.eof = true
check1(i).Tag = rs!CustomerID
i = i + 1
rs.movenext
until ' Shouldn't this be 'Loop'
End Sub

[Iain17]

alright, don't get arsy with me.

When i am writing code of the top of my head like that i often revert back to my days of pascal, as that is the first language i learnt.

Sorry.

[gsc1ugs]

What if i had multiple selections

[Iain17]

What do you mean by multiple selections, and what would you like to do with them?

[gsc1ugs]

What part of the world are you from.. i've never heard of that saying before.. anyhow sorry for being arsy?? yeh, sounds great.

Cheers

[gsc1ugs]

This works.. thanks for that.. last question, what if i selected multiple check boxes?

[Iain17]

Oh yeah i forgot some info. You probably already know any way.

When the check box is clicked on you will have to check the value to see if it is checked or not. If it is checked then display customer, if it is unchecked then clear info.

If you clicked a second box, it would just show the most recently clciked check boxes customer.

if you only want one box at a time checked i suggest using radio buttons.


Just to answer your other question, i'm in England. i think it might be spelled arsey actually. Not really sure.

[gsc1ugs]

Yep, me again, so if i did have ticked say, 4 check boxes, this method is useless?

Regards

ps: What if i wanted a select all box as well.?

[Iain17]

How do you intend to display multiple customers at the same time. Please explain what you want to achieve

[gsc1ugs]

On first selected check box, create an app for that customer, on the other check box selection do the same and so on..

Many thanks

[Iain17]

I can't see a problem with that. By app, do you mean shell a new application, or a new form?

You could create any number of instances of a customer detail form.

[gsc1ugs]

No, an application is built per customer so the scenario is

check1(3) say smith
build application
repeat until none selected

Hope this helps

[Iain17]

i'm begining to get the picture now. Let me see if i have got it right.

You have (lets say) 12 checkboxes.
The user can click any number of these.
When they have done selecting, then you want to hit a command button (GO) that will start the app building.

Right? If not the following will be a load of useless crap.

When they hit the GO button you you loop thorugh all of the 12 check boxes and check the value. If the box is checked then you call the find cust, then you build yuor app, or whatever.

Private Sub cmdGO_Click()
  Dim i As Integer

  For i = 0 To 11
    If check(i).value = vbChecked Then
      If findCust(check(i).tag) = True Then
        'build app or whatever
      Else
        Msgbox "The Customer was not found!"
      End If
    End If
  Next i

End Sub


Private Function findCust (iCust as String) As Boolean
  rs.movefirst
  
  Do Until (findCust = True) or (rs.EOF)
    If iCust = rs.CustomerID Then
      findCust = True
    End If
    rs.MoveNext
  Loop

End Sub

[gsc1ugs]

Thanks for that, i'll try it!!

[gsc1ugs]

Can the for loop not be as restricted ie: be the length of how many check boxes their are?

Regards

[Iain17]

Of course it can.

For i = Check1.LBound To Check1.UBound
  'blah blah blah
Next i

[gsc1ugs]

Where was we up to... ahhh! is this an initialisation.?

[Iain17]

Pardon? What do you mean?

[gsc1ugs]

After a weekend of booze, i can understand that reply

For i = Check1.LBound To Check1.UBound
'blah blah blah
Next i

Is this an initialisation process?

[Iain17]

You asked if the for loop can be for the number of checkboxes there are.

check1.lbound gives you the lowest number in the control array (0 or 1 probably)

check1.ubound gives you the highest number in the control array (if you have 12 boxes, then 11 if you start at 0 or 12 if you start at 1)

So the loop will go through each checkbox you have, without hardcoding a number. This will allow you to change the number of checkboxes, without changing the loop code.

Private Sub cmdGO_Click()
  Dim i As Integer

  For i = Check1.LBound To Check1.Ubound
    If check(i).value = vbChecked Then
      If findCust(check(i).tag) = True Then
        'build app or whatever
      Else
        Msgbox "The Customer was not found!"
      End If
    End If
  Next i

End Sub


Private Function findCust (iCust as String) As Boolean
  rs.movefirst
  
  Do Until (findCust = True) or (rs.EOF)
    If iCust = rs.CustomerID Then
      findCust = True
    End If
    rs.MoveNext
  Loop

End Sub

[gsc1ugs]

Hello again,

I'm having difficulty fitting the formentioned loops to my scenario, my scenario is this

Do Until (rs.EOF)
txtID = "" & rs!ID
txtCustomer = "" & rs!Customer
txtCustomerID = "" & rs!CustomerID
txtPostCodes = "" & rs!POSTCODES
txtIGN = "" & rs!IGN
txtOwnMasterDatabase = "" & rs!OwnMasterDatabase
txtWebDBType = "" & rs!WebDBType
txtDongle = "" & rs!Dongle
txtCarriers = "" & rs!Carrier
txtTriQuad = "" & rs!TriQuad
txtumNumberUsers = "" & rs!umNumberUsers
txtumPassword = "" & rs!umPassword
txtumDistance = "" & rs!umDistance
txtumTariff = "" & rs!umTariff
txtumCosts = "" & rs!umCosts
txtumMultipleLogin = "" & rs!umMultipleLogin
txtISPreProccessorType = "" & rs!SetPreProccessor
If (iCust = rs!CustomerID) Then

'build the app
Else
End If
rs.MoveNext
Loop

How could i place the code you give me into this scenario:?

cmdGO_Click()
Dim i As Integer

For i = Check1.LBound To Check1.Ubound
If check(i).value = vbChecked Then
If findCust(check(i).tag) = True Then
'build app or whatever
Else
Msgbox "The Customer was not found!"
End If
End If
Next i

End Sub


Private Function findCust (iCust as String) As Boolean
rs.movefirst

Do Until (findCust = True) or (rs.EOF)
If iCust = rs.CustomerID Then
findCust = True
End If
rs.MoveNext
Loop

End Sub

No offence intended.

But just read through the entire thread and you were doing so well until the final post which kind of doesn't match whats been asked previous.

Ok if you click a checkbox do you then execute the text loading stuff.?. And how does iCust relate to it.

Do you want to do something like

1. Click on Go

2. Check for any checked boxes

3. Load the text fields

4. Generate the app

5. Repeat 1 through 4 from chkbox(0) to chkbox(11)

Just trying to clarify things

[gsc1ugs]

EXACTLY!!

[gsc1ugs]

Everything going great but arrrrggghhhh!! again, how do i disable the automatic run when i tick a check box?

[Iain17]

Right.

Private Sub Form_Load()

    getCustId

End Sub

Private Sub getCustId()
  Dim i As Integer

  i = 0
  rs.movefirst
  do until rs.eof = true
    check1(i).Tag = rs!CustomerID
    i = i + 1
    rs.movenext
  until

End Sub



Private Sub cmdGO_Click()
  Dim i As Integer

  For i = Check1.LBound To Check1.Ubound
    If check(i).value = vbChecked Then
      If findCust(check(i).tag) = True Then
        displayCust
        'build app or whatever
      Else
        Msgbox "The Customer was not found!"
      End If
    End If
  Next i

End Sub


Private Function findCust (iCust As String) As Boolean

  rs.movefirst
  
  Do Until (findCust = True) Or (rs.EOF)
    If iCust = rs.CustomerID Then
      findCust = True
      Exit Function
    End If
    rs.MoveNext
  Loop

End Sub


Private Sub DisplayCust()

    txtID = "" & rs!ID 
    txtCustomer = "" & rs!Customer 
    txtCustomerID = "" & rs!CustomerID 
    txtPostCodes = "" & rs!POSTCODES 
    txtIGN = "" & rs!IGN 
    txtOwnMasterDatabase = "" & rs!OwnMasterDatabase 
    txtWebDBType = "" & rs!WebDBType 
    txtDongle = "" & rs!Dongle 
    txtCarriers = "" & rs!Carrier 
    txtTriQuad = "" & rs!TriQuad 
    txtumNumberUsers = "" & rs!umNumberUsers 
    txtumPassword = "" & rs!umPassword 
    txtumDistance = "" & rs!umDistance 
    txtumTariff = "" & rs!umTariff 
    txtumCosts = "" & rs!umCosts 
    txtumMultipleLogin = "" & rs!umMultipleLogin 
    txtISPreProccessorType = "" & rs!SetPreProccessor 

End Sub

[gsc1ugs]

Shouldn't displayCust take a parameter?

[Iain17]

Nope. We have already moved to the right posiiton in the recordset, so we just tell the procedure to display whatever is at that current position.

[gsc1ugs]

So these variables will have to be global..?
"i dont like global variables..!!!" Thanks for your help

[Iain17]

Like them or lump them, Global variables are a must in VB.

In the good old days of pascal, it was possible to write a program without a single Global variable. I managed to write a scheduling program for a fire station (for my A-level project) without using a single one. This encourages good coding.


Unfortunaley, the same is imposible with VB. Try it and see how far you get. (i estimate about nowhere), so get used to them.

If so you can declare as Private in the General area...by the way use the command Option Explicit to enforce integrity. Global works for multi-form and multi class or bas projectes, where something like say Company Name can be setup in a start module.

Then again l may just be teaching my grandmother how to suck eggs. Hey good solution Iain.

[gsc1ugs]

Where do i call the declarations for set database, it doesn't like this??

Option Explicit
Dim lne$
Dim DirFlag As Boolean
Dim FilesCopied As FileSystemObject
Dim DB As Database
Dim rs As Recordset
'set db location
Set DB = OpenDatabase(App.Path & "\configuration.mdb")
'Open the Contact table
Set rs = DB.OpenRecordset("SELECT netVESPAWeb.*, ISDefine.SetPreProccessor, altCarriers.Carrier FROM (ISDefine INNER JOIN netVESPAWeb ON ISDefine.ID = netVESPAWeb.ISPreProccessorType) INNER JOIN altCarriers ON netVESPAWeb.SetCarriers = altCarriers.ID", dbOpenDynaset)

[gsc1ugs]

Is this correct for select all??


For i = Check1.LBound To Check1.Ubound
Check1(i).value = vbChecked
Next i

[Iain17]

Answer to First post is on its way via E:mail.

Answer to second post = Exactly right.

For me only approx 30 or so questions...however generally post questions internally on our intranet which we share with a couple of other companies. Only if caren't get answer will post to this site. But...and this is a big but...have picked up ideas/solutions/techniques from reading other posts.

Generally skim through once or twice a day to see if l can help anyone out. Didn't know about this site when l started vb, and man it would have solved some late nights and the cost of books.