Viele Kleinigkeiten meiner Kundenverwaltung

[Beaker s.a.]

Hallo McBlinki,

also mit 1 eintrag funktioniert deine abfrage usw. jedoch lege ich ne kunden an und will sie zuordnen klappt es nicht mehr.

Ja, sorry, mein Fehler; - die Abfrage ist gar nicht aktualisierbar (schäm).
Ich schau mir das heute Nachmittag/Abend noch mal an.
gruss ekkehard

[Frank77]

Hi!

Für Word habe ich noch was um eine Vorlage zu verwenden  

Code [Auswählen] Erweitern

Dim Word As Object

On Error GoTo wordStarten
   ' Eine bestehende Instanz zu verwenden
   Set Word = GetObject(, "word.application")
   If Not Word Is Nothing Then
   

   ' Arbeiten mit dem Word-Objekt
     Word.Visible = True
     Word.Documents.Open filename:=Application.CurrentProject.Path & "\Vorlage.doc"

     ' Formularfelder füllen
     Word.ActiveDocument.FormFields("Text1").Result = Text2.value
     Word.ActiveDocument.FormFields("Text2").Result = Text1.value
     Word.ActiveDocument.FormFields("Text3").Result = Text3.value
  End If
Exit Sub

wordStarten:
   If Err = 429 Then
    ' Instanz nicht vorhanden, starten
     Set Word = CreateObject("word.application")
   Else
   ' Word konnte nicht gefunden werden
     MsgBox "Word ist nicht instaliert!"
   End If
   Resume Next
End Sub

Oder die Vorlage in einem neuen Dokument öffnen ohne sie zu bearbeiten

Code [Auswählen] Erweitern

Option Compare Database
Option Explicit

Public Declare Function ShellExecute Lib "shell32.dll" Alias _
   "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, _
                    ByVal lpFile As String, ByVal lpParameters As String, _
                    ByVal lpDirectory As String, ByVal nshowcmd As Long) _
                   As Long
Public Const SW_HIDE = 0                  ' Versteckt öffnen
Public Const SW_MAXIMIZE = 3              ' Maximiert öffnen
Public Const SW_MINIMIZE = 6              ' Minimiert öffnen
Public Const SW_NORMAL = 1
Public Const SW_RESTORE = 9
Public Const SW_SHOWMAXIMIZED = 3
Public Const SW_SHOWMINIMIZED = 2
Public Const SW_SHOWMINNOACTIVE = 7
Public Const SW_SHOWNOACTIVATE = 4


Aufruf:

Code [Auswählen] Erweitern

Call ShellExecute(0, "new", "c:\.....\Vorlage.doc", "", "", SW_NORMAL)

Gruß Frank

[Beaker s.a.]

Hallo McBlinki,
Anbei jetzt eine geänderte Version.
Bitte beachte, dass ich einige Objektnamen (Tabellen-
felder, Formulare, Steuerelemente); - vor allem das
Feld "Name" in der tblKunde (heisst jetzt "Nachname")
umbenannt habe.
Das Kurs-Kombi im UFo Partner zeigt alle belegten (im
UFo Kurse angelegten) Kurse des angezeigten Kunden.
Nach Auswahl wird der Kunde als Partner 1 automatisch
eingetragen (weil jetzt über die ID mit dem HFo verknüpft),
und das Partner-Kombi zeigt alle Kunden, die den gleichen
Kurs belegt haben.
Beim Speichern der Zuordnung wird im Ereignis AfterUpdate
der entsprechende gegensätzliche (Partner2 = Partner1) in
die Tabelle eingetragen. So siehst Du diese Zusammenstellung
auch beim Partner-Kunden.
Die Namensfelder werden jetzt per DomWert in die Felder ge-
schrieben. Warum da allerdings trotz Behandlung mit Nz() bei
neuen DS "FEHLER#" angezeigt wird kann ich nicht erklären.
Falls noch Fragen auftauchen, schreibe hier.
gruss ekkehard

[Anhang gelöscht durch Administrator]

[MisterMCBlinki]

Hallo McBlinki,
Anbei jetzt eine geänderte Version.
Bitte beachte, dass ich einige Objektnamen (Tabellen-
felder, Formulare, Steuerelemente); - vor allem das
Feld "Name" in der tblKunde (heisst jetzt "Nachname")
umbenannt habe.
Das Kurs-Kombi im UFo Partner zeigt alle belegten (im
UFo Kurse angelegten) Kurse des angezeigten Kunden.
Nach Auswahl wird der Kunde als Partner 1 automatisch
eingetragen (weil jetzt über die ID mit dem HFo verknüpft),
und das Partner-Kombi zeigt alle Kunden, die den gleichen
Kurs belegt haben.
Beim Speichern der Zuordnung wird im Ereignis AfterUpdate
der entsprechende gegensätzliche (Partner2 = Partner1) in
die Tabelle eingetragen. So siehst Du diese Zusammenstellung
auch beim Partner-Kunden.
Die Namensfelder werden jetzt per DomWert in die Felder ge-
schrieben. Warum da allerdings trotz Behandlung mit Nz() bei
neuen DS "FEHLER#" angezeigt wird kann ich nicht erklären.
Falls noch Fragen auftauchen, schreibe hier.
gruss ekkehard

Oo.... geil! hehe, was anderes fällt mir dazu nicht ein.

Ich habe nun meine tbl Kunde in deine übernommen, und so funktioniert es.
Das umbennen der Felder usw. finde ich auch sinnvoll, der orientierungs halber.

[MisterMCBlinki]

Hallo McBlinki,
Anbei jetzt eine geänderte Version.
Bitte beachte, dass ich einige Objektnamen (Tabellen-
felder, Formulare, Steuerelemente); - vor allem das
Feld "Name" in der tblKunde (heisst jetzt "Nachname")
umbenannt habe.
Das Kurs-Kombi im UFo Partner zeigt alle belegten (im
UFo Kurse angelegten) Kurse des angezeigten Kunden.
Nach Auswahl wird der Kunde als Partner 1 automatisch
eingetragen (weil jetzt über die ID mit dem HFo verknüpft),
und das Partner-Kombi zeigt alle Kunden, die den gleichen
Kurs belegt haben.
Beim Speichern der Zuordnung wird im Ereignis AfterUpdate
der entsprechende gegensätzliche (Partner2 = Partner1) in
die Tabelle eingetragen. So siehst Du diese Zusammenstellung
auch beim Partner-Kunden.
Die Namensfelder werden jetzt per DomWert in die Felder ge-
schrieben. Warum da allerdings trotz Behandlung mit Nz() bei
neuen DS "FEHLER#" angezeigt wird kann ich nicht erklären.
Falls noch Fragen auftauchen, schreibe hier.
gruss ekkehard

Oo.... geil! hehe, was anderes fällt mir dazu nicht ein.

Ich habe nun meine tbl Kunde in deine übernommen, und so funktioniert es.
Das umbennen der Felder usw. finde ich auch sinnvoll, der orientierungs halber.

ohh ein Fehler ist noch vorhanden. bei der Kundenverwaltung, kann ich keinen Kunden in der Suchauswahl mehr öffnen.

rs.FindFirst "KundeID = '" & Me!Suche & "'"

Datentypenkonflikt in Kriterienausdruck.

irgendwie fehlt mir grad die idee der lösung.


muss man hiermit arbeiten:
Private Sub Form_Current()

    Me!UFPartner.Form!cboKurse.Requery
    Me!UFPartner.Form!cboKunde1_ID.Requery

??

[Beaker s.a.]

Hallo McBlinki,

rs.FindFirst "KundeID = '" & Me!Suche & "'"

KundeID ist vom Typ Long (Zahl), da müssen die ' raus.

Code [Auswählen] Erweitern

rs.FindFirst "KundeID = " & Me!Suche


muss man hiermit arbeiten:
Private Sub Form_Current()

    Me!UFPartner.Form!cboKurse.Requery
    Me!UFPartner.Form!cboKunde1_ID.Requery

Das dient nur der Aktualisieung der Kombis im
UFo "Partner"
gruss ekkehard

[MisterMCBlinki]

hier einmal das update der kompletten, nun mit einbau einer serienbrief funktion und überarbeiten Frm, tbl namen, der ordnung halber.

neuer Fehler der auftritt:

Ich kann keine Berichte der Kurse auf einzelne Kurse beschränken. ID hab ich durch Kurs_ID ersetzt, aber das brachte nichts.

Wie schaffe ich nun , dass in einem Kurs Bericht, die Paare untereinander stehen?

@Beaker: Vielen Dank für die Antwort, ich hab auch daran später gedacht die ' rauszunehmen... 



[Anhang gelöscht durch Administrator]

[Beaker s.a.]

Hallo McBlinki,

Wie schaffe ich nun , dass in einem Kurs Bericht, die Paare untereinander stehen?

Mit Berichten kenne ich mich nicht so aus, habe ich mich
bis jetzt nur am Rande damit beschäftigt (schäm). Ich
denke aber Du könntest den Bericht so ähnlich aufbauen,
wie das Kunden-Form, also die Partner als Unterbericht.
Die Datenherkunft für den Hauptbericht ist dann natürlich
die Tabelle Kurse. Unterbericht beruht wieder auf der
Zuordnungstabelle. Ob Du die Felder da untereinander
statt nebeneinander plazierst ist ja ganz dir überlassen.
hth
gruss ekkehard