Ny: Hjælp til database

har du hørt om pointere?

øhh nej...

har du hørt om pointere?

øhh nej...

Når man programmere er det meget normalt at omtale klasser, man kan lave nogle objekter udfra disse klasser, objekterne er en form for avancerede variabler, der også kan indeholde funktioner. Når et objekt oprettes lægges det et sted i hukommelsen. En pointer er en variable der indeholder en adresse til et sted i hukommelsen. (nu ved du hvad en pointer er)

Du skal sørgen for at du skriver me.orderby inde i koden for formen du ønsker sorteret. Hvis .orderby ikke er at finde i rullefeltet så bare prøv at skriv det alligevel (muligvis retter den selv til store bogstaver).

Hjalp det?

---
Simon

Nej desværre!

Når jeg prøver at køre programmet kommer den med en fejlmeddelse og så overstreger den .orderby


Mvh Peter

Nej desværre!

Når jeg prøver at køre programmet kommer den med en fejlmeddelse og så overstreger den .orderby


Mvh Peter

Prøv at vis mig koden..

Bare vis mig hele modulet for formen
---
Simon

Hej igen

---

Private Sub cdmSoegmor_Click()

Dim soegmor As String

cmdSoegfarnext.Visible = False
cmdSoegnavnnext.Visible = False
Text1.Text = ""
Text2.Text = ""

soegmor = Text3.Text

Data1.Recordset.movefirst

Do While Data1.Recordset.EOF = False
If Data1.Recordset("mor") = soegmor Then
cmdSoegmornext.Visible = True
cmdSoegmornext.Caption = ("Find næste person med navnet " & soegfar)
Exit Sub
End If
Data1.Recordset.movenext

Loop

MsgBox ("Persone findes ikke i databasen, er du sikker på at du har stavet navnet rigtigt.")
cmdSoegmornext.Visible = False

End Sub

Private Sub cmdAfslut_Click()

End

End Sub

Private Sub cmdBack_Click()

Kirkebog.Visible = False
start.Visible = True

End Sub

Private Sub cmdFrem_Click()
On Error GoTo fejl

Data1.Recordset.movenext

fejl:

End Sub

Private Sub cmdMovefirst_Click()
On Error GoTo fejl

Data1.Recordset.movefirst

fejl:

End Sub

Private Sub cmdMovelast_Click()
On Error GoTo fejl

Data1.Recordset.MoveLast

fejl:
End Sub

Private Sub cmdRet_Click()

Data1.Recordset.Edit

End Sub

Private Sub cmdSlet_Click()

Data1.Recordset.Delete
Data1.Recordset.movenext

End Sub

Private Sub cmdSoegfar_Click()
Dim soegfar As String

cmdSoegnavnnext.Visible = False
cmdSoegmornext.Visible = False
Text1.Text = ""
Text3.Text = ""

soegfar = Text2.Text

Data1.Recordset.movefirst

Do While Data1.Recordset.EOF = False
If Data1.Recordset("far") = soegfar Then
cmdSoegfarnext.Visible = True
cmdSoegfarnext.Caption = ("Find næste person med navnet " & soegfar)
Exit Sub
End If
Data1.Recordset.movenext

Loop

MsgBox ("Persone findes ikke i databasen, er du sikker på at du har stavet navnet rigtigt.")
cmdSoegfarnext.Visible = False

End Sub

Private Sub cmdSoegfarnext_Click()
Dim soegfar1 As String

Data1.Recordset.movenext

soegfar1 = Text2.Text
Do While Data1.Recordset.EOF = False
If Data1.Recordset("far") = soegfar1 Then

Exit Sub

End If
Data1.Recordset.movenext

Loop

MsgBox ("Der findes ikke flere personer med navnet " & soegfar & " i databasen!")


End Sub

Private Sub cmdSoegmornext_Click()

Dim soegmor1 As String

Data1.Recordset.movenext

soegmor1 = Text3.Text
Do While Data1.Recordset.EOF = False
If Data1.Recordset("mor") = soegmor1 Then

Exit Sub

End If
Data1.Recordset.movenext

Loop

MsgBox ("Der findes ikke flere personer med navnet " & soegmor & " i databasen!")

End Sub

Private Sub cmdSoegnavn_Click()
Dim soegenavn As String

cmdSoegfarnext.Visible = False
cmdSoegmornext.Visible = False
Text2.Text = ""
Text3.Text = ""

soegenavn = Text1.Text

Data1.Recordset.movefirst

Do While Data1.Recordset.EOF = False
If Data1.Recordset("navn") = soegenavn Then
cmdSoegnavnnext.Visible = True
cmdSoegnavnnext.Caption = ("Find næste person med navnet " & soegenavn)
Exit Sub
End If
Data1.Recordset.movenext

Loop

MsgBox ("Personen findes ikke i databasen, er du sikker på at du har stavet navnet rigtigt.")
cmdSoegnavnnext.Visible = False

End Sub

Private Sub cmdSoegnavnnext_Click()
Dim soegenavn1 As String

Data1.Recordset.movenext

soegenavn1 = Text1.Text
Do While Data1.Recordset.EOF = False
If Data1.Recordset("navn") = soegenavn1 Then

Exit Sub

End If
Data1.Recordset.movenext

Loop

MsgBox ("Der findes ikke flere personer med navnet " & soegenavn & " i databasen!")


End Sub

Private Sub cmdTilbage_Click()

On Error GoTo fejl

Data1.Recordset.MovePrevious

fejl:

End Sub

Private Sub cmdTilfoej_Click()

Data1.Recordset.AddNew

End Sub

Private Sub Form_Load()

On Error GoTo fejl:

cmdSoegnavnnext.Visible = False
cmdSoegfarnext.Visible = False
cmdSoegmornext.Visible = False


fejl:


End Sub

Private Sub gem_Click()

Data1.Recordset.Update

End Sub


Private Sub cmdSorter_Click()

???

End Sub


---


Mvh Peter

Nu kan jeg ikke lige se at du har lagt .orderby koden nogle steder men prøv at indsætte:

private sub btnSorter_Click()
me.orderby = "detFeltDuGerneVilSortereEfter"
end sub


husk at indsætte det rigtige feltnavn, dette skulle gerne sortere din form stigende (ascending) efter det feltnavn du vælger at angive. Hvis du vil have sorteret formens data faldende skal du bare tilføje "desc" alts:

me.orderby = "detFeltDuGerneVilSortereEfter desc"

---
Simon

[Redigeret d. 11/08-04 10:34:51 af Simon Merlung]

Hej simon

Den kommer stadigvæk med den der compile error hvor den overstreger .orderby

Mvh Peter

ps. jeg skriver

Private Sub cmdSorter_Click()

Me.orderby = "navn asc"

End Sub

Hej simon

Den kommer stadigvæk med den der compile error hvor den overstreger .orderby

Mvh Peter

ps. jeg skriver

Private Sub cmdSorter_Click()

Me.orderby = "navn asc"

End Sub

Prøv at sende hele databasen til mig!!

merlung.simon@lr.org

---
Simon

så skulle det være sendt!

Mvh Peter

så skulle det være sendt!

Mvh Peter

OKI hehe det er min arbejds email så jeg ser lige på det imorgen!

---
Simon