2. Fórumok
  3. Szoftverfejlesztés
  4. Visual Basic

Új hozzászólás Aktív témák

  • #1689 vilag tag martonx #1681
    Új Válasz #1689
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    vilag

    tag

    válasz martonx #1681 üzenetére

    De tudomásom szerint csak excelbe történő kiírás folyik, onnan visszaolvasás nem. Legalább is ennél a folyamatnál nem. Tehát nem tudok rájönni, hogy mi indokolja egy elvileg nem érintett combobox change-ének lefutását. Mitől változna az értéke????

    Csak egy nyamvad évszám van benne.

    Akkor a kódrészletek:
    A gomb megnyomásakor ez fut le:
    Private Sub CommandButton6_Click() 'Partner rögzítése a gyakori partnerek listájára

    If ComboBox12.Text = "" Or ComboBox2.Text = "" Or TextBox3.Text = "" Or ComboBox1.Text = "" Then
    hiba = MsgBox("Valamely címzéshez szükséges adat hiányzik, kérlek ellenőrizd!", 16, "Címadat hiba")
    Exit Sub
    End If

    üzenet = MsgBox("Biztosan rögzíteni akarod a partnert a gyakori partnerek listájára az alábbi adatokkal?" + Chr(13) + Chr(13) + _
    "Név:" + Chr(9) + Chr(9) + ComboBox12.Text + Chr(13) + _
    "Település:" + Chr(9) + ComboBox2.Text + Chr(13) + _
    "Utca, hászám:" + Chr(9) + TextBox3.Text + Chr(13) + _
    "Irányítószám:" + Chr(9) + ComboBox1.Text, 36, "Partnerrögzítés")

    If üzenet = 2 Then
    Exit Sub
    Else
    kileptet = False
    partnerujsor = ThisWorkbook.Worksheets("Partnerek").Range("a2").End(xlDown).Row + 1
    ThisWorkbook.Worksheets("Partnerek").Range("a" + Trim(Str(partnerujsor))).Value = Trim(Str(partnerujsor - 1))
    ThisWorkbook.Worksheets("Partnerek").Range("b" + Trim(Str(partnerujsor))).Value = ComboBox12.Text
    ThisWorkbook.Worksheets("Partnerek").Range("c" + Trim(Str(partnerujsor))).Value = ComboBox2.Text
    ThisWorkbook.Worksheets("Partnerek").Range("d" + Trim(Str(partnerujsor))).Value = TextBox3.Text
    ThisWorkbook.Worksheets("Partnerek").Range("e" + Trim(Str(partnerujsor))).Value = ComboBox1.Text
    kileptet = True
    End If

    End Sub

    ahol kiléptet=a probléma miatt bevezetett változó

    A futkározó vezérlő change-e:

    Private Sub ComboBox4_Change() 'postázás éve

    If kileptet = False Then Exit Sub

    If eloszor = True Then Exit Sub
    CommandButton3.Enabled = True
    CommandButton2.Enabled = True

    If ComboBox4.MatchFound = False And Len(ComboBox4.Value) > 0 Then
    hiba = MsgBox("A postázás éve négy jegyű és nem térhet el az aktuális évtől egy évvel többel!", vbCritical + vbOKOnly, "Dátum beviteli hiba")
    ComboBox4.ListIndex = -1
    Exit Sub
    End If

    If ComboBox4.ListIndex = -1 Then Exit Sub
    postev = ComboBox4.Value
    If Int(postev / 4) <> postev / 4 Then szoko = False Else szoko = True
    If postho = "02" Then
    If szoko = True Then
    ComboBox6.RowSource = "napló!h2:h30"
    If ComboBox6.ListIndex = -1 Then
    ComboBox6.ListIndex = 28
    postnap = ComboBox6.Text
    End If
    Else
    ComboBox6.RowSource = "napló!h2:h29"
    If ComboBox6.ListIndex = -1 Then
    ComboBox6.ListIndex = 27
    postnap = ComboBox6.Text
    End If
    End If
    End If


    End Sub

    Mint látható az első részletben szó sem esik a Combobox4-ről.
    Így esetleg valami ötlet???

Új hozzászólás Aktív témák