|
|
| Тема |
 MS Access i VB [ |
|
| Автор |
American_boy (Pothead) |
|
| Публикувано | 23.09.02 20:39 |
|
|
|
Zdraveite na vischki.
Imam edna form-a v Microsoft Access v koiato imam dve bounded text boxes koito sadargat tri-bukveni kodove za razlichni mashinni chasti.Ednata text box se naricha [type] a drugata se naricha [dia type].Iskam ako koda v [type] e ili "EBW" ili "Sub Arc",avtomatichno da popalnia "ARC" v [dia type]. Kogato probvam s prosto
If statement,kodat mi raboti samo za parviat record.Opitah s array da loop-na prez vsichki records,no poluchavam greshka.Eto kodat mi po-dolu,ako razbrahte neshto ot moite gluposti,pishete :)
Private Sub Form_Load()
Dim i As Integer
For i = 1 To 134
[type].SetFocus
If InStr([type].text, "EBW") Then
Me![dia type].Visible = True
Me![dia type].Enabled = True
Me![dia type] = "ARC"
ElseIf InStr([type].text, "Sub Arc") Then
Me![dia type].Visible = True
Me![dia type].Enabled = True
Me![dia type] = "ARC"
Else
Me![dia type].Enabled = False
Me![dia type].Visible = False
End If
Next
End Sub
| |
| |
| 
|
|
