Rolf007

Ja dann Danke erst mal für die vielen Tipps.

Ich denke ich werde es mit dd probieren, da es locker auf eine Boootdisk passt.

:cool:

Vielen Dank an euch beide.

BootRecord Backup hat mit dd geklappt.

Möchte aber nun von meiner kompletten Partition /hda1 mit dd ein Backup erstellen.

Ich habe mir eine Bootdiskette erstellt. Ich mounte nach dem Booten meine /hda3 Platte. Jetzt möchte ich mit dd ein Backup von /hda1 auf dieser erstellen.

Wie geht das ? Ich weiss nicht was ich als Blockgrösse angeben soll. Und weiss auch nicht wie ich die exakte Grösse von der Partitition ermittel.

Wie kann ich bei erfolgreicher Backuperstellung testen ob das Image nicht korrupt ist ?:confused:

Hallo liebes Forum,

ich möchte gerne von meinem installierten Sues 8.1 Linux ein Backup erstellen. Also die komplette Linux Partition, mit Bootsektor, möchte ich als Image auf meiner zweiten Platte speichern. (So wie Ghost unter Windows)

Gibt es da ein zuverläsiges Tool was auch nicht ganz zu kompliziert zu bedienen ist ? Dieses Tool sollte auch auf eine Diskette passen, damit ich nach einem Diskettenbooten mein HD Image wieder herstellen kann.

Vielen Dank für jeden Tipp schon mal im Voraus !!!! :marine

danke erst mal

ok, dann mach ich es auch nach der zuletzt genannten variante.

kennst du zufällig einen guten mirror ?

ftp.suse.com ist echt langsam

hallo zusammen,

möchte wissen wie man die suse 8.1 live evaluation cd auf die hd installiert. so das man auf die cd nicht mehr angewiesen ist.

oder sollte man das besser sein lassen und direkt die 8.1 er ftp variante bevorzugen ?

mfg

rolf

Ich hab jetzt mal ein "k" in dem Kombinationsfeld eingegeben.

Wenn ich Debugge sehe ich das das "k" den ASCII Wert 75 hat.

Obwohl mir die Asc("k") Funktion eine 107 zurückgibt.

Kann es sein das VBA zwei verschiedene ASCII Codes benutzt ?

Ja das stimmt, ich habe mit Chr(107) auch feststellen müssen dass es sich bei diesem ASCII Code um ein kleines "k" handelt.

Aber wenn ich einen Breakpoint in der Funktion cboZutateneingabe_KeyUp einfüge, zeigt er mir an das die Konstante vbKeyAdd für eine 107 steht.

Kann es sein das die Tasten auf dem Numpad einen zusätzlichen Wert voranschicken ?

Ich bin zu einer neuen Erkenntnis gekommen.

Hinter vbKeyAdd steckt der ASCI Code 107

und hinter Asc("+") steckt der ASCII Code 43

Kein Wunder das hier nichts klappt. Aber wie sende ich nun die 107 ?

jo, danke für den Tipp

Wenn ich vbKeyAdd durch Asc("+") ersetze

reagiert funktioniert die manuellen Eingabe auch nicht mehr.

Dann verhält sich die manuellen Eingabe genau so wie die SendKeys Variante. Das Kombinationsfeld geht dann nicht mehr auf und die "+" Zeichen werden in das Feld geschrieben

Bevor du dir den Kopf zerbrichst, bin ich auf den ersten Anhaltspunkt gestossen.

Und zwar springt er erst gar nicht in den Case für das "+" Zeichen in der ersten Funktion: Case Is = vbKeyAdd

Anscheinend erkennt er das "+" Zeichen das ich mit SendKeys() sende gar nicht als solches.

ok, danke werde ich beim nächsten posting dran denken.

Klar kann ich machen:

mit der ersten funktion geht es los

Public Sub cboZutateneingabe_KeyUp(KeyCode As Integer, Shift As Integer)

Dim str As String, RNr As Integer

' Bestimmt welche Taste gedruckt wurde

Select Case KeyCode

'Wenn "+" Taste, dann Aktion gleich 0 (später wird Addition durchgeführt)

Case Is = vbKeyAdd

g_Aktion = ZUTAT_HINZUFUEGEN

Me.cboZutateneingabe.RowSource = "SELECT * FROM ZutatAdd WHERE BestellNr = '" & Me.com1_Bestellnummer & "'" ' Findet erlaubte zutaten für ausgewähle Speise

If Me.cboZutateneingabe.text <> "" Then

Call SpeichernAdd(Me.cboZutateneingabe.text)

Me.cboZutateneingabe.text = 1

End If

Me.Refresh

Me!cboZutateneingabe.Dropdown

Case Is = vbKeySubtract

g_Aktion = ZUTAT_WEGNEHMEN

Me!cboZutateneingabe.RowSource = "SELECT * FROM ZutatMinus WHERE PositionsNr = " & Me.PositionsNr

If Me!cboZutateneingabe.text <> "" And Me!cboZutateneingabe.text <> "-" Then

Call SpeichernMin(Left(Me.cboZutateneingabe.text, Len(Me.cboZutateneingabe.text) - 1))

End If

Me.cboZutateneingabe.text = ""

Me.cboZutateneingabe.Dropdown

End Select

End Sub

Function SpeichernAdd(StrNr As String)

Dim strNummer As String

Dim Var As Variant

Dim rs As Recordset

strNummer = Left(StrNr, Len(StrNr) - 1)

If strNummer = "" Then Exit Function

Var = strNummer

If Not GetZutatErlaubt(CStr(Var), Me!com_Bestellnummer) Then Exit Function

Call CheckPositionExistance

'Zutatenposition in db anlegen, oder wenn negativ vorhanden dann löschen

Set rs = CurrentDb.OpenRecordset("SELECT * FROM PositionZutaten WHERE PositionsNr = " & Me.PositionsNr & " AND ZutatenNr = " & strNummer & " AND PlusMinus='-'")

If Not rs.EOF Then

rs.Delete

Else

rs.AddNew

rs!RechnungsNr = Forms!Kunden.Form!Rechnungen!RechnungsNr

rs!PositionsNr = Me!PositionsNr

rs!BestellNr = Me!com_Bestellnummer

rs!ZutatenNr = strNummer

rs!PlusMinus = "+"

rs.Update

End If

rs.Close

' ungebundenes Preisfeld in Tabellenansicht neu berechnen

Me!ZutatenPreis = GetZutatenPreis(Me!PositionsNr)

Me!Zutatenliste = GetZutatenString(Me!PositionsNr, 2)

End Function

' Sicherstellen, daß Position in DB

Sub CheckPositionExistance()

Dim rs2 As Recordset

' Scherstellen, das die Position bereits in DB!

Set rs2 = CurrentDb.OpenRecordset("SELECT * FROM Positionen WHERE PositionsNr=" & Me.PositionsNr)

If rs2.EOF Then

Call DoCmd.GoToRecord(, , acNext)

Call DoCmd.GoToRecord(, , acPrevious)

End If

rs2.Close

End Sub

Function GetZutatErlaubt(ZutatenNr As Integer, SpeiseNr As String) As Boolean

If Not CurrentDb.OpenRecordset("SELECT BestellNr FROM SpeisenZutaten WHERE BestellNr= '" & SpeiseNr & "' AND ZutatenNr = " & ZutatenNr).EOF Then

GetZutatErlaubt = True

Else

GetZutatErlaubt = False

End If

End Function

Hallo JayN !!!

Bei der manuellen Eingabe ist der Fokus auf das Kombinationsfeld gesetzt. Dann wird die "+" Taste gedrückt. Das "+" Zeichen wird jedoch nicht in das Kombinationsfeld geschrieben. Das "+" bewirkt nur das das Kombinationsfeld aufklappt.

Bei der SendKeys( ) Variante ist der Focus ebenfalls auf das Kombinationsfeld gesetzt. Nur verhält es sich anders wenn ich das "+" Zeichen sende. Es klappt nicht auf, sondern zeigt mir das "+" Zeichen nur an.

Schönen Gruss

rolf007

Hallo zusammen,

ich habe ein Problem mit der SendKeys(...) VBA Funktion in Zusammenhang eines Kombinationsfeldes.

Das Kombinationsfeld ist so erstellt worden, das man zuerst ein ein "+" eingibt und dann einen Zahlenwert. Bei dem "+" klappt das Kombinationsfeld auf und man sieht alle Einträge die zur Auswahl stehen. Über einen Zahlenwert selektiert man dann letztendlich einen dieser Einträge.

Das Funktioniert auch alles einwandfrei. Nur möchte ich nun von einem andern Formblatt aus mittels SendKeys einen Eintrag selektieren.

Das Problem ist, wenn ich das Pluszeiczhen sende SendKeys("{+}", true) dann wird das Zeichen nur in das Kombinationsfeld geschrieben. Das Kombinationsfeld klappt nicht auf um den zweiten Zahlenwert entgegen zu nehmen.

Kennt da jemand einen Trick ?? In meinen VBA Büchern habe ich leider nichts hilfreiches gefunden. :confused:

Bin für jeden Tipp dankbar :hodata