Access - Funksion qe Kontrollon Tabelen per ID

[little-boy]

Pershendetje,

kam nje form ne access me disa fusha Unbound, forma permban butonin "btnADD" qe ka ngjarjen

Dim lidhu As New ADODB.Connection
Dim vendos As New ADODB.Recordset
Set lidhu = CurrentProject.Connection
vendos.Open "tbl_temp", lidhu, adOpenKeyset, adLockOptimistic
vendos.AddNew
vendos!ID = Me.ID
vendos!Emri= Me.Emri
vendos!Sasia = Me.Sasia
vendos.Update
vendos.Close
Set lidhja = Nothing
CurrentDb.Execute "UPDATE tbl_Inv set tbl_Inv.Sasia = " & Me.Balanci & " _    WHERE  tbl_Inv.ID = " & "'" & Me.ID & "'"

pra butoni ne fjal fut vlerat qe jane shkruar ne form ne tabelen "tbl_temp"!

Si munde ta krijoj nje ngjarje, qe ta shikoj tabelen "tbl_Temp" qe nese Ekziston vlera ID = Me.ID nese ekziston ateher te mos futen te gjitha te dhenat qe janë te shkruara ne forme, mirpo te futet vetem Sasia (Sasia = Me.Sasia+Sasia).

nje Shembull paksa te ngjajem ka dhene "Hot_Prinz" ne nje teme, mirpo une nuk munda ta adaptoja ne kete problem!

Faleminderit Paraprakisht!

[hot_prinz]

Pershendetje little-boy,


po pritoj me e kriju nje tabele per kete shembull, por e shof se Recordseti yt eshte [vendos], ti duhet kerkuar vleren ID se a ekziston ne kete Rekordset, si psh:

    Dim ekziston As Boolean

    Do Until vendos.EOF
        If Me.ID = vendos.Fields("ID") Then
            ekziston = True
            Exit Do
        End If
        vendos.MoveNext
    Loop

Pastaj nga ajo se a ekziston ID-ja ne tabele. krijon nje Rekordset te ri apo e ben Update sasine:

   If ekziston = False Then
      ---> ketu i mbush gjitha fushat e rekordsetit
   Else
     ----> [Update] sasine
   End If

nese ke probleme me implementim dergoma databazen ta ndryshoj.

[little-boy]

provova keshtu , mirpo nuk punoji,,,

ja e bashkangjitura Baza

Private Sub Futi_Click()
Dim lidhu As New ADODB.Connection
Dim vendos As New ADODB.Recordset
Dim ekziston As Boolean
Set lidhu = CurrentProject.Connection
vendos.Open "tbl_temp", lidhu, adOpenKeyset, adLockOptimistic
'**********KODI NGA Hot_Prinz
  Do Until vendos.EOF
        If Me.Item = vendos.Fields("Item") Then
            ekziston = True
            Exit Do
        End If
        vendos.MoveNext
    Loop
If ekziston = False Then
'***********************************
vendos.AddNew
vendos!Item = Me.Item
vendos!Emri = Me.Emri
vendos!Sasia = Me.Sasia
vendos.Update
frm_Temp.Requery
'****************************************KODI nga Hot_Prinz
Else
'----> [Update] sasine
CurrentDb.Execute "UPDATE tbl_Temp Set tbl_Temp.Sasia = " & Me.Sasia & " WHERE tbl_Inv.Item = " & Me.Item
vendos.Close
Set lidhja = Nothing
End If
'*******************************************************
End Sub

[little-boy]

Pershendetje Hot_prinz,
Pas disa provave une arrita qe ta zgjidhi problemin ne kete menyr, mirpo kisha pasur deshir ta perdorja metoden tende sepse me duket me profesionale!

Faleminderit

Private Sub Futi_Click()
 If Not IsNull(Me.Item) Then
  If DCount("Item", "tbl_Temp", "[Item] = " & Me.Item) > 0 Then
    CurrentDb.Execute "UPDATE tbl_Temp Set tbl_Temp.Sasia =  tbl_Temp.Sasia + " & Me.Sasia & " WHERE tbl_Temp.Item = " & Me.Item
   frm_Temp.Requery
   Item.SetFocus
  Else
  Set lidhu = CurrentProject.Connection
    vendos.Open "tbl_temp", lidhu, adOpenKeyset, adLockOptimistic
    vendos.AddNew
    vendos!Item = Me.Item
    vendos!Emri = Me.Emri
    vendos!Sasia = Me.Sasia
    vendos.Update
    vendos.Close
   frm_Temp.Requery
   Item.SetFocus
  End If
 End If
End Sub