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

• Lokids addikt

  #3088

  #3087 Petya25

  2019-02-13 11:49:14

  Új Válasz

  Ú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

  

  Lokids

  addikt

  #3087 Petya25

  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.

• martonzso csendes tag

  #3057

  #3056 Petya25

  2018-09-20 16:38:31

  Új Válasz

  Ú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

  

  martonzso

  csendes tag

  #3056 Petya25

  Értem, köszi

• Pali79 aktív tag

  #2798

  #2797 Petya25

  2017-05-07 18:09:03

  Új Válasz

  Ú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

  

  Pali79

  aktív tag

  #2797 Petya25

  Í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

• Pali79 aktív tag

  #2796

  #2795 Petya25

  2017-05-07 15:33:15

  Új Válasz

  Ú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

  

  Pali79

  aktív tag

  #2795 Petya25

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

• Pali79 aktív tag

  #2793

  #2792 Petya25

  2017-05-07 10:42:18

  Új Válasz

  Ú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

  

  Pali79

  aktív tag

  #2792 Petya25

  Annak mi a pontos neve?

• Ispy nagyúr

  #2786

  #2784 Petya25

  2017-04-20 10:01:22

  Új Válasz

  Ú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

  

  Ispy

  nagyúr

  #2784 Petya25

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

• martonx veterán

  #2785

  #2784 Petya25

  2017-04-19 20:01:21

  Új Válasz

  Ú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

  

  martonx

  veterán

  #2784 Petya25

  Szerintem át kellene menned az SQL-es topikba.

• sztanozs veterán

  #2783

  #2782 Petya25

  2017-04-19 14:33:06

  Új Válasz

  Ú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

  

  sztanozs

  veterán

  #2782 Petya25

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

• Delila_1 veterán

  #2781

  #2780 Petya25

  2017-04-18 15:17:52

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  #2780 Petya25

  

• Delila_1 veterán

  #2779

  #2778 Petya25

  2017-04-18 12:39:01

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  #2778 Petya25

  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.

• Delila_1 veterán

  #2777

  #2776 Petya25

  2017-04-13 15:49:28

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  #2776 Petya25

  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.

• vilag tag

  #2284

  #2283 Petya25

  2013-12-18 10:27:58

  Új Válasz

  Ú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

  

  vilag

  tag

  #2283 Petya25

  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.

• Petya25 őstag

  #2279

  #2278 Petya25

  2013-12-12 16:11:16

  Új Válasz

  Ú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

  

  Petya25

  őstag

  #2278 Petya25

  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