larryfilou

Folgendes Problem in VBA für ACCESS User soll vier Fragen durch klicken auf Kontrollkästchen beantworten. Aus den Antworten wird eine Summe gebildet (Jede Antwort gibt bei Nein den Wert 0 und bei Ja "2 hoch seine Ordnungsnummer" aus = Also 1, 2, 4, 8) Die Summe der Werte ergibt die korrekte Antwort, für die ein entsprechendes Formular mit Bild der Antwort ausgegeben wird. Das Ganze kann beliebig oft wiederholt werden (in den Antwortformularen sind Buttons die entweder das Programm beenden oder wieder von vorne starten). Problem: Sobald ich das Programm ein zweites Mal laufen lasse, wird der LETZT gesetze Wert des Formulares NICHT gesetzt: Statt das also zB das gewählte Ja, Ja, Nein, Ja auftaucht, bleiben zB alle auf Ja, wie im Durchlauf zuvor. TROTZDEM ich alles zurücksetze nach jedem Durchlauf!!! Hier ist der Quellcode, vielleicht findet jemand einen Denkfehler? Private Sub Befehl8_Click() DoCmd.Save acForm, "Abfrage" DoCmd.Save 'Variablen initiieren Dim db As DAO.Database Dim rs As Recordset Dim aw As Recordset Dim Summe As Double Dim Wert As Boolean Dim i As Integer 'Tabellen aktivieren Set db = CurrentDb Set rs = db.OpenRecordset("Fragen") Set aw = db.OpenRecordset("Antworten") Summe = 0 'Setzt Tabellenwerte = Formularwerte => evtl doppelt wg Speichern später? rs.MoveFirst Do Until rs.EOF = True If [Sinnvoll?] <> rs![Sinnvoll?] Then rs.Edit rs![Sinnvoll?] = [Sinnvoll?] rs.MoveNext Else rs.MoveNext End If Loop 'Schliessen Formular, um Werte in Tabelle zu übertragen und zu sichern DoCmd.Close acForm, "Abfrage", acSaveYes rs.MoveFirst Do Until rs.EOF = True If rs![Sinnvoll?] = True Then Summe = Summe + rs!Ordnungszahl rs.MoveNext Else Summe = Summe + 0 rs.MoveNext End If Loop 'Sucht korrekte Antwort raus aw.MoveFirst Do If aw!Wert < Summe Then aw.MoveNext Else Select Case Summe Case 0 To 3, 6, 7 DoCmd.OpenForm ("Fachboden") Case 4, 5 DoCmd.OpenForm ("BlocklagerKLT") Case 8 To 11, 14, 15 DoCmd.OpenForm ("Stapler") Case Else DoCmd.OpenForm ("BlocklagerGLT") End Select aw.MoveLast aw.MoveNext End If Loop Until aw.EOF = True rs.MoveFirst Do rs.Edit rs![Sinnvoll?] = -1 rs.Update rs.MoveNext Loop Until rs.EOF = True End Sub

In der Tat geht's um VBa in ACCESS... Und: Schade, das macht die Sache ne ganze Ecke komplizierter... Es wurde mir jetzt erklärt, dass die Person, die mein Programm nutzen wird, Sehschwierigkeiten hat. Drum müssen ALLE :eek Texte größer geschrieben werden...

Kann man in einer MsgBox oder InputBox den Schriftgrad vergössern?

Das Problem mit der instabilen Reaktion an DEM Punkt war mein Fehler: Ich habe nicht klar definiert, was im Falle eines Fehlers passieren soll, und die Schleifen nicht korrekt beendet. Das hab ich inzwischen behoben. Viel schlimmer ist der gleiche Fehler bei der Abfrage, die dort eingebunden ist... Denn ich kann weder die EingabeBox beeinflussen, noch dem System sagen, was im Falle eines Fehlers passsieren soll, oder etwa doch? In der Hilfefunktion habe ich das Beispiel gefunden, dass die Parameter variabel gestaltet werden, indem die SQL Funktion ins VBA geflochten wird, und per Sub die Werte abgefragt werden. Als ich aber das letzte Mal versucht habe, das SQL ins VBA zu setzen, hat der QueryDef Befehl nicht funktioniert. Muss ich da evtl eine Bibliothek bei den References aktivieren?

Nicht nur beim klicken des Cancels an DIESER Stelle gibt es Probleme: Ich hab in der im Quellcode erwähnten Query eine Parameterabfrage. Diese bringt ja ein Eingabefenster hervor, bei dem ich die Wahl habe, einen Betrag einzugeben oder nicht, und zu bestätigen oder nicht. Wenn ich bei diesem Eingabefenster auf Cancel klick, stürzt Access auch ab... Ist das NORMAL? Kann ich das Eingabefenster dahingehend beeinflussen, dass es nur OK zulässt?

War jetzt länger in einem anderen Projekt... Erstmal vielen Dank für die "Begeisterung"... Das nächste Mal wirds präziser. :floet: Was passiert ist: Auf meinem Outlook EXPRESS habe ich also Mails vom mailserverdemon bekommen, dass Mails nicht zugestellt werden konnten. Ging ich auf diese mailserverdemon - Mails, ist OE abgestürzt. Dummerweise ist das Programm beim Öffnen auf diesen Mails aufgegangen, sodass das Öffnen sofortigen Neuabsturz mit sich zog. Durch einen Zufall habe ich die Taktik angewandt, die "Whatever" vorgeschlagen hat: Ich war am kochen, habs geöffnet und bin erst ca ne halbe Stunde später wieder an den Computer gegangen, da ging OE wieder. Dann versuchte ich die betreffende Mail zu löschen, und das Programm hing wieder. Diesmal habe ich die Finger von gelassen, und ca ne Stunde später war die Mail dann tatsächlich weg. Ist das etwas Virenerzeugtes, oder etwas normales in OE?

Bewerbung um einen Ausbildungsplatz als IT-Systemelektroniker Sehr geehrte Frau xxxxxxxxxxxxxxxxxxxxxx, da mir ihr Firmenname <<< Bitte unbedingt den Firmennamen benutzen!!! Frau xxxx hat keinen Firmennamen, oder möchte wissen, ob Du ihn auch kennst! >>> im Bereich der Anti-Viren Software ein Begriff ist, <<< und was für einer? da ihr Betrieb mir durch das Produkt X bekannt ist, Sie der branchenführer in .. sind... Lieber so, Begriff ist zu pauschal >>> habe ich mit grosser Freude auf der Internetseite www.xxxxxxxxxxxxxx.de davon erfahren, dass Sie einen Auszubildenden zum 1. August 2006 als IT-Systemelektroniker suchen. Am 19. Januar 2006 habe ich eine Ausbildung als Bürokaufmann erfolgreich abgeschlossen. Auf dem Arbeitsmarkt sieht es zur Zeit in diesem Berufszweig sehr schlecht aus << Positiv bleiben: Den Betrieb interessiert NICHT, warum Du etwas NICHT machst, sondern, warum Du tust, was du tust!! Eher im Stil von: "Da ich im Rahmen der Ausbildung auf meine Begeisterung für IT-Themen aufmerksam wurde, habe ich mich entschieden, diese durch eine Ausbildung bei Ihnen umzusetzen" >> , weswegen ich mich entschlossen habe eine zweite Ausbildung als IT-Systemelektroniker zu absolvieren. In meiner Freizeit beschäftige ich mich viel mit Computern und deren "Innenleben" << Ironie und Witz haben hier nicht viel zu suchen. Du beschäftigst dich nicht mit "Innenleben" sondern mit Soft- und Hardware! >> , weshalb ich unbedingt vorhabe in der IT-Branche zu arbeiten. Zusätzlich konnte ich mir durch VHS Kurse Kenntnisse in Netzwerktechniken, Linux und Visual Basic aneignen. Ich freue mich auf ein persönliches Gespräch. Mit freundlichen Grüßen

Ups... Sorry... Also: Ich hab Windows XP und Outlook Express (Version weiss ich grad nicht) Keine fehlermeldung: Es geht NIX mehr, wenn ich es aber in der Taskleiste rechtsklicke zum Schliessen, gehts noch aus. PST file öffnen kan es nicht, da beim HOCHFAHREN schon alles aus ist... Ob sie intakt ist, weiss ich nicht, wie kann ich das prüfen? Zu miener rookie-Schande hab ich die FAQ's noch nicht gelesen *erröt* Ich bin in PANIK...

Nope, denn: DoCmd.Echo False, "Visual Basic code is executing." DoCmd.Close acForm, "Start Menu", acSaveYes DoCmd.OpenQuery ("Destockagequery") Nö, die wäre dort ja sichtbar, denn weiter gehts in dem moment ja eh net. Das mit dem "Open Ereignis für MM Form versteh ich gerade net, hab kein MM Frm... Könnte es sein, dass das Ergebnis des Query, die ich in Zeile 2 öffne, ein Problem ist? Sollte ich die entstandene Tabelle und die Query evtl irgendwie abschliessen... ?! Jo, des test ich mal... - Ne, hat nichts gebracht... Thanx

Möchte mich um ein Single Sign On Projekt für meine Firma kümmern, und in dem Fall, dass es nicht zu umfangreich wird, als Projekt durchführen, wenn umfangreich genug, als Abschlussprojekt. Ich wollte frqgen, ob jemqndem beim surfeno der lesen von Fachzeitschriften ein INTERNATIONALER Vergleich von externen Anbietern in die Hände gefallen ist. Ich selber habe derzeit ein paar gefunden, aber ein Angebotsvergleich OHNE Kontaktaufnahme (die ich erst machen möchte, wenn ich schon eine gewisse Vorarbeit geleistet habe, um es dem Vorschlagswesen anzubieten, und eine "offizielle Erlaubnis" dafür zu bekommen) ist schwierig... Besonders in Hinblick auf Qualität. Ist irgendjemandem in dem Zusammenhang die Firma "Imprivata" ein Begriff? Die HP ist SEHR überscihtlich gestaltet und erscheint mir ein recht seriöses Angebot zu haben... Anyway, bin dankbar für alle Tips, seien es Deutsche oder internationale Firmen, Erfahrungenm die ihr gemacht habt oder was auch immer! Thx larryfilou

Habe gestern drei Mails mit grossen Dateianhängen verschickt. Dummerweise hatte ich die Mailadresse falsch eingegeben, und so bekam ich vom mailer-demon Post... Als die erste ankam, blockierte Outlook, als ich es ein zweites Mal öffnete, hat es noch eine Mail vom mailerdemon runtergeladen und wieder geblockt. Als ich schliesslich das dritte Mal öffnete, wurde noch eine dritte runtergeladen, und dann ging GAR NIX mehr... Ich habe Windows XP, das ja selbstreparierend arbeitet, gilt das auch für Outlook? Und wenn, wie kann ich die Reparatur aktivieren und werde ich die in Outlook gespeicherten Daten retten können? Kann ich diese evtl vorher noch irgendwie extrahieren OHNE Outlook zu öffnen? Vielen Dank für Eure Hilfe...

Richtiger Sinn, falscher Begriff, ich hatte schon die Haltepunkte im Sinne... Habs ausprobiert: Setze ich das Exit Sub auf Kommentar, ist alles in Butter (ausser, dass das Programm die folgenden Fragen abklappert), setze ich jedoch das DoCmd auf Kommentar, stürzt mir das Programm ab... ( Aber wie könnte ich denn sonst das ganze beenden? :confused:

Die Dims und Sets sind alle da, ich hab sie nur rausgenommen, damit man nicht zwanzig Seiten Code lesen muss, aber Du hast wahrscheinlich recht: Also, hier der restliche Code (Es eght danach noch weiter, aber das danach kann wohl kaum mehr wichtig sein....) again: DoCmd.Echo False, "Visual Basic code is executing." DoCmd.Close acForm, "Start Menu", acSaveYes DoCmd.OpenQuery ("Destockagequery") Dim db As DAO.Database Dim rs As DAO.Recordset Dim rsCheck As DAO.Recordset Dim rsReserve As DAO.Recordset Dim stDocName As String Dim Username As String Dim Needed As Double Dim UserID As Byte Dim Amount As Double Dim Summed As Double Dim MinimumAmount As Double Dim text, style, title, response Dim rsCounter As Long Set db = CurrentDb Set rs = db.OpenRecordset("Destockageresult") Set rsCheck = db.OpenRecordset("SELECT Sum(Destockageresult.Stocked) AS Summed FROM Destockageresult;") Set rsReserve = db.OpenRecordset("Items") text = "The partnumber entered ist not available." + Chr(13) + "* Retry to type in a correct partnumber" + Chr(13) + "* Cancel to return to Main Menu" style = vbRetryCancel + vbCritical title = "Partnumber not valid" 'Check if Data were retrieved rsCounter = rs.RecordCount If rs.RecordCount <= 0 Then response = MsgBox(text, style, title) If response = vbRetry Then rs.Close rsCheck.Close rsReserve.Close GoTo again Else DoCmd.OpenForm ("Start Menu") rs.Close rsCheck.Close rsReserve.Close Exit Sub End If End If 'Check ID Call User(Username, UserID) Retry: 'Check Amount needed Call Menge(Needed) DoCmd.Echo True 'Check if requested amount bigger than stored If Needed > rsCheck!Summed Then If MsgBox("Amount needed bigger than Amount stored, Amount still available = " & rsCheck!Summed & " !", 33, Error) = vbOK Then GoTo Retry Else DoCmd.OpenForm ("Start Menu") Exit Sub End If End If Ich habs in der Tat nciht mit Lesezeichen versucht, das mach ich gleich noch, aber es passiert, nachdem das Fenster "Start Menu" geöffnet wird. Ich kann dann in dem frisch geöffneten Fenster nichts mehr klicken..

Wenn ich auf der Schaltfläche Cancel wähle, stürzt Access ab, hab ih was falsch gemacht?? Dim text, style, title, response Dim rsCounter As Long text = "The partnumber entered ist not available." + Chr(13) + "* Retry to type in a correct partnumber" + Chr(13) + "* Cancel to return to Main Menu" style = vbRetryCancel + vbCritical title = "Partnumber not valid" 'Check if Data were retrieved rsCounter = rs.RecordCount If rsCounter<= 0 Then response = MsgBox(text, style, title) If response = vbRetry Then rs.Close rsCheck.Close rsReserve.Close GoTo again Else DoCmd.OpenForm ("Start Menu") rs.Close rsCheck.Close rsReserve.Close Exit Sub End If End If

Hab jetzt den Delete Makro auf das Feld gesetzt, das aktiviert wird, und als Auslöser "Bei Fokuserhalt" genommen. Dummerweise sagt er mir trotzdem, dass das net möglich ist.. Ich würde es gerne anders lösen, aber ich schaff es nicht, die Fehlermeldung zu unterdrücken, die durch die Erstellung der Tabelle entsteht. Ich habe eine Tabelle, die ich jedesmal neu erstelle, um zu vermeiden, dass veraltete Datensätze drin sind, und auf die nur dieses eine Formular zugreift. Beim überschreiben gibt's aber die Fehlermeldung "Die vorhandene Tabelle wird gelöscht, bevor die neue erstellt wird". Gehe ich mit Abbrechen "raus" macht er trotdem mit dem VBA Programm weiter... Das fatale ist, ich will diese Abfrage nicht drin haben, da die alte Tabelle auf JEDEN Fall gelöscht werden soll... Da ich nichts fand sie zu unterdrücken, dachte ich, ich lösch die Tabelle halt nach Erstellung und Nutzung. Aber ich bin mir nicht sicher, ob diese Warnung nicht auf JEDEN Fall kommt, egal ob noch ne Tabelle vorhanden ist oder nicht. *seufz* Das und das andere Problem sind die letzten Bugs, die ich noch überwinden muss, dnn hab ich diese Datenbank endlich fertig! Also, auf zum Endspurt... ;P