انبارداری با اکسس

[niloofar_la]

سلام به اساتید محترم.
من می خواهم یک انبار تعریف کنم با المان های زیر :
ردیف،نام کامل کالا،نام ،مشخصات که هر کدام در یک فیلد جداگانه تعریف شوند (مثل:طول ،قطر،و....)،کاتالوگ نامبر،کد کالا،قیمت،تعداد اولیه،موجودی.

می خواهم دو تا فرم تعریف کنم یکی به عنوان ورود به انبار : که تو این فرم با وارد کردن کد کالا مشخصات کالا نمایش داده شود و تعداد ورود به موجودی انبار اضافه گردد.

فرم خروج از انبار: که باز هم تو این فرم با وارد کردن کد کالا مشخصات کالا نمایش داده شود و تعداد خروج از انبار از موجودی کسر شود.

اگر راهنمایی کنید ممنون می شوم.

مشکلی که دارم تو مقدار موجودی انبار هستش.خیلی تو فروم گشتم ولی به نتیجه نرسیدم.
اگر راهنمایی کنید ممنون می شوم.

با تشکر.

[royasaz_bam]

سلام دوست من برای کار انبارداری بهتره برای ثبت از کد نویسی استفاده شود که برای این منظور با دستورات recordset - addnew امکان پذیر میباشد که قاعدتاً قبل از ثبت یکسری شروط باید رعایت شود از جمله خالی نبودن نام کالا و همچنین تکراری نبودن اسم کالا درکس ذیل که یک فرم انبلود میباشد..
82578
نتها رای ثبت نام کالا ، نه موجودی آن که شامل 4 فیلد میباشد از دستورات ذیل استفاده شده


Private Sub Combo8_AfterUpdate()
DoCmd.RunCommand acCmdRefresh
'شرط خالي نبودن نام کالا
If Not IsNull([Text12]) Then
Me.Text2 = Nz(Text2, 10000000 & Me!Text0)
Dim chek As String
chek = Me.Combo10.Value

If chek <> "ساير" Then

'چک هم نامي کالا
Dim ch_kala, f_kala As String
f_kala = Me!Combo10 & " " & Me!Text12 & " " & Me!Combo8
ch_kala = DLookup("full_kala", "kala", "[full_kala]='" & f_kala & "'")
If Not IsNull(ch_kala) Then
MsgBox "کالاي" & " " & Me!Combo10 & " " & Me!Text12 & " با واحد " & Me!Combo8 & " قبلاٌ ثبت گرديده ", vbExclamation, "اختار"
xPop.ShowPopUp False, True, 300, 1500, 7000, "هشدار", "ثبت نشد" & vbCrLf & " ", True, True, True, EffectA, Slow, GradientMode, ColorA, 0, 255, vbWhite, vbWhite, vbWhite, Alarm, True

GoTo endchkala

Else

End If

If MsgBox("کالاي" & " " & Me!Combo10 & " " & Me!Text12 & " با واحد " & Me!Combo8 & " ثبت گردد ", vbYesNo) = vbYes Then
ok_s_n_k = "کالاي" & " " & Me!Combo10 & " " & Me!Text12 & " با واحد " & Me!Combo8 & " ثبت شد "
Dim rs As Recordset

Set rs = CurrentDb.OpenRecordset("kala", dbOpenDynaset)
rs.AddNew
rs!redif = Me!Text0
rs!bar_code = Me!Text2
rs!goroh_kala = Me!Combo10
rs!sharh_kala = Me!Combo10 & " " & Me!Text12
rs!vahed = Me!Combo8
rs!full_kala = f_kala
rs.Update
rs.Close
Me.Text16 = DCount("[id_kala]", "kala")
Me.Text22.Value = Me!Text12
Me.List14.Requery
DoCmd.Requery
Me!Text0 = Null
Me!Text2 = Null
Me!Combo10 = "ساير"
Me!Combo8 = ""
Me.Text12 = Null
DoCmd.GoToControl "text12"
xPop.ShowPopUp False, True, 300, 1500, 7000, "ثبت کالا", ok_s_n_k & vbCrLf & " ", True, True, True, EffectA, Slow, GradientMode, ColorA, 0, 255, vbWhite, vbWhite, vbWhite, Alarm, True


Else
xPop.ShowPopUp False, True, 300, 1500, 7000, "هشدار", "ثبت نشد" & vbCrLf & " ", True, True, True, EffectA, Slow, GradientMode, ColorA, 0, 255, vbWhite, vbWhite, vbWhite, Alarm, True
Me.Command40.Visible = True
Me.Command41.Visible = True
GoTo endend
End If
' در صورت ساير بودن
Else

'چک هم نامي کالا
Dim chs_kala, fs_kala As String
fs_kala = Me!Text12 & " " & Me!Combo8
chs_kala = DLookup("full_kala", "kala", "[full_kala]='" & fs_kala & "'")
If Not IsNull(chs_kala) Then
MsgBox "کالاي" & " " & Me!Text12 & " با واحد " & Me!Combo8 & " قبلاٌ ثبت گرديده ", vbExclamation, "اختار"
xPop.ShowPopUp False, True, 300, 1500, 7000, "هشدار", "ثبت نشد" & vbCrLf & " ", True, True, True, EffectA, Slow, GradientMode, ColorA, 0, 255, vbWhite, vbWhite, vbWhite, Alarm, True

GoTo endchkala

Else
End If



If MsgBox("کالاي" & " " & Me!Text12 & " با واحد " & Me!Combo8 & " ثبت گردد ", vbYesNo) = vbYes Then
ok_a_n_k2 = "کالاي" & " " & Me!Text12 & " با واحد " & Me!Combo8 & " ثبت شد "
Dim rs1 As Recordset

Set rs1 = CurrentDb.OpenRecordset("kala", dbOpenDynaset)
rs1.AddNew
rs1!redif = Me!Text0
rs1!bar_code = Me!Text2
rs1!goroh_kala = Me!Combo10
rs1!sharh_kala = Me!Text12
rs1!vahed = Me!Combo8
rs1!full_kala = fs_kala

rs1.Update
rs1.Close
Me.Text16 = DCount("[id_kala]", "kala")
Me.Text22.Value = Me!Text12
Me.List14.Requery
DoCmd.Requery


Me!Text0 = Null
Me!Text2 = Null
Me!Combo10 = "ساير"
Me!Combo8 = ""
Me!Text12 = Null
DoCmd.GoToControl "text12"
xPop.ShowPopUp False, True, 300, 1500, 7000, "ثبت کالا", ok_a_n_k2 & vbCrLf & " ", True, True, True, EffectA, Slow, GradientMode, ColorA, 0, 255, vbWhite, vbWhite, vbWhite, Alarm, True

Else
xPop.ShowPopUp False, True, 300, 1500, 7000, "هشدار", "ثبت نشد" & vbCrLf & " ", True, True, True, EffectA, Slow, GradientMode, ColorA, 0, 255, vbWhite, vbWhite, vbWhite, Alarm, True
Me.Command40.Visible = True
Me.Command41.Visible = True
GoTo endend
End If

End If
'رفتن به کالاي ثبت شده

DoCmd.GoToRecord acForm, "kala", acLast
Me.Text28 = max_fi()
Me.Text30 = sam_tedad()

'نمايش ورودي انبار کالاي جديد
Me.List42.Height = 2000
Me.List42.Top = 5500
Me.Label44.Top = 5200

Text36.Visible = True
Text38.Visible = True
Text40.Visible = True
Text42.Visible = True
Text44.Visible = True
Combo50.Visible = True
Text52.Visible = True
Command34.Visible = True
Command39.Visible = True

DoCmd.GoToControl "text40"
Command35.Visible = False
Label37.Visible = True
Label39.Visible = True
Label41.Visible = True
Label43.Visible = True
Label45.Visible = True
Label53.Visible = True
Label51.Visible = True


'"در صورت خالي بودن نام کالا
Else
MsgBox "لطفا نام کالا را مشخص نماييد"
endchkala:
DoCmd.GoToControl "text12"
Text12.BackColor = vbYellow
Me.Command40.Visible = True
Me.Command41.Visible = True
End If
endend:
End Sub



در کس ذیل و پس از ثبت نام کالا به طور خودکار ورودی کالا باز میشود که شامل فیلدهای مطابق عکس میباشد
82580
که در اینجا با کلیک بر روی دکمه ثبت کدهای زیر اجرا میشوند که شامل دستورات رکورد ست و همچنین شرطهای مربوطه میباشند


Private Sub Command34_Click()
'شرط خالي نبودن تعداد کالا
If Not IsNull([Text40]) Then
If Not IsNull([Text44]) Then
Me.Text38 = Nz(Text38, t_em())
Me.Text36 = r_v_K()
Me.Text42 = Nz(Me.Text42.Value, 0)

max_fiv

If MsgBox("ورود " & Me.Text40 & " قلم " & Me.sharh_kala.Value & " " & "به داخل انبار انجام گردد", vbYesNo) = vbYes Then
Dim tekal As String
tekal = "ورود " & Me.Text40 & " قلم " & Me.sharh_kala.Value & " " & "به داخل انبار انجام شد"

Dim rsv As Recordset

Set rsv = CurrentDb.OpenRecordset("VEROD_KALA", dbOpenDynaset)
rsv.AddNew
rsv!redif_v_k = Me!Text36
rsv!date_v_k = Me!Text38
rsv!tedad = Me!Text40
rsv!fi_v = Me!Text42
rsv!fi_fa = Me!Text44
rsv!teye = Me!Combo50
rsv!sharh = Me!Text52
rsv!coke_id_kala = Me!id_kala
rsv.Update
rsv.Close

xPop.ShowPopUp False, True, 300, 1500, 10000, "ورود انبار", tekal & vbCrLf & " ", True, True, True, EffectA, Normal, GradientMode, ColorA, 0, 255, vbWhite, vbWhite, vbWhite, Alarm, True

Me!Text36 = Null
Me!Text38 = Null
Me!Text40 = Null
Me!Text42 = Null
Me!Text44 = Null
Me!Combo50 = Null
Me!Text52 = Null

Text36.Visible = False
Text38.Visible = False
Text40.Visible = False
Text42.Visible = False
Text44.Visible = False
Combo50.Visible = False
Text52.Visible = False

Me.Command35.Visible = True
DoCmd.GoToControl "COMMAND35"
Me.Command34.Visible = False
Me.Command39.Visible = False
Me.List42.Top = 3380
Me.List42.Height = 4000
Me.Label44.Top = 3080

'op.ShowPopUp False, True, 300, 1500, 5000, "پيام", "ورود " & Me.Text40 & " قلم " & Me.sharh_kala.Value & " " & "به داخل انبار انجام گرديد" & vbCrLf & " ", True, True, True, EffectA, Normal, GradientMode, ColorA, 0, 255, vbWhite, vbWhite, vbWhite, Alarm, True
Else
xPop.ShowPopUp False, True, 300, 1500, 10000, "هشدار", "ثبت نشد" & vbCrLf & " ", True, True, True, EffectA, Slow, GradientMode, ColorA, 0, 255, vbWhite, vbWhite, vbWhite, Alarm, True
End If
Else
MsgBox "في فروش تعيين گردد"
' MsgBox "لطفا نام کالا را مشخص نماييد"
DoCmd.GoToControl "text44"
Text44.BackColor = vbRed

End If
Else
MsgBox "تعداد ورودي تعيين گردد"
'MsgBox "لطفا نام کالا را مشخص نماييد"
DoCmd.GoToControl "text40"
Text40.BackColor = vbRed
End If

Me.Text28 = max_fi()
Me.Text30 = sam_tedad()
Me.List42.Requery


که پس از اجرای دستورات فوق با پیامی مطابق عکس ذیل مواجه میشویم
82582
که پس از تایید آن به طور خودکار ورودی انبار مخفی شده و مطابق عکس ذیل با کلیک بر روی نام کالا 1 موجودی آن در قسمت 2 و کاردکس کالا در قسمت 3 نمایش داده میشود
82583
که این امر بصورت خودکار انجام میشود که کد مربوطه آن در افتر اپدیت لیست نام کالا قرار میگیرد کد مربوطه به شرح ذیل


Me.RecordsetClone.FindFirst "[id_kala]= " & Me!
[List14]
If Not Me.RecordsetClone.NoMatch Then
Me.Bookmark = Me.RecordsetClone.Bookmark
Me.List42.Requery

End If


دوست من تمامی کدهای فوق را من تا چند ماه قبل اصلا نمیدانستم چی هستند و آنها را با جسنجو و کمک اساتید و کاربران همین سایت یاد گرفتم با مطالعه و نمونه برداری آنها حتما موفق خواهی شد.

[wolfstander]

سلام
اگه من باشم اینطوری تعریف میکنم
جدول کالا:
کدکالا-نام و مشخصات کالا-موجودی ابتدای دوره-ورودطی دوره-خروج طی دوره- مانده نهایی
جدول گردش انبار:
کدکالا- تاریخ-ورودی-خروجی
که بر حسب ورودی یا خروجی بودن، در فیلد خودش قرار بگیره
بعدش میام و یک کوئری آپدیت می سازم به این صورت که مقدار ورودی ها و خروجی های جدول گردش انبار رو تجمیع کنه
و در جدول کالا بذاره
و مانده نهایی جدول کالا رو هم حساب کنه
شاید بشه گفت تو دوتا کوئری
و این دو تا کوئری زمانی که از فرمم خارج میشم ، اجرا بشن
اینجوری، هرزمانی که بخوام انبارمو چک کنم، به سرعت تمام مانده انبارم رو دارم
البته ممکن هم هست که کسی بگه من اینطوری نمیخوام
من میخوام هر زمان که گزارش اجرا شد این دو تا کوئری اجرا بشن
که بسته به این داره که شما بخوای چه روشی رو درپیش بگیری
البته این یه روش ساده بوده ها
مثلا شما 100% ضایعات انبار داری
کسری انبار داری
برگشت کالا به انبار داری
انبار به انبار هم داری
و ...
که خودت حتما ً استادی در این زمینه و من نمیتونم حرف زیادی بزنم
من این روش رو درپیش میگرفتم
و 100% بگم که این روش غلطه
چون من به اندازه خودم میفهمم
و اینجوری کار خودم رو راه انداختم
و حتما ً دوستان دیگه، روشهای بهتر،ساده تر و سریعتری رو بلد هستند که امیدوارم بیان و ما رو هم راهنمایی کنند

[niloofar_la]

سلام دوست من برای کار انبارداری بهتره برای ثبت از کد نویسی استفاده شود که برای این منظور با دستورات recordset - addnew امکان پذیر میباشد که قاعدتاً قبل از ثبت یکسری شروط باید رعایت شود از جمله خالی نبودن نام کالا و همچنین تکراری نبودن اسم کالا درکس ذیل که یک فرم انبلود میباشد..
82578
نتها رای ثبت نام کالا ، نه موجودی آن که شامل 4 فیلد میباشد از دستورات ذیل استفاده شده


Private Sub Combo8_AfterUpdate()
DoCmd.RunCommand acCmdRefresh
'شرط خالي نبودن نام کالا
If Not IsNull([Text12]) Then
Me.Text2 = Nz(Text2, 10000000 & Me!Text0)
Dim chek As String
chek = Me.Combo10.Value

If chek <> "ساير" Then

'چک هم نامي کالا
Dim ch_kala, f_kala As String
f_kala = Me!Combo10 & " " & Me!Text12 & " " & Me!Combo8
ch_kala = DLookup("full_kala", "kala", "[full_kala]='" & f_kala & "'")
If Not IsNull(ch_kala) Then
MsgBox "کالاي" & " " & Me!Combo10 & " " & Me!Text12 & " با واحد " & Me!Combo8 & " قبلاٌ ثبت گرديده ", vbExclamation, "اختار"
xPop.ShowPopUp False, True, 300, 1500, 7000, "هشدار", "ثبت نشد" & vbCrLf & " ", True, True, True, EffectA, Slow, GradientMode, ColorA, 0, 255, vbWhite, vbWhite, vbWhite, Alarm, True

GoTo endchkala

Else

End If

If MsgBox("کالاي" & " " & Me!Combo10 & " " & Me!Text12 & " با واحد " & Me!Combo8 & " ثبت گردد ", vbYesNo) = vbYes Then
ok_s_n_k = "کالاي" & " " & Me!Combo10 & " " & Me!Text12 & " با واحد " & Me!Combo8 & " ثبت شد "
Dim rs As Recordset

Set rs = CurrentDb.OpenRecordset("kala", dbOpenDynaset)
rs.AddNew
rs!redif = Me!Text0
rs!bar_code = Me!Text2
rs!goroh_kala = Me!Combo10
rs!sharh_kala = Me!Combo10 & " " & Me!Text12
rs!vahed = Me!Combo8
rs!full_kala = f_kala
rs.Update
rs.Close
Me.Text16 = DCount("[id_kala]", "kala")
Me.Text22.Value = Me!Text12
Me.List14.Requery
DoCmd.Requery
Me!Text0 = Null
Me!Text2 = Null
Me!Combo10 = "ساير"
Me!Combo8 = ""
Me.Text12 = Null
DoCmd.GoToControl "text12"
xPop.ShowPopUp False, True, 300, 1500, 7000, "ثبت کالا", ok_s_n_k & vbCrLf & " ", True, True, True, EffectA, Slow, GradientMode, ColorA, 0, 255, vbWhite, vbWhite, vbWhite, Alarm, True


Else
xPop.ShowPopUp False, True, 300, 1500, 7000, "هشدار", "ثبت نشد" & vbCrLf & " ", True, True, True, EffectA, Slow, GradientMode, ColorA, 0, 255, vbWhite, vbWhite, vbWhite, Alarm, True
Me.Command40.Visible = True
Me.Command41.Visible = True
GoTo endend
End If
' در صورت ساير بودن
Else

'چک هم نامي کالا
Dim chs_kala, fs_kala As String
fs_kala = Me!Text12 & " " & Me!Combo8
chs_kala = DLookup("full_kala", "kala", "[full_kala]='" & fs_kala & "'")
If Not IsNull(chs_kala) Then
MsgBox "کالاي" & " " & Me!Text12 & " با واحد " & Me!Combo8 & " قبلاٌ ثبت گرديده ", vbExclamation, "اختار"
xPop.ShowPopUp False, True, 300, 1500, 7000, "هشدار", "ثبت نشد" & vbCrLf & " ", True, True, True, EffectA, Slow, GradientMode, ColorA, 0, 255, vbWhite, vbWhite, vbWhite, Alarm, True

GoTo endchkala

Else
End If



If MsgBox("کالاي" & " " & Me!Text12 & " با واحد " & Me!Combo8 & " ثبت گردد ", vbYesNo) = vbYes Then
ok_a_n_k2 = "کالاي" & " " & Me!Text12 & " با واحد " & Me!Combo8 & " ثبت شد "
Dim rs1 As Recordset

Set rs1 = CurrentDb.OpenRecordset("kala", dbOpenDynaset)
rs1.AddNew
rs1!redif = Me!Text0
rs1!bar_code = Me!Text2
rs1!goroh_kala = Me!Combo10
rs1!sharh_kala = Me!Text12
rs1!vahed = Me!Combo8
rs1!full_kala = fs_kala

rs1.Update
rs1.Close
Me.Text16 = DCount("[id_kala]", "kala")
Me.Text22.Value = Me!Text12
Me.List14.Requery
DoCmd.Requery


Me!Text0 = Null
Me!Text2 = Null
Me!Combo10 = "ساير"
Me!Combo8 = ""
Me!Text12 = Null
DoCmd.GoToControl "text12"
xPop.ShowPopUp False, True, 300, 1500, 7000, "ثبت کالا", ok_a_n_k2 & vbCrLf & " ", True, True, True, EffectA, Slow, GradientMode, ColorA, 0, 255, vbWhite, vbWhite, vbWhite, Alarm, True

Else
xPop.ShowPopUp False, True, 300, 1500, 7000, "هشدار", "ثبت نشد" & vbCrLf & " ", True, True, True, EffectA, Slow, GradientMode, ColorA, 0, 255, vbWhite, vbWhite, vbWhite, Alarm, True
Me.Command40.Visible = True
Me.Command41.Visible = True
GoTo endend
End If

End If
'رفتن به کالاي ثبت شده

DoCmd.GoToRecord acForm, "kala", acLast
Me.Text28 = max_fi()
Me.Text30 = sam_tedad()

'نمايش ورودي انبار کالاي جديد
Me.List42.Height = 2000
Me.List42.Top = 5500
Me.Label44.Top = 5200

Text36.Visible = True
Text38.Visible = True
Text40.Visible = True
Text42.Visible = True
Text44.Visible = True
Combo50.Visible = True
Text52.Visible = True
Command34.Visible = True
Command39.Visible = True

DoCmd.GoToControl "text40"
Command35.Visible = False
Label37.Visible = True
Label39.Visible = True
Label41.Visible = True
Label43.Visible = True
Label45.Visible = True
Label53.Visible = True
Label51.Visible = True


'"در صورت خالي بودن نام کالا
Else
MsgBox "لطفا نام کالا را مشخص نماييد"
endchkala:
DoCmd.GoToControl "text12"
Text12.BackColor = vbYellow
Me.Command40.Visible = True
Me.Command41.Visible = True
End If
endend:
End Sub



در کس ذیل و پس از ثبت نام کالا به طور خودکار ورودی کالا باز میشود که شامل فیلدهای مطابق عکس میباشد
82580
که در اینجا با کلیک بر روی دکمه ثبت کدهای زیر اجرا میشوند که شامل دستورات رکورد ست و همچنین شرطهای مربوطه میباشند


Private Sub Command34_Click()
'شرط خالي نبودن تعداد کالا
If Not IsNull([Text40]) Then
If Not IsNull([Text44]) Then
Me.Text38 = Nz(Text38, t_em())
Me.Text36 = r_v_K()
Me.Text42 = Nz(Me.Text42.Value, 0)

max_fiv

If MsgBox("ورود " & Me.Text40 & " قلم " & Me.sharh_kala.Value & " " & "به داخل انبار انجام گردد", vbYesNo) = vbYes Then
Dim tekal As String
tekal = "ورود " & Me.Text40 & " قلم " & Me.sharh_kala.Value & " " & "به داخل انبار انجام شد"

Dim rsv As Recordset

Set rsv = CurrentDb.OpenRecordset("VEROD_KALA", dbOpenDynaset)
rsv.AddNew
rsv!redif_v_k = Me!Text36
rsv!date_v_k = Me!Text38
rsv!tedad = Me!Text40
rsv!fi_v = Me!Text42
rsv!fi_fa = Me!Text44
rsv!teye = Me!Combo50
rsv!sharh = Me!Text52
rsv!coke_id_kala = Me!id_kala
rsv.Update
rsv.Close

xPop.ShowPopUp False, True, 300, 1500, 10000, "ورود انبار", tekal & vbCrLf & " ", True, True, True, EffectA, Normal, GradientMode, ColorA, 0, 255, vbWhite, vbWhite, vbWhite, Alarm, True

Me!Text36 = Null
Me!Text38 = Null
Me!Text40 = Null
Me!Text42 = Null
Me!Text44 = Null
Me!Combo50 = Null
Me!Text52 = Null

Text36.Visible = False
Text38.Visible = False
Text40.Visible = False
Text42.Visible = False
Text44.Visible = False
Combo50.Visible = False
Text52.Visible = False

Me.Command35.Visible = True
DoCmd.GoToControl "COMMAND35"
Me.Command34.Visible = False
Me.Command39.Visible = False
Me.List42.Top = 3380
Me.List42.Height = 4000
Me.Label44.Top = 3080

'op.ShowPopUp False, True, 300, 1500, 5000, "پيام", "ورود " & Me.Text40 & " قلم " & Me.sharh_kala.Value & " " & "به داخل انبار انجام گرديد" & vbCrLf & " ", True, True, True, EffectA, Normal, GradientMode, ColorA, 0, 255, vbWhite, vbWhite, vbWhite, Alarm, True
Else
xPop.ShowPopUp False, True, 300, 1500, 10000, "هشدار", "ثبت نشد" & vbCrLf & " ", True, True, True, EffectA, Slow, GradientMode, ColorA, 0, 255, vbWhite, vbWhite, vbWhite, Alarm, True
End If
Else
MsgBox "في فروش تعيين گردد"
' MsgBox "لطفا نام کالا را مشخص نماييد"
DoCmd.GoToControl "text44"
Text44.BackColor = vbRed

End If
Else
MsgBox "تعداد ورودي تعيين گردد"
'MsgBox "لطفا نام کالا را مشخص نماييد"
DoCmd.GoToControl "text40"
Text40.BackColor = vbRed
End If

Me.Text28 = max_fi()
Me.Text30 = sam_tedad()
Me.List42.Requery


که پس از اجرای دستورات فوق با پیامی مطابق عکس ذیل مواجه میشویم
82582
که پس از تایید آن به طور خودکار ورودی انبار مخفی شده و مطابق عکس ذیل با کلیک بر روی نام کالا 1 موجودی آن در قسمت 2 و کاردکس کالا در قسمت 3 نمایش داده میشود
82583
که این امر بصورت خودکار انجام میشود که کد مربوطه آن در افتر اپدیت لیست نام کالا قرار میگیرد کد مربوطه به شرح ذیل


Me.RecordsetClone.FindFirst "[id_kala]= " & Me!
[List14]
If Not Me.RecordsetClone.NoMatch Then
Me.Bookmark = Me.RecordsetClone.Bookmark
Me.List42.Requery

End If


دوست من تمامی کدهای فوق را من تا چند ماه قبل اصلا نمیدانستم چی هستند و آنها را با جسنجو و کمک اساتید و کاربران همین سایت یاد گرفتم با مطالعه و نمونه برداری آنها حتما موفق خواهی شد.

آقا کارت خیلی درسته ولی من برنامه نویسی تو اکسس اصلاً بلد نیستم.میتونید بیشتر راهنمایی کنید؟
خیلی خوبه که کاری که انجام دادید بارکد رو هم ساپورت می کنه.
من رو کدها کار میکنم.
تشکر.
فقط اگر قسمتی رو متوجه نشدم برام بیشتر توضیح دهید.چون من تازه کارم.

[abdoreza57]

سلام
دوست عزيز royasaz_bam (http://barnamenevis.org/member.php?191467-royasaz_bam) بابت توضيحات خوبي كه داديد واقعا ممنون بسيار استفاده كرديم

خوب ميشد اگه نمونه اي كه داشتيد را براي الگو گرفتن و خلق ايده تو ساير دوستان ضميمه ميكرديد براي من كه واقعا عالي بود


ياحق

[niloofar_la]

دوست عزیز wolfstander (http://barnamenevis.org/member.php?26401-wolfstander) توضیحات خوبی بود.دیدم رو بازتر کردید.
ایده خوبیه.
راستش اول میخواستم این برنامه رو با c# و sql بنویسم.
ولی راستش sql تاحالا کارنکردم.
اگر اساتید بتونند راهنمایی کنند با سی شارپ و اکسس این کارو به سرانجام برسونم نهایت لطف رو انجام دادند.

[royasaz_bam]

یک کوئری آپدیت می سازم به این صورت که مقدار ورودی ها و خروجی های جدول گردش انبار رو تجمیع کنه
و در جدول کالا بذاره
و مانده نهایی جدول کالا رو هم حساب کنه
شاید بشه گفت تو دوتا کوئری
با سلام مجدد در خصوص ساخت کوئریهایی از این دست باید بگویم من حد اقل 7 سال اکسس بدون کد نویسی کارکردم و تمام کارهایم را با کوئری و ویزاردهای اکسس به انجام میرساندم حال که با کدنویسی این کارها را انجام میدهم بسیار راحتتر و سریعتر و مطمئنتر به جواب میرسم البته اگر کدنویسی را درست انجام بدیم .



آقا کارت خیلی درسته ولی من برنامه نویسی تو اکسس اصلاً بلد نیستم.میتونید بیشتر راهنمایی کنید؟
خیلی خوبه که کاری که انجام دادید بارکد رو هم ساپورت می کنه.
من رو کدها کار میکنم.
تشکر.
فقط اگر قسمتی رو متوجه نشدم برام بیشتر توضیح دهید.چون من تازه کارم. دوست من باور کن در کد نویسی من از تو تازه کارترم قبلا هم عرض کرده بودم تا چند ماه پیش من اصلا نمیدونستم کد چیه و برنامه نویسی چه جوریه اینو میتوانید با جستجوی تاپیکهای قبلی من پی ببرید حال شما با پیشینه ای که در سایر زبانها دارید مسلما در بکاربردن این کدها در اکسس موفقتر از من خواهید بود فقط موضوع اینه که باید بخواهید در هر حال هر کجا را که خواستید بفرمائید تا توضیح دهم