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

• #3088 Lokids addikt Petya25 #3087

  Új Válasz 2019-02-13 11:49:14 #3088

  Ú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

  

  Lokids

  addikt

  válasz Petya25 #3087 üzenetére

  Ezt kifejtenéd kicsit bővebben? Mert én jelenleg ilyesmin gondolkodom, de ez nem túl szép megoldás:

  If (Weekday(Now(), vbMonday) = 1) Then
  else if = 2 then dateadd (valamennyi)
  else if = 3 stb...

  De mind az 5 napra külön elseif-et írni nem tűnik valami jó megoldásnak.

• #3057 martonzso újonc Petya25 #3056

  Új Válasz 2018-09-20 16:38:31 #3057

  Ú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

  

  martonzso

  újonc

  válasz Petya25 #3056 üzenetére

  Értem, köszi

• #2798 Pali79 aktív tag Petya25 #2797

  Új Válasz 2017-05-07 18:09:03 #2798

  Ú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

  

  Pali79

  aktív tag

  válasz Petya25 #2797 üzenetére

  Így sem jó valami:
  Error 1 Operator '*' is not defined for types 'System.Windows.Forms.TextBox' and 'System.Windows.Forms.TextBox'.

  Ez lenne a kód:
  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
TextBox2 = TextBox1 * TextBox1
End Sub

• #2796 Pali79 aktív tag Petya25 #2795

  Új Válasz 2017-05-07 15:33:15 #2796

  Ú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

  

  Pali79

  aktív tag

  válasz Petya25 #2795 üzenetére

  Pontosan! Csak még azt nem tudom, hogy a LABEL helyett mit kellene használni.

• #2793 Pali79 aktív tag Petya25 #2792

  Új Válasz 2017-05-07 10:42:18 #2793

  Ú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

  

  Pali79

  aktív tag

  válasz Petya25 #2792 üzenetére

  Annak mi a pontos neve?

• #2786 Ispy nagyúr Petya25 #2784

  Új Válasz 2017-04-20 10:01:22 #2786

  Ú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

  

  Ispy

  nagyúr

  válasz Petya25 #2784 üzenetére

  Ha accessről térsz át .net-re, akkor nyugodtan felejtsél el mindent, amit ott használtál, tapasztalatból mondom.

• #2785 martonx veterán Petya25 #2784

  Új Válasz 2017-04-19 20:01:21 #2785

  Ú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

  

  martonx

  veterán

  válasz Petya25 #2784 üzenetére

  Szerintem át kellene menned az SQL-es topikba.

• #2783 sztanozs veterán Petya25 #2782

  Új Válasz 2017-04-19 14:33:06 #2783

  Ú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

  

  sztanozs

  veterán

  válasz Petya25 #2782 üzenetére

  PIVOT lekérdezést kell csinálni: [link]

• #2781 Delila_1 veterán Petya25 #2780

  Új Válasz 2017-04-18 15:17:52 #2781

  Ú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

  

  Delila_1

  veterán

  válasz Petya25 #2780 üzenetére

  

• #2779 Delila_1 veterán Petya25 #2778

  Új Válasz 2017-04-18 12:39:01 #2779

  Ú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

  

  Delila_1

  veterán

  válasz Petya25 #2778 üzenetére

  A képeken láthatod, hogy az adatokat tartománnyá alakítottam, majd az A2:B10-nek nevet adtam. Ez lett a ComBobox RowSource bemenő tartománya (Munka1!ID_Nev)
  A ComboBox ColumnCount értéke 2, ezért látszik mindkét oszlop. Az egyik nevet (Anna) szándékosan 2 ID-hez rendeltem.

  

  A név kiválasztásakor a lenti makró beviszi a kívánt értékeket a 2 labelbe.

  Private Sub ComboBox1_Change()
Dim sor As Integer

With Sheets(1)
sor = Application.Match(ComboBox1, .Columns(1), 0)
Varos = .Cells(sor, 3)
Fogl = .Cells(sor, 4)
End With
End Sub

  

  Azt még most sem értem, miért egy diagramról akarsz értékeket bevinni a formra, miért nem abból a tartományból, amiből létrehoztad a diagramot.

• #2777 Delila_1 veterán Petya25 #2776

  Új Válasz 2017-04-13 15:49:28 #2777

  Ú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

  

  Delila_1

  veterán

  válasz Petya25 #2776 üzenetére

  1. A grafikonos kérdést nem értem.

  2. Teszel a formra egy textboxot, ahol megadod a rekord sorszámát. Mivel az itt megadott érték szöveg típusú (ezért hívják textboxnak), át kell alakítanod számmá – pl. hozzáadsz 0-t, vagy szorzod 1-gyel. Ezután már beírhatod a form objektumaiba a cells(sorszám, oszlop) értékeket.

• #2284 vilag tag Petya25 #2283

  Új Válasz 2013-12-18 10:27:58 #2284

  Ú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 Petya25 #2283 üzenetére

  Ahogy írtam VBA-ban szeretném ezt a problémát megoldani, így sajnos az általad kínált megoldás nem használható.

  A VBA súgójában annyit találtam, hogy "ActiveWorkbook.ReadOnly" az csak lekérdezhető.

  A probléma az, hogy az adot fájlt tööben is használják a hálózaton, viszont a felhasználók egy körének csak olvasásra szabadna megnyitnia.
  Fájlszinten a biztonsági beállítások között szépen be is állítottam, hogy mely felhasználók nyithatják írásra, és melyek szerkesztésre.
  A fájl elsődleges használója azonban nem én vagyok. Hiába állítottam be mint tulajdonos, hogy semelyik más felhasználónak nem engedélyezem, hogy saját tulajdonba vegye a fájlt, ez valamiért időnként mégis előfordul és ilyenkor minden beállított fájlszintű korlátozás ment a levesbe.

  Ezért akartam ezt programkódból megoldani, ha lehet.

• #2279 Petya25 őstag Petya25 #2278

  Új Válasz 2013-12-12 16:11:16 #2279

  Ú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

  

  Petya25

  őstag

  válasz Petya25 #2278 üzenetére

  Lett egy egyszerű megoldásom:

  filename = FileSystem.dir("\\gepnev\Images\" & kep_nev & "*.jpg")

  url = "\\gepnev\Images\" & fajlnev

  Ez minden hókuszpókusz nélkül visszaadja a talált fájlt.

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