- iPhone topik
- Meglepetés az iPhone Air hajlítópróbáján
- One mobilszolgáltatások
- Apple iPhone Air - almacsutka
- Motorola Edge 40 - jó bőr
- Telekom mobilszolgáltatások
- Be is futott a Samsung új olcsó mobilja
- Lehetetlenül vékony és hihetetlenül kemény (fotó)
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
- Google Pixel 9 Pro XL - hét szűk esztendő
Új hozzászólás Aktív témák
-
#90999040
törölt tag
Van rá lehetőség, winapi mouse_event(), vagy SendInput() függvényével.
A mouse_event() használata egyszerűbb, de a MS már új fejlesztésekhez nem ajánlja. A SendInput() bonyolultabb, de ezzel pl. billentyűlenyomást is lehet generálni, és a MS ezt ajánlja inkább...
-
ArchElf
addikt
Úgy rémlik, hogy az automata üzenetküldö férgek letöréséért a nem Office-ból meghívott Outlook objektumok nem tudnak automatikusan levelt küldeni. Van valami registry beállítás (vagy group/local policy elem), amin keresztül ezt lehet engedélyezni. De nagyon rég volt már amikor ezzel szmbekerültem (6-7 éve), szóval egy kis googlizásba belekerül, mire megtalálom...
Esetleg próbáld meg C# (.NET) alkalmazással...
AE
-
-
ArchElf
addikt
document.getElementById("orszagok").value
RadioButton esetén is működik, ha van ID property-je... Nálad nem volt.Amúgy meg RadioButtonra ott a
document.getElementsByName("szin")
Ezen egy foreach-el végignyomulsz, és megnézed melyik value melett igaz a checked property...AE
-
ArchElf
addikt
-
ArchElf
addikt
Hol van ez futtatva (access, ha jól rémlik?)
Hirtelen ezeket találtam:
- Mi az a Bontás Pending?
- GOTO értelmetlen, használj Exit Sub-ot
- probalkozasok hol kap értéket, nincs átadva a Sub-nak, ez valami globális objektum?
- user() implementálva van?
- Ezeket mire használod?
Kiertesito1, Kiertesites1, Kiertesito2, Kiertesites2, Kiertesito3, Kiertesites3
- indentálásra figyelj:
If akármi Then
'művelet 1
'művelet 2
Else
'művelet 3
'művelet 4
End If
így legalább olvasható lesz a kód
- használj Option Explicit-et (minden változót kötelező deklarálnod Dim akármi-vel, de legalább véd az elgépelés és a túlzott mértékű változó használat ellen)AE
-
ArchElf
addikt
-
Oly
őstag
Most addig eljutottam, hogy néhány helyen már futnak a scriptek, de még mindig nem mind.
pl ez sem:Private Sub Command34_Click()
Dim proba As Long
'Dim sortores As String
'sortores = ""
hivas = MsgBox("Hívtad a kontaktot?", vbQuestion + vbYesNo, "Megerősítés")
If hivas = vbNo Then
GoTo Vege
End If
If probalkozasok.Value > 0 Then
sortores = vbCrLf
End If
probalkozasok.Value = probalkozasok.Value + 1
nvf = MsgBox("Sikerült elérni az ügyflelet?", vbQuestion + vbYesNo, "Kérdés")
If nvf = vbYes Then
hozzafuz = InputBox("Eredmény", "Kérlek add meg, hogy mire jutottál")
lezarass = MsgBox("Lezáruk a jegyet sikeres kiértesítéssel?", vbQuestion + vbYesNo, "Lezárás")
If lezarass = vbYes Then
Lezarva = 2
MyFile = "BP.txt"
fnum = FreeFile()
Open MyFile For Append As fnum
Write #fnum, Now(), user(), "M", ID, Lezarva
Close #fnum
End If
Else
hozzafuz = "Nem vette fel"
End If
Kiertesites_eredmenye = Kiertesites_eredmenye & sortores & probalkozasok & ". kiértesítés: " & hozzafuz
If probalkozasok.Value = 1 Then
Kiertesito1 = user()
Kiertesites1 = Now()
End If
If probalkozasok.Value = 2 Then
Kiertesito2 = user()
Kiertesites2 = Now()
End If
If probalkozasok.Value = 3 Then
Kiertesito3 = user()
Kiertesites3 = Now()
lezaras = MsgBox("Ez volt a harmadik próbálkozás! Lezáruk a jegyet sikertelen kiértesítéssel?", vbQuestion + vbYesNo, "Lezárás")
If lezaras = vbYes Then
Lezarva = 3
MyFile = "BP.txt"
fnum = FreeFile()
Open MyFile For Append As fnum
Write #fnum, Now(), user(), "M", ID, Lezarva
Close #fnum
End If
End If
Vege:
End Sub -
-
Oly
őstag
Sziasztok.
Mivel nem tudjuk a területi beállításokat állítani minden gépen, ezért valami más megoldásra lenne szükségem.
Próbálkoztam, hogy az én gépemen is átállítom angolra, de nem történt semmi, majd mikor visszaállítottam magyarra, akkor az én gépemen sem ment már a dolog.
Sőt!
Ami eddig ment (másik adatbázisban), az sem megy most már.Van valami alternatív lehetőség, ami területi beállítástól független?
Sajnos ez az alkalmazás több 100 gépen (PC, Terminal, Laptop) fog futni, és nem tudjuk máshogy megoldani.Ha kell, újra építem az egészet, csak mondjátok el hogy mire figyeljek...
Milyen karaktereket ne használjak, vagy mi miatt akadnak ezek össze?ELőre is köszönöm.
Új hozzászólás Aktív témák
Hirdetés
- Microsoft Surface Laptop 5 13.5" i5-1245U 16GB 512GB Alcantara 1év garancia
- Bomba ár! Dell XPS 15 9550 - i7-HQ I 16GB I 512SSD I 15,6" FHD I GTX960M I Cam I W10 I Gari!
- Xiaomi Smart Band 9 Pro // Számla+Garancia //
- Eladó Apple iPhone 14 Pro 128GB Arany / 12 hó jótállás
- Apple iPhone SE 2020, Kártyafüggetlen, 1 Év Garanciával
Állásajánlatok
Cég: CAMERA-PRO Hungary Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest