Verwandte Themen

Adonai1111
08.05.2020, 13:05
Prüfen ob Abfrage Daten enthält VBA Access?

Hallo zusammen,

ich habe in Access einen Button, der aus einer Abfrage eine PDF erstellt und diese via E-Mail versendet.

Ich möchte den Button so programmieren, sodass die PDF nicht verschickt wird, wenn die Abfrage keine Daten enthält.

Teil der Ereignisprozedur "Beim Klicken" für den Button:

Private Sub Befehl96_Click()

    Dim stDocName As String     Dim fileName, fldrPath, filePath As String     Dim answer As Integer       Dim strFrom, strSchema, strPW, strServer, strText, strBenutzer, strUseSSL, strSubject, strBody, strFile As String  'E-Mail     Dim intPort As Integer     Dim cdoMsg As CDO.Message


    Const cdoAnonymous = 0          Const cdoBasic = 1      Const cdoSendUsingPort = 2          stDocName = "Artikeländerungsprotokoll_ARTGruppe"     DoCmd.OpenQuery stDocName, acNormal, acEdit          fileName = Format(Date, "YYYYMMDD") & "_Aenderungsprotokoll_Herstellverfahren"     fldrPath = "K:\ARTIKEL\SQL_Protokolle"     filePath = fldrPath & "\" & fileName & ".pdf



    If Dir(filePath) <> "" Then
        
        answer = MsgBox(prompt:="PDF-Datei existiert bereits: " & vbNewLine & filePath & vbNewLine & vbNewLine & _
        "Möchten Sie die Datei ersetzen?", Buttons:=vbYesNo, Title:="Datei Name existiert bereits")
    
    If answer = vbNo Then Exit Sub
    End If
 
   DoCmd.OutputTo acOutputReport, "ARTIKELÄNDERUNGSPROTOKOLL ARTGruppe", acFormatPDF, filePath

Ich möchte prüfen, ob in der Abfrage"ARTIKELÄNDERUNGSPROTOKOLL_ARTGruppe" Daten enthalten sind. Wenn keine Daten enthalten sind, dann soll nur eine MsgBox erscheinen, die besagt, das keine Daten vorhanden sind und nichts weiter.

Ich bin ein Anfänger im programmieren und tue mir schwer...

Kann mir bitte jemand helfen?
Computer, Technik, programmieren, Access, VBA, Technologie, VBA-Code
1 Antwort
bnypc
08.05.2020, 10:48
Warum ist mein Lüfter so laut?

Hey hab mir gestern mein PC zusammengebaut alles neue Teile von Mindfactory beim ersten Start hat alles funktioniert also alles wird erkannt auch bis jetzt. Mein Problem ist nur die Lautstärke es ist soooo unnormal laut auch wenn ich einfach nichts mach bei Windows einfach so sobald ich manchmal Mauszeiger bewege fahren die Lüfter sich hoch ob das normal ist ich weiß ja nicht... Außerdem drehen sich die Lüfter der Grafikkarte nicht kann das daran liegen das ich die in den falschen PCI gesteckt habe ist eine PCI 3.0 hab die glaub in 4.0 gesteckt im allgemeinen die Lüfter der Grafikkarte drehen auch nicht irgendwie alle beide aber RGN funktioniert also die Lichter

Habe im Gehäuse 4 Lüftwr verbaut einer davon ist ARGB alle vier habe ich im Smart Fam Modus laufen die drehen so 500-600rpm ( ist das okay? ) im MSI Bios....
Was sind normale Werte für eine Chipsatztemperatur? Und ist es normal das der AMD boxed Kühler den ich ja eingebaut habe bei 1700-2200rpm läuft wenn ich nichts mache!!! Es ist wirklich sehr sehr demotivierend ich könnte heulen ich hab mir so Mühe gegeben mit den PC das ich den alleine zusammengebaut bekomme funktioniert ja alles aber ich kann nicht zocken bzw hab ich noch nicht nichtmal was downloaden dann rasten die Lüfter aus ich hab Angst das etwas zu heiß wird...

Mein alter fertig PC vor 3 JAHREN! war 10000% leiser bei last! oder wenn ich gespielt habe...das ist nicht normal Lüfterkurve habe ich im Bios auch manuell geändert ist aber trotzdem mega laut dann läuft der trotzdem auf 1700rpm ka ob das normal ist und falls ich mich entscheide eine Wasserkühlung zu kaufen wie bekomme ich die Wärmeleitpaste von der CPU ohne diese zu beschädigen? Die ist ja fest oder?

PC, Computer, Technik, Lüfter, CPU, Wasserkühlung, AMD, BIOS, Mainboard, MSI, Technologie, Boxed Kühler, Spiele und Gaming
4 Antworten
TechnikTim
08.05.2020, 08:58
CMD Numerische Konstante Fehler?

Ich habe mir ein Skript geschrieben, dass jeden Tag automatisch den richtigen Bericht öffnet. Das ist alle zwei Wochen eine Nummer mehr. Hat jetzt einen Monat ohne Probleme funktioniert. Heute hat er aber den Bericht von letzer Woche geöffnet. Gestern hatte er den richtigen. Ich hoffe ihr könnt anhand des Codes und es Fehlers sagen, wo das Problem liegt. Bin Systemintegrator in der Ausbildung. Kenne mich also ein ganz kleines bisschen mit programmieren aus. Ich glaube das ist ein total dämlicher Fehler. Aber ich finde ihn nicht. In der Berufsschule lerne ich übrigens Python. Deswegen kenne ich mich mit cmd kaum aus. Brauche ich ja eigentlich auch nicht für den Berufsalltag.

Hier der Code:

echo off
set jahr=%date:~-4%
echo Heute ist der %date%


if '%jahr%'=='2020' goto 2020
echo Es gibt keinen vorgefertigten Bericht mehr
Timeout /t 20


:2020
setlocal
chcp 1252>nul


REM KalenderWoche (Mo-SO)
REM Datum
set /A d=%date:~0,2%
set /A m=%date:~3,2%
set /A y=%date:~6,4%


REM Tag des Jahres
if %m% == 1 set /A DoY=d
if %m% == 2 set /A DoY=d+31
if %m% == 3 set /A DoY=d+59
if %m% == 4 set /A DoY=d+90
if %m% == 5 set /A DoY=d+120
if %m% == 6 set /A DoY=d+151
if %m% == 7 set /A DoY=d+181
if %m% == 8 set /A DoY=d+212
if %m% == 9 set /A DoY=d+243
if %m% == 10 set /A DoY=d+273
if %m% == 11 set /A DoY=d+304
if %m% == 12 set /A DoY=d+334


REM Schaltjahr?
set /A LY=(y/4)*4
if %y% NEQ %LY% goto noLY
if %m% GTR 2 set /A DoY=DoY+1


:noLY
REM Tag der Woche (Sonntag = 0)
for /f %%g in ('wmic path win32_localtime get dayofweek^|findstr /v /r "^$"') do (set DoW=%%g)
REM (Sonntag = 7)
if %DoW% == 0 set /A DoW=7


REM KW
set /A nSd=DoY+(7-DoW)
set /A KW=nSd/7
set /A delta=nSd-(KW*7)
if %delta% GTR 3 set /A KW=KW+1


REM Ausgabe der aktuellen KW
echo Wir sind in der %KW%. Kalenderwoche


REM Nummer des Berichts errechnen und richtigen Bericht öffnen
set /A Nummer=(KW+73)/2
echo Bericht: %Nummer%.docx
echo Fenster kann geschlossen werden oder wird geschlossen wenn der Bericht geschlossen wird.
chcp 850>nul
start winword.exe "G:\DATEN\Dez1\FD102\IuK\Azubis\"Mein Name"\Berichte\2020\%Nummer%.docx"
timeout /t 20
endlocal
exit

Und die Ausgabe mit der Fehlermeldung:

Heute ist der 08.05.2020
Ungültige Zahl. Numerische Konstanten sind entweder dezimale (17),
hexadezimale (0x11) oder oktale (021) Zahlen.
Wir sind in der 18. Kalenderwoche
Bericht: 45.docx
Fenster kann geschlossen werden oder wird geschlossen wenn der Bericht geschlossen wird.
Gewartet wird 17 Sekunden. Weiter mit beliebiger Taste...
Computer, Technik, Fehler, programmieren, bat, Batch, cmd, Technologie, Fehlermeldung, Schaltjahr, batch-trick
1 Antwort
verreisterNutzer
07.05.2020, 23:54
Werde ich überwacht oder wurde ich gehackt?

Ich muss jetzt lange ausholen aber es wäre nett wenn ihr euch kurz Zeit nehmt und mir eure Einschätzung sagt. Vor ca. 2Monaten wurde ich durch eine extrem gute Phishing Mail (Ebay) verarscht und Leute hatten so Zugriff auf mein Konto. Das hat denen aber nicht viel gebracht da ich keine Zahlungsmethode hinterlegt hatte. Als ich aber 4Tage nach dem Vorfall auf mein Email Postfach was ich oben in der hotbar im Browser hab. Hat mein Antiviren Programm angeschlagen und sagte es handele sich um eine Phishing Seite. Ich dachte mir noch nicht soviel habe meinen Laptop einfach komplett auf Viren etc. scannen lassen wo nix gefunden wurde.Trotzdem Verfolgt mich das alles immernoch und ich denke manchmal das jemand eventuell jemand in mein Heimnetzwerk sich eingeloggt hat da ich für den Router Login soweit ich weiß das selbe Passwort wie das Ebay Passwort hatte. (Hab es natürlich alles schon geändert). 

Ich bekomme nämlich auf allen Geräten im Wlan die selbe unseriöse Werbung für zum Beispiel Piggy Coupon was nen Add on mit nem Versteckten Virus ist, und das obwohl die Geräte unter anderem unterschiedliche Google Accounts haben. Und meine Mutter zum Beispiel googlet definitiv nix was in die Richtung geht also hat es nix mit Browserverhalten zu tun. Andererseits empfangen die Geräte auch einheitliche Normale Werbung... Dazu kommt das ich das Gefühl habe das bei meinem Laptop irgendwas im Hintergrund läuft da er oft ohne Grund Laut wird oder auch heißer. Ich weiß nicht ob das schon immer so war und ich nur jetzt darauf mehr achte oder ob da im Hintergrund wirklich was läuft. Außerdem rufen in letzter Zeit öfters so Typen an die wenn man rangeht einfach garnichts sagen.seltener auch mal mit Nummer Unterdrückt. Ich habe mit der App Fing geguckt welche Geräte im WLAN sind wo mir nix unauffälliges aufgefallen ist, bis auf das mein Laptop irgendwie eine merkwürdige Mac-Adresse von Azurwave keine Ahnung was das ist. Und irgendwie 40 Teilverbindungen zwischen Router und Meinem Laptop. Glaubt ihr irgendwas ist da da faul oder bin ich einfach nur ein bisschen zu paranoid. Oder verkauft jetzt jemand meine Daten im Darknet oder so?
oder kann jemand von meinem Laptop der dann mit nem Rootkit infiziert war auch alle anderen Geräte hacken oder den Router. Und kann es sein das nachdem ich mein Laptop im IT Laden abgegeben habe und die meinten das sie den Laptop nochmal komplett neu aufsetzen da noch nen Schadprogramm ist?

ich würde mich über eine Einschätzung von jemanden von euch freuen! Danke im Vorraus

Computer, hacken, IT, Computervirus, Hacker, Malware, PC-Problem, gehackt
5 Antworten

Meistgelesene Beiträge zum Thema Computer
Mehr meistgelesene Fragen zu Computer