(?) Tjekke db.Recordset for Text ' (*.mdb)

Private Sub Command1_Click()
if Text1.Text <> 'employees' then
db.Execute ("UPDATE tblClient SET employees=" & Val(Text1.Text)
end if
End Sub

Eh. Måske det ikke var det som du spurgte om.

Vil du gerne checke at der ikek allerede findes en række med værdien i samme tabel? I så fald er der ikek andet for end at køre en SELECT-forespørgsel for at se om en sådan række findes først.

Havde det været en "rigtig" relationel database, kunne man tvinge databasen til at gøre arbejdet ved at indføre en begrænsning.

Hei -> darkstar, jeg skal tjekke et kolonne i 'tblClient' med navn 'employees' for en Text1.Text
'for at ikke sette ind records med samme navn.

rs.movefirst
Do While NOT rs.eof
If rs.employees = text1.text then
    exit sub
end if
Loop
db.Execute ("UPDATE tblClient SET employees=" & Val(Text1.Text)

If db.Execute("SELECT employees FROM tblClient WHERE employees = " & Val(Text1.Text)).EOF Then
    db.Execute "UPDATE tblClient SET employees=" & Val(Text1.Text)
End If

burde også virke...

øhm den skal vist kun opdatere hvis den employee ikke findes....

mikbj din sætning updater den hvis den findes er det ikke korrekt ?

Eller læser jeg det forkert ?

Nej, EOF betyder End Of File, så hvis den er EOF efter søgningen er udført, har den ikke fundet nogen ansat med det navn ..

ok :O) så lærte jeg da lidt :O)

Hmm ... Det blir forkert...
Vet ikke helt hva jeg gjør galt (?)

Bruger:

Private ws As Workspace
Private db As Database
Private rs As Recordset

Private Sub Form_Load()

Set ws = Workspaces(0)
Set db = ws.OpenDatabase("f:\usr.mdb")
Set rs = db.OpenRecordset("SELECT * FROM tblClient")
If Not rs.EOF Then
    rs.MoveFirst
    Do While Not rs.EOF
        Combo1.AddItem rs!CompanyName
        rs.MoveNext
    Loop
End If

End Sub

Skal ha:
db.Execute ("UPDATE tblClient SET employees='" & txtEmployees.Text & "'")
'men ... hvis txtEmployees.Text er fra før i rs!employees
'Skal ha en MsgBox og Exit Sub

"'men ... hvis txtEmployees.Text er fra før i rs!employees
'Skal ha en MsgBox og Exit Sub"

... den forstod jeg ikke lige?

Forstår den heller ikke lige......

navn: 'employees' kan 'forvirre' lidt her maybe
/ brugernavn / måste bli mer korrekt,

Jeg skal ha en:

Private Sub Command1_Click()
db.Execute ("UPDATE tblClient SET employees=" & Val(txtEmployees.Text) _
            & ", address='" & Text2.Text & "', type=" & Val(Text3.Text) _
            & " where companyname='" & Combo1.Text & "'")
End Sub
Men,... den ska også tjekke før 'UPDATE' at teksten ikke findst i andre records.
Hvis teksten findst så ska den !ikke skrive til (oppdatere) felten
Men gi MsgBox at: Dette (navn) findst og bruker må velge et andet.
Exit Sub 'Avslutte

Også fx brukes i:
Database.Execute "INSERT INTO tblClient (companyname, brugernavn, address,) VALUES ('" & Text1.Text & "', '" & txtBrugernavn.text & "', '" & Text2.text & "');"
' for at finde at 'brugernavn' er i brug.

MVH
Terra

Private Sub Command1_Click()
Set ws = Workspaces(0)
Set db = ws.OpenDatabase("f:\usr.mdb")
Set rs = db.OpenRecordset("SELECT * FROM tblClient")
If Not rs.EOF Then
rs.movefirst
do while not rs.eof
If rs.companyname = combo1.text then
  exit sub
end if
loop
db.Execute ("UPDATE tblClient SET employees=" & Val(txtEmployees.Text) _
            & ", address='" & Text2.Text & "', type=" & Val(Text3.Text) _
            & " where companyname='" & Combo1.Text & "'")
End Sub

vil jeg gætte på.....

hmmmm den ser forkert ud den sætning..... 2 sec.....

Nej ser ok ud....

Skal den update hvis brugeren eksistere eller hvis den ikke gør......

For skal den update hvis den eksistere så kan det gøres sådan her:

Private Sub Command1_Click()
Set ws = Workspaces(0)
Set db = ws.OpenDatabase("f:\usr.mdb")
db.Execute "UPDATE tblClient SET employees = '" & txtEmployees.Text & "' , address = '" & Text2.Text & "' , type = '" & Text3.Text & "' where companyname = " & Combo1.Text & ";"
End Sub

Skal oppdatere hvis den ikke eksistere.
If eksistere Then
MsgBox at: Dette (navn) findst og bruker må velge et andet.
Exit Sub 'Avslutte
End Sub

Vie er nesten i mål :)

aaah så er det slet ikke update du skal bruge......

Update opdatere nuværende poster......
Du skal tilføje....

2 sec....

Private Sub Command1_Click()
Set ws = Workspaces(0)
Set db = ws.OpenDatabase("f:\usr.mdb")
Set rs = db.OpenRecordset("SELECT * FROM tblClient")
If Not rs.EOF Then
rs.movefirst
do while not rs.eof
If rs.companyname = combo1.text then
  exit sub
end if
loop
db.Execute "INSERT INTO tblClient (employees,address,type) VALUES ('" & txtEmployees.Text & "' , '" & Text2.Text & "' , '" & Text3.Text & "');"
end sub

kan bare ikke lige gennemskue det med comboboxen.....

men jeg mener ikke du kan update en record der ikke er der......

Compile error:
Method or datamembet not found.

Peker på: rs.brugernavn = txtBrugernavn.text 'brugernavn

'comboboxen = companyname
'bruker jeg i et andet form for oppdatering av brugernavn.
'ellers så bruker jeg txt.CompaNyname for ny bruger

(?)Terra

Private Sub Command1_Click()
Set ws = Workspaces(0)
Set db = ws.OpenDatabase("f:\usr.mdb")
Set rs = db.OpenRecordset("SELECT * FROM tblClient")
If Not rs.EOF Then
rs.movefirst
do while not rs.eof
If rs.companyname = combo1.text then
  exit sub
end if
loop
Set ws = Workspaces(0)
Set db = ws.OpenDatabase("f:\usr.mdb")
db.Execute "INSERT INTO tblClient (employees,address,type) VALUES ('" & txtEmployees.Text & "' , '" & Text2.Text & "' , '" & Text3.Text & "');"
end sub

Prøv sådan

Nei,... den blir forkert.
Jeg skal prøve at lave en enkel form og teste lit her.
Det har hendt at den krasjer heilt.

Hva er forskjellen på rs.companyname og rs!companyname?
Hvis jeg bruger det i formen ovenfor?

Terra

Har fundet selv noe jeg kan bruge.
http://www.eksperten.dk/spm/261363
Kommentar: tubber
23/09-2002 15:30:33
Ellers Takk for hjelpen.

MVH Terra

Så lidt da :O)

Husk lige at lukke :O)

Terra takker for alt forsøg og slukker points itself :)
Ha en fin kveld.