Angive en startværdi

Hvis det ene eller andet... hvordan?

I formularen indtaster du flg. i VedAktuel:

If Me.NewRecord Then
Me.POINTFELT = 300
End If

Umiddelbart lyder det som noget du skulle sætte i din applikation
(formentlig ASP).

Du er altid velkommen til at sætte det ind for mig :)




<%
Response.Buffer = True
%>
<html>
<head>
<title>eyeGrafik [version .01]</title>
</head>
<body>

<form method=post action=opret.asp>
<p>&nbsp;</p>

<div id="fejl">
<!--Her bliver fejlmeddelelsen skrevet ud-->
</div>

<div id="indhold">
<!-- Dette er inholdslaget - her står formen, og her bliver "du er nu oprettet" skrevet ud -->

<table border="0" cellspacing="0" cellpadding="0" width="225">
  <tr>
    <td width="92">
      <img border="0" src="gfx/brugernavn.bmp">
    </td>
    <td width="129">
      <input type=text name=brugernavn size="30" style="font-family: Verdana; font-size: 10 px; border: 1 solid #000000" value="<%=request.form("brugernavn")%>"></td>
  </tr>
  <tr>
    <td width="92">
      <img border="0" src="gfx/kodeord.bmp"></td>
    <td width="129">
      <input type=text name=kode size="30" style="font-family: Verdana; font-size: 10 px; border: 1 solid #000000" value="<%=request.form("kode")%>"></td>
  </tr>
  <tr>
    <td width="92">
      <img border="0" src="gfx/email.bmp"></td>
    <td width="129">
      <input type=text name=mail size="30" style="font-family: Verdana; font-size: 10 px; border: 1 solid #000000" value="<%=request.form("mail")%>"></td>
  </tr>
  <tr>
    <td width="92">
      <img border="0" src="gfx/icq.bmp"></td>
    <td width="129">
      <input type=text name=icq size="30" style="font-family: Verdana; font-size: 10 px; border: 1 solid #000000" value="<%=request.form("icq")%>"></td>
  </tr>
  <tr>
    <td width="92">
      <img border="0" src="gfx/msn.bmp"></td>
    <td width="129">
      <input type=text name=msn size="30" style="font-family: Verdana; font-size: 10 px; border: 1 solid #000000" value="<%=request.form("msn")%>"></td>
  </tr>
  <tr>
    <td width="92">
      <img border="0" src="gfx/fritekst.bmp"></td>
    <td width="129">
      <textarea name=fritekst size="20" style="font-family: Verdana; font-size: 10 px; border: 1 solid #000000" rows="5" cols="30"><%=request.form("fritekst")%></textarea></td>
  </tr>
</table>
<p><font face="Tahoma" size="2"><b>
<input type="image" src="gfx/opret_user.bmp" value="Opret Bruger" style="background-color: #FFFFFF; font-family: tahoma; font-size: 10pt; border: 1 solid #FFFFFF" name="Opret">
</b></font></p>
</form>

</div>

<%

if request.ServerVariables("REQUEST_METHOD") = "POST" then

For each Item in Request.Form
  if Request.form(item) = "" then
  %>
    <script>
      document.getElementById("fejl").innerHTML = "<font style='color: #FC8F3F; font-size: 12; font-family: Verdana'>Udfyld <%=item%></font><br><br>"
    </script>
  <%
  fejl = 1
  end if
Next

If fejl <> 1 Then

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("community.mdb") & ";UID=admin;PWD=;"
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From brugere where brugernavn = '" & Request.form("brugernavn") & "'"
rs.Open strSQL, Conn, 1, 3

If Not (rs.BOF Or rs.EOF) Then
    %>
    <script>
      document.getElementById("fejl").innerHTML = "<font style='color: #FC8F3F; font-size: 12; font-family: Verdana'>Brugernavnet er optaget - vælg et andet</font></font><br><br>"
    </script>
    <%
    fejl = 2
end if


If not (fejl = 1 or fejl = 2) Then
rs.addnew
rs("brugernavn") = Request.form("brugernavn")
rs("kode") = Request.form("kode")
rs("mail") = Request.form("mail")
rs("icq") = Request.form("icq")
rs("msn") = Request.form("msn")
rs("fritekst") = Request.form("fritekst")
rs("oprettet") = now
rs.update
'Response.Write("<meta HTTP-EQUIV=""REFRESH"" CONTENT=""00000000; URL=opret.asp?error=Du er nu oprettet!"">")

'Response.Write "  "

    %>
    <script>
      document.getElementById("indhold").innerHTML = "  "
    </script>
    <%

rs.Close
Set rs = Nothing
Conn.Close
set Conn = Nothing

end if

end if

end if
%>

</body>
</html>

Så ikke lige det var til brug på nettet.

Du kan vel sætte en standardværdi på dit felt..

Og selvfølelig pointsne skal kun komme hvis brugeren bliver oprettet.. det kan jo ske der bliver lavet en fejl

Slet ingen der kan hjælpe?

Need a correct answer..

I designvisning (under Access) kan du sætte en standardværdi på dit felt, så behøver du ikke angive værdien ved oprettelse af brugeren.

Ja, men hvordan gør jeg da så lige det.. syntes jeg har været inde at kigge

I tabeldesign under Standardværdi for nye poster.

Syntes sgu stadig ikke jeg kan finde ud af det.. så v'æsgo :)

www.frip.dk/kedde/community.zip

Det er bare "point" der skal have standardværdi 300

Så svær er den da heller ikke at finde. Du åbner din tabel i designvisning, markerer dit point-felt, og under generelt skriver 300 i feltet standardværdi.

Feltet hedder nok noget med default value på engelsk

:)

Database modtaget og rettet - Men hvordan sender jeg den tilbage til dig?

Proff@mail.dk

Sådan :)

Db returneret.

!!!!!!!!!!!!!!!!!!!!!!!!!!