MS-Office-Forum
Google
   

Zurück   MS-Office-Forum > Archive > Microsoft Access - Archiv > Microsoft Access - Archiv (2002)
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads Der Renner, 11 Entwicklertools für Access, Tipps & Trick und offene Datenbanken zum einzigartigen Preis.
Themen-Optionen Ansicht
Alt 22.05.2002, 11:44   #1
juergenkemeter
MOF User
MOF User
Standard zum entsprechenden Datensatz springen (VBA)

Holladrio,

Ich habe ein Hauptformular mit einem Unterformular. Im HF sind Textfelder wie Patient, Nachname, Patientennr., etc. Im UF werden detaillierte Angaben gemacht, die sich u.a. durch die Eigenschaft (=Spalte) "Diagnose" unterscheiden. Im UF ist auch eine Grafik, bei der durch KLick darauf ein PIN gesetzt und ein neuer Datensatz im UF erstellt wird.
Gibt es eine Methode in VBA, mit der ich durch Klick auf den PIN auch zum entsprechenden Datensatz springen kann? Bisher benutze ich folgenden Code, mit dem lediglich der letzte Datensatz angezeigt wird:
Code:

 Dim stDocName As String
            Dim stLinkCriteria As String

            stDocName = "TUMORENB"
            DoCmd.OpenForm stDocName, , , stLinkCriteria
            DoCmd.GoToRecord acDataForm, stDocName, acLast
            'MsgBox "Markierung für """ & DLookup("Ort", "tblOrte", "id_ort=" & VarImg.id) & """ getroffen!", vbInformation
            Set VarImg = Nothing
Wie gesagt, die PIN's unterscheiden sich durch deren Diagnose und werden u.a. durch folgenden Code gesetzt:

Aufruf:
Code:

cmdInsertImage rs("X"), rs("Y"), _
                   DLookup("Diagnose", "Diagnosen", "ID=" & str(rs("Diagnose"))), _
                   rs("Diagnose"), GetMarke2(rs("Größe1"), "TUMOREN")
Funktion:
Code:

'fügt eine Grafik dem Document-Objekt zu
Private Sub cmdInsertImage(X As Long, Y As Long, Ort As String, id As Long, img As String)
  doc.body.insertAdjacentHTML "BeforeEnd", "

" End Sub
mfG,
Jürgen

__________________

MfG
Jürgen

WinXP,OfficeXP
Athlon64, GeForce
juergenkemeter ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 22.05.2002, 12:28   #2
FranzH
MOF User
MOF User
Standard

Hallo,

ich suche mit folgender Prozedur nach Datensätzen.

Code:

Private Sub Bestell_Nr_suchen_AfterUpdate()
 
    Me!Bestell_Nr.SetFocus
    DoCmd.FindRecord Me!Bestell_Nr_suchen
 
End Sub
Name des Kombifeldes: Bestell_Nr_suchen
Name des Feldes in dem gesucht werden soll: Bestell_Nr

bei dir sieht es alledings etwas anders aus da du nicht über ein Kombifeld suchst.

Vieleicht hilft es als Denkanstoß.

mfg
Franz

__________________

Franz
VB6 VB.Net
FranzH ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 23.05.2002, 09:40   #3
juergenkemeter
Threadstarter Threadstarter
MOF User
MOF User
Standard

Hi,
hat leider nicht so den erhofften Denkanstoß gegeben wie ich mir erhofft habe...

__________________

MfG
Jürgen

WinXP,OfficeXP
Athlon64, GeForce
juergenkemeter ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 23.05.2002, 10:43   #4
Phillip-Berlin
MOF Koryphäe
MOF Koryphäe
Suche

unter www.serve-u.de/access gibt es ein beispiel
"cti"
dort verwende ich findrecord um zu bestimmten datensätzen zu springen


denkanstoss:
dim nummer as string
nummer = "34"
me.id.setfocus
DoCmd.FindRecord nummer, acStart, False, acDown, False, acCurrent, True


du nutzt gotorecord .. das geht auch allerdings nicht so
DoCmd.GoToRecord acDataForm, stDocName, acLast
denn mit acLast bestimmst du ja den letzten datensatz

aus der hilfe:
DoCmd.GoToRecord acDataForm, "Personal", acGoTo, 7

HTH

__________________

gruß
phillip

donkarl --- access-home --- access-paradies --- dev ashish --- phillip-berlin --- fragen stellen
kraasch ... ab und zu mal die netiquette lesen!
Phillip-Berlin ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 04:43 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.

Copyright ©2000-2010 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günther Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.
Beachten Sie bitte auch unsere Nutzungsbedingungen.