Voitheia me vb

[Angeln20]

paides voitheia,exw mia erwtisi

as ipothesoume pos exw 2 text boxes to text1 k to text2 sto prwto vazw tous til.arithmous k sto deutero vgainei i perioxi

otan grafw px if text1.Text="210" then

text2.value="athens" ola einai kala

ota omws thela na grapsw px 2101234567 sto text1 tote den pairnei

tin timi athens to text2 ti mporw na kanw gia na dilwsw ta ipoloipa 7 psifia ws tixaia?px sti validationrule exei px to "210???????"opou ta ? einai xaraktires tixaioi

ean kserete help me.euxaristw

[UserXP]

>
Private Sub Text1_Change()
   If Left(Text1.Text, 3) = "210" Then Text2.Text = "Athens"
End Sub

[manospower]

Η λύση που δίνεις UserXP δεν είναι σωστή, ή καλύτερα δεν ταιριάζει στις απαιτήσεις του Angeln20, διότι αυτό που του προτείνεις σαν λύση δουλεύει μόνο σε περιοχές που ο αυτόματος είναι 3 ψηφία όπως η Αθήνα και όχι για περιοχές όπως την δική μου που ο αυτόματος έχει 5 ψηφία (28420) ή την Θεσσαλονίκη που έχει 3.

Μία απλή λύση που σου προτείνω είναι να φτιάξεις άλλο ένα textbox στο οποίο θα προτρέπεις τους χρήστες του προγράμματος σου να εισάγουν εκεί τον αυτόματο της περιοχής τους και μετά με μία case θα ελέγχεις σε ποια περιοχή ανήκει το τηλέφωνο.

Ελπίζω να σε βοήθησα.

[GrMikeD]

if InStr(Text1.Text, "210") = 1 Then Text2.Text = "Athens"

[UserXP]

Ο manospower έχει δίκιο.

 

Αν υποθέσουμε ότι έχεις σε ένα πίνακα a1 τους κωδικούς και σε ένα άλλο πίνακα a2 (ίδιων διαστάσεων με τον a1) τις αντίστοιχες πόλεις, μπορείς να χρησιμοποιήσεις τον παρακάτω κώδικα στη φόρμα που είναι τα 2 textboxes

 

>
Option Explicit

Dim a1() As String, a2() As String

Private Sub Form_Load()
   ReDim a1(2) As String, a2(2) As String
   
   a1(0) = "210": a1(1) = "2310": a1(2) = "2410"
   a2(0) = "Athens": a2(1) = "Thessaloniki": a2(2) = "Larisa"
   
End Sub

Private Sub Text1_Change()
Dim i As Long

For i = LBound(a1) To UBound(a1)
   If Left(Text1.Text, Len(a1(i))) = a1(i) Then
       Text2.Text = a2(i)
       Exit Sub
   End If
Next i
Text2.Text = ""

End Sub

 

και για να έιμαστε και περισσότερο σωστοί, το τελευταίο 0 δεν συμπεριλαμβάνεται στον κωδικό της πόλης/περιοχής.

[Angeln20]

Paides euxarisrw poli!!!!